#!perl.exe

use strict;
use CGI qw(:all);
use CGI::Carp('fatalsToBrowser');
print header();

print "<pre>";
print "<b>Netstat Viewer</b>\n";
print <<HTMLEND;
<a href="?netstat=allconnections">All Connections</a> | <a href="?netstat=ethernetstats">Ethernet Statistics</a> | <a href="?netstat=routingtable">Routing Table</a>


HTMLEND

if (param('netstat') eq "allconnections") {
	# All Connections
	my @netstats = `netstat.exe -o -a -n `;
	map {
		chomp $_;
		s|(\d+)\r|<a href=\"?tlist=$1\">$1</a>\r|i;
		print $_;
	    } @netstats;
} elsif (param('netstat') eq "routingtable") {
	# Routing Table
	print `netstat.exe -r`;
} elsif (param('netstat') eq "ethernetstats") {
	# Ethernet Statistics
	print `netstat.exe -e -s`;
} elsif (param('tlist')) {
	my $pid = param('tlist');
	my @tlist = `tlist $pid`;
	if (@tlist) {
		print "<a href=\"?kill=$pid\">kill this process!</a>\n\n";
		print @tlist;
	}
} elsif (param('kill')) {
	my $pid = param('kill');
	print `kill -f $pid`;
}


exit;