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