if($EQW->LSConnected()) { my $ls = $EQW->GetConfig("LoginHost"); my $lsp = $EQW->GetConfig("LoginPort"); print "World is connected to login server $ls:$lsp.
"; } else { my $ls = $EQW->GetConfig("LoginHost"); my $lsp = $EQW->GetConfig("LoginPort"); print "World NOT connected to login server $ls:$lsp. Restart Auto Reconnect.
"; } if($EQW->GetConfig("Locked") eq "true") { print "World is locked. Unlock World.
"; } else { print "World is NOT locked. Lock World.
"; } print "
\n"; my $zcount = $EQW->CountZones(); my $lcount = $EQW->CountLaunchers(1); my $pcount = $EQW->CountPlayers(); print "There are $zcount zones booted, $lcount launchers connected, and $pcount players online.
";