corrade-lsl-templates – Diff between revs 19 and 20

Subversion Repositories:

?pathlinks?

Rev 19 – Rev 21 – Go to most recent revision – Details – Blame – Last modification – View Log

             jump_state = "remove";
             state url;
+        }
+        data = llDumpList2String(command, " ");
+        if((integer)data == 0)
-        data = llDumpList2String(command, " ");
+            data = "";
         jump_state = "get";
         state url;
+    }
     on_rez(integer num) {
 state get {
     state_entry() {
         // DEBUG
+        llOwnerSay("[Joke] Retrieving from database.");
-        llOwnerSay("[Joke] Retrieving from database.");
+        if(data == "") {
-        llInstantMessage(
+            llInstantMessage(
-            wasKeyValueGet(
+                wasKeyValueGet(
-                "corrade",
+                    "corrade",
-                configuration
+                    configuration
-                    "callback", wasURLEscape(URL)
+                        "callback", wasURLEscape(URL)
+                    ]
+                )
-        );
+            );
-        llSetTimerEvent(60);
+            llSetTimerEvent(60);
+            return;
+        }
+        llInstantMessage(
+            wasKeyValueGet(
+                "corrade",
+                configuration
+            ),
+            wasKeyValueEncode(
+                [
+                    "command", "database",
+                    "group", wasURLEscape(
+                        wasKeyValueGet(
+                            "group",
+                            configuration
+                        )
+                    ),
+                    "password", wasURLEscape(
+                        wasKeyValueGet(
+                            "password",
+                            configuration
+                        )
+                    ),
+                    "SQL", wasURLEscape("SELECT * FROM \"" +
+                        wasKeyValueGet("joke table", configuration) +
+                        "\" WHERE name=:group AND id=:id"),
+                    "data", wasURLEscape(
+                        wasListToCSV(
+                            [
+                                "group",
+                                wasURLEscape(
+                                    wasKeyValueGet(
+                                        "group",
+                                        configuration
+                                    )
+                                ),
+                                "id",
+                                data
+                            ]
+                        )
+                    ),
+                    "callback", wasURLEscape(URL)
+                ]
+            )
+        );
+        llSetTimerEvent(60);
+    }
     http_request(key id, string method, string body) {
         llHTTPResponse(id, 200, "OK");
         llReleaseURL(URL);
         if(wasKeyValueGet("command", body) != "database" ||
                             configuration
+                        )
                     ),
                     "SQL", wasURLEscape("INSERT INTO \"" +
                         wasKeyValueGet("joke table", configuration) +
-                        "\" (name, data, firstname, lastname) VALUES (:name, :data, :firstname, :lastname)"),
+                        "\" (name, data, firstname, lastname, id) VALUES (:name, :data, :firstname, :lastname, :id)"),
                     "data", wasURLEscape(
                         wasListToCSV(
+                            [
                                 "name",
                                 wasURLEscape(
                                 "data",
                                 wasURLEscape(data),
                                 "firstname",
                                 wasURLEscape(firstname),
                                 "lastname",
-                                wasURLEscape(lastname)
+                                wasURLEscape(lastname),
+                                "id",
+                                (string)(joke_counter + 1)
+                            ]
+                        )
                     ),
                     "callback", wasURLEscape(URL)
+                ]
+                )
             );
             state listen_group;
+        }
         ++joke_counter;
-        data = "Joke has been stored.";
+        data = "Joke " + (string)joke_counter + " has been stored.";
         state tell;
+    }
     timer() {
         llReleaseURL(URL);
         state listen_group;
                                         "group",
                                         configuration
+                                    )
                                 ),
                                 "id",
-                                wasURLEscape(data)
+                                data
+                            ]
+                        )
                     ),
                     "callback", wasURLEscape(URL)
+                ]