#!/usr/bin/perl use CGI ':standard'; print header; $user = param('username'); $pass = param('password'); $target = param('target'); $dir = param('dir'); $newuser = param('newusername'); $newpass = param('newpassword'); $newtarget = param('newtarget'); $newdir = param('newdir'); $now_t=localtime; $folder='tmp'; $java=qq~ ~; print start_html("Listing For $user\@$target/$dir"); &do_work; sub do_work { $wh=rand($num=1000); $wh="$folder/$wh.txt"; print "$java"; print qq!
Directory Listing

$user\@$target/$dir

Destination Server And Directory

$newuser\@$newtarget/$newdir

Below click onto the files you wish to move...

.

Scroll to Bottom
!; $this_num=="1"; if($target eq "ftp.angelfire.com") { $angel=rand($num=1000); use Net::FTP; $ftp = Net::FTP->new("$target",Debug=>1); $ftp->login("$user","$pass"); $ftp->cwd($dir); @listing=$ftp->dir($dir); $ftp->quit; open(PAGE,">$wh"); print PAGE "@listing"; close PAGE; } else { use LWP::Simple; getstore("ftp://$user:$pass\@$target/$dir","$wh"); } open(FILE,"$wh"); while() { foreach($_=~/([^\s]+\.[^\s]+)/ig) { $file=$1; $this_num++; print qq! !; } } } print qq!
!; if($this_num=="1") { print qq!check uncheck!; } elsif($this_num=="21") { print qq!check uncheck!; }elsif($this_num=="41") { print qq!check uncheck!; }elsif($this_num=="61") { print qq!check uncheck!; }elsif($this_num=="81") { print qq!check uncheck!; }elsif($this_num=="101") { print qq!check uncheck!; }elsif($this_num=="121") { print qq!check uncheck!; } print qq! $this_num Top Bottom $file

.
Back to Top
!; print end_html; unlink($wh); exit;