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.");
+        if(data == "") {
+            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 LIMIT 1 OFFSET :id"),
+                        "data", wasURLEscape(
+                            wasListToCSV(
+                                [
+                                    "group",
+                                    wasURLEscape(
+                                        wasKeyValueGet(
+                                            "group",
+                                            configuration
+                                        )
+                                    ),
+                                    "id",
+                                    (string)(
+                                        (integer)llFrand(
+                                            joke_counter
+                                        ) + 1
+                                    )
+                                ]
+                            )
+                        ),
+                        "callback", wasURLEscape(URL)
+                    ]
+                )
+            );
+            llSetTimerEvent(60);
+            return;
         llOwnerSay("[Joke] Retrieving from database.");
         llInstantMessage(
             wasKeyValueGet(
                 "corrade",
                 configuration
                             configuration
+                        )
                     ),
                     "SQL", wasURLEscape("SELECT * FROM \"" +
                         wasKeyValueGet("joke table", configuration) +
-                        "\" WHERE name=:group LIMIT 1 OFFSET :id"),
+                        "\" WHERE name=:group AND id=:id"),
                     "data", wasURLEscape(
                         wasListToCSV(
+                            [
                                 "group",
                                 wasURLEscape(
                                         "group",
                                         configuration
+                                    )
                                 ),
                                 "id",
-                                (string)(
-                                    (integer)llFrand(
-                                        joke_counter
-                                    ) + 1
-                                )
+                                data
+                            ]
+                        )
                     ),
                     "callback", wasURLEscape(URL)
+                ]
                             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)
+                ]