Website Data retrieval

integer LINK_TERM  = 10101010;
integer LINK_PROC  = 10101011;
integer LINK_COMM  = 10101012;

string kl_send(string post_option)
{
    if (main_server)
    {
        requestid = llHTTPRequest(main, [HTTP_METHOD, "POST", HTTP_MIMETYPE, "application/x-www-form-urlencoded"], (string)post_option);
    } else {
        requestid = llHTTPRequest(backup, [HTTP_METHOD, "POST", HTTP_MIMETYPE, "application/x-www-form-urlencoded"], (string)post_option);
    }
    kl_post = "";
    if (DEBUG_post)
    {
        if (main_server)
        {
            llSay(0, "Main: "+ DEBUG_POST);
        } else {
            llSay(0, "Backup: "+ DEBUG_POST);
        }
        DEBUG_POST = "";
    } else {
        DEBUG_POST = "";
    }
    return requestid;
}

string kl_clean(string body)
{
    integer clean = 0;
    string cleanbody;

    while(llGetSubString(body ,clean,clean))
    {
        cleanbody += llGetSubString(body,clean,clean++);
    }

    kl_body = cleanbody;

    return kl_body;
}

string kl_add(string variable, string value)
{
    string name = variable;
    string message = value;
    if (kl_post == "")
    {
        DEBUG_POST += llEscapeURL(variable) + "=" + llEscapeURL(value);
        kl_post += llEscapeURL(name) + "=" + llEscapeURL(message);
    } else {
        DEBUG_POST += "&" + llEscapeURL(variable) + "=" + llEscapeURL(value);
        kl_post += "&" + llEscapeURL(name) + "=" + llEscapeURL(message);
    }
    return kl_post;
}

string kl_list(integer i)
{
    list split = llParseString2List(kl_body, ["|"],[]);
    cmd = llList2String(split, i);
    return cmd;
}
//////////////// END Functions \\\\\\\\\\\\\\\\

key requestid;
integer main_server = TRUE;
string main = "http://mainserver/file.php";
string backup = "http://backupserver/file.php";
string kl_body;
string kl_post;
string split;
string cmd; 
integer retry = 0;
integer retry_attempt = 0;

integer DEBUG_mem = FALSE;
string DEBUG_POST;
integer DEBUG_post = FALSE;
integer DEBUG = FALSE;

string body_error;
string kl_state; 

//////////////// END Variables \\\\\\\\\\\\\\\\

default
{
    on_rez(integer q)
    {
        llResetScript();
    }
    
    state_entry()
    {       
    }
    
    link_message(integer sender_num, integer num, string str, key id)
    {
        if (num == LINK_COMM)
        {            
            kl_body = str;
            
            if (kl_list(0) == "command") 
            {
                state com_state;
            }
        }
    }
}

state retry_post
{
    state_entry()
    {
        if (kl_state == "command") state user_check;
    }
}

state http_error_general
{
    state_entry()
    {
        llSay(0, body_error);
        llSay(0, kl_body);
        llResetScript();
    }
}

state http_error
{
    state_entry()
    {
        llSay(0, kl_list(1));
        llResetScript();
    }
}

state com_state
{
    state_entry()
    {
        kl_state = "command";
        kl_add("username", llKey2Name(llGetOwner()));
        kl_add("userkey", llGetOwner());
        kl_add("option", "some_command");
        kl_send(kl_post);
        
        state http;
    }
}

state http
{   
    http_response(key request_id, integer status, list metadata, string body)
    {
        if (request_id == requestid)
        {
            if (body == "")
            {
                if (retry_attempt == 0)
                {
                    retry_attempt = 1;
                    state retry_post;
                } else if (retry_attempt == 1) {
                    if (main_server)
                    {
                        llOwnerSay("Main server offline, switching to backup server, contact for support.");
                        main_server = FALSE;
                        retry_attempt = 0;
                        state retry_post;
                    } else {
                        llWhisper(0, "Something went wrong, please contact for support or try again later.");
                        llResetScript();
                    }
                }    
                // END EMPTY BODY CHECK \\
            } else {
                if (DEBUG) llWhisper(0, kl_clean(body));
                if (DEBUG) llWhisper(0, body);
            }
            kl_clean(body);
            
            if (kl_list(0) == "error") state http_error; 
            if (kl_list(0) == "command") state http_command;
        
            state http_error_general;
        } else {
            body_error = body;
            state http_error;
        }
    }
}

//////////////// HTTP Handlers \\\\\\\\\\\\\\\\

state http_command
{
    state_entry()
    {
        if (kl_list(1) == "okish")
        {
            llSay (0, "Command returned "+ kl_list(1) +" and it said: "+ kl_list(2));
        }
        
        llResetScript();
    }
}