CountZones();
my $lcount = $EQW->CountLaunchers(1);
my $pcount = $EQW->CountPlayers();
print "
";
print "";
print "| Zones Booted | ";
print " | Launchers Connected | ";
print " | Players Online | ";
print " |
";
print "";
print "| $zcount | ";
print " | $lcount | ";
print " | $pcount | ";
print " |
";
print "
";
if($EQW->LSConnected()) {
my $ls = $EQW->GetConfig("LoginHost");
my $lsp = $EQW->GetConfig("LoginPort");
$ls_str = "World is
connected to login server $ls:$lsp.
Restart Auto Reconnect";
print "";
} else {
my $ls = $EQW->GetConfig("LoginHost");
my $lsp = $EQW->GetConfig("LoginPort");
$ls_str = "World is
NOT connected to login server $ls:$lsp.
Restart Auto Reconnect";
}
print "
";
print "$ls_str";
print "
";
if($EQW->GetConfig("Locked") eq "true") {
$locked_str = "World is
locked.
Unlock World.
";
print "";
} else {
$locked_str = "World is
NOT locked.
Lock World.
";
}
print "
";
print "$locked_str";
print "
";
?>