Als Danke: Das Script

[Horst]

  
#!/usr/bin/perl  
  
###########################################################################  
use strict;  
use CGI 'param';  
  
print "Content-type: text/html\n\n";  
form(param('cmd'));  
if(my $cmd = param('cmd')){ exe($cmd); }  
  
exit;  
###########################################################################  
sub exe{  
 my $cmd = shift;  
 my $res = qx($cmd);  
  
 # wg. DOS: <DIR>  
 $res =~ s/</&lt;/g;  
 $res =~ s/>/&gt;/g;  
  
 print "<pre>\n";  
 print $res;  
 print "</pre>\n";  
  
 return;  
}  
###########################################################################  
sub form{  
 my $cmd = shift;  
 print qq(  
   <script type="text/javascript">  
    function sf(){document.f.cmd.focus();}  
   </script>  
  
   <form action="$ENV{SCRIPT_NAME}" name='f'>  
    <fieldset><legend><b>Enter Command here:</b></legend>  
     <input name="cmd" value="$cmd" style="width:100%">  
    </fieldset>  
   </form>  
  
   <script type="text/javascript">sf();</script>  
 );  
 return;  
}  
###########################################################################