print $connstate;

print "</B>\n";
print "<center><font size='2'><br>\n";

# get connect speed
$conspeed = `cat ${swroot}/red/connectspeed`;
# get current IP
$ip = `cat ${swroot}/red/local-ipaddress`;
# get PPP stats
@stats = split(' ', `pppstats | tail -n 1`);

# check if we have a connect speed
if ($conspeed != '')
{
	# check if connected now
	if ($ip == '')
	{
	    print "last ";
	}
	print "connect speed: $conspeed<br>\n";
}

# check if connected now
if ($ip != '')
{
	print "IP: $ip<br>\n";
}
# check if not connected and we have stats
if (($ip == '') and ($stats[0] != 0))
{
	print "last connection: ";
}

# check if we have stats
if ($stats[0] != 0)
{
	$bytesin = commify(int($stats[0]/1024));
	$bytesout = commify(int($stats[6]/1024));
	print "$bytesin kb in; $bytesout kb out";
}
print "</font></center>";

# function to format numbers with commas at thousand separators
sub commify
{
	(my $a = shift) =~ s/\G(\d{1,3})(?=(?:\d\d\d)+(?:\.|$))/$1,/g;
	return $a;
}