//////////////////////////////////////////////////////////
//     Wizardry and Steamworks - 2011, License: GPLv3   //
// Please see: http://www.gnu.org/licenses/gpl.html     //
// for legal details, rights of fair usage and          //
// the disclaimer and warranty conditions.              //
//////////////////////////////////////////////////////////
 
key kReq;
integer lReqNum;
 
default
{    
    link_message(integer sender_num, integer num, string str, key id) {
        lReqNum = sender_num;
        kReq = str;
        state kn2k;
    }
}
 
state kn2k
{
    state_entry() {
        llSetTimerEvent(.8);
    }
    timer() {
        llSetTimerEvent(0);
        kReq = llHTTPRequest("http://www.w3.org/services/html2txt?url=" + llEscapeURL("http://vwrsearch.secondlife.com/client_search.php?session=00000000-0000-0000-0000-000000000000&q=") + llEscapeURL(kReq), [], "");
    }
 
    http_response(key request_id, integer status, list metadata, string body) {
        key avKey;
        if(request_id == kReq && status == 200) 
            if(avKey = llList2Key(llParseString2List(body, ["secondlife:///app/agent/", "/about"], []),1)) {
                llMessageLinked(lReqNum, 0, "KN2K", avKey);
                state default;
            }
        llMessageLinked(lReqNum, 0, "KN2K", NULL_KEY);
        state default;
    }
}