#!/usr/bin/perl
use lib '/home/max/berezin/bin';
use CGI qw(:standard);
#***************************************************************
# Main
#***************************************************************
{
if ($ENV{'REQUEST_METHOD'} eq "GET")
{ $in = $ENV{'QUERY_STRING'}; }
elsif ($ENV{'REQUEST_METHOD'} eq "POST")
{ read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); }
# split returned data at & or ;
@in = split(/[&;]/,$in);
# begin building web page
print "Content-Type: text/html\r\n\r\n";
print " \n";
print "\n"; print "\n";
print "
GREETINGS and salutations";
print "
$in";
foreach (@in)
{
($name,$value)= split( /=/, $_, 2);
print( "
", "$name ", "$value " );
if( "$name" eq "list" )
{
@list = `ls`;
foreach $file ( @list )
{ print "
$file"; }
}
elsif( "$name" eq "link" )
{
print "
linked by html";
print "
$ENV{ 'PATH' }";
print "
$ENV{ 'QUERY_STRING' }";
}
elsif( "$name" eq "env" )
{
print "";
foreach my $var (sort( keys %ENV ))
{ print "| $var | $ENV{$var} |
"; }
print "
";
}
elsif( "$name" eq "errors" )
{
print "
";
print( "checing errors" );
$cur = `pwd`;
if( chdir( "/var/apps/apache/logs" ))
{
@list = `grep z912730 error_log`;
foreach $file ( @list )
{ print "
$file"; }
}
else
{ print "
dir not open"; }
}
# search for information requested by caller.
$cntr = 0;
}
print "\n";
print " \n";
# end of web page generation
}