id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
350	code snippets learned from communication scripts -- http and xml serving	Fred T. Hamster		"learned from communic scripts
-----------------------------

//////////////

request from user to load a web page:
llLoadURL(llDetectedKey(0), ""Visit A Fresh Cup"", ""http://afreshcup.com"");

//////////////

load a web page's contents (two steps):
get the loading started: http_key = llHTTPRequest(url_to_load, [ ] ,"""");
respond to the loaded data:
    http_response(key id,integer status, list meta, string body)
    {
        if(http_key == id) { do stuff; }
    }

//////////////

serve xml to outside world:
    key chan_id;  // global.
    llOpenRemoteDataChannel();
    ... later...
    remote_data(integer type, key channel, key message_id,  string sender, integer ival, string sval) 
    {
        if (type == REMOTE_DATA_CHANNEL) {
            // channel opened...
            chan_id = channel;
            //set up for processing requests maybe.
        } else if (type == REMOTE_DATA_REQUEST) {
            // server is being asked for data.
            llRemoteDataReply(channel, message_id, reply_string, reply_int);
                // we always need to send a reply.
        }

//////////////

// LSL HTTP POST Example, originally by Dirty McLean, June 30, 2006, Use freely!

default {
    state_entry() {
        //replace this url with your own
        string url = ""http://mysite.com/myscript.php"";
        //set params to [] for GET requests
        list params = [HTTP_METHOD, ""POST"", HTTP_MIMETYPE, ""application/x-www-form-urlencoded""];
        //set the body to your list of variables separated by semicolons
        string body = ""var1=test1&var2=test2"";
        llHTTPRequest(url, params, body);
    }
    http_response(key query, integer status, list meta, string body) {
        string page_title;
        list split = llParseString2List(body,[""<title>"", ""</title>""],[]);
        if (llGetListLength(split) > 1) page_title = llList2String(split,1);
        else page_title = ""unknown"";
        // iterate through received lines...
        list lines = llParseString2List(body,[""\r\n"", ""\r"", ""\n""],[]);
        integer i;
        integer len = llGetListLength(lines);
        for (i = 0; i<len; i+) llOwnerSay(llList2String(lines,i));
    }
}

//////////////
"	task	new	minor		huffware