/////////////////////////////////////////////////////////////////////////// // Copyright (C) Wizardry and Steamworks 2016 - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// // // This script is a message relay for Corrade that listens for local, group // and instant messages. The script binds to Corrade's local, message and // group notification and then any message received by Corrade gets sent // to you. // // For more information on Corrade, please see: // http://grimore.org/secondlife/scripted_agents/corrade // /////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////// // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// string wasKeyValueGet(string k, string data) { if(llStringLength(data) == 0) return ""; if(llStringLength(k) == 0) return ""; list a = llParseString2List(data, ["&", "="], []); integer i = llListFindList(llList2ListStrided(a, 0, -1, 2), [ k ]); if(i != -1) return llList2String(a, 2*i+1); return ""; } /////////////////////////////////////////////////////////////////////////// // Copyright (C) 2013 Wizardry and Steamworks - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// string wasKeyValueEncode(list data) { list k = llList2ListStrided(data, 0, -1, 2); list v = llList2ListStrided(llDeleteSubList(data, 0, 0), 0, -1, 2); data = []; do { data += llList2String(k, 0) + "=" + llList2String(v, 0); k = llDeleteSubList(k, 0, 0); v = llDeleteSubList(v, 0, 0); } while(llGetListLength(k) != 0); return llDumpList2String(data, "&"); } /////////////////////////////////////////////////////////////////////////// // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// // escapes a string in conformance with RFC1738 string wasURLEscape(string i) { string o = ""; do { string c = llGetSubString(i, 0, 0); i = llDeleteSubString(i, 0, 0); if(c == "") jump continue; if(c == " ") { o += "+"; jump continue; } if(c == "\n") { o += "%0D" + llEscapeURL(c); jump continue; } o += llEscapeURL(c); @continue; } while(i != ""); return o; } /////////////////////////////////////////////////////////////////////////// // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// list wasCSVToList(string csv) { list l = []; list s = []; string m = ""; do { string a = llGetSubString(csv, 0, 0); csv = llDeleteSubString(csv, 0, 0); if(a == ",") { if(llList2String(s, -1) != "\"") { l += m; m = ""; jump continue; } m += a; jump continue; } if(a == "\"" && llGetSubString(csv, 0, 0) == a) { m += a; csv = llDeleteSubString(csv, 0, 0); jump continue; } if(a == "\"") { if(llList2String(s, -1) != a) { s += a; jump continue; } s = llDeleteSubList(s, -1, -1); jump continue; } m += a; @continue; } while(csv != ""); // postcondition: length(s) = 0 return l + m; } /////////////////////////////////////////////////////////////////////////// // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// string wasListToCSV(list l) { list v = []; do { string a = llDumpList2String( llParseStringKeepNulls( llList2String( l, 0 ), ["\""], [] ), "\"\"" ); if(llParseStringKeepNulls( a, [" ", ",", "\n", "\""], [] ) != (list) a ) a = "\"" + a + "\""; v += a; l = llDeleteSubList(l, 0, 0); } while(l != []); return llDumpList2String(v, ","); } /////////////////////////////////////////////////////////////////////////// // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// // unescapes a string in conformance with RFC1738 string wasURLUnescape(string i) { return llUnescapeURL( llDumpList2String( llParseString2List( llDumpList2String( llParseString2List( i, ["+"], [] ), " " ), ["%0D%0A"], [] ), "\n" ) ); } // callback URL string callback = ""; // configuration data string configuration = ""; default { state_entry() { llSetTimerEvent(1); } link_message(integer sender, integer num, string message, key id) { if(sender != 1 || id != "configuration") return; configuration = message; state off; } timer() { llMessageLinked(LINK_ROOT, 0, "configuration", NULL_KEY); } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } state_exit() { llSetTimerEvent(0); } } state off { state_entry() { llReleaseControls(); llSetColor(<.5,0,0>, ALL_SIDES); } touch_end(integer num) { state on; } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } } state on { state_entry() { llSetColor(<0,.5,0>, ALL_SIDES); state url; } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } } state url { state_entry() { // DEBUG llOwnerSay("Requesting URL..."); llRequestURL(); } touch_end(integer num) { llSetColor(<.5,0,0>, ALL_SIDES); llResetScript(); } http_request(key id, string method, string body) { if(method != URL_REQUEST_GRANTED) return; callback = body; // DEBUG llOwnerSay("Got URL..."); state message; } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } } state message { state_entry() { // DEBUG llOwnerSay("Binding to the local, instant and group message notification..."); llInstantMessage( (key)wasKeyValueGet( "corrade", configuration ), wasKeyValueEncode( [ "command", "notify", "group", wasURLEscape( wasKeyValueGet( "group", configuration ) ), "password", wasURLEscape( wasKeyValueGet( "password", configuration ) ), "action", "add", "type", wasListToCSV( [ "local", "message", "group" ] ), "URL", wasURLEscape(callback), "callback", wasURLEscape(callback) ] ) ); llSetTimerEvent(60); } touch_end(integer num) { llSetColor(<.5,0,0>, ALL_SIDES); llResetScript(); } timer() { // DEBUG llOwnerSay("Timeout binding to the local, instant and group message notification..."); llResetScript(); } http_request(key id, string method, string body) { llHTTPResponse(id, 200, "OK"); if(wasKeyValueGet("command", body) != "notify" || wasKeyValueGet("success", body) != "True") { // DEBUG llOwnerSay("Failed to bind to the local, instant and group message notification..." + wasKeyValueGet("error", body)); llResetScript(); } // DEBUG llOwnerSay("Local, instant and group message notification installed..."); state main; } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } state_exit() { llSetTimerEvent(0); } } state main { state_entry() { // DEBUG llOwnerSay("Waiting for local, instant or group messages..."); llSetTimerEvent(1); } touch_end(integer num) { state uninstall; } timer() { llRequestAgentData( (key)wasKeyValueGet( "corrade", configuration ), DATA_ONLINE); } dataserver(key id, string data) { if(data != "1") llResetScript(); } http_request(key id, string method, string body) { llHTTPResponse(id, 200, "OK"); // get the message string message = wasURLUnescape( wasKeyValueGet( "message", body ) ); // bail if message not audible if(message == "") return; // get the message type string type = wasURLUnescape( wasKeyValueGet( "type", body ) ); // get the first name string firstname = wasURLUnescape( wasKeyValueGet( "firstname", body ) ); // get the last name string lastname = wasURLUnescape( wasKeyValueGet( "lastname", body ) ); // get the group string group = wasURLUnescape( wasKeyValueGet( "group", body ) ); if(group != "") { llOwnerSay(firstname + " " + lastname + " [" + type + "] (" + group + ") : " + message); return; } llOwnerSay(firstname + " " + lastname + " [" + type + "]: " + message); } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } state_exit() { llSetTimerEvent(0); } } state uninstall { state_entry() { // DEBUG llOwnerSay("Uninstalling local, group and instant message chat notification..."); llInstantMessage( (key)wasKeyValueGet( "corrade", configuration ), wasKeyValueEncode( [ "command", "notify", "group", wasURLEscape( wasKeyValueGet( "group", configuration ) ), "password", wasURLEscape( wasKeyValueGet( "password", configuration ) ), "action", "remove", "type", wasListToCSV([ "group", "local", "message" ]), "URL", wasURLEscape(callback), "callback", wasURLEscape(callback) ] ) ); llSetTimerEvent(60); } timer() { // DEBUG llOwnerSay("Timeout uninstalling the local and instant message chat notification..."); llResetScript(); } http_request(key id, string method, string body) { llHTTPResponse(id, 200, "OK"); if(wasKeyValueGet("command", body) != "notify" || wasKeyValueGet("success", body) != "True") { // DEBUG llOwnerSay("Failed to uninstall the local chat and instant message notification..." + wasKeyValueGet("error", body)); llResetScript(); } // DEBUG llOwnerSay("Local chat and instant message notifications uninstalled..."); llResetScript(); } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } }