#!/usr/bin/perl
##
##  printenv -- demo CGI program which just prints its environment
##

# Start the page by outputing the Content-type header
print "Content-type: text/html\n\n";

print "<h1>This is a list of the environment variables</h1>\n";

print "<pre>\n";

foreach $var (sort(keys(%ENV))) {
    $val = $ENV{$var};
    $val =~ s|\n|\\n|g;
    $val =~ s|"|\\"|g;
    print "${var}=\"${val}\"\n";
}

print "</pre>\n";

if ($ENV{"REQUEST_METHOD"} eq "POST")
{
	print "<h2>This is a POST</h2>\n";
	print "The Query String is empty. The arguments come in the\n";
	print "body of the HTTP request message. Here it is.\n";

	print "<pre>";
	while(<STDIN>)
	{
		print $_;
		$argline = $argline . $_;
	}
	print "</pre>";
	ParseArgs($argline);
}
elsif ($ENV{"REQUEST_METHOD"} eq "GET")
{
	print "<h2>This is a GET</h2>\n";
	print "The Query String is in the environment\n";
	ParseArgs($ENV{"QUERY_STRING"});
}
else
{
	print "<h2>Unknown method</h2>\n";
}


sub ParseArgs
{
	my $argline = shift(@_);

	my @args = split /&/, $argline;
	
	print "<h2>Here are the arguments parsed</h2>";
	print "<pre>\n";
	for($i = 0; $i <= $#args; $i++)
	{
		($name,$value) = split /=/, $args[$i];
		print "Arg $i name is: [$name]\n";
		print "Arg $i value is: [$value]\n";
	}
	print "</pre>\n";
}