<?
    my $action = $request->get("action", "none");
    my $text = $request->get("text", "");
    if($action eq "input") {
        my $rep = $EQW->SendConsoleMessage($text);
        if($rep ne "") {
            print "{";
            print "\"status\" : 0,";
            print "\"message\" : \"$rep\"";
            print "}";
            return;
        }
    } else {
        print "{";
        print "\"status\" : 0,";
        print "\"message\" : \"Unknown action sent to console.\"";
        print "}";
        return;
    }

    print "{";
    print "\"status\" : 1,";
    print "\"message\" : \"\"";
    print "}";
?>