corrade-lsl-templates – Diff between revs 41 and 42

Subversion Repositories:

?pathlinks?

Rev 41 – Details – Blame – Last modification – View Log

 ///////////////////////////////////////////////////////////////////////////
-//  Copyright (C) Wizardry and Steamworks 2016 - License: CC BY 2.0      //
+//  Copyright (C) Wizardry and Steamworks 2016 - License: GNU GPLv3      //
 ///////////////////////////////////////////////////////////////////////////
 //
 // A module that bans group members using fuzzy name matching.
 //
 ///////////////////////////////////////////////////////////////////////////
 //    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 = llParseStringKeepNulls(data, ["&", "="], []);
+    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    //
+//    Copyright (C) 2013 Wizardry and Steamworks - License: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 string wasKeyValueEncode(list data) {
     list k = llList2ListStrided(data, 0, -1, 2);
     list v = llList2ListStrided(llDeleteSubList(data, 0, 0), 0, -1, 2);
     } while(llGetListLength(k) != 0);
     return llDumpList2String(data, "&");
+}
 ///////////////////////////////////////////////////////////////////////////
-//    Copyright (C) 2011 Wizardry and Steamworks - License: CC BY 2.0    //
+//    Copyright (C) 2011 Wizardry and Steamworks - License: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 // http://was.fm/secondlife/wanderer
 vector wasCirclePoint(float radius) {
     float x = llPow(-1, 1 + (integer) llFrand(2)) * llFrand(radius*2);
         return <x, y, 0>;
     return wasCirclePoint(radius);
+}
 ///////////////////////////////////////////////////////////////////////////
-//    Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0    //
+//    Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 // escapes a string in conformance with RFC1738
 string wasURLEscape(string i) {
     string o = "";
     } while(i != "");
     return o;
+}
 ///////////////////////////////////////////////////////////////////////////
-//    Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0    //
+//    Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 list wasCSVToList(string csv) {
     list l = [];
     list s = [];
     // postcondition: length(s) = 0
     return l + m;
+}
 ///////////////////////////////////////////////////////////////////////////
-//    Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0    //
+//    Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 string wasListToCSV(list l) {
     list v = [];
     do {
     } while(l != []);
     return llDumpList2String(v, ",");
+}
 ///////////////////////////////////////////////////////////////////////////
-//    Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0    //
+//    Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 // unescapes a string in conformance with RFC1738
 string wasURLUnescape(string i) {
     return llUnescapeURL(
+        )
     );
+}
 ///////////////////////////////////////////////////////////////////////////
-//    Copyright (C) 2017 Wizardry and Steamworks - License: CC BY 2.0    //
+//    Copyright (C) 2017 Wizardry and Steamworks - License: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 list wasSetIntersect(list a, list b) {
     if(llGetListLength(a) == 0) return [];
     string i = llList2String(a, 0);
     return i + wasSetIntersect(a, b);
+}
 // configuration data
-string configuration = "";
-// callback URL
-string URL = "";
+string configuration = "";
 // store message over state.
 string data = "";
 // banee
 string firstname = "";
         // We only care about notifications now.
         if(id != "notification")
             return;
         // This script only processes group notifications.
+        if(wasKeyValueGet("type", message) != "group" ||
+            (wasKeyValueGet("type", message) == "group" &&
+            wasURLUnescape(wasKeyValueGet("group", message)) !=
-        if(wasKeyValueGet("type", message) != "group")
+            wasKeyValueGet("group", configuration)))
             return;
         // Get the sent message.
+        }
         // Dump the rest of the message.
         data = llDumpList2String(command, " ");
-        // Get an URL.
-        state url;
-    }
-    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("[Softban] Requesting URL...");
-        llRequestURL();
-    }
-    http_request(key id, string method, string body) {
-        if(method != URL_REQUEST_GRANTED) return;
-        URL = body;
         // DEBUG
-        llOwnerSay("[Softban] Got URL...");
+        // Get roles of callers.
         state get_caller_roles;
+    }
     on_rez(integer num) {
                             configuration
+                        )
                     ),
                     "firstname", firstname,
                     "lastname", lastname,
-                    "callback", wasURLEscape(URL)
+                    "callback", wasURLEscape(
+                        wasKeyValueGet(
+                            "URL",
+                            configuration
+                        )
+                    )
+                ]
+            )
         );
         llSetTimerEvent(60);
+    }
-    http_request(key id, string method, string body) {
+    link_message(integer sender, integer num, string body, key id) {
-        llHTTPResponse(id, 200, "OK");
+        // Only process callbacks for the database command.
-        if(wasKeyValueGet("command", body) != "getmemberroles" ||
+        if(id != "callback" || wasKeyValueGet("command", body) != "getmemberroles")
+            return;
-            wasKeyValueGet("success", body) != "True") {
+        if(wasKeyValueGet("success", body) != "True") {
             // DEBUG
             llOwnerSay("[Softban] Unable to get member roles: " +
                 wasURLUnescape(
                     wasKeyValueGet("error", body)
+                )
             );
-            llReleaseURL(URL);
             state listen_group;
+        }
         // Dump the roles to a list.
+                    )
+                )
+            )
         ) == 0) {
             data = "You ain't got the cojones!";
-            llReleaseURL(URL);
             state tell;
+        }
         // GC
         banee = [];
         state get_banee_roles;
+    }
     timer() {
-        llReleaseURL(URL);
         state listen_group;
+    }
     on_rez(integer num) {
         llResetScript();
+    }
                             configuration
+                        )
                     ),
                     "firstname", firstname,
                     "lastname", lastname,
-                    "callback", wasURLEscape(URL)
+                    "callback", wasURLEscape(
+                        wasKeyValueGet(
+                            "URL",
+                            configuration
+                        )
+                    )
+                ]
+            )
         );
         llSetTimerEvent(60);
+    }
-    http_request(key id, string method, string body) {
+    link_message(integer sender, integer num, string body, key id) {
-        llHTTPResponse(id, 200, "OK");
+        // Only process callbacks for the database command.
-        if(wasKeyValueGet("command", body) != "getmemberroles" ||
+        if(id != "callback" || wasKeyValueGet("command", body) != "getmemberroles")
+            return;
-            wasKeyValueGet("success", body) != "True") {
+        if(wasKeyValueGet("success", body) != "True") {
             if(wasKeyValueGet("status", body) == "19862") {
                 // DEBUG
                 llOwnerSay("[Softban] User not in group, but proceeding anyway...");
                 jump continue;
+            }
             llOwnerSay("[Softban] Unable to get member roles: " +
                 wasURLUnescape(
                     wasKeyValueGet("error", body)
+                )
             );
-            llReleaseURL(URL);
             state listen_group;
+        }
 @continue;
         string result = wasURLUnescape(
             wasKeyValueGet("data", body)
         );
-        if(result != "" && llListFindList(wasCSVToList(result), (list)"Owners") != -1) {
-            data = "Ejectee is an owner. I'm not gunna open the pod bay doors.";
+        if(result != "" && llListFindList(wasCSVToList(result), (list)"Owners") != -1) {
-            llReleaseURL(URL);
+            data = "Ejectee is an owner. I'm not gunna open the pod bay doors.";
             state tell;
+        }
-        state ban;
         state ban;
     timer() {
-        llReleaseURL(URL);
+    timer() {
         state listen_group;
+    }
+                            [
                                 bantime
+                            ]
+                        )
                     ),
-                    "callback", wasURLEscape(URL)
+                    "callback", wasURLEscape(
+                        wasKeyValueGet(
+                            "URL",
+                            configuration
+                        )
+                    )
+                ]
+            )
         );
         llSetTimerEvent(60);
+    }
-    http_request(key id, string method, string body) {
+    link_message(integer sender, integer num, string body, key id) {
-        llHTTPResponse(id, 200, "OK");
+        // Only process callbacks for the database command.
+        if(id != "callback" || wasKeyValueGet("command", body) != "softban")
-        llReleaseURL(URL);
+            return;
         if(wasKeyValueGet("command", body) != "softban" ||
             wasKeyValueGet("success", body) != "True") {
             // DEBUG
             llOwnerSay("[Softban] Unable to soft ban member: " +
                 wasURLUnescape(
         data = "Hasta la vista, baby!";
         state tell;
+    }
-    timer() {
-        llReleaseURL(URL);
+    timer() {
         state listen_group;
+    }
     on_rez(integer num) {
         llResetScript();