mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
12 lines
321 B
Perl
Executable File
12 lines
321 B
Perl
Executable File
#!/usr/bin/perl -U
|
|
|
|
@uinfo = getpwnam("nobody");
|
|
($(, $)) = ( $uinfo[3], "$uinfo[3] $uinfo[3]" );
|
|
($<, $>) = ( $uinfo[2], $uinfo[2] );
|
|
$ENV{'USER'} = "nobody";
|
|
#exec("strace -f cgi-bin/shellinabox.cgi 2>/tmp/trace.out");
|
|
exec("cgi-bin/shellinabox.cgi");
|
|
print "Content-type: text/plain\n\n";
|
|
print "exec failed : $!\n";
|
|
|