#!/usr/local/bin/perl ########################################################### ########################################################### #© 1999. žmToolz -- Drop it like its HOT!! # #Signed PaCMaN 10-21-99, As Always Enjoy =) # ########################################################### #this program only works with hosts that have # #the follwing PERL modules installed # #NET::FTP, LWP::Simple ,CGI # #you can read up on these modules at # #http://search.cpan.org # ########################################################### #Follwing hosts have these modules installed # #Hypermart: NET::FTP,LWP::Simple,CGI # #WebProvider: NET::FTP,CGI, not sure abouw LWP::Simple # #Virtualave: CGI not sure about NET::FTP, no LWP # ########################################################### #Put this file in a directory thats chmoded to 777 # #then name this file anything.pl and chmod to 775 # ########################################################### #if you have any problems please email me at # #pa-cm-an@webtv.net or post it in alt.discuss.irc.vbirc # ########################################################### #My Christmas gift to all you webtv users and for the # #people who have supported me 100% from day 1 # #Merry Christmas and a Happy New Years from PaCMaN # ########################################################### #shout outs: VBScript,Casaveli,TipTup,BxChulo,jnco`,Net4TV# #alt.discuss.irc.vbirc,eric mcdonald,hackerreamer # #wtv-help,mackd44,moneymanc4,jay hodge, grimio,simon # #sociopath, and whoever else i forgot # ########################################################### #leave all credit intact # ########################################################### use Net::FTP; use CGI qw(param); $file=param(file); $user = param("user"); $addy = param("addy"); $ftpaddy = param("server"); $pass = param("pass"); $name = param("name"); $dir = param("dir"); $directory = "$user/$dir"; $empty = param("em"); if ($empty eq "") { print "Content-type: text/html\n\n"; print <t
FTP Host:
Username:
Password:
File To Copy:
New Name:
             CHECK Here
EOM } if($empty eq 'asc') { use LWP::Simple; $put = get "$file"; open(trans, ">$name"); print trans "$put"; close(trans); $ftp = Net::FTP->new("$ftpaddy"); $ftp->login("$user","$pass"); $ftp->get("$name"); $ftp->cwd("$directory"); $ftp->put("$name","$name"); $ftp->quit; unlink("$newn"); print "Content-type: text/html\n\n"; print <hopefully $newn was uploaded EOM } if($blank eq 'bin') { $put = get "$file"; open(UPYURZ, ">$name"); print UPYURZ "$grab"; close(UPYURZ); $ftp = Net::FTP->new("$ftpaddy"); $ftp->login("$user","$pass"); $ftp->get("$name"); $ftp->type("A"); $ftp->cwd("$directory"); $ftp->put("$name","$name"); $ftp->quit; print "Content-type: text/html\n\n"; print <hopefully $name was uploaded
$name
EOM }