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 "
"; ?>