return true;
}
+
+function delete_from_ftp ($file) {
+ $ftp_conn = ftp_connect (FTPSERVER);
+ $login = ftp_login ($ftp_conn, FTPUSER, FTPPASS);
+ if ((!$ftp_conn) || (!$login)) {
+ server_error ();
+ }
+ $target = sprintf ("%s/%s", FTPROOTDIR, $file);
+ $deleted = ftp_delete ($ftp_conn, $target);
+
+ if (!$deleted) {
+ server_error ();
+ }
+ ftp_close ($ftp_conn);
+}
+
+function send_to_ftp ($file) {
+ $ftp_conn = ftp_connect (FTPSERVER);
+ $login = ftp_login ($ftp_conn, FTPUSER, FTPPASS);
+ if ((!$ftp_conn) || (!$login)) {
+ server_error ();
+ }
+ $dest = sprintf ("%s/%s", FTPROOTDIR, $file);
+ $upload = ftp_put ($ftp_conn, $dest, $file, FTP_BINARY);
+
+ if (!$upload) {
+ server_error ();
+ }
+ ftp_close ($ftp_conn);
+}
?>