New OhSilly Threat level detector, and actually use it.

Tries to work in all case.

1 files changed, 20 insertions, 20 deletions

diff --git a/1chatter.lsl b/1chatter.lsl
index b3df84e..3ed1bac 100644
--- a/1chatter.lsl
+++ b/1chatter.lsl
@@ -1444,6 +1444,26 @@ d("lSCAN " + llDumpList2String(input, " ~ "));
     listen(integer channel, string name, key id, string message)
     {
 //d("listen " + channel + ", " + llKey2Name(id) + "-> " + message + " " + llGetListLength(Musers));
+        // Catch OhSillyThreatLevel messages, from the probe.
+        if (channel == DEBUG_CHANNEL)
+        {
+            key root =  llList2Key(llGetObjectDetails(id, [OBJECT_ROOT]), 0);
+            if (llGetLinkKey(LINK_ROOT) == root)
+            {
+                integer f = llSubStringIndex(message, "permission denied. ");
+                if (-1 != f)
+                {
+                    list e = llParseStringKeepNulls(llGetSubString(message, 0, -f), [" "], []);
+                    string function = llList2String(e, 0);
+                    if (("OSSL" == llList2String(e, 0)) && ("Runtime" == llList2String(e, 1)) && ("Error:" == llList2String(e, 2)))
+                        function = llList2String(e, 3);
+                    llMessageLinked(LINK_SET, DEBUG_CHANNEL, function, "0");
+llOwnerSay("Found naughty function " + function);
+                    return;
+                }
+            }
+        }
+
         // See if it's a prefix on the prefix channel, strip off the prefix and feed the remains to doThing().
         if (channel == (integer) getSetting("1ring.CHANNEL"))
         {
@@ -1472,26 +1492,6 @@ d("listen 1ring.CHANNEL " + message + " -> " + button + " " + cmd + " " + data);
                 return;
             }
         }
-
-        // Catch OhSillyThreatLevel messages.
-        if (channel == DEBUG_CHANNEL)
-        {
-            key root =  llList2Key(llGetObjectDetails(id, [OBJECT_ROOT]), 0);
-            if ((llGetLinkKey(LINK_ROOT) == root) && ("OSSL Runtime Error: os" == llGetSubString(message, 0, 21)))
-            {
-                string function = llGetSubString(message, 20, -1);
-                integer f = llSubStringIndex(function, " ");
-                if (-1 != f)
-                {
-                    if (" permission denied. Script creator is not in the list of users allowed to execute this function and prim owner also has no permission." == llGetSubString(function, f, -1))
-                    {
-                        llMessageLinked(LINK_SET, DEBUG_CHANNEL, llGetSubString(function, 0, f - 1), id);
-                        llRegionSay(DEBUG_CHANNEL, "OPENSIM SUCKS!");
-                        return;
-                    }
-                }
-            }
-        }
     }
 
     no_sensor()