1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
|
A bunch of stuff copied from the script, since it's too close to the 64Kb limit.
Below the license is some rough instructions.
// onefang's utilites version 3.0
// Read a complete settings notecard and send settings to other scripts.
// Also other useful functions.
// Copyright (C) 2007 David Seikel (onefang rejected).
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to
// deal in the Software without restriction, including without limitation the
// rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
// sell copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in
// all copies of the Software and its Copyright notices. In addition publicly
// documented acknowledgment must be given that this software has been used if no
// source code of this software is made available publicly. This includes
// acknowledgments in either Copyright notices, Manuals, Publicity and Marketing
// documents or any documentation provided with any product containing this
// software. This License does not apply to any software that links to the
// libraries provided by this software (statically or dynamically), but only to
// the software provided.
//
// Please see the COPYING-PLAIN for a plain-english explanation of this notice
// and it's intent.
//
// The software is provided "as is", without warranty of any kind, express or
// implied, including but not limited to the warranties of merchantability,
// fitness for a particular purpose and noninfringement. In no event shall
// the authors be liable for any claim, damages or other liability, whether
// in an action of contract, tort or otherwise, arising from, out of or in
// connection with the software or the use or other dealings in the software.
//
// As a special exception to the above conditions, the Second Life user known
// as Winter Ventura may ignore all permissions and conditions and provide her
// own.
// All scripts in this object will get link messages with -
// num = -1000 - line number in the notecard.
// message = a list,
// settings card name,
// name of this setting,
// data for this setting (may be "").
// id = scriptKey as passed to us by the calling script.
// Settings are in the format "setting=data" with whitespace ignored.
// # as first non space character means ignore the line.
// For best efficiency, keep notecards short, 0.1 seconds per line read.
// You can seperate settings with a ";", and include a literal ";" with "\;".
// Objects using this must be tolerant of having their settings passed
// to them at any time, even multiple times.
// Other scripts should ignore settings that are meaningless to them,
// but can complain if settings they know about are broken.
//
// Other commands are passed in link messages in the form -
// llMessageLink(LINK_SET, UTILITIES_COMMAND, llDumpList2String(argumentList, LIST_SEP), scriptKey);
// UTILITIES_COMMAND is one of the commands listed below.
// argumentList is a list of the arguments for the command.
// For those commands with one or less arguments, a dumped list is not needed.
// scriptKEy is llGetInventoryKey(llGetScriptName()) from the caller script.
// It's used by the caller to make sure it gets it's returned message and not that of other scripts.
// llGetNotecardLine() delays for 0.1 seconds, truncates at 255 chars, no warning, 64KiB notecard limit.
// llResetOtherScript("SettingsReaderAndUtilities") to restart this from another script.
// TODO (LSL permitting) -
// Use numbers for the returned chat commands.
// These numbers are set by the caller.
// They only should set a base number, that gets incremented for the other commands.
// Performance monitor.
// onefangs special boolean parser, put it in there somewhere.
// More complex parsing -
// No = required, just parse first word as key, rest as data.
// Does not work so well for "Avatar Name=key".
// Other comment types, embedded comments.
// type channel owner prefix commands menu scripts users
// emoter 12+123 only none no 1 owner
// translator 1+2+3 only none no 1 owner
// online HUD 5 only fixed+ no 1 owner
// online IRC 0 +IRC fixed+ no 1 owner+IRC nick
// hug 1 only config later 1 owner+hugee
// TeddyPorter 2 owners TeddyPorter fixed+ yes 1+ owners+bookers+occupier+group+users
// collar 0+x owners *|an per script yes several owner+secowners+group+sub+everyone
// Online IRC is TODO'd to move away from the need to listen to local chat.
// Collars are icky, but mired in historical precedence.
// TeddyPorter is the only other one with an open listener, and it uses a prefix to filter because of that.
integer isKey(key thisKey)
{//by: Strife Onizuka
if (thisKey) return 2; // key is valid AND not equal NULL_KEY; the distinction is important in some cases (return value of 2 is still evaluated as unary boolean TRUE)
return (thisKey == NULL_KEY); // key is valid AND equal to NULL_KEY (return 1 or TRUE), or is not valid (return 0 or FALSE)
}
key forceKey(key thisKey)
{//force a string or key to be a valid key assuming you want invalids to become NULL_KEY
if (thisKey) return thisKey;
return NULL_KEY;
}
// If the above key checking turns out to be wrong, do it the hard way.
integer isKeyHard(key thisKey)
{
integer i;
if (llStringLength(thisKey) != 36)
return FALSE;
// Hyphenation tests:
if (llGetSubString(thisKey, 8, 8) != "-")
return FALSE;
if (llGetSubString(thisKey, 13, 13) != "-")
return FALSE;
if (llGetSubString(thisKey, 18, 18) != "-")
return FALSE;
if (llGetSubString(thisKey, 23, 23) != "-")
return FALSE;
// Hex test:
// Remove dashes (fixed, thanks Kek :-))
thisKey = llDeleteSubString(llDeleteSubString(llDeleteSubString(llDeleteSubString((string) thisKey, 23, 23), 18, 18), 13, 13), 8, 8);
for (i = 0; i < 32; ++i)
{
string char = llGetSubString(thisKey, i, i);
if ((0 == ((integer) ("0x" + char))) && ("0" != char))
return FALSE;
}
return TRUE; // Passed all tests:
}
// Send an avatar key request to the server.
addKeyRequest(key script, string type, string name, string extra)
{
keyRequests += [script, type, name, extra, llHTTPRequest("http://w-hat.com/name2key?terse=1&name=" + llEscapeURL(name), [], "")];
}
// Check if anything changed.
// Including - adding inv, deleting inv, change name or desc of inv, saving notecard, recompiling script.
// Not including - script reset, no-copy inv is dragged out, inv drop by non owner.
//changed(integer change)
//{
//if (CHANGED_INVENTORY & change)
//init(settingsName);
//}
// Deal with each notecard line.
dataserver(key query_id, string data)
{
if (query_id == settingsQueryID)
{
if (data != EOF)
{
readThisLine(data);
settingsQueryID = llGetNotecardLine(settingsName, settingsLine);
}
else
{
llMessageLinked(LINK_SET, UTILITIES_READ_DONE, settingsName, settingsKey);
startNextRead();
}
}
}
http_response(key id, integer status, list meta, string body)
{
integer i;
integer length = llGetListLength(keyRequests) / KEYS_STRIDE;
for (i = 0; i <= length; ++i)
{
integer thisRequest = i * KEYS_STRIDE;
if ((NULL_KEY != id) && (llList2Key(keyRequests, thisRequest + KEYS_ID) == id))
{
string script = llList2String(keyRequests, thisRequest + KEYS_SCRIPT);
string type = llList2String(keyRequests, thisRequest + KEYS_TYPE);
string name = llList2String(keyRequests, thisRequest + KEYS_NAME);
string extra = llList2String(keyRequests, thisRequest + KEYS_EXTRA);
key result = (key) body;
keyRequests = llDeleteSubList(keyRequests, thisRequest, thisRequest + KEYS_STRIDE - 1);
i -= KEYS_STRIDE;
length -= KEYS_STRIDE;
if (status == 499)
{
llOwnerSay("name2key request timed out for " + name + ". Trying again.");
addKeyRequest(script, type, name, extra);
}
else if (status != 200)
{
llOwnerSay("The internet exploded!! Trying again.");
addKeyRequest(script, type, name, extra);
}
else if ((!isKey(result)) || ("" == body))
llOwnerSay("No key found for " + name);
else if (36 != llStringLength(body))
llOwnerSay("Server broken for " + name);
else
llMessageLinked(LINK_SET, UTILITIES_AVATAR_KEY_DONE, llDumpList2String([type, name, result, extra], LIST_SEP), script);
}
}
}
else if (UTILITIES_AVATAR_KEY == num)
{
string type = llList2String(input, 0);
string name = llList2String(input, 1);
string extra = llList2String(input, 2);
key result = NULL_KEY;
// TODO add a check for the key already existing in name. Should be done by caller if caller worries about speed.
if (NULL_KEY == result)
addKeyRequest(id, type, name, extra);
else
llMessageLinked(LINK_SET, num - 1, llDumpList2String([type, name, result, extra], LIST_SEP), id);
}
|
