corrade-lsl-templates – Diff between revs 10 and 11

Subversion Repositories:
Rev:
Only display areas with differences – Ignore whitespace
Rev 10 Rev 11
1 /////////////////////////////////////////////////////////////////////////// 1 ///////////////////////////////////////////////////////////////////////////
2 // Copyright (C) Wizardry and Steamworks 2016 - License: GNU GPLv3 // 2 // Copyright (C) Wizardry and Steamworks 2016 - License: GNU GPLv3 //
3 /////////////////////////////////////////////////////////////////////////// 3 ///////////////////////////////////////////////////////////////////////////
4 // 4 //
5 // A module that bans group members using fuzzy name matching. 5 // A module that bans group members using fuzzy name matching.
6 // 6 //
7 /////////////////////////////////////////////////////////////////////////// 7 ///////////////////////////////////////////////////////////////////////////
8   8  
9 /////////////////////////////////////////////////////////////////////////// 9 ///////////////////////////////////////////////////////////////////////////
10 // Copyright (C) 2014 Wizardry and Steamworks - License: GNU GPLv3 // 10 // Copyright (C) 2014 Wizardry and Steamworks - License: GNU GPLv3 //
11 /////////////////////////////////////////////////////////////////////////// 11 ///////////////////////////////////////////////////////////////////////////
12 string wasKeyValueGet(string k, string data) { 12 string wasKeyValueGet(string k, string data) {
13 if(llStringLength(data) == 0) return ""; 13 if(llStringLength(data) == 0) return "";
14 if(llStringLength(k) == 0) return ""; 14 if(llStringLength(k) == 0) return "";
15 list a = llParseString2List(data, ["&", "="], []); 15 list a = llParseString2List(data, ["&", "="], []);
16 integer i = llListFindList(a, [ k ]); 16 integer i = llListFindList(a, [ k ]);
17 if(i != -1) return llList2String(a, i+1); 17 if(i != -1) return llList2String(a, i+1);
18 return ""; 18 return "";
19 } 19 }
20 20
21 /////////////////////////////////////////////////////////////////////////// 21 ///////////////////////////////////////////////////////////////////////////
22 // Copyright (C) 2013 Wizardry and Steamworks - License: GNU GPLv3 // 22 // Copyright (C) 2013 Wizardry and Steamworks - License: GNU GPLv3 //
23 /////////////////////////////////////////////////////////////////////////// 23 ///////////////////////////////////////////////////////////////////////////
24 string wasKeyValueEncode(list data) { 24 string wasKeyValueEncode(list data) {
25 list k = llList2ListStrided(data, 0, -1, 2); 25 list k = llList2ListStrided(data, 0, -1, 2);
26 list v = llList2ListStrided(llDeleteSubList(data, 0, 0), 0, -1, 2); 26 list v = llList2ListStrided(llDeleteSubList(data, 0, 0), 0, -1, 2);
27 data = []; 27 data = [];
28 do { 28 do {
29 data += llList2String(k, 0) + "=" + llList2String(v, 0); 29 data += llList2String(k, 0) + "=" + llList2String(v, 0);
30 k = llDeleteSubList(k, 0, 0); 30 k = llDeleteSubList(k, 0, 0);
31 v = llDeleteSubList(v, 0, 0); 31 v = llDeleteSubList(v, 0, 0);
32 } while(llGetListLength(k) != 0); 32 } while(llGetListLength(k) != 0);
33 return llDumpList2String(data, "&"); 33 return llDumpList2String(data, "&");
34 } 34 }
35   35  
36 /////////////////////////////////////////////////////////////////////////// 36 ///////////////////////////////////////////////////////////////////////////
37 // Copyright (C) 2011 Wizardry and Steamworks - License: GNU GPLv3 // 37 // Copyright (C) 2011 Wizardry and Steamworks - License: GNU GPLv3 //
38 /////////////////////////////////////////////////////////////////////////// 38 ///////////////////////////////////////////////////////////////////////////
39 // http://was.fm/secondlife/wanderer 39 // http://was.fm/secondlife/wanderer
40 vector wasCirclePoint(float radius) { 40 vector wasCirclePoint(float radius) {
41 float x = llPow(-1, 1 + (integer) llFrand(2)) * llFrand(radius*2); 41 float x = llPow(-1, 1 + (integer) llFrand(2)) * llFrand(radius*2);
42 float y = llPow(-1, 1 + (integer) llFrand(2)) * llFrand(radius*2); 42 float y = llPow(-1, 1 + (integer) llFrand(2)) * llFrand(radius*2);
43 if(llPow(x,2) + llPow(y,2) <= llPow(radius,2)) 43 if(llPow(x,2) + llPow(y,2) <= llPow(radius,2))
44 return <x, y, 0>; 44 return <x, y, 0>;
45 return wasCirclePoint(radius); 45 return wasCirclePoint(radius);
46 } 46 }
47   47  
48 /////////////////////////////////////////////////////////////////////////// 48 ///////////////////////////////////////////////////////////////////////////
49 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 // 49 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 //
50 /////////////////////////////////////////////////////////////////////////// 50 ///////////////////////////////////////////////////////////////////////////
51 // escapes a string in conformance with RFC1738 51 // escapes a string in conformance with RFC1738
52 string wasURLEscape(string i) { 52 string wasURLEscape(string i) {
53 string o = ""; 53 string o = "";
54 do { 54 do {
55 string c = llGetSubString(i, 0, 0); 55 string c = llGetSubString(i, 0, 0);
56 i = llDeleteSubString(i, 0, 0); 56 i = llDeleteSubString(i, 0, 0);
57 if(c == "") jump continue; 57 if(c == "") jump continue;
58 if(c == " ") { 58 if(c == " ") {
59 o += "+"; 59 o += "+";
60 jump continue; 60 jump continue;
61 } 61 }
62 if(c == "\n") { 62 if(c == "\n") {
63 o += "%0D" + llEscapeURL(c); 63 o += "%0D" + llEscapeURL(c);
64 jump continue; 64 jump continue;
65 } 65 }
66 o += llEscapeURL(c); 66 o += llEscapeURL(c);
67 @continue; 67 @continue;
68 } while(i != ""); 68 } while(i != "");
69 return o; 69 return o;
70 } 70 }
71   71  
72 /////////////////////////////////////////////////////////////////////////// 72 ///////////////////////////////////////////////////////////////////////////
73 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 // 73 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 //
74 /////////////////////////////////////////////////////////////////////////// 74 ///////////////////////////////////////////////////////////////////////////
75 list wasCSVToList(string csv) { 75 list wasCSVToList(string csv) {
76 list l = []; 76 list l = [];
77 list s = []; 77 list s = [];
78 string m = ""; 78 string m = "";
79 do { 79 do {
80 string a = llGetSubString(csv, 0, 0); 80 string a = llGetSubString(csv, 0, 0);
81 csv = llDeleteSubString(csv, 0, 0); 81 csv = llDeleteSubString(csv, 0, 0);
82 if(a == ",") { 82 if(a == ",") {
83 if(llList2String(s, -1) != "\"") { 83 if(llList2String(s, -1) != "\"") {
84 l += m; 84 l += m;
85 m = ""; 85 m = "";
86 jump continue; 86 jump continue;
87 } 87 }
88 m += a; 88 m += a;
89 jump continue; 89 jump continue;
90 } 90 }
91 if(a == "\"" && llGetSubString(csv, 0, 0) == a) { 91 if(a == "\"" && llGetSubString(csv, 0, 0) == a) {
92 m += a; 92 m += a;
93 csv = llDeleteSubString(csv, 0, 0); 93 csv = llDeleteSubString(csv, 0, 0);
94 jump continue; 94 jump continue;
95 } 95 }
96 if(a == "\"") { 96 if(a == "\"") {
97 if(llList2String(s, -1) != a) { 97 if(llList2String(s, -1) != a) {
98 s += a; 98 s += a;
99 jump continue; 99 jump continue;
100 } 100 }
101 s = llDeleteSubList(s, -1, -1); 101 s = llDeleteSubList(s, -1, -1);
102 jump continue; 102 jump continue;
103 } 103 }
104 m += a; 104 m += a;
105 @continue; 105 @continue;
106 } while(csv != ""); 106 } while(csv != "");
107 // postcondition: length(s) = 0 107 // postcondition: length(s) = 0
108 return l + m; 108 return l + m;
109 } 109 }
110   110  
111 /////////////////////////////////////////////////////////////////////////// 111 ///////////////////////////////////////////////////////////////////////////
112 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 // 112 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 //
113 /////////////////////////////////////////////////////////////////////////// 113 ///////////////////////////////////////////////////////////////////////////
114 string wasListToCSV(list l) { 114 string wasListToCSV(list l) {
115 list v = []; 115 list v = [];
116 do { 116 do {
117 string a = llDumpList2String( 117 string a = llDumpList2String(
118 llParseStringKeepNulls( 118 llParseStringKeepNulls(
119 llList2String( 119 llList2String(
120 l, 120 l,
121 0 121 0
122 ), 122 ),
123 ["\""], 123 ["\""],
124 [] 124 []
125 ), 125 ),
126 "\"\"" 126 "\"\""
127 ); 127 );
128 if(llParseStringKeepNulls( 128 if(llParseStringKeepNulls(
129 a, 129 a,
130 [" ", ",", "\n", "\""], [] 130 [" ", ",", "\n", "\""], []
131 ) != 131 ) !=
132 (list) a 132 (list) a
133 ) a = "\"" + a + "\""; 133 ) a = "\"" + a + "\"";
134 v += a; 134 v += a;
135 l = llDeleteSubList(l, 0, 0); 135 l = llDeleteSubList(l, 0, 0);
136 } while(l != []); 136 } while(l != []);
137 return llDumpList2String(v, ","); 137 return llDumpList2String(v, ",");
138 } 138 }
139   139  
140 /////////////////////////////////////////////////////////////////////////// 140 ///////////////////////////////////////////////////////////////////////////
141 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 // 141 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 //
142 /////////////////////////////////////////////////////////////////////////// 142 ///////////////////////////////////////////////////////////////////////////
143 // unescapes a string in conformance with RFC1738 143 // unescapes a string in conformance with RFC1738
144 string wasURLUnescape(string i) { 144 string wasURLUnescape(string i) {
145 return llUnescapeURL( 145 return llUnescapeURL(
146 llDumpList2String( 146 llDumpList2String(
147 llParseString2List( 147 llParseString2List(
148 llDumpList2String( 148 llDumpList2String(
149 llParseString2List( 149 llParseString2List(
150 i, 150 i,
151 ["+"], 151 ["+"],
152 [] 152 []
153 ), 153 ),
154 " " 154 " "
155 ), 155 ),
156 ["%0D%0A"], 156 ["%0D%0A"],
157 [] 157 []
158 ), 158 ),
159 "\n" 159 "\n"
160 ) 160 )
161 ); 161 );
162 } 162 }
163   163  
164 /////////////////////////////////////////////////////////////////////////// 164 ///////////////////////////////////////////////////////////////////////////
165 // Copyright (C) 2017 Wizardry and Steamworks - License: GNU GPLv3 // 165 // Copyright (C) 2017 Wizardry and Steamworks - License: GNU GPLv3 //
166 /////////////////////////////////////////////////////////////////////////// 166 ///////////////////////////////////////////////////////////////////////////
167 list wasSetIntersect(list a, list b) { 167 list wasSetIntersect(list a, list b) {
168 if(llGetListLength(a) == 0) return []; 168 if(llGetListLength(a) == 0) return [];
169 string i = llList2String(a, 0); 169 string i = llList2String(a, 0);
170 a = llDeleteSubList(a, 0, 0); 170 a = llDeleteSubList(a, 0, 0);
171 if(llListFindList(b, (list)i) == -1) 171 if(llListFindList(b, (list)i) == -1)
172 return wasSetIntersect(a, b); 172 return wasSetIntersect(a, b);
173 return i + wasSetIntersect(a, b); 173 return i + wasSetIntersect(a, b);
174 } 174 }
175   175  
176 // configuration data 176 // configuration data
177 string configuration = ""; 177 string configuration = "";
178 // callback URL 178 // callback URL
179 string URL = ""; 179 string URL = "";
180 // store message over state. 180 // store message over state.
181 string data = ""; 181 string data = "";
182 // banee 182 // banee
183 string firstname = ""; 183 string firstname = "";
184 string lastname = ""; 184 string lastname = "";
185   185  
186 default { 186 default {
187 state_entry() { 187 state_entry() {
188 llOwnerSay("[Ban] Starting..."); 188 llOwnerSay("[Ban] Starting...");
189 llSetTimerEvent(10); 189 llSetTimerEvent(10);
190 } 190 }
191 link_message(integer sender, integer num, string message, key id) { 191 link_message(integer sender, integer num, string message, key id) {
192 if(id != "configuration") return; 192 if(id != "configuration") return;
193 llOwnerSay("[Ban] Got configuration..."); 193 llOwnerSay("[Ban] Got configuration...");
194 configuration = message; 194 configuration = message;
195 state listen_group; 195 state listen_group;
196 } 196 }
197 timer() { 197 timer() {
198 llOwnerSay("[Ban] Requesting configuration..."); 198 llOwnerSay("[Ban] Requesting configuration...");
199 llMessageLinked(LINK_THIS, 0, "configuration", NULL_KEY); 199 llMessageLinked(LINK_THIS, 0, "configuration", NULL_KEY);
200 } 200 }
201 on_rez(integer num) { 201 on_rez(integer num) {
202 llResetScript(); 202 llResetScript();
203 } 203 }
204 changed(integer change) { 204 changed(integer change) {
205 if((change & CHANGED_INVENTORY) || 205 if((change & CHANGED_INVENTORY) ||
206 (change & CHANGED_REGION_START) || 206 (change & CHANGED_REGION_START) ||
207 (change & CHANGED_OWNER)) { 207 (change & CHANGED_OWNER)) {
208 llResetScript(); 208 llResetScript();
209 } 209 }
210 } 210 }
211 state_exit() { 211 state_exit() {
212 llSetTimerEvent(0); 212 llSetTimerEvent(0);
213 } 213 }
214 } 214 }
215   215  
216 state listen_group { 216 state listen_group {
217 state_entry() { 217 state_entry() {
218 // DEBUG 218 // DEBUG
219 llOwnerSay("[Ban] Waiting for group messages..."); 219 llOwnerSay("[Ban] Waiting for group messages...");
220 } 220 }
221 link_message(integer sender, integer num, string message, key id) { 221 link_message(integer sender, integer num, string message, key id) {
222 // We only care about notifications now. 222 // We only care about notifications now.
223 if(id != "notification") 223 if(id != "notification")
224 return; 224 return;
225 225
226 // This script only processes group notifications. 226 // This script only processes group notifications.
227 if(wasKeyValueGet("type", message) != "group") 227 if(wasKeyValueGet("type", message) != "group")
228 return; 228 return;
229 229
230 // Get the sent message. 230 // Get the sent message.
231 data = wasURLUnescape( 231 data = wasURLUnescape(
232 wasKeyValueGet( 232 wasKeyValueGet(
233 "message", 233 "message",
234 message 234 message
235 ) 235 )
236 ); 236 );
-   237
237 238 // Check if this is an eggdrop command.
238 if(llGetSubString(data, 0, 0) != 239 if(llGetSubString(data, 0, 0) !=
239 wasKeyValueGet("command", configuration)) 240 wasKeyValueGet("command", configuration))
240 return; 241 return;
241 242
-   243 // Check if the command matches the current module.
242 list command = llParseString2List(data, 244 list command = llParseString2List(data,
243 [wasKeyValueGet("command", configuration), " "], []); 245 [wasKeyValueGet("command", configuration), " "], ["@"]);
244 if(llList2String(command, 0) != "ban") 246 if(llList2String(command, 0) != "ban")
245 return; 247 return;
246 248
247 firstname = wasKeyValueGet("firstname", message); 249 firstname = wasKeyValueGet("firstname", message);
248 lastname = wasKeyValueGet("lastname", message); 250 lastname = wasKeyValueGet("lastname", message);
249 251
250 if(firstname == "" || lastname == "") { 252 if(firstname == "" || lastname == "") {
251 data = "And who would yarr be?"; 253 data = "And who would yarr be?";
252 state tell; 254 state tell;
253 } 255 }
254 256
255 // Remove command. 257 // Remove command.
256 command = llDeleteSubList(command, 0, 0); 258 command = llDeleteSubList(command, 0, 0);
257 259
258 // Dump the rest of the message. 260 // Dump the rest of the message.
259 data = llDumpList2String(command, " "); 261 data = llDumpList2String(command, " ");
260 262
261 // Get an URL. 263 // Get an URL.
262 state url; 264 state url;
263 } 265 }
264 on_rez(integer num) { 266 on_rez(integer num) {
265 llResetScript(); 267 llResetScript();
266 } 268 }
267 changed(integer change) { 269 changed(integer change) {
268 if((change & CHANGED_INVENTORY) || 270 if((change & CHANGED_INVENTORY) ||
269 (change & CHANGED_REGION_START) || 271 (change & CHANGED_REGION_START) ||
270 (change & CHANGED_OWNER)) { 272 (change & CHANGED_OWNER)) {
271 llResetScript(); 273 llResetScript();
272 } 274 }
273 } 275 }
274 } 276 }
275   277  
276 state url { 278 state url {
277 state_entry() { 279 state_entry() {
278 // DEBUG 280 // DEBUG
279 llOwnerSay("[Ban] Requesting URL..."); 281 llOwnerSay("[Ban] Requesting URL...");
280 llRequestURL(); 282 llRequestURL();
281 } 283 }
282 http_request(key id, string method, string body) { 284 http_request(key id, string method, string body) {
283 if(method != URL_REQUEST_GRANTED) return; 285 if(method != URL_REQUEST_GRANTED) return;
284 URL = body; 286 URL = body;
285 // DEBUG 287 // DEBUG
286 llOwnerSay("[Ban] Got URL..."); 288 llOwnerSay("[Ban] Got URL...");
287 state get_caller_roles; 289 state get_caller_roles;
288 } 290 }
289 on_rez(integer num) { 291 on_rez(integer num) {
290 llResetScript(); 292 llResetScript();
291 } 293 }
292 changed(integer change) { 294 changed(integer change) {
293 if((change & CHANGED_INVENTORY) || 295 if((change & CHANGED_INVENTORY) ||
294 (change & CHANGED_REGION_START) || 296 (change & CHANGED_REGION_START) ||
295 (change & CHANGED_OWNER)) { 297 (change & CHANGED_OWNER)) {
296 llResetScript(); 298 llResetScript();
297 } 299 }
298 } 300 }
299 } 301 }
300   302  
301 state get_caller_roles { 303 state get_caller_roles {
302 state_entry() { 304 state_entry() {
303 // DEBUG 305 // DEBUG
304 llOwnerSay("[Ban] Searching for caller..."); 306 llOwnerSay("[Ban] Searching for caller...");
305 llInstantMessage( 307 llInstantMessage(
306 wasKeyValueGet( 308 wasKeyValueGet(
307 "corrade", 309 "corrade",
308 configuration 310 configuration
309 ), 311 ),
310 wasKeyValueEncode( 312 wasKeyValueEncode(
311 [ 313 [
312 "command", "getmemberroles", 314 "command", "getmemberroles",
313 "group", wasURLEscape( 315 "group", wasURLEscape(
314 wasKeyValueGet( 316 wasKeyValueGet(
315 "group", 317 "group",
316 configuration 318 configuration
317 ) 319 )
318 ), 320 ),
319 "password", wasURLEscape( 321 "password", wasURLEscape(
320 wasKeyValueGet( 322 wasKeyValueGet(
321 "password", 323 "password",
322 configuration 324 configuration
323 ) 325 )
324 ), 326 ),
325 "firstname", firstname, 327 "firstname", firstname,
326 "lastname", lastname, 328 "lastname", lastname,
327 "callback", wasURLEscape(URL) 329 "callback", wasURLEscape(URL)
328 ] 330 ]
329 ) 331 )
330 ); 332 );
331 llSetTimerEvent(60); 333 llSetTimerEvent(60);
332 } 334 }
333 http_request(key id, string method, string body) { 335 http_request(key id, string method, string body) {
334 llHTTPResponse(id, 200, "OK"); 336 llHTTPResponse(id, 200, "OK");
335 if(wasKeyValueGet("command", body) != "getmemberroles" || 337 if(wasKeyValueGet("command", body) != "getmemberroles" ||
336 wasKeyValueGet("success", body) != "True") { 338 wasKeyValueGet("success", body) != "True") {
337 // DEBUG 339 // DEBUG
338 llOwnerSay("[Ban] Unable to get member roles: " + 340 llOwnerSay("[Ban] Unable to get member roles: " +
339 wasURLUnescape( 341 wasURLUnescape(
340 wasKeyValueGet("error", body) 342 wasKeyValueGet("error", body)
341 ) 343 )
342 ); 344 );
343 llReleaseURL(URL); 345 llReleaseURL(URL);
344 state listen_group; 346 state listen_group;
345 } 347 }
346 348
347 // Dump the roles to a list. 349 // Dump the roles to a list.
348 list roles = wasCSVToList( 350 list roles = wasCSVToList(
349 wasURLUnescape( 351 wasURLUnescape(
350 wasKeyValueGet("data", body) 352 wasKeyValueGet("data", body)
351 ) 353 )
352 ); 354 );
353 355
354 if(llGetListLength( 356 if(llGetListLength(
355 wasSetIntersect(roles, 357 wasSetIntersect(roles,
356 wasCSVToList( 358 wasCSVToList(
357 wasKeyValueGet( 359 wasKeyValueGet(
358 "admin roles", configuration 360 "admin roles", configuration
359 ) 361 )
360 ) 362 )
361 ) 363 )
362 ) == 0) { 364 ) == 0) {
363 data = "You ain't got the cojones!"; 365 data = "You ain't got the cojones!";
364 llReleaseURL(URL); 366 llReleaseURL(URL);
365 state tell; 367 state tell;
366 } 368 }
367 369
368 list banee = llParseString2List(data, [" "], []); 370 list banee = llParseString2List(data, [" "], []);
369 371
370 firstname = llList2String(banee, 0); 372 firstname = llList2String(banee, 0);
371 lastname = llList2String(banee, 1); 373 lastname = llList2String(banee, 1);
372 374
373 if(firstname == "" || lastname == "") { 375 if(firstname == "" || lastname == "") {
374 data = "Full name required."; 376 data = "Full name required.";
375 state tell; 377 state tell;
376 } 378 }
377 379
378 // GC 380 // GC
379 banee = []; 381 banee = [];
380 state get_banee_roles; 382 state get_banee_roles;
381 } 383 }
382 timer() { 384 timer() {
383 llReleaseURL(URL); 385 llReleaseURL(URL);
384 state listen_group; 386 state listen_group;
385 } 387 }
386 on_rez(integer num) { 388 on_rez(integer num) {
387 llResetScript(); 389 llResetScript();
388 } 390 }
389 changed(integer change) { 391 changed(integer change) {
390 if((change & CHANGED_INVENTORY) || 392 if((change & CHANGED_INVENTORY) ||
391 (change & CHANGED_REGION_START) || 393 (change & CHANGED_REGION_START) ||
392 (change & CHANGED_OWNER)) { 394 (change & CHANGED_OWNER)) {
393 llResetScript(); 395 llResetScript();
394 } 396 }
395 } 397 }
396 state_exit() { 398 state_exit() {
397 llSetTimerEvent(0); 399 llSetTimerEvent(0);
398 } 400 }
399 } 401 }
400   402  
401 state get_banee_roles { 403 state get_banee_roles {
402 state_entry() { 404 state_entry() {
403 // DEBUG 405 // DEBUG
404 llOwnerSay("[Ban] Searching for banee..."); 406 llOwnerSay("[Ban] Searching for banee...");
405 llInstantMessage( 407 llInstantMessage(
406 wasKeyValueGet( 408 wasKeyValueGet(
407 "corrade", 409 "corrade",
408 configuration 410 configuration
409 ), 411 ),
410 wasKeyValueEncode( 412 wasKeyValueEncode(
411 [ 413 [
412 "command", "getmemberroles", 414 "command", "getmemberroles",
413 "group", wasURLEscape( 415 "group", wasURLEscape(
414 wasKeyValueGet( 416 wasKeyValueGet(
415 "group", 417 "group",
416 configuration 418 configuration
417 ) 419 )
418 ), 420 ),
419 "password", wasURLEscape( 421 "password", wasURLEscape(
420 wasKeyValueGet( 422 wasKeyValueGet(
421 "password", 423 "password",
422 configuration 424 configuration
423 ) 425 )
424 ), 426 ),
425 "firstname", firstname, 427 "firstname", firstname,
426 "lastname", lastname, 428 "lastname", lastname,
427 "callback", wasURLEscape(URL) 429 "callback", wasURLEscape(URL)
428 ] 430 ]
429 ) 431 )
430 ); 432 );
431 llSetTimerEvent(60); 433 llSetTimerEvent(60);
432 } 434 }
433 http_request(key id, string method, string body) { 435 http_request(key id, string method, string body) {
434 llHTTPResponse(id, 200, "OK"); 436 llHTTPResponse(id, 200, "OK");
435 if(wasKeyValueGet("command", body) != "getmemberroles" || 437 if(wasKeyValueGet("command", body) != "getmemberroles" ||
436 wasKeyValueGet("success", body) != "True") { 438 wasKeyValueGet("success", body) != "True") {
437 // DEBUG 439 // DEBUG
438 llOwnerSay("[Ban] Unable to get member roles: " + 440 llOwnerSay("[Ban] Unable to get member roles: " +
439 wasURLUnescape( 441 wasURLUnescape(
440 wasKeyValueGet("error", body) 442 wasKeyValueGet("error", body)
441 ) 443 )
442 ); 444 );
443 llReleaseURL(URL); 445 llReleaseURL(URL);
444 state listen_group; 446 state listen_group;
445 } 447 }
446 448
447 string result = wasURLUnescape( 449 string result = wasURLUnescape(
448 wasKeyValueGet("data", body) 450 wasKeyValueGet("data", body)
449 ); 451 );
450 452
451 if(result != "" && llListFindList(wasCSVToList(result), (list)"Owners") != -1) { 453 if(result != "" && llListFindList(wasCSVToList(result), (list)"Owners") != -1) {
452 data = "Ejectee is an owner. I'm not gonna open the pod bay doors."; 454 data = "Ejectee is an owner. I'm not gonna open the pod bay doors.";
453 llReleaseURL(URL); 455 llReleaseURL(URL);
454 state tell; 456 state tell;
455 } 457 }
456 458
457 state ban; 459 state ban;
458 } 460 }
459 timer() { 461 timer() {
460 llReleaseURL(URL); 462 llReleaseURL(URL);
461 state listen_group; 463 state listen_group;
462 } 464 }
463 on_rez(integer num) { 465 on_rez(integer num) {
464 llResetScript(); 466 llResetScript();
465 } 467 }
466 changed(integer change) { 468 changed(integer change) {
467 if((change & CHANGED_INVENTORY) || 469 if((change & CHANGED_INVENTORY) ||
468 (change & CHANGED_REGION_START) || 470 (change & CHANGED_REGION_START) ||
469 (change & CHANGED_OWNER)) { 471 (change & CHANGED_OWNER)) {
470 llResetScript(); 472 llResetScript();
471 } 473 }
472 } 474 }
473 state_exit() { 475 state_exit() {
474 llSetTimerEvent(0); 476 llSetTimerEvent(0);
475 } 477 }
476 } 478 }
477   479  
478 state ban { 480 state ban {
479 state_entry() { 481 state_entry() {
480 // DEBUG 482 // DEBUG
481 llOwnerSay("[Ban] Banning..."); 483 llOwnerSay("[Ban] Banning...");
482 llInstantMessage( 484 llInstantMessage(
483 wasKeyValueGet( 485 wasKeyValueGet(
484 "corrade", 486 "corrade",
485 configuration 487 configuration
486 ), 488 ),
487 wasKeyValueEncode( 489 wasKeyValueEncode(
488 [ 490 [
489 "command", "ban", 491 "command", "ban",
490 "group", wasURLEscape( 492 "group", wasURLEscape(
491 wasKeyValueGet( 493 wasKeyValueGet(
492 "group", 494 "group",
493 configuration 495 configuration
494 ) 496 )
495 ), 497 ),
496 "password", wasURLEscape( 498 "password", wasURLEscape(
497 wasKeyValueGet( 499 wasKeyValueGet(
498 "password", 500 "password",
499 configuration 501 configuration
500 ) 502 )
501 ), 503 ),
502 "action", "ban", 504 "action", "ban",
503 "avatars", wasURLEscape( 505 "avatars", wasURLEscape(
504 wasListToCSV( 506 wasListToCSV(
505 [ 507 [
506 firstname + " " + lastname 508 firstname + " " + lastname
507 ] 509 ]
508 ) 510 )
509 ), 511 ),
510 "eject", "True", 512 "eject", "True",
511 "callback", wasURLEscape(URL) 513 "callback", wasURLEscape(URL)
512 ] 514 ]
513 ) 515 )
514 ); 516 );
515 llSetTimerEvent(60); 517 llSetTimerEvent(60);
516 } 518 }
517 http_request(key id, string method, string body) { 519 http_request(key id, string method, string body) {
518 llHTTPResponse(id, 200, "OK"); 520 llHTTPResponse(id, 200, "OK");
519 llReleaseURL(URL); 521 llReleaseURL(URL);
520 if(wasKeyValueGet("command", body) != "ban" || 522 if(wasKeyValueGet("command", body) != "ban" ||
521 wasKeyValueGet("success", body) != "True") { 523 wasKeyValueGet("success", body) != "True") {
522 // DEBUG 524 // DEBUG
523 llOwnerSay("[Ban] Unable to ban member: " + 525 llOwnerSay("[Ban] Unable to ban member: " +
524 wasURLUnescape( 526 wasURLUnescape(
525 wasKeyValueGet("error", body) 527 wasKeyValueGet("error", body)
526 ) 528 )
527 ); 529 );
528 state listen_group; 530 state listen_group;
529 } 531 }
530 532
531 data = "Hasta la vista, baby!"; 533 data = "Hasta la vista, baby!";
532 534
533 state tell; 535 state tell;
534 } 536 }
535 timer() { 537 timer() {
536 llReleaseURL(URL); 538 llReleaseURL(URL);
537 state listen_group; 539 state listen_group;
538 } 540 }
539 on_rez(integer num) { 541 on_rez(integer num) {
540 llResetScript(); 542 llResetScript();
541 } 543 }
542 changed(integer change) { 544 changed(integer change) {
543 if((change & CHANGED_INVENTORY) || 545 if((change & CHANGED_INVENTORY) ||
544 (change & CHANGED_REGION_START) || 546 (change & CHANGED_REGION_START) ||
545 (change & CHANGED_OWNER)) { 547 (change & CHANGED_OWNER)) {
546 llResetScript(); 548 llResetScript();
547 } 549 }
548 } 550 }
549 state_exit() { 551 state_exit() {
550 llSetTimerEvent(0); 552 llSetTimerEvent(0);
551 } 553 }
552 } 554 }
553   555  
554 state tell { 556 state tell {
555 state_entry() { 557 state_entry() {
556 // DEBUG 558 // DEBUG
557 llOwnerSay("[Ban] Sending to group."); 559 llOwnerSay("[Ban] Sending to group.");
558 llInstantMessage( 560 llInstantMessage(
559 wasKeyValueGet( 561 wasKeyValueGet(
560 "corrade", 562 "corrade",
561 configuration 563 configuration
562 ), 564 ),
563 wasKeyValueEncode( 565 wasKeyValueEncode(
564 [ 566 [
565 "command", "tell", 567 "command", "tell",
566 "group", wasURLEscape( 568 "group", wasURLEscape(
567 wasKeyValueGet( 569 wasKeyValueGet(
568 "group", 570 "group",
569 configuration 571 configuration
570 ) 572 )
571 ), 573 ),
572 "password", wasURLEscape( 574 "password", wasURLEscape(
573 wasKeyValueGet( 575 wasKeyValueGet(
574 "password", 576 "password",
575 configuration 577 configuration
576 ) 578 )
577 ), 579 ),
578 "entity", "group", 580 "entity", "group",
579 "message", wasURLEscape(data) 581 "message", wasURLEscape(data)
580 ] 582 ]
581 ) 583 )
582 ); 584 );
583 state listen_group; 585 state listen_group;
584 } 586 }
585 } 587 }
586   588