nicht angemeldet
Moin.
Wie wäre es damit:
ACHTUNG, die Installation stellt ein Sicherheitsrisiko dar!!!
#!/usr/bin/perl
use CGI;
####################################################################
#Telnet oder so ;-)
#führt die in param('command') stehenden commands aus!
$url_to_script=$ENV{'SCRIPT_URI'};
#ggf url selbst setzten, falls SCRIPT_URI vom Server nicht gesetzt #wird
####################################################################
#Check, ob REMOTE_USER leer --> nicht erlaubt!!!!!
#geht nur, wenn script in geschützem Bereich liegt (.htaccess)
#ansonsten die folgende Zeile ausblenden - RISIKO!!!
¬_allowed unless $ENV{'REMOTE_USER'};
$query = new CGI;
$command = $query -> param('command');
$output = $command;
$output =~ s/(\r\n)|(\n)/<BR>/g;
while($output =~ /_/)
{
substr($output,index($output,"_"))="<B>".substr($output,index($output,"_")+2,1)."</B>".substr($output,index($output,"_")+3);
}
$output =~ s/_//sg;
$output =~ s/+o/º/sg;
$output =~ s/.//sg;
print "Content-type: text/html\n\n";
print "<html><head><title>Telnet</title></head>";
print "<body>";
print "<pre>";
print "<form name="Telnet" action="$url_to_script" method="GET">";
print "<input type="text" name="command" size="60" value="$command">";
print "<input type="submit" value="submit">";
print "</form>";
print "<script language="JavaScript">";
print " document.Telnet.command.focus();";
print " document.Telnet.command.select();";
print " </script>";
print "Return Code:$?<BR>\n";
print "$command<BR>$output<P>\n";
print "</body>";
print "</html>";
####################################################################
sub not_allowed {
print "Content-type: text/html\n\n";
print "<html><head><title>Error during execution</title></head>";
print "<body>";
print "<H1>Error during execution</H1>";
print "You are not authorized to run this script - Access denied!<P>";
print "Bye!";
print "</body>";
print "</html>";
exit;
}
Gruß Frank