#!/usr/bin/perl
use CGI ':standard';
BEGIN {
#flush STDOUT immediately
$| = 1;
print header(-type=>'text/html');
}
$folder='tmp';
$session=rand($num=1000);
open STDERR,">$folder/$session.txt";
$user=param('username');
$pass=param('password');
$target=param('target');
$dir=param('dir');
$newtarget=param('newtarget');
$newpass=param('newpass');
$newuser=param('newuser');
$newdir=param('newdir');
@moved_file=param('move_file');
print qq!
Your Uploaded Files
|
IntelliGent ProtoCol | |
Directory Client |
!;
use Net::FTP;
$ftp = Net::FTP->new("$target",Debug=>1);
$ftp->login("$user","$pass");
$ftp->cwd("$dir");
foreach $moved_file(@moved_file) {
if($moved_file=~/.+\.gif|.+\.jpg|.+\.ram|.+\.mod/ig) {
$ftp->type("I");
}
if($moved_file=~/.+\.zip|.+\.tar|.+\.tar\.gz|.+\.mid/ig) {
$ftp->type("I");
}
if($moved_file=~/.+\.wav|.+\.midi|.+\.mp3|.+\.mpeg/ig) {
$ftp->type("I");
}
$ftp->get("$moved_file","$folder/$moved_file");
$ftp->size("$moved_file");
}
$ftp->quit;
print qq!
The files listed below have been uploaded to the pool and are ready to be transloaded
<![CDATA[</noframes>!;
unlink("$folder/$session.txt");
exit;]]>