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