#!/usr/bin/perl
use CGI ':standard';
BEGIN {
#flush STDOUT immediately
$| = 1;
print header(-type=>'text/html');
}
$session=rand($num=1000);
open STDERR,">tmp/$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');
@new_file=param('new_file');
@moved_file=param('move_file');
print qq!
Tranloaded Files.
Extractor/Transloader!;
$temp_dir="tmp";
$num="0";
foreach $moved_file(@moved_file) {
if($moved_file ne "@new_file[\"$num\"]") {
`mv $temp_dir/$moved_file $temp_dir/@new_file["$num"]`;
}
$num++;
}
use Net::FTP;
$ftp = Net::FTP->new("$newtarget",Debug=>1);
$ftp->login("$newuser","$newpass");
$ftp->cwd("$newdir");
foreach $new_file(@new_file) {
$ftp->type("I");
$ftp->put("$temp_dir/$new_file","$new_file");
$ftp->size("$new_file");
}
$ftp->quit;
print qq!
!;
open(DATA,") {
foreach($_=~/Net.*FTP=.*\)(.*)/ig) {
$temp=$1;
($temp=~s/([A-Z]+[A-Z]+[A-Z].*)/$1<\/FONT>/g);
($temp=~s/(user\s.*)/$1<\/strong>/g);
($temp=~s/213(.*)/$1
BYTES<\/FONT>/g);
print qq!$temp!;
}
}
print qq!
Your Transaction is complete..
!;
unlink("tmp/$session.txt");
foreach $new_file(@new_file) {
unlink("tmp/$new_file");
}
exit;