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

Subversion Repositories:
Rev:
Only display areas with differences – Ignore whitespace
Rev 8 Rev 10
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 if(llGetSubString(data, 0, 0) != 238 if(llGetSubString(data, 0, 0) !=
239 wasKeyValueGet("command", configuration)) 239 wasKeyValueGet("command", configuration))
240 return; 240 return;
241 241
-   242 list command = llParseString2List(data,
242 list command = llParseString2List(data, ["@", " "], []); 243 [wasKeyValueGet("command", configuration), " "], []);
243 if(llList2String(command, 0) != "ban") 244 if(llList2String(command, 0) != "ban")
244 return; 245 return;
245 246
246 firstname = wasKeyValueGet("firstname", message); 247 firstname = wasKeyValueGet("firstname", message);
247 lastname = wasKeyValueGet("lastname", message); 248 lastname = wasKeyValueGet("lastname", message);
248 249
249 if(firstname == "" || lastname == "") { 250 if(firstname == "" || lastname == "") {
250 data = "And who would yarr be?"; 251 data = "And who would yarr be?";
251 state tell; 252 state tell;
252 } 253 }
253 254
254 // Remove command. 255 // Remove command.
255 command = llDeleteSubList(command, 0, 0); 256 command = llDeleteSubList(command, 0, 0);
256 257
257 // Dump the rest of the message. 258 // Dump the rest of the message.
258 data = llDumpList2String(command, " "); 259 data = llDumpList2String(command, " ");
259 260
260 // Get an URL. 261 // Get an URL.
261 state url; 262 state url;
262 } 263 }
263 on_rez(integer num) { 264 on_rez(integer num) {
264 llResetScript(); 265 llResetScript();
265 } 266 }
266 changed(integer change) { 267 changed(integer change) {
267 if((change & CHANGED_INVENTORY) || 268 if((change & CHANGED_INVENTORY) ||
268 (change & CHANGED_REGION_START) || 269 (change & CHANGED_REGION_START) ||
269 (change & CHANGED_OWNER)) { 270 (change & CHANGED_OWNER)) {
270 llResetScript(); 271 llResetScript();
271 } 272 }
272 } 273 }
273 } 274 }
274   275  
275 state url { 276 state url {
276 state_entry() { 277 state_entry() {
277 // DEBUG 278 // DEBUG
278 llOwnerSay("[Ban] Requesting URL..."); 279 llOwnerSay("[Ban] Requesting URL...");
279 llRequestURL(); 280 llRequestURL();
280 } 281 }
281 http_request(key id, string method, string body) { 282 http_request(key id, string method, string body) {
282 if(method != URL_REQUEST_GRANTED) return; 283 if(method != URL_REQUEST_GRANTED) return;
283 URL = body; 284 URL = body;
284 // DEBUG 285 // DEBUG
285 llOwnerSay("[Ban] Got URL..."); 286 llOwnerSay("[Ban] Got URL...");
286 state get_caller_roles; 287 state get_caller_roles;
287 } 288 }
288 on_rez(integer num) { 289 on_rez(integer num) {
289 llResetScript(); 290 llResetScript();
290 } 291 }
291 changed(integer change) { 292 changed(integer change) {
292 if((change & CHANGED_INVENTORY) || 293 if((change & CHANGED_INVENTORY) ||
293 (change & CHANGED_REGION_START) || 294 (change & CHANGED_REGION_START) ||
294 (change & CHANGED_OWNER)) { 295 (change & CHANGED_OWNER)) {
295 llResetScript(); 296 llResetScript();
296 } 297 }
297 } 298 }
298 } 299 }
299   300  
300 state get_caller_roles { 301 state get_caller_roles {
301 state_entry() { 302 state_entry() {
302 // DEBUG 303 // DEBUG
303 llOwnerSay("[Ban] Searching for caller..."); 304 llOwnerSay("[Ban] Searching for caller...");
304 llInstantMessage( 305 llInstantMessage(
305 wasKeyValueGet( 306 wasKeyValueGet(
306 "corrade", 307 "corrade",
307 configuration 308 configuration
308 ), 309 ),
309 wasKeyValueEncode( 310 wasKeyValueEncode(
310 [ 311 [
311 "command", "getmemberroles", 312 "command", "getmemberroles",
312 "group", wasURLEscape( 313 "group", wasURLEscape(
313 wasKeyValueGet( 314 wasKeyValueGet(
314 "group", 315 "group",
315 configuration 316 configuration
316 ) 317 )
317 ), 318 ),
318 "password", wasURLEscape( 319 "password", wasURLEscape(
319 wasKeyValueGet( 320 wasKeyValueGet(
320 "password", 321 "password",
321 configuration 322 configuration
322 ) 323 )
323 ), 324 ),
324 "firstname", firstname, 325 "firstname", firstname,
325 "lastname", lastname, 326 "lastname", lastname,
326 "callback", wasURLEscape(URL) 327 "callback", wasURLEscape(URL)
327 ] 328 ]
328 ) 329 )
329 ); 330 );
330 llSetTimerEvent(60); 331 llSetTimerEvent(60);
331 } 332 }
332 http_request(key id, string method, string body) { 333 http_request(key id, string method, string body) {
333 llHTTPResponse(id, 200, "OK"); 334 llHTTPResponse(id, 200, "OK");
334 if(wasKeyValueGet("command", body) != "getmemberroles" || 335 if(wasKeyValueGet("command", body) != "getmemberroles" ||
335 wasKeyValueGet("success", body) != "True") { 336 wasKeyValueGet("success", body) != "True") {
336 // DEBUG 337 // DEBUG
337 llOwnerSay("[Ban] Unable to get member roles: " + 338 llOwnerSay("[Ban] Unable to get member roles: " +
338 wasURLUnescape( 339 wasURLUnescape(
339 wasKeyValueGet("error", body) 340 wasKeyValueGet("error", body)
340 ) 341 )
341 ); 342 );
342 llReleaseURL(URL); 343 llReleaseURL(URL);
343 state listen_group; 344 state listen_group;
344 } 345 }
345 346
346 // Dump the roles to a list. 347 // Dump the roles to a list.
347 list roles = wasCSVToList( 348 list roles = wasCSVToList(
348 wasURLUnescape( 349 wasURLUnescape(
349 wasKeyValueGet("data", body) 350 wasKeyValueGet("data", body)
350 ) 351 )
351 ); 352 );
352 353
353 if(llGetListLength( 354 if(llGetListLength(
354 wasSetIntersect(roles, 355 wasSetIntersect(roles,
355 wasCSVToList( 356 wasCSVToList(
356 wasKeyValueGet( 357 wasKeyValueGet(
357 "admin roles", configuration 358 "admin roles", configuration
358 ) 359 )
359 ) 360 )
360 ) 361 )
361 ) == 0) { 362 ) == 0) {
362 data = "You ain't got the cojones!"; 363 data = "You ain't got the cojones!";
363 llReleaseURL(URL); 364 llReleaseURL(URL);
364 state tell; 365 state tell;
365 } 366 }
366 367
367 list banee = llParseString2List(data, [" "], []); 368 list banee = llParseString2List(data, [" "], []);
368 369
369 firstname = llList2String(banee, 0); 370 firstname = llList2String(banee, 0);
370 lastname = llList2String(banee, 1); 371 lastname = llList2String(banee, 1);
371 372
372 if(firstname == "" || lastname == "") { 373 if(firstname == "" || lastname == "") {
373 data = "Full name required."; 374 data = "Full name required.";
374 state tell; 375 state tell;
375 } 376 }
376 377
377 // GC 378 // GC
378 banee = []; 379 banee = [];
379 state get_banee_roles; 380 state get_banee_roles;
380 } 381 }
381 timer() { 382 timer() {
382 llReleaseURL(URL); 383 llReleaseURL(URL);
383 state listen_group; 384 state listen_group;
384 } 385 }
385 on_rez(integer num) { 386 on_rez(integer num) {
386 llResetScript(); 387 llResetScript();
387 } 388 }
388 changed(integer change) { 389 changed(integer change) {
389 if((change & CHANGED_INVENTORY) || 390 if((change & CHANGED_INVENTORY) ||
390 (change & CHANGED_REGION_START) || 391 (change & CHANGED_REGION_START) ||
391 (change & CHANGED_OWNER)) { 392 (change & CHANGED_OWNER)) {
392 llResetScript(); 393 llResetScript();
393 } 394 }
394 } 395 }
395 state_exit() { 396 state_exit() {
396 llSetTimerEvent(0); 397 llSetTimerEvent(0);
397 } 398 }
398 } 399 }
399   400  
400 state get_banee_roles { 401 state get_banee_roles {
401 state_entry() { 402 state_entry() {
402 // DEBUG 403 // DEBUG
403 llOwnerSay("[Ban] Searching for banee..."); 404 llOwnerSay("[Ban] Searching for banee...");
404 llInstantMessage( 405 llInstantMessage(
405 wasKeyValueGet( 406 wasKeyValueGet(
406 "corrade", 407 "corrade",
407 configuration 408 configuration
408 ), 409 ),
409 wasKeyValueEncode( 410 wasKeyValueEncode(
410 [ 411 [
411 "command", "getmemberroles", 412 "command", "getmemberroles",
412 "group", wasURLEscape( 413 "group", wasURLEscape(
413 wasKeyValueGet( 414 wasKeyValueGet(
414 "group", 415 "group",
415 configuration 416 configuration
416 ) 417 )
417 ), 418 ),
418 "password", wasURLEscape( 419 "password", wasURLEscape(
419 wasKeyValueGet( 420 wasKeyValueGet(
420 "password", 421 "password",
421 configuration 422 configuration
422 ) 423 )
423 ), 424 ),
424 "firstname", firstname, 425 "firstname", firstname,
425 "lastname", lastname, 426 "lastname", lastname,
426 "callback", wasURLEscape(URL) 427 "callback", wasURLEscape(URL)
427 ] 428 ]
428 ) 429 )
429 ); 430 );
430 llSetTimerEvent(60); 431 llSetTimerEvent(60);
431 } 432 }
432 http_request(key id, string method, string body) { 433 http_request(key id, string method, string body) {
433 llHTTPResponse(id, 200, "OK"); 434 llHTTPResponse(id, 200, "OK");
434 if(wasKeyValueGet("command", body) != "getmemberroles" || 435 if(wasKeyValueGet("command", body) != "getmemberroles" ||
435 wasKeyValueGet("success", body) != "True") { 436 wasKeyValueGet("success", body) != "True") {
436 // DEBUG 437 // DEBUG
437 llOwnerSay("[Ban] Unable to get member roles: " + 438 llOwnerSay("[Ban] Unable to get member roles: " +
438 wasURLUnescape( 439 wasURLUnescape(
439 wasKeyValueGet("error", body) 440 wasKeyValueGet("error", body)
440 ) 441 )
441 ); 442 );
442 llReleaseURL(URL); 443 llReleaseURL(URL);
443 state listen_group; 444 state listen_group;
444 } 445 }
445 446
446 string result = wasURLUnescape( 447 string result = wasURLUnescape(
447 wasKeyValueGet("data", body) 448 wasKeyValueGet("data", body)
448 ); 449 );
449 450
450 if(result != "" && llListFindList(wasCSVToList(result), (list)"Owners") != -1) { 451 if(result != "" && llListFindList(wasCSVToList(result), (list)"Owners") != -1) {
451 data = "Ejectee is an owner. I'm not gonna open the pod bay doors."; 452 data = "Ejectee is an owner. I'm not gonna open the pod bay doors.";
452 llReleaseURL(URL); 453 llReleaseURL(URL);
453 state tell; 454 state tell;
454 } 455 }
455 456
456 state ban; 457 state ban;
457 } 458 }
458 timer() { 459 timer() {
459 llReleaseURL(URL); 460 llReleaseURL(URL);
460 state listen_group; 461 state listen_group;
461 } 462 }
462 on_rez(integer num) { 463 on_rez(integer num) {
463 llResetScript(); 464 llResetScript();
464 } 465 }
465 changed(integer change) { 466 changed(integer change) {
466 if((change & CHANGED_INVENTORY) || 467 if((change & CHANGED_INVENTORY) ||
467 (change & CHANGED_REGION_START) || 468 (change & CHANGED_REGION_START) ||
468 (change & CHANGED_OWNER)) { 469 (change & CHANGED_OWNER)) {
469 llResetScript(); 470 llResetScript();
470 } 471 }
471 } 472 }
472 state_exit() { 473 state_exit() {
473 llSetTimerEvent(0); 474 llSetTimerEvent(0);
474 } 475 }
475 } 476 }
476   477  
477 state ban { 478 state ban {
478 state_entry() { 479 state_entry() {
479 // DEBUG 480 // DEBUG
480 llOwnerSay("[Ban] Banning..."); 481 llOwnerSay("[Ban] Banning...");
481 llInstantMessage( 482 llInstantMessage(
482 wasKeyValueGet( 483 wasKeyValueGet(
483 "corrade", 484 "corrade",
484 configuration 485 configuration
485 ), 486 ),
486 wasKeyValueEncode( 487 wasKeyValueEncode(
487 [ 488 [
488 "command", "ban", 489 "command", "ban",
489 "group", wasURLEscape( 490 "group", wasURLEscape(
490 wasKeyValueGet( 491 wasKeyValueGet(
491 "group", 492 "group",
492 configuration 493 configuration
493 ) 494 )
494 ), 495 ),
495 "password", wasURLEscape( 496 "password", wasURLEscape(
496 wasKeyValueGet( 497 wasKeyValueGet(
497 "password", 498 "password",
498 configuration 499 configuration
499 ) 500 )
500 ), 501 ),
501 "action", "ban", 502 "action", "ban",
502 "avatars", wasURLEscape( 503 "avatars", wasURLEscape(
503 wasListToCSV( 504 wasListToCSV(
504 [ 505 [
505 firstname + " " + lastname 506 firstname + " " + lastname
506 ] 507 ]
507 ) 508 )
508 ), 509 ),
509 "eject", "True", 510 "eject", "True",
510 "callback", wasURLEscape(URL) 511 "callback", wasURLEscape(URL)
511 ] 512 ]
512 ) 513 )
513 ); 514 );
514 llSetTimerEvent(60); 515 llSetTimerEvent(60);
515 } 516 }
516 http_request(key id, string method, string body) { 517 http_request(key id, string method, string body) {
517 llHTTPResponse(id, 200, "OK"); 518 llHTTPResponse(id, 200, "OK");
518 llReleaseURL(URL); 519 llReleaseURL(URL);
519 if(wasKeyValueGet("command", body) != "ban" || 520 if(wasKeyValueGet("command", body) != "ban" ||
520 wasKeyValueGet("success", body) != "True") { 521 wasKeyValueGet("success", body) != "True") {
521 // DEBUG 522 // DEBUG
522 llOwnerSay("[Ban] Unable to ban member: " + 523 llOwnerSay("[Ban] Unable to ban member: " +
523 wasURLUnescape( 524 wasURLUnescape(
524 wasKeyValueGet("error", body) 525 wasKeyValueGet("error", body)
525 ) 526 )
526 ); 527 );
527 state listen_group; 528 state listen_group;
528 } 529 }
529 530
530 data = "Hasta la vista, baby!"; 531 data = "Hasta la vista, baby!";
531 532
532 state tell; 533 state tell;
533 } 534 }
534 timer() { 535 timer() {
535 llReleaseURL(URL); 536 llReleaseURL(URL);
536 state listen_group; 537 state listen_group;
537 } 538 }
538 on_rez(integer num) { 539 on_rez(integer num) {
539 llResetScript(); 540 llResetScript();
540 } 541 }
541 changed(integer change) { 542 changed(integer change) {
542 if((change & CHANGED_INVENTORY) || 543 if((change & CHANGED_INVENTORY) ||
543 (change & CHANGED_REGION_START) || 544 (change & CHANGED_REGION_START) ||
544 (change & CHANGED_OWNER)) { 545 (change & CHANGED_OWNER)) {
545 llResetScript(); 546 llResetScript();
546 } 547 }
547 } 548 }
548 state_exit() { 549 state_exit() {
549 llSetTimerEvent(0); 550 llSetTimerEvent(0);
550 } 551 }
551 } 552 }
552   553  
553 state tell { 554 state tell {
554 state_entry() { 555 state_entry() {
555 // DEBUG 556 // DEBUG
556 llOwnerSay("[Ban] Sending to group."); 557 llOwnerSay("[Ban] Sending to group.");
557 llInstantMessage( 558 llInstantMessage(
558 wasKeyValueGet( 559 wasKeyValueGet(
559 "corrade", 560 "corrade",
560 configuration 561 configuration
561 ), 562 ),
562 wasKeyValueEncode( 563 wasKeyValueEncode(
563 [ 564 [
564 "command", "tell", 565 "command", "tell",
565 "group", wasURLEscape( 566 "group", wasURLEscape(
566 wasKeyValueGet( 567 wasKeyValueGet(
567 "group", 568 "group",
568 configuration 569 configuration
569 ) 570 )
570 ), 571 ),
571 "password", wasURLEscape( 572 "password", wasURLEscape(
572 wasKeyValueGet( 573 wasKeyValueGet(
573 "password", 574 "password",
574 configuration 575 configuration
575 ) 576 )
576 ), 577 ),
577 "entity", "group", 578 "entity", "group",
578 "message", wasURLEscape(data) 579 "message", wasURLEscape(data)
579 ] 580 ]
580 ) 581 )
581 ); 582 );
582 state listen_group; 583 state listen_group;
583 } 584 }
584 } 585 }
585   586