reset lavagna

string SESSION;
key handle;
string URL = "http://edmondo-1252.appspot.com/?";

debug(string s) {
    llOwnerSay("DEBUG:"+s);
}


httprequest() {

    debug("httprequest");

    string url = URL + "type=clear&session="+SESSION;
    list parm = [ HTTP_MIMETYPE, "text/plain; charset=UTF-8",
            HTTP_BODY_MAXLENGTH, 32000 ];
    string body = "";
    handle = llHTTPRequest(url, parm, body);
}

default
{
    state_entry()
    {
        llSetText("Reset",<1,1,1>,1);
        SESSION = llGetObjectDesc();
        list parsing = llParseStringKeepNulls(SESSION,[":"],[]);
        SESSION = llStringTrim(llList2String(parsing,1),STRING_TRIM);
        llSay(0,"Setting SESSION: "+SESSION);
    }
    touch_start(integer count) {
        key k = llDetectedKey(0);
        string name = llKey2Name(k);
        httprequest();
    }
     http_response(key k, integer status, list meta, string body) {
        debug("status: "+(string)status);
        debug("body: "+body);

    }
}