| /source/eggdrop/ban.lsl |
|---|
| @@ -1,5 +1,5 @@ |
|---|
| /////////////////////////////////////////////////////////////////////////// |
| // 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. |
| @@ -17,9 +17,9 @@ |
|---|
| 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); |
| @@ -34,7 +34,7 @@ |
|---|
| } |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // 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) { |
| @@ -46,7 +46,7 @@ |
|---|
| } |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // 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) { |
| @@ -70,7 +70,7 @@ |
|---|
| } |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // 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 = []; |
| @@ -109,7 +109,7 @@ |
|---|
| } |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // 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 = []; |
| @@ -117,18 +117,18 @@ |
|---|
| string a = llDumpList2String( |
| llParseStringKeepNulls( |
| llList2String( |
| l, |
| l, |
| 0 |
| ), |
| ["\""], |
| ), |
| ["\""], |
| [] |
| ), |
| "\"\"" |
| ); |
| if(llParseStringKeepNulls( |
| a, |
| a, |
| [" ", ",", "\n", "\""], [] |
| ) != |
| ) != |
| (list) a |
| ) a = "\"" + a + "\""; |
| v += a; |
| @@ -138,7 +138,7 @@ |
|---|
| } |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // 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) { |
| @@ -147,15 +147,15 @@ |
|---|
| llParseString2List( |
| llDumpList2String( |
| llParseString2List( |
| i, |
| ["+"], |
| i, |
| ["+"], |
| [] |
| ), |
| ), |
| " " |
| ), |
| ["%0D%0A"], |
| ), |
| ["%0D%0A"], |
| [] |
| ), |
| ), |
| "\n" |
| ) |
| ); |
| @@ -162,7 +162,7 @@ |
|---|
| } |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // 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 []; |
| @@ -175,8 +175,6 @@ |
|---|
| |
| // configuration data |
| string configuration = ""; |
| // callback URL |
| string URL = ""; |
| // store message over state. |
| string data = ""; |
| // banee |
| @@ -203,8 +201,8 @@ |
|---|
| llResetScript(); |
| } |
| changed(integer change) { |
| if((change & CHANGED_INVENTORY) || |
| (change & CHANGED_REGION_START) || |
| if((change & CHANGED_INVENTORY) || |
| (change & CHANGED_REGION_START) || |
| (change & CHANGED_OWNER)) { |
| llResetScript(); |
| } |
| @@ -223,70 +221,48 @@ |
|---|
| // We only care about notifications now. |
| if(id != "notification") |
| return; |
| |
| |
| // This script only processes group notifications. |
| if(wasKeyValueGet("type", message) != "group") |
| if(wasKeyValueGet("type", message) != "group" || |
| (wasKeyValueGet("type", message) == "group" && |
| wasURLUnescape(wasKeyValueGet("group", message)) != |
| wasKeyValueGet("group", configuration))) |
| return; |
| |
| |
| // Get the sent message. |
| data = wasURLUnescape( |
| wasKeyValueGet( |
| "message", |
| "message", |
| message |
| ) |
| ); |
| |
| |
| // Check if this is an eggdrop command. |
| if(llGetSubString(data, 0, 0) != |
| if(llGetSubString(data, 0, 0) != |
| wasKeyValueGet("command", configuration)) |
| return; |
| |
| |
| // Check if the command matches the current module. |
| list command = llParseString2List(data, [" "], []); |
| if(llList2String(command, 0) != |
| if(llList2String(command, 0) != |
| wasKeyValueGet("command", configuration) + "ban") |
| return; |
| |
| |
| // Remove command. |
| command = llDeleteSubList(command, 0, 0); |
| |
| |
| firstname = wasKeyValueGet("firstname", message); |
| lastname = wasKeyValueGet("lastname", message); |
| |
| |
| if(firstname == "" || lastname == "") { |
| data = "And who would yarr be?"; |
| state tell; |
| } |
| |
| |
| // 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("[Ban] Requesting URL..."); |
| llRequestURL(); |
| } |
| http_request(key id, string method, string body) { |
| if(method != URL_REQUEST_GRANTED) return; |
| URL = body; |
| // DEBUG |
| llOwnerSay("[Ban] Got URL..."); |
| // Get roles of caller. |
| state get_caller_roles; |
| } |
| on_rez(integer num) { |
| @@ -293,8 +269,8 @@ |
|---|
| llResetScript(); |
| } |
| changed(integer change) { |
| if((change & CHANGED_INVENTORY) || |
| (change & CHANGED_REGION_START) || |
| if((change & CHANGED_INVENTORY) || |
| (change & CHANGED_REGION_START) || |
| (change & CHANGED_OWNER)) { |
| llResetScript(); |
| } |
| @@ -307,46 +283,54 @@ |
|---|
| llOwnerSay("[Ban] Searching for caller..."); |
| llInstantMessage( |
| wasKeyValueGet( |
| "corrade", |
| "corrade", |
| configuration |
| ), |
| ), |
| wasKeyValueEncode( |
| [ |
| "command", "getmemberroles", |
| "group", wasURLEscape( |
| wasKeyValueGet( |
| "group", |
| "group", |
| configuration |
| ) |
| ), |
| "password", wasURLEscape( |
| wasKeyValueGet( |
| "password", |
| "password", |
| configuration |
| ) |
| ), |
| "firstname", firstname, |
| "lastname", lastname, |
| "callback", wasURLEscape(URL) |
| "callback", wasURLEscape( |
| wasKeyValueGet( |
| "URL", |
| configuration |
| ) |
| ) |
| ] |
| ) |
| ); |
| |
| llSetTimerEvent(60); |
| } |
| http_request(key id, string method, string body) { |
| llHTTPResponse(id, 200, "OK"); |
| link_message(integer sender, integer num, string body, key id) { |
| // Only process callbacks for the database command. |
| if(id != "callback" || wasKeyValueGet("command", body) != "getmemberroles") |
| return; |
| |
| if(wasKeyValueGet("command", body) != "getmemberroles" || |
| wasKeyValueGet("success", body) != "True") { |
| // DEBUG |
| llOwnerSay("[Ban] Unable to get member roles: " + |
| llOwnerSay("[Ban] Unable to get member roles: " + |
| wasURLUnescape( |
| wasKeyValueGet("error", body) |
| ) |
| ); |
| llReleaseURL(URL); |
| state listen_group; |
| } |
| |
| |
| // Dump the roles to a list. |
| list roles = wasCSVToList( |
| wasURLUnescape( |
| @@ -353,9 +337,9 @@ |
|---|
| wasKeyValueGet("data", body) |
| ) |
| ); |
| |
| |
| if(llGetListLength( |
| wasSetIntersect(roles, |
| wasSetIntersect(roles, |
| wasCSVToList( |
| wasKeyValueGet( |
| "admin roles", configuration |
| @@ -364,34 +348,32 @@ |
|---|
| ) |
| ) == 0) { |
| data = "You ain't got the cojones!"; |
| llReleaseURL(URL); |
| state tell; |
| } |
| |
| |
| list banee = llParseString2List(data, [" "], []); |
| |
| |
| firstname = llList2String(banee, 0); |
| banee = llDeleteSubList(banee, 0, 0); |
| lastname = llList2String(banee, 0); |
| banee = llDeleteSubList(banee, 0, 0); |
| |
| |
| if(firstname == "" || lastname == "") { |
| data = "Full name required."; |
| state tell; |
| } |
| |
| if(llGetListLength(banee) != 0 && |
| |
| if(llGetListLength(banee) != 0 && |
| llToLower(llList2String(banee, 0)) == "nosoft") { |
| soft = "False"; |
| banee = llDeleteSubList(banee, 0, 0); |
| } |
| |
| |
| // GC |
| banee = []; |
| state get_banee_roles; |
| } |
| timer() { |
| llReleaseURL(URL); |
| state listen_group; |
| } |
| on_rez(integer num) { |
| @@ -398,8 +380,8 @@ |
|---|
| llResetScript(); |
| } |
| changed(integer change) { |
| if((change & CHANGED_INVENTORY) || |
| (change & CHANGED_REGION_START) || |
| if((change & CHANGED_INVENTORY) || |
| (change & CHANGED_REGION_START) || |
| (change & CHANGED_OWNER)) { |
| llResetScript(); |
| } |
| @@ -415,36 +397,43 @@ |
|---|
| llOwnerSay("[Ban] Searching for banee..."); |
| llInstantMessage( |
| wasKeyValueGet( |
| "corrade", |
| "corrade", |
| configuration |
| ), |
| ), |
| wasKeyValueEncode( |
| [ |
| "command", "getmemberroles", |
| "group", wasURLEscape( |
| wasKeyValueGet( |
| "group", |
| "group", |
| configuration |
| ) |
| ), |
| "password", wasURLEscape( |
| wasKeyValueGet( |
| "password", |
| "password", |
| configuration |
| ) |
| ), |
| "firstname", firstname, |
| "lastname", lastname, |
| "callback", wasURLEscape(URL) |
| "callback", wasURLEscape( |
| wasKeyValueGet( |
| "URL", |
| configuration |
| ) |
| ) |
| ] |
| ) |
| ); |
| llSetTimerEvent(60); |
| } |
| http_request(key id, string method, string body) { |
| llHTTPResponse(id, 200, "OK"); |
| if(wasKeyValueGet("command", body) != "getmemberroles" || |
| wasKeyValueGet("success", body) != "True") { |
| link_message(integer sender, integer num, string body, key id) { |
| // Only process callbacks for the database command. |
| if(id != "callback" || wasKeyValueGet("command", body) != "getmemberroles") |
| return; |
| |
| if(wasKeyValueGet("success", body) != "True") { |
| if(wasKeyValueGet("status", body) == "19862") { |
| // DEBUG |
| llOwnerSay("[Ban] User not in group, but proceeding anyway..."); |
| @@ -451,30 +440,27 @@ |
|---|
| jump continue; |
| } |
| // DEBUG |
| llOwnerSay("[Ban] Unable to get member roles: " + |
| llOwnerSay("[Ban] 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."; |
| llReleaseURL(URL); |
| state tell; |
| } |
| |
| |
| state ban; |
| } |
| timer() { |
| llReleaseURL(URL); |
| state listen_group; |
| } |
| on_rez(integer num) { |
| @@ -481,8 +467,8 @@ |
|---|
| llResetScript(); |
| } |
| changed(integer change) { |
| if((change & CHANGED_INVENTORY) || |
| (change & CHANGED_REGION_START) || |
| if((change & CHANGED_INVENTORY) || |
| (change & CHANGED_REGION_START) || |
| (change & CHANGED_OWNER)) { |
| llResetScript(); |
| } |
| @@ -498,21 +484,21 @@ |
|---|
| llOwnerSay("[Ban] Banning..."); |
| llInstantMessage( |
| wasKeyValueGet( |
| "corrade", |
| "corrade", |
| configuration |
| ), |
| ), |
| wasKeyValueEncode( |
| [ |
| "command", "ban", |
| "group", wasURLEscape( |
| wasKeyValueGet( |
| "group", |
| "group", |
| configuration |
| ) |
| ), |
| "password", wasURLEscape( |
| wasKeyValueGet( |
| "password", |
| "password", |
| configuration |
| ) |
| ), |
| @@ -526,19 +512,26 @@ |
|---|
| ) |
| ), |
| "eject", "True", |
| "callback", wasURLEscape(URL) |
| "callback", wasURLEscape( |
| wasKeyValueGet( |
| "URL", |
| configuration |
| ) |
| ) |
| ] |
| ) |
| ); |
| llSetTimerEvent(60); |
| } |
| http_request(key id, string method, string body) { |
| llHTTPResponse(id, 200, "OK"); |
| llReleaseURL(URL); |
| link_message(integer sender, integer num, string body, key id) { |
| // Only process callbacks for the database command. |
| if(id != "callback" || wasKeyValueGet("command", body) != "ban") |
| return; |
| |
| if(wasKeyValueGet("command", body) != "ban" || |
| wasKeyValueGet("success", body) != "True") { |
| // DEBUG |
| llOwnerSay("[Ban] Unable to ban member: " + |
| llOwnerSay("[Ban] Unable to ban member: " + |
| wasURLUnescape( |
| wasKeyValueGet("error", body) |
| ) |
| @@ -545,13 +538,12 @@ |
|---|
| ); |
| state listen_group; |
| } |
| |
| |
| data = "Hasta la vista, baby!"; |
| |
| |
| state tell; |
| } |
| timer() { |
| llReleaseURL(URL); |
| state listen_group; |
| } |
| on_rez(integer num) { |
| @@ -558,8 +550,8 @@ |
|---|
| llResetScript(); |
| } |
| changed(integer change) { |
| if((change & CHANGED_INVENTORY) || |
| (change & CHANGED_REGION_START) || |
| if((change & CHANGED_INVENTORY) || |
| (change & CHANGED_REGION_START) || |
| (change & CHANGED_OWNER)) { |
| llResetScript(); |
| } |
| @@ -575,21 +567,21 @@ |
|---|
| llOwnerSay("[Ban] Sending to group."); |
| llInstantMessage( |
| wasKeyValueGet( |
| "corrade", |
| "corrade", |
| configuration |
| ), |
| ), |
| wasKeyValueEncode( |
| [ |
| "command", "tell", |
| "group", wasURLEscape( |
| wasKeyValueGet( |
| "group", |
| "group", |
| configuration |
| ) |
| ), |
| "password", wasURLEscape( |
| wasKeyValueGet( |
| "password", |
| "password", |
| configuration |
| ) |
| ), |
| @@ -598,10 +590,10 @@ |
|---|
| ] |
| ) |
| ); |
| |
| |
| // reset variables. |
| soft = "True"; |
| |
| |
| state listen_group; |
| } |
| } |
