#!/usr/local/bin/perl print "Content-type: text/html\n\n"; use CGI qw(param); $file = param("file"); $server = param("server"); $user = param("user"); $pass = param("pass"); $name = param("name"); $dir = param("dir"); $type = param("type"); $action = param("action"); print < Perlwiz File Transfer Protocol

Perlwiz

File Transfer Protocol



EOM if ($action eq "") { print <
Last URL:
Server:
Username:
Password:
Directory:
File URL:
New name:
Type:
EOM } else { use LWP::Simple; use Net::FTP; $put = get $file; open(TMP,">tmp/$name"); if ($type eq "binary") { binmode TMP; } print TMP $put; close(TMP); $stored = "tmp/$name"; print "
Login status:"; $ftp = Net::FTP->new("$server"); if ($ftp->login("$user","$pass")) { print "logged in"; } else { print "Couldn't Login"; } print "
Getting HTML:"; if ($put ne "") { print "O.K."; } else { print "Didn't correctly recieve HTML"; } print "
Preparing to upload:"; if ($ftp->get("$stored")) { print "O.K."; } else { print "Couldn't upload"; } print "
Changing directories:"; if ($ftp->cwd("$dir")) { print "O.K."; } else { print "Couldn't change directories"; } print "
uploading:"; if ($ftp->put("$stored","$name")) { print "O.K."; } else { print "Couldn't upload"; } print "
Quitting:"; if ($ftp->quit) { print "O.K."; } else { print "Couldn't quit"; } unlink("$stored"); }