#!/usr/bin/perl -w

use CGI;
$query = new CGI;



print "Status: 200 Yipperr\nContent-type: text/html\n\n";

$file = $query->param("file");

if (!defined($file))
{
	print "<form action=Size3.cgi>\n";
	#print "<input name=file>\n";
	print "<input type=radio name=\"file\" value=\"w\">Who's Logged in";
	print "<input type=radio name=\"file\" value=\"df\">Disk Space";
	print "<input type=submit value=\"Now\">";
}
else
{
	if ($file ne "w" && $file ne "df")
	{
		print "You are so Evil!!<br>I will kill you tomorrow<br>Please Quickly die now";
		exit(1);
	}
	open(CMD, "$file|") || die "It was bad";
	while ($line = <CMD>) 
	{
		print "It said: $line<br>\n";
	}
}