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 MOTD module for Corrade Eggdrop.
 //
 ///////////////////////////////////////////////////////////////////////////
     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(
     );
+}
 // configuration data
-string configuration = "";
-// callback URL
-string URL = "";
+string configuration = "";
 // store message over state.
 string firstname = "";
 string lastname = "";
 string group = "";
 string data = "";
+string jump_state = "";
-string jump_state = "";
+integer membershipFee;
 default {
     state_entry() {
     link_message(integer sender, integer num, string message, key id) {
         if(id != "configuration") return;
         llOwnerSay("[MOTD] Got configuration...");
         configuration = message;
         jump_state = "create_database";
-        state url;
+        state trampoline;
+    }
     timer() {
         llOwnerSay("[MOTD] Requesting configuration...");
         llMessageLinked(LINK_THIS, 0, "configuration", NULL_KEY);
+    }
     state_exit() {
         llSetTimerEvent(0);
+    }
+}
-state url {
+state trampoline {
-    state_entry() {
-        // DEBUG
-        llOwnerSay("[MOTD] Requesting URL...");
-        llRequestURL();
-    }
-    http_request(key id, string method, string body) {
-        if(method != URL_REQUEST_GRANTED) return;
-        URL = body;
-        // DEBUG
-        llOwnerSay("[MOTD] Got URL...");
+    state_entry() {
         if(jump_state == "create_database")
             state create_database;
         if(jump_state == "greet")
             state greet;
         if(jump_state == "get")
             state get;
         if(jump_state == "set")
+            state set;
+        if(jump_state == "fee")
+            state fee;
+        if(jump_state == "pay")
-            state set;
+            state pay;
         if(jump_state == "listen_group")
             state listen_group;
+                        )
                     ),
                     "SQL", wasURLEscape("CREATE TABLE IF NOT EXISTS \"" +
                         wasKeyValueGet("motd table", configuration) +
                         "\" (name text unique collate nocase, data text)"),
-                    "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.
-        llReleaseURL(URL);
-        if(wasKeyValueGet("command", body) != "database" ||
+        if(id != "callback" || wasKeyValueGet("command", body) != "database")
+            return;
-            wasKeyValueGet("success", body) != "True") {
+        if(wasKeyValueGet("success", body) != "True") {
             // DEBUG
             llOwnerSay("[MOTD] Unable modify database: " +
                 wasURLUnescape(
                     wasKeyValueGet("error", body)
                 ) +
+        }
         llOwnerSay("[MOTD] Database created!");
         state listen_group;
+    }
     timer() {
-        llReleaseURL(URL);
         state listen_group;
+    }
     on_rez(integer num) {
         llResetScript();
+    }
                 "group",
                 message
+            )
         );
+        // This script only processes group and membership notifications.
+        // Esnure that the notification is meant for the configured group.
+        if((wasKeyValueGet("type", message) != "membership" && wasKeyValueGet("type", message) != "group") ||
+            ((wasKeyValueGet("type", message) == "membership" || wasKeyValueGet("type", message) == "group") &&
+            wasURLUnescape(wasKeyValueGet("group", message)) !=
+            wasKeyValueGet("group", configuration)))
+            return;
         // Retrieve the membership notification.
         if(wasKeyValueGet("type", message) == "membership" &&
             wasKeyValueGet("action", message) == "joined") {
             firstname = wasURLUnescape(
                 wasKeyValueGet(
                     "lastname",
                     message
+                )
             );
+            if(wasKeyValueGet("pay back", configuration) != "true") {
-            jump_state = "greet";
+                jump_state = "greet";
-            state url;
+                state trampoline;
+            }
-        // This script only processes group notifications.
+            jump_state = "fee";
-        if(wasKeyValueGet("type", message) != "group")
+            state trampoline;
             return;
         // Get the sent message.
         data = wasURLUnescape(
         command = llDeleteSubList(command, 0, 0);
         // Dump the rest of the message.
+        data = llDumpList2String(command, " ");
+        // DEBUG
-        data = llDumpList2String(command, " ");
+        //llOwnerSay("Remaining data: " + data);
         // Get the sent message.
         if(data == "") {
             jump_state = "get";
+            state trampoline;
             state url;
-        }
         data = wasURLEscape(data);
         jump_state = "set";
-        state url;
+        state trampoline;
+    }
     on_rez(integer num) {
+}
 state greet {
     state_entry() {
         // DEBUG
-        llOwnerSay("[MOTD] Member joined, retrieving MOTD...");
+        llOwnerSay("[MOTD] Retrieving MOTD...");
         llInstantMessage(
             wasKeyValueGet(
                 "corrade",
                 configuration
                                 "group",
                                 wasURLEscape(group)
+                            ]
+                        )
                     ),
-                    "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.
-        llReleaseURL(URL);
-        if(wasKeyValueGet("command", body) != "database" ||
+        if(id != "callback" || wasKeyValueGet("command", body) != "database")
+            return;
-            wasKeyValueGet("success", body) != "True") {
+        if(wasKeyValueGet("success", body) != "True") {
             // DEBUG
             llOwnerSay("[MOTD] Unable retrieve from database: " +
                 wasURLUnescape(
                     wasKeyValueGet("error", body)
+                )
         data = "Hello " + firstname + " " + lastname + "!" + " " + data;
         state tell;
+    }
-    timer() {
-        llReleaseURL(URL);
+    timer() {
         state listen_group;
+    }
     on_rez(integer num) {
         llResetScript();
+                                    )
+                                )
+                            ]
+                        )
                     ),
-                    "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.
-        llReleaseURL(URL);
-        if(wasKeyValueGet("command", body) != "database" ||
+        if(id != "callback" || wasKeyValueGet("command", body) != "database")
+            return;
-            wasKeyValueGet("success", body) != "True") {
+        if(wasKeyValueGet("success", body) != "True") {
             // DEBUG
             llOwnerSay("[MOTD] Unable retrieve from database: " +
                 wasURLUnescape(
                     wasKeyValueGet("error", body)
+                )
+        }
         state tell;
+    }
+    timer() {
+        state listen_group;
+    }
+    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 fee {
+        state_entry() {
+        // DEBUG
+        llOwnerSay("[MOTD] Member joined, getting group membership fee...");
+        llInstantMessage(
+            wasKeyValueGet(
+                "corrade",
+                configuration
+            ),
+            wasKeyValueEncode(
+                [
+                    "command", "getgroupdata",
+                    "group", wasURLEscape(
+                        wasKeyValueGet(
+                            "group",
+                            configuration
+                        )
+                    ),
+                    "password", wasURLEscape(
+                        wasKeyValueGet(
+                            "password",
+                            configuration
+                        )
+                    ),
+                    "data", "MembershipFee",
+                    "callback", wasURLEscape(
+                        wasKeyValueGet(
+                            "URL",
+                            configuration
+                        )
+                    )
+                ]
+            )
+        );
+        llSetTimerEvent(60);
+    }
+    link_message(integer sender, integer num, string body, key id) {
+        // Only process callbacks for the database command.
+        if(id != "callback" || wasKeyValueGet("command", body) != "getgroupdata")
+            return;
+        if(wasKeyValueGet("success", body) != "True") {
+            // DEBUG
+            llOwnerSay("[MOTD] Unable to get group data: " +
+                wasURLUnescape(
+                    wasKeyValueGet("error", body)
+                )
+            );
+            state listen_group;
+        }
+        list membership = wasCSVToList(
+            wasURLUnescape(
+                wasKeyValueGet(
+                    "data",
+                    body
+                )
+            )
+        );
+        membershipFee = llList2Integer(
+            membership,
+            llListFindList(
+                membership,
+                [ "MembershipFee" ]
+            ) + 1
+        );
+        if(membershipFee <= 0) {
+            // DEBUG
+            llOwnerSay("The configured group does not have a membership fee!");
+            state listen_group;
+        }
+        jump_state = "pay";
+        state trampoline;
+    }
+    timer() {
+        state listen_group;
+    }
-    timer() {
+    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 pay {
+        state_entry() {
+        // DEBUG
+        llOwnerSay("[MOTD] Paying back the entrance fee...");
+        llInstantMessage(
+            wasKeyValueGet(
+                "corrade",
+                configuration
+            ),
+            wasKeyValueEncode(
+                [
+                    "command", "pay",
+                    "group", wasURLEscape(
+                        wasKeyValueGet(
+                            "group",
+                            configuration
+                        )
+                    ),
+                    "password", wasURLEscape(
+                        wasKeyValueGet(
+                            "password",
+                            configuration
+                        )
+                    ),
+                    "amount", membershipFee,
+                    "entity", "avatar",
+                    "firstname", wasURLEscape(firstname),
+                    "lastname", wasURLEscape(lastname),
+                    "callback", wasURLEscape(
+                        wasKeyValueGet(
+                            "URL",
+                            configuration
+                        )
+                    )
+                ]
+            )
+        );
+        llSetTimerEvent(60);
+    }
+    link_message(integer sender, integer num, string body, key id) {
+        // Only process callbacks for the database command.
+        if(id != "callback" || wasKeyValueGet("command", body) != "pay")
+            return;
+        if(wasKeyValueGet("success", body) != "True") {
+            // DEBUG
+            llOwnerSay("[MOTD] Unable to pay the entrance fee: " +
+                wasURLUnescape(
+                    wasKeyValueGet("error", body)
+                )
+            );
+            state listen_group;
+        }
+        // DEBUG
+        llOwnerSay("[MOTD] Paid back the entrance fee.");
+        jump_state = "greet";
+        state trampoline;
+    }
-        llReleaseURL(URL);
+    timer() {
         state listen_group;
+    }
     on_rez(integer num) {
         llResetScript();
+}
 state set {
     state_entry() {
         // DEBUG
-        llOwnerSay("[MOTD] Adding to database.");
+        llOwnerSay("[MOTD] Adding to database...");
         llInstantMessage(
             wasKeyValueGet(
                 "corrade",
                 configuration
                             configuration
+                        )
                     ),
                     "SQL", wasURLEscape("REPLACE INTO \"" +
                         wasKeyValueGet("motd table", configuration) +
-                        "\" (name, data) VALUES (:name, :data)"),
+                        "\" (name, data) VALUES (:group, :message)"),
                     "data", wasURLEscape(
                         wasListToCSV(
+                            [
-                                "name",
+                                "group",
                                 wasURLEscape(
                                     wasKeyValueGet(
                                         "group",
                                         configuration
+                                    )
                                 ),
-                                "data",
+                                "message",
-                                wasURLEscape(data)
+                                data
+                            ]
+                        )
                     ),
-                    "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.
-        llReleaseURL(URL);
-        if(wasKeyValueGet("command", body) != "database" ||
+        if(id != "callback" || wasKeyValueGet("command", body) != "database")
+            return;
-            wasKeyValueGet("success", body) != "True") {
+        if(wasKeyValueGet("success", body) != "True") {
             // DEBUG
             llOwnerSay("[MOTD] Unable modify database: " +
                 wasURLUnescape(
                     wasKeyValueGet("error", body)
+                )
+        }
         data = "Saved";
         state tell;
+    }
     timer() {
-        llReleaseURL(URL);
         state listen_group;
+    }
     on_rez(integer num) {
         llResetScript();
+    }