LongStringDump(string str)
{
    string chop;
    integer i;
        @loop;
            i++;
            if(!(llStringLength(str) > 1024))
            {
                llSay(0, "/me "+str);
                jump end;
            }
            if(llStringLength(str) > 1024)
            {
                chop = llGetSubString(str, 0, 1023);
                llSay(0, "/me "+chop);
                str = llGetSubString(str, 1024, -1);
            }
        jump loop;
        @end;
    //while(llStringLength(str) > 1024)
    //{
    //    chop = llGetSubString(str, 0, 1023);
    //    llSay(0, "/me "+chop);
    //    str = llGetSubString(str, 1024, -1);
    //}
    //if(llStringLength(str))
        //llSay(0, "/me "+str);
}
 
default
{
    state_entry()
    {
        llSetText("Touch me for llHTTPRequest()\nThis will Ping ''http://www.secondlife.com/''",<1,1,1>,1);
    }
 
    touch_start(integer lol)
    {
        llHTTPRequest("http://www.secondlife.com/",[], "");
    }
 
    http_response(key request_id, integer status, list metadata, string body)
    {
        llSay(0, "/me --START--");
        LongStringDump(body);
        llSay(0, "/me --END--");
        llSetTimerEvent(0.01);
    }
    timer()
    {
        llSleep(10);
    }
}