mirror of
https://github.com/EQEmu/Server.git
synced 2025-12-30 23:21:29 +00:00
23 lines
534 B
HTML
23 lines
534 B
HTML
<?
|
|
my $act = $request->get("action", "none");
|
|
if($act eq "unlock") {
|
|
$EQW->UnlockWorld();
|
|
} elsif($act eq "lock") {
|
|
$EQW->LockWorld();
|
|
} elsif($act eq "lsreconnect") {
|
|
$EQW->LSReconnect();
|
|
}
|
|
|
|
print "{";
|
|
if($EQW->LSConnected()) {
|
|
print "\"connected\" : \"1\",";
|
|
} else {
|
|
print "\"connected\" : \"0\",";
|
|
}
|
|
if($EQW->GetConfig("Locked") eq "true") {
|
|
print "\"locked\" : \"1\"";
|
|
} else {
|
|
print "\"locked\" : \"0\"";
|
|
}
|
|
print "}";
|
|
?> |