shellinabox/wrapper.cgi

   1 #!/usr/bin/perl -U
   2
   3 @uinfo = getpwnam("nobody");
   4 ($(, $)) = ( $uinfo[3], "$uinfo[3] $uinfo[3]" );
   5 ($<, $>) = ( $uinfo[2], $uinfo[2] );
   6 $ENV{'USER'} = "nobody";
   7 #exec("strace -f cgi-bin/shellinabox.cgi 2>/tmp/trace.out");
   8 exec("cgi-bin/shellinabox.cgi");
   9 print "Content-type: text/plain\n\n";
  10 print "exec failed : $!\n";
  11