#!/usr/bin/perl use CGI ':standard'; use LWP::Simple; $user=param('user'); $pass=param('pass'); $dir=param('dir'); $target=param('target'); $type=param('type'); print header; print start_html("LISTING FOR $user"); print qq!
!; $rand=rand($num=1000); use LWP::Simple; getstore("ftp://$user:$pass\@$target/$dir","tmp/$rand.txt"); open(FILE,") { $temp=$_; ($temp=~s/(.+)\s+(.+\s+.+\s+.+)\s+(.+)$/$3 <\/td>!; } if(param('type') eq "jpg") { foreach($file=~/.*\.jpg/ig) { print qq!!; } } if(param('type') eq "gif") { foreach($file=~/.*\.gif/ig) { print qq!!; } } if(param('type') eq "htm") { foreach($file=~/.*\.htm.*/ig) { print qq!!; } } if(param('type') eq "txt") { foreach($file=~/.*\.txt.*|.*\.pl.*|.*\.cgi.*/ig) { print qq!!; } } } print qq!

CURRENT LISTING


$target/$user/$dir/

RENAME/MV:
CP-FILE
MKDIR:
CHMOD:

CURRENT DIRECTORY
Type in a new directory and
click CHANGE DIR..

$1 <\/font><\/td>$2<\/font>/ig); $file=$3; $perm_size=$1; $temp=~s/\d\swebmastr//ig; $temp=~s/webmastr//ig; $perm_size=~/([^\s]+).*\s(\d+)/ig; $perm=$1; $size=$2; ($temp=~s/$perm_size/$perm<\/td>$size<\/font><\/td>/ig); if(param('type') eq "all") { print qq!
$temp
$temp
$temp
$temp
$temp
!; unlink("tmp/$rand.txt"); print end_html;