# This module contains the code used by the snmpInfo CGI script to produce its
# output in the form of HTML lists.

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub get {
	local($v) = shift;
	local($c,$p,$t,$x);
	print "<br>#get	v=\"$v\" instance=(@_)\n" if $D>2;
	if ($t = $mib{$v}) {
		if ($t eq 'g' || $t eq 't' || $t eq 'e') {
			$c = "&$v()";
			print "<br>#get	Group c=\"$c\"\n" if $D>2;
			$x = eval($c);
			print "<br>$v.@_\t$x\n" if $D>2;
		} elsif ($t eq 'v') {
			$c = "&$v(@_)";
			print "<br>#get	Variable c=\"$c\"\n" if $D>2;
			$x = eval($c);
			print "<br>#get	x=$x\n" if $D>2;
		} elsif ($t eq 'sv') {
			($p = $v) =~ s/[A-Z].*//;
			print "<br>#get	Simple var p=\"$p\"\n" if $D>2;
			$x = &vvar($p,$v);
			print "<br>#get	x=$x\n" if $D>2;
		} elsif ($t eq 'vv') {
			($p = $v) =~ s/[A-Z].*//;
			print "<br>#get	Vector var p=\"$p\"\n" if $D>2;
			$x = &vvar($p,$v,@_);
			print "<br>#get	x=$x\n" if $D>2;
		} else {
			print "<br>#get	t=$t unknown for v=\"$v\"\n" if $D>2;
		}
	}
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub all {
	&snmp;
	&df;
	&usr;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub snmp {
	&system;
	&interfaces;
	&at;
	&ip;
	&icmp;
	&tcp;
	&udp;
	&egp;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub system { # group.
	print "<br><table border>\n";
	print "<th colspan=2>system\n";
	&sysDescr;
	&sysObjectID;
	&sysUpTime;
	&sysContact;
	&sysName;
	&sysLocation;
	&sysServices;
	print "</table><!-- system -->\n";
}

sub sysDescr {
	print "<br>#sysDescr args=(@_)\n" if $D>2;
	local($d);
	if ($d = `uname -a`) {
		print "<br>#sysDescr uname -a gave $d" if $D>2;
	} elsif ($d = `hostname`) {
		print "<br>#sysDescr hostname gave $d" if $D>2;
	} else {
		$d = 'localhost';
	}
	$d =~ s/\s+$//;
	print "<tr><td>sysDescr<td>$d\n";
}

sub sysUpTime {
	local($t,$x);
	local($d,$h,$m);
	if (($t = `uptime`) && (($d,$h,$m) = ($t =~ /(\d+) days,*\s*(\d+):(\d+)/))) {
		$x = (((($d * 24) + $h) * 60) + $m) * 60 * 100;
		$d = '0' if !$d;
		$h = '0' if !$h;
		$m = '0' if !$m;
	} elsif (($t = `uptime`) && (($d,$m) = ($t =~ /(\d+) day[s,\s]+(\d+) min/))) {
#		4:55PM  up 47 days, 8 mins, 4 users, load averages: 1.01, 1.00, 1.00
		$x = (((($d * 24) + $h) * 60) + $m) * 60 * 100;
		$d = '0' if !$d;
		$h = '0' if !$h;
		$m = '0' if !$m;
	}
	print "<tr><td>sysUpTime<td>$x (${d}d${h}h${m}m)\n";
}

sub sysContact {
	local($x) = &html(`cat sysContact`);
	print "<tr><td>sysContact<td>$x\n";
}

sub sysLocation {
	local($x) = &html(`cat sysLocation`);
	print "<tr><td>sysLocation<td>$x\n";
}

sub sysName {
	$sysName = &getname() if !$sysName;
	print "<tr><td>sysName<td>$sysName\n";
}

sub sysObjectID { print "<tr><td>sysObjectID<td>snmp.html\n"; }
sub sysServices { print "<tr><td>sysServices<td>128\n"; }

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub df { # group.
	&dftbl() if !defined $dfNumber;
	print "<br><table border>\n";
	print "<caption>Disk Filesystems</caption>\n";
	&dfTable();
	print "</table><!-- df -->\n";
}

sub dfTable { # table.
	local($i);
	&dftbl() if !$dfNumber;
	print "<br><table border>\n";
	print "<caption>Disk Filesystem Table</caption>\n";
	&th('Partition',
		'TotalKB',
		'UsedKB',
		'FreeKB',
		'Used%',
		'Directory',
	);
	for ($i=1; $i <= $dfNumber; $i++) {
		print "<tr>\n";
		&td($dfPartition[$i],
			$dfTotalKB[$i],
			$dfUsedKB[$i],
			$dfFreeKB[$i],
			$dfFreePct[$i],
			$dfDirectory[$i],
		);
	}
	print "</table><!-- dfTable -->\n";
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Here's an implementation of a "user" table.  We deliver the info  from  the
# passwd file as an SNMP table.  We suppress the encrypted password field, of
# course.  The rest of the info should generally be innocuous.  Perhaps we can
# also add some info returned by finger.

sub usr { # group.
	&usrtbl() if !defined $usrNumber;
#	print "<br><table border>\n";
#	&usrNumber();
#	print "</table><!-- usr -->\n";
	&usrTable();
}

#sub usrNumber {
#	&usrtbl() if !defined $usrNumber;
#	print "<tr><td>usrNumber<td>$usrNumber\n";
#}

sub usrTable { # table.
	local($i);
	&usrtbl() if !$usrNumber;
	print "<br><table border>\n";
	print "<caption>User Table</caption>\n";
	&th('usrName',
		'usrUid',
		'usrGid',
		'usrDescr',
		'usrHome',
		'usrShell',
#		'usrPlan',
	);
	for ($i=1; $i <= $usrNumber; $i++) {
		print "<tr>\n";
		&td($usrName[$i],
			$usrUid[$i],
			$usrGid[$i],
			$usrDescr[$i],
			$usrHome[$i],
			$usrShell[$i],
#			$usrPlan[$i],
		);
	}
	print "</table><!-- usrTable -->\n";
}

#sub usrEntry { # entry.
#	local($i) = @_;
#	print "<dt>usrEntry $i<dd>\n";
#	print "<br><table border>\n";
#	&vvar('usr','usrIndex',$i);
#	&vvar('usr','usrName',$i);
#	&vvar('usr','usrUid',$i);
#	&vvar('usr','usrGid',$i);
#	&vvar('usr','usrDescr',$i);
#	&vvar('usr','usrHome',$i);
#	&vvar('usr','usrShell',$i);
#	&vvar('usr','usrPlan',$i);
#	print "</table><!-- usrEntry $i -->\n";
#}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Here's a  general-purpose  routine  to  produce  the  html  output  for  an
# associative array variable.
sub avar {
	local($p,$v,$i,$a) = @_;
	local($f);
	$i = 1 if !$i;
	if ($f = $get{$p}) {eval("&$f") if !$cnt{$p}}
	print "<tr><td$a>$v.$i<td>" . eval("\$${v}{$i}") . "\n";
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Here's a general-purpose routine to produce the html output  for  a  simple
# variable.
sub svar {
	local($p,$v) = @_;
	local($f,$x);
	if ($f = $get{$p}) {eval("&$f") if !$cnt{$p}}
	if (defined($V{$v})) {
		$x = $V{$v};
	} else {
		$x = eval("\$${v}");
	}
	print "<tr><td>$v<td>$x\n";
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Here's a general-purpose routine to produce the html output for a  variable
# that has a single index.
sub vvar {
	local($p,$v,$i) = @_;
	local($f);
	$i = 1 if !$i;
	if ($f = $get{$p}) {eval("&$f") if !$cnt{$p}}
	print "<tr><td>$v.$i<td>" . eval("\$${v}[$i]") . "\n";
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub if {&interfaces};

sub interfaces { # group.
	&iftbl() if !defined $ifNumber;
#	print "<br>interfaces:\n";
#	print "<br><table border>\n";
#	&svar('if','ifNumber');
#	print "</table><!-- interfaces -->\n";
	&ifTable();
}

sub ifTable { # table.
	local($i);
	print "<br><table border>\n";
	print "<caption>Interface Table</caption>\n";
	print "<tr>\n";
	&iftbl() if !$ifNumber;
	if ($fmt eq 'T') {
		&th('Index',
			'Descr',
			'Type',
			'OperStat',
			'AdminStat',
			'Mtu',
			'Speed',
			'PhysAddress',
#			'LastChange',
#			'InOctets',
#			'InUcastPkts',
#			'InNUcastPkts',
#			'InDiscards',
			'InErrors',
#			'InUnknownProtos',
#			'OutOctets',
#			'OutUcastPkts',
#			'OutNUcastPkts',
#			'OutDiscards',
			'OutErrors',
#			'OutQLen'
		);
	}
	for ($i=1; $i <= $ifNumber; $i++) {
		print "<tr>\n";
#		&ifEntry($i);
		&td($ifIndex[$i],
			$ifDescr[$i],
			$ifType[$i],
			$ifOperStat[$i],
			$ifAdminStat[$i],
			$ifMtu[$i],
			$ifSpeed[$i],
			$ifPhysAddress[$i],
#			$ifLastChange[$i],
#			$ifInOctets[$i],
#			$ifInUcastPkts[$i],
#			$ifInNUcastPkts[$i],
#			$ifInDiscards[$i],
			$ifInErrors[$i],
#			$ifInUnknownProtos[$i],
#			$ifOutOctets[$i],
#			$ifOutUcastPkts[$i],
#			$ifOutNUcastPkts[$i],
#			$ifOutDiscards[$i],
			$ifOutErrors[$i],
#			$ifOutQLen[$i]
		);
	}
	print "</table><!-- ifTable -->\n";
}

sub th {for (@_) {print "<th>$_</th>\n"}}
sub td {for (@_) {print "<td>$_</td>\n"}}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub at { # group.
	local($i);
	&iftbl() if !$ifNumber;
	print "<br><table border><!-- atTable -->\n";
	print "<caption>Address Translation Table</caption>\n";
	&th('atIfIndex',
		'atPhysAddress',
		'atNetAddress',
	);
	for $a (sort oidorder keys(%atNetAddress)) {
		print "<tr>\n";
		&td($atIfIndex{$a},
			$atPhysAddress{$a},
			$atNetAddress{$a},
		);
	}
	print "</table><!-- atTable -->\n";
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub ip { # group.
	print "<br><table border>\n";
	print "<br>ip:\n";
	&svar('ip','ipForwarding');
	&svar('ip','ipDefaultTTL');
	&svar('ip','ipInReceives');
	&svar('ip','ipInHdrErrors');
	&svar('ip','ipInAddrErrors');
	&svar('ip','ipForwDatagrams');
	&svar('ip','ipInUnknownProtos');
	&svar('ip','ipInDiscards');
	&svar('ip','ipInDelivers');
	&svar('ip','ipOutRequests');
	&svar('ip','ipOutDiscards');
	&svar('ip','ipOutNoRoutes');
	&svar('ip','ipReasmTimeout');
	&svar('ip','ipReasmRecords');
	&svar('ip','ipReasmOKs');
	&svar('ip','ipReasmFails');
	&svar('ip','ipFragOKs');
	&svar('ip','ipFragFails');
	&svar('ip','ipFragCreates');
	&svar('ip','ipAddrs');
	print "</table><!-- ip -->\n";
	print "<br><table border>\n";
	print "<br>\n";
	&ipAddrTable();
	print "<br>\n";
	&ipRoutingTable();
	print "</table><!-- ip -->\n";
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub ipAddrTable { # group.
	print "<br><table border>\n";
	print "<caption>IP Address Table</caption>\n";
	print "<tr>\n";
	&iftbl() if !$ifNumber;
	&th('AdEntAddr',
		'AdEntIfIndex',
		'AdEntNetMask',
		'AdEntBcastAddr');
	print "<dt>#ipAddrTable entries<dd>\n" if $D>2;
	for $a (sort oidorder keys(%ipAdEntAddr)) {
		print "<tr>\n";
		&td($ipAdEntAddr{$a},
			$ipAdEntIfIndex{$a},
			$ipAdEntNetMask{$a},
			$ipAdEntBcastAddr{$a});
	}
	print "</table><!-- ipAddrTable -->\n";
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub ipRoutingTable { # group.
	&rttbl() if !$ipRoutes;
	print "<br><table border>\n";
	print "<caption>IP Routing Table</caption>\n";
	print "<tr>\n";
	&th('RouteDest',
		'RouteIfIndex',
		'RouteMetric1',
		'RouteNextHop',
		'RouteType',
		'RouteProto',
		'RouteAge');
	for $a (sort oidorder keys(%ipRouteDest)) {
		print "<tr>\n";
		&td($ipRouteDest{$a},
			$ipRouteIfIndex{$a},
			$ipRouteMetric1{$a},
			$ipRouteNextHop{$a},
			$ipRouteType{$a},
			$ipRouteProto{$a},
			$ipRouteAge{$a});
	}
	print "</table><!-- ipRoutingTable -->\n";
}

sub ipRouteDest {
	local($a) = @_;
	&rttbl() if !$ipRoutes;
	print "<dt>ipRouteDest.$a<dd>" . $ipRouteDest{$a} . "\n";
}

sub ipRouteIfIndex {
	local($a) = @_;
	&rttbl() if !$ipRoutes;
	print "<dt>ipRouteIfIndex.$a<dd>" . $ipRouteIfIndex{$a} . "\n";
}

sub ipRouteMetric1 {
	local($a) = @_;
	&rttbl() if !$ipRoutes;
	print "<dt>ipRouteMetric1.$a<dd>" . $ipRouteMetric1{$a} . "\n";
}

sub ipRouteMetric2 {
	local($a) = @_;
	&rttbl() if !$ipRoutes;
	print "<dt>ipRouteMetric2.$a<dd>" . $ipRouteMetric2{$a} . "\n";
}

sub ipRouteMetric3 {
	local($a) = @_;
	&rttbl() if !$ipRoutes;
	print "<dt>ipRouteMetric3.$a<dd>" . $ipRouteMetric3{$a} . "\n";
}

sub ipRouteMetric4 {
	local($a) = @_;
	&rttbl() if !$ipRoutes;
	print "<dt>ipRouteMetric4.$a<dd>" . $ipRouteMetric4{$a} . "\n";
}

sub ipRouteNextHop {
	local($a) = @_;
	&rttbl() if !$ipRoutes;
	print "<dt>ipRouteNextHop.$a<dd>" . $ipRouteNextHop{$a} . "\n";
}

sub ipRouteType {
	local($a) = @_;
	&rttbl() if !$ipRoutes;
	print "<dt>ipRouteType.$a<dd>" . $ipRouteType{$a} . "\n";
}

sub ipRouteProto {
	local($a) = @_;
	&rttbl() if !$ipRoutes;
	print "<dt>ipRouteProto.$a<dd>" . $ipRouteProto{$a} . "\n";
}

sub ipRouteAge {
	local($a) = @_;
	&rttbl() if !$ipRoutes;
	print "<dt>ipRouteAge.$a<dd>" . $ipRouteAge{$a} . "\n";
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub icmp { # group.
	print "${G1}icmp${G2}\n";
	print "<br><table border>\n";
	&icmpOutAddrMaskReps();
	&icmpOutAddrMasks();
	&icmpOutTimestampReps();
	&icmpOutTimestamps();
	&icmpOutEchoReps();
	&icmpOutEchos();
	&icmpOutRedirects();
	&icmpOutSrcQuenchs();
	&icmpOutParmProbs();
	&icmpOutTimeExcds();
	&icmpOutDestUnreachs();
	&icmpOutErrors();
	&icmpOutMsgs();
	&icmpInAddrMaskReps();
	&icmpInAddrMasks();
	&icmpInTimestampReps();
	&icmpInTimestamps();
	&icmpInEchoReps();
	&icmpInEchos();
	&icmpInRedirects();
	&icmpInSrcQuenchs();
	&icmpInParmProbs();
	&icmpInTimeExcds();
	&icmpInDestUnreachs();
	&icmpInErrors();
	&icmpInMsgs();
	print "</table><!-- icmp -->\n";
}

sub icmpInMsgs {print "<dt>icmpInMsgs.0<dd>$icmpInMsgs\n"}
sub icmpInErrors {print "<dt>icmpInErrors.0<dd>$icmpInErrors\n"}
sub icmpInDestUnreachs {print "<dt>icmpInDestUnreachs.0<dd>$icmpInDestUnreachs\n"}
sub icmpInTimeExcds {print "<dt>icmpInTimeExcds.0<dd>$icmpInTimeExcds\n"}
sub icmpInParmProbs {print "<dt>icmpInParmProbs.0<dd>$icmpInParmProbs\n"}
sub icmpInSrcQuenchs {print "<dt>icmpInSrcQuenchs.0<dd>$icmpInSrcQuenchs\n"}
sub icmpInRedirects {print "<dt>icmpInRedirects.0<dd>$icmpInRedirects\n"}
sub icmpInEchos {print "<dt>icmpInEchos.0<dd>$icmpInEchos\n"}
sub icmpInEchoReps {print "<dt>icmpInEchoReps.0<dd>$icmpInEchoReps\n"}
sub icmpInTimestamps {print "<dt>icmpInTimestamps.0<dd>$icmpInTimestamps\n"}
sub icmpInTimestampReps {print "<dt>icmpInTimestampReps.0<dd>$icmpInTimestampReps\n"}
sub icmpInAddrMasks {print "<dt>icmpInAddrMasks.0<dd>$icmpInAddrMasks\n"}
sub icmpInAddrMaskReps {print "<dt>icmpInAddrMaskReps.0<dd>$icmpInAddrMaskReps\n"}
sub icmpOutMsgs {print "<dt>icmpOutMsgs.0<dd>$icmpOutMsgs\n"}
sub icmpOutErrors {print "<dt>icmpOutErrors.0<dd>$icmpOutErrors\n"}
sub icmpOutDestUnreachs {print "<dt>icmpOutDestUnreachs.0<dd>$icmpOutDestUnreachs\n"}
sub icmpOutTimeExcds {print "<dt>icmpOutTimeExcds.0<dd>$icmpOutTimeExcds\n"}
sub icmpOutParmProbs {print "<dt>icmpOutParmProbs.0<dd>$icmpOutParmProbs\n"}
sub icmpOutSrcQuenchs {print "<dt>icmpOutSrcQuenchs.0<dd>$icmpOutSrcQuenchs\n"}
sub icmpOutRedirects {print "<dt>icmpOutRedirects.0<dd>$icmpOutRedirects\n"}
sub icmpOutEchos {print "<dt>icmpOutEchos.0<dd>$icmpOutEchos\n"}
sub icmpOutEchoReps {print "<dt>icmpOutEchoReps.0<dd>$icmpOutEchoReps\n"}
sub icmpOutTimestamps {print "<dt>icmpOutTimestamps.0<dd>$icmpOutTimestamps\n"}
sub icmpOutTimestampReps {print "<dt>icmpOutTimestampReps.0<dd>$icmpOutTimestampReps\n"}
sub icmpOutAddrMasks {print "<dt>icmpOutAddrMasks.0<dd>$icmpOutAddrMasks\n"}
sub icmpOutAddrMaskReps {print "<dt>icmpOutAddrMaskReps.0<dd>$icmpOutAddrMaskReps\n"}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub tcp { # group.
	print "${G1}tcp${G2}\n";
	print "<br><table border>\n";
	&tcpRtoAlgorithm();
	&tcpRtoMin();
	&tcpRtoMax();
	&tcpMaxConn();
	&tcpActiveOpens();
	&tcpPassiveOpens();
	&tcpAttemptFails();
	&tcpEstabResets();
	&tcpCurrEstab();
	&tcpInSegs();
	&tcpOutSegs();
	&tcpRetransSegs();
	&tcpConnTable();
	print "</table><!-- tcp -->\n";
}

sub tcpRtoAlgorithm {print "<dt>tcpRtoAlgorithm.0<dd>$tcpRtoAlgorithm\n"}
sub tcpRtoMin {print "<dt>tcpRtoMin.0<dd>$tcpRtoMin\n"}
sub tcpRtoMax {print "<dt>tcpRtoMax.0<dd>$tcpRtoMax\n"}
sub tcpMaxConn {print "<dt>tcpMaxConn.0<dd>$tcpMaxConn\n"}
sub tcpPassiveOpens {print "<dt>tcpPassiveOpens.0<dd>$tcpPassiveOpens\n"}
sub tcpAttemptFails {print "<dt>tcpAttemptFails.0<dd>$tcpAttemptFails\n"}
sub tcpEstabResets {print "<dt>tcpEstabResets.0<dd>$tcpEstabResets\n"}
sub tcpInSegs {print "<dt>tcpInSegs.0<dd>$tcpInSegs\n"}
sub tcpOutSegs {print "<dt>tcpOutSegs.0<dd>$tcpOutSegs\n"}
sub tcpRetransSegs {print "<dt>tcpRetransSegs.0<dd>$tcpRetransSegs\n"}

sub tcpConnTable { # table.
	local($i);
	print "<dt>tcpConnTable<dd>\n";
	print "<br><table border>\n";
	&tcpinfo() if !defined($tcpConnNumber);
	for $i (sort oidorder keys(%tcpConnTable)) {
		&tcpConnEntry($i);
	}
	print "</table><!-- tcpConnTable -->\n";
}

sub tcpConnEntry { # entry.
	local($i) = @_;
	print "<dt>tcpConnEntry $i<dd>\n";
	print "<br><table border>\n";
	&tcpConnState($i);
	&tcpConnLocalAddress($i);
	&tcpConnLocalPort($i);
	&tcpConnRemAddress($i);
	&tcpConnRemPort($i);
	print "</table><!-- tcpConnEntry $i -->\n";
}

sub tcpActiveOpens {
	&tcptbl() if !defined($tcpConnNumber);
	print "<dt>tcpActiveOpens<dd>$tcpActiveOpens\n";
}

sub tcpCurrEstab {
	&tcptbl() if !defined($tcpConnNumber);
	print "<dt>tcpCurrEstab<dd>$tcpCurrEstab\n";
}

sub tcpConnState {
	local($i) = $_[0] || 1;
	&tcptbl() if (!@tcpConnState);
	print "<dt>tcpConnState.$i<dd>" . $tcpConnState{$i} . "\n";
}

sub tcpConnLocalAddress {
	local($i) = $_[0] || 1;
	&tcptbl() if (!@tcpConnLocalAddress);
	print "<dt>tcpConnLocalAddress.$i<dd>" . $tcpConnLocalAddress{$i} . "\n";
}

sub tcpConnLocalPort {
	local($i) = $_[0] || 1;
	&tcptbl() if (!@tcpConnLocalPort);
	print "<dt>tcpConnLocalPort.$i<dd>" . $tcpConnLocalPort{$i} . "\n";
}

sub tcpConnRemAddress {
	local($i) = $_[0] || 1;
	&tcptbl() if (!@tcpConnRemAddress);
	print "<dt>tcpConnRemAddress.$i<dd>" . $tcpConnRemAddress{$i} . "\n";
}

sub tcpConnRemPort {
	local($i) = $_[0] || 1;
	&tcptbl() if (!@tcpConnRemPort);
	print "<dt>tcpConnRemPort.$i<dd>" . $tcpConnRemPort{$i} . "\n";
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub udp { # group.
	print "${G1}udp${G2}\n";
	print "<br><table border>\n";
	&udpInDatagrams();
	&udpNoPorts();
	&udpInErrors();
	&udpOutDatagrams();
	print "</table><!-- udp -->\n";
}

sub udpInDatagrams {print "<dt>udpInDatagrams.0<dd>$udpInDatagrams\n"}
sub udpNoPorts {print "<dt>udpNoPorts.0<dd>$udpNoPorts\n"}
sub udpInErrors {print "<dt>udpInErrors.0<dd>$udpInErrors\n"}
sub udpOutDatagrams {print "<dt>udpOutDatagrams.0<dd>$udpOutDatagrams\n"}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub egp { # group.
	print "${G1}egp${G2}\n";
	print "<br><table border>\n";
	&egpTable();
	print "</table><!-- egp -->\n";
}

sub egpTable { # group.
	print "<dt>egpTable<dd>\n";
	print "<br><table border>\n";
	&rttbl() if !$egpNumber;
	print "<dt>#egpTable $egpNumber entries<dd>\n" if $D>2;
	for $a (sort oidorder keys(%egpDest)) {
		&egpEntry($a);
	}
	print "</table><!-- egpTable -->\n";
}

sub egpEntry { # entry.
	local($i) = @_;
	print "<dt>egpEntry $i<dd>\n";
	print "<br><table border>\n";
	&egpInMsgs($i);
	&egpInErrors($i);
	&egpOutMsgs($i);
	&egpOutErrors($i);
	&egpNeighTable($i);
	&egpNeighEntry($i);
	&egpNeighState($i);
	&egpNeighAddr($i);
	print "</table><!-- egpEntry $i -->\n";
}

sub egpInMsgs {print "<dt>egpInMsgs.0<dd>$egpInMsgs\n"}
sub egpInErrors {print "<dt>egpInErrors.0<dd>$egpInErrors\n"}
sub egpOutMsgs {print "<dt>egpOutMsgs.0<dd>$egpOutMsgs\n"}
sub egpOutErrors {print "<dt>egpOutErrors.0<dd>$egpOutErrors\n"}
sub egpNeighTable {print "<dt>egpNeighTable.0<dd>$egpNeighTable\n"}
sub egpNeighEntry {print "<dt>egpNeighEntry.0<dd>$egpNeighEntry\n"}
sub egpNeighState {print "<dt>egpNeighState.0<dd>$egpNeighState\n"}
sub egpNeighAddr {print "<dt>egpNeighAddr.0<dd>$egpNeighAddr\n"}

1;