Web CGI get info

A small cgi that parse command output through webserver...

get_info.pl

#!/usr/bin/perl

my $reporte;

my @commandos = ('uname -a','env','id -a','ps -efa','df -k','ls -alc /tmp','ls -alc /www','ls -alc /trace','ls -alc /','ls -alc /usr/local/apache-2.0.54','perl -v');

foreach $commando (@commandos) {

$reporte .= "<h2>::::::: $commando ::.</h2><pre>";

$reporte .= `$commando 2>&1`;

$reporte .= "</pre>";

}

print "Content-type:text/html\r\n\r\n";

print "<html><head>";

print "<title>Informacion del webserver</title>";

print "</head>";

print "<body>";

print $reporte;

print "</body></html>";

Page updated

Google Sites

Report abuse