#!/usr/bin/perl
#rename this script to Ftp.cgi and chmod to 755
use CGI ':standard';
print header;
$java = qq~
Multi Uploader ProtoCol @ drscriptz.cjb.net
~;
if(!param()) {
print qq^
$java
© 2001 drscriptz.cjb.net
^;
exit;
}
if(param('get_slots')) {
$my_slots=param('my_slots');
#change max slots to as many as you like...
$max_slots="30";
$low="1";
if($my_slots=~/[^\d]+/ig) {
print qq~
An error has occurred...
You have entered an invalid number, press the back button on your browser and enter a numerical value 1-30
~;
exit;
}
if($my_slots>$max_slots) {
print qq~
An error has occurred...
You are only permitted to transload a maximum of 30 files at a time. Press the back button on your browser and adjust the value.~;
exit;
}
print qq^
$java
|
Multi Uploader ProtoCol |
|
$hits Users logged currently |
© 2001 drscripts.cjb.net
~;
}