-
Notifications
You must be signed in to change notification settings - Fork 10
Expand file tree
/
Copy pathOryUIHTTPSQueue.agc
More file actions
379 lines (329 loc) · 19.6 KB
/
OryUIHTTPSQueue.agc
File metadata and controls
379 lines (329 loc) · 19.6 KB
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
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
foldstart // OryUIHTTPSQueue Widget
type typeOryUIHTTPSQueue
id as integer
delay# as float
domain$ as string
failedCount as integer
http as integer
items as typeOryUIHTTPSQueueItems[]
requestName$ as string
requestResponse$ as string
requestResponseCode as integer
requestScript$ as string
script$ as string
ssl as integer
timeLastCalled# as float
timeout as integer
endtype
type typeOryUIHTTPSQueueItems
failedCount as integer
file$ as string
name$ as string
postData$ as string
script$ as string
sentTime# as float
stickUntilComplete as integer
endtype
global OryUIHTTPSQueueCollection as typeOryUIHTTPSQueue[]
OryUIHTTPSQueueCollection.length = 1
function OryUIAddItemToHTTPSQueue(oryUIHTTPSQueueID as integer, oryUIWidgetParameters$ as string)
OryUISetParametersType(oryUIWidgetParameters$)
if (lower(oryUIParameters.file$) = "null") then oryUIParameters.file$ = ""
if (lower(oryUIParameters.name$) = "null") then oryUIParameters.name$ = ""
if (lower(oryUIParameters.postData$) = "null") then oryUIParameters.postData$ = ""
if (lower(oryUIParameters.script$) = "null") then oryUIParameters.script$ = ""
if (oryUIParameters.script$ = "") then exitfunction
local oryUIFoundInIndex as integer
local oryUIForI as integer
local oryUIHTTPSQueueItemID as integer
oryUIFoundInIndex = -1
// Check to see if the item already exists in the queue before adding
if (oryUIParameters.name$ <> "" and oryUIParameters.script$ <> "")
for oryUIForI = 0 to OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) - 1
if (OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].name$ = oryUIParameters.name$ and OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].script$ = oryUIParameters.script$)
oryUIFoundInIndex = oryUIForI
exit
endif
next
endif
if (oryUIParameters.addToFront = 1)
// Item already in the first slot so do nothing
if (oryUIFoundInIndex = 0)
exitfunction
elseif (oryUIFoundInIndex > 0)
// Move items before index backwards in the queue
OryUIMoveItemsBackInHTTPSQueue(oryUIHTTPSQueueID, oryUIFoundInIndex)
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].failedCount = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].file$ = oryUIParameters.file$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].name$ = oryUIParameters.name$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].postData$ = oryUIParameters.postData$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].script$ = oryUIParameters.script$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].sentTime# = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].stickUntilComplete = oryUIParameters.stickUntilComplete
else
// Add a new blank item at the end of the queue
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items.length = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items.length + 1
oryUIHTTPSQueueItemID = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items.length
// Move all items in the queue back one
OryUIMoveItemsBackInHTTPSQueue(oryUIHTTPSQueueID, OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) - 1)
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].failedCount = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].file$ = oryUIParameters.file$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].name$ = oryUIParameters.name$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].postData$ = oryUIParameters.postData$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].script$ = oryUIParameters.script$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].sentTime# = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].stickUntilComplete = oryUIParameters.stickUntilComplete
endif
else
if (oryUIFoundInIndex >= 0)
// Move all items after index forwards in the queue
OryUIMoveItemToEndOfHTTPSQueue(oryUIHTTPSQueueID, oryUIFoundInIndex)
else
// Add a new blank item at the end of the queue
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items.length = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items.length + 1
oryUIHTTPSQueueItemID = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items.length
endif
oryUIHTTPSQueueItemID = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items.length
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].failedCount = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].file$ = oryUIParameters.file$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].name$ = oryUIParameters.name$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].postData$ = oryUIParameters.postData$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].script$ = oryUIParameters.script$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].sentTime# = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].stickUntilComplete = oryUIParameters.stickUntilComplete
endif
endfunction
function OryUIClearHTTPSQueue(oryUIHTTPSQueueID as integer)
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].failedCount = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestName$ = ""
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestResponse$ = ""
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestResponseCode = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestScript$ = ""
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items.length = -1
endfunction
function OryUICreateHTTPSQueue(oryUIWidgetParameters$ as string)
local oryUIHTTPSQueueID as integer
OryUIHTTPSQueueCollection.length = OryUIHTTPSQueueCollection.length + 1
oryUIHTTPSQueueID = OryUIHTTPSQueueCollection.length
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].id = oryUIHTTPSQueueID
// DEFAULT SETTINGS
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].delay# = 0.1
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].ssl = 1
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].timeout = 10000
if (oryUIWidgetParameters$ <> "") then OryUIUpdateHTTPSQueue(oryUIHTTPSQueueID, oryUIWidgetParameters$)
endfunction oryUIHTTPSQueueID
function OryUIDeleteHTTPSQueue(oryUIHTTPSQueueID as integer)
if (OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http > 0)
OryUIClearHTTPSQueue(oryUIHTTPSQueueID)
CloseHTTPConnection(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http)
DeleteHTTPConnection(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http)
endif
endfunction
function OryUIFindNameInHTTPSQueue(oryUIHTTPSQueueID as integer, oryUIHTTPSName$ as string)
local oryUIForI as integer
local oryUIIndexNameFound as integer
for oryUIForI = 0 to OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) - 1
if (lower(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].name$) = lower(oryUIHTTPSName$))
oryUIIndexNameFound = oryUIForI + 1
exit
endif
next
endfunction oryUIIndexNameFound
function OryUIFindScriptInHTTPSQueue(oryUIHTTPSQueueID as integer, oryUIHTTPSScript$ as string)
local oryUIForI as integer
local oryUIIndexScriptFound as integer
for oryUIForI = 0 to OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) - 1
if (lower(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].script$) = lower(oryUIHTTPSScript$))
oryUIIndexScriptFound = oryUIForI + 1
exit
endif
next
endfunction oryUIIndexScriptFound
function OryUIGetHTTPSQueueFailedCount(oryUIHTTPSQueueID as integer)
endfunction OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].failedCount
function OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID as integer)
local oryUIHTTPSQueueItemCount as integer
oryUIHTTPSQueueItemCount = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items.length + 1
endfunction oryUIHTTPSQueueItemCount
function OryUIGetHTTPSQueueRequestName(oryUIHTTPSQueueID)
endfunction OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestName$
function OryUIGetHTTPSQueueRequestResponse(oryUIHTTPSQueueID)
endfunction OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestResponse$
function OryUIGetHTTPSQueueRequestResponseCode(oryUIHTTPSQueueID)
endfunction OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestResponseCode
function OryUIGetHTTPSQueueRequestScript(oryUIHTTPSQueueID)
endfunction OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestScript$
function OryUIInsertHTTPSQueueListener(oryUIHTTPSQueueID as integer)
// To stop the app from crashing exit the function if domain is empty
if (OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].domain$ = "") then exitfunction
local oryUIHTTPResponseCode as integer
// Clear the response gathered on the last frame/sync
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestName$ = ""
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestResponse$ = ""
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestResponseCode = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestScript$ = ""
if (timer() - OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].timeLastCalled# > OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].delay# or OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].timeLastCalled# > timer())
// Once the queue is empty close and delete the connection
if (OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) = 0)
if (OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http > 0)
CloseHTTPConnection(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http)
DeleteHTTPConnection(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http)
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http = 0
endif
endif
if (OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) > 0)
if (OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].sentTime# = 0)
if (OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http = 0)
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http = CreateHTTPConnection()
SetHTTPHost(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http, OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].domain$, OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].ssl)
SetHTTPTimeout(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http, OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].timeout)
endif
oryUIHTTPResponseCode = GetHTTPResponseReady(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http)
if (oryUIHTTPResponseCode <> 0)
if (OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].file$ <> "")
SendHTTPFile(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http, OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].script$, OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].postData$, OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].file$)
else
SendHTTPRequestASync(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http, OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].script$, OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].postData$)
endif
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].sentTime# = timer()
endif
else
oryUIHTTPResponseCode = GetHTTPResponseReady(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http)
if (oryUIHTTPResponseCode = -1)
inc OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].failedCount
// If not 'stick until complete' then increase the number of fails
if (OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].stickUntilComplete = 0) then inc OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].failedCount
// Retry while the number of fails is less than or equal to 5
if (OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].failedCount <= 5)
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].sentTime# = 0
else
OryUIMoveItemToEndOfHTTPSQueue(oryUIHTTPSQueueID, 0)
endif
elseif (oryUIHTTPResponseCode > 0 and GetHTTPStatusCode(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http) = 200)
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].failedCount = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestName$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].name$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestResponse$ = GetHTTPResponse(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http)
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestResponseCode = oryUIHTTPResponseCode
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestScript$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[0].script$
OryUIRemoveItemFromHTTPSQueue(oryUIHTTPSQueueID, 0)
endif
endif
endif
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].timeLastCalled# = timer()
endif
endfunction
function OryUIIsNameInHTTPSQueue(oryUIHTTPSQueueID as integer, oryUIHTTPSName$ as string)
local oryUIForI as integer
local oryUINameIsInQueue as integer
for oryUIForI = 0 to OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) - 1
if (lower(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].name$) = lower(oryUIHTTPSName$))
oryUINameIsInQueue = 1
exit
endif
next
endfunction oryUINameIsInQueue
function OryUIIsScriptInHTTPSQueue(oryUIHTTPSQueueID as integer, oryUIHTTPSScript$ as string)
local oryUIForI as integer
local oryUIScriptIsInQueue as integer
for oryUIForI = 0 to OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) - 1
if (lower(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].script$) = lower(oryUIHTTPSScript$))
oryUIScriptIsInQueue = 1
exit
endif
next
endfunction oryUIScriptIsInQueue
function OryUIMoveItemsBackInHTTPSQueue(oryUIHTTPSQueueID as integer, OryUIIndex as integer)
local oryUIForI as integer
for oryUIForI = OryUIIndex to 1 step -1
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].failedCount = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].file$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI - 1].file$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].name$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI - 1].name$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].postData$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI - 1].postData$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].script$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI - 1].script$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].sentTime# = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].stickUntilComplete = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI - 1].stickUntilComplete
next
endfunction
function OryUIMoveItemsForwardsInHTTPSQueue(oryUIHTTPSQueueID as integer, OryUIIndex as integer)
local oryUIForI as integer
if (OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) > 1)
for oryUIForI = oryUIIndex to OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) - 2
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].failedCount = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].file$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI + 1].file$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].name$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI + 1].name$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].postData$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI + 1].postData$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].script$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI + 1].script$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].sentTime# = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].stickUntilComplete = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI + 1].stickUntilComplete
next
endif
endfunction
function OryUIMoveItemToEndOfHTTPSQueue(oryUIHTTPSQueueID as integer, oryUIIndex as integer)
local oryUIHTTPSQueueFile$ as string
local oryUIHTTPSQueueItemID as integer
local oryUIHTTPSQueueName$ as string
local oryUIHTTPSQueuePostData$ as string
local oryUIHTTPSQueueScript$ as string
local oryUIHTTPSQueueStickUntilComplete as integer
// Temporarily save the data from the item that needs to be move to the end
oryUIHTTPSQueueFile$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIIndex].file$
oryUIHTTPSQueueName$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIIndex].name$
oryUIHTTPSQueuePostData$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIIndex].postData$
oryUIHTTPSQueueScript$ = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIIndex].script$
oryUIHTTPSQueueStickUntilComplete = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIIndex].stickUntilComplete
// Move all items after index forward one
OryUIMoveItemsForwardsInHTTPSQueue(oryUIHTTPSQueueID, oryUIIndex)
// Set the last item in the queue with the temporary data saved above
oryUIHTTPSQueueItemID = OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) - 1
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].failedCount = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].file$ = oryUIHTTPSQueueFile$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].name$ = oryUIHTTPSQueueName$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].postData$ = oryUIHTTPSQueuePostData$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].script$ = oryUIHTTPSQueueScript$
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].sentTime# = 0
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIHTTPSQueueItemID].stickUntilComplete = oryUIHTTPSQueueStickUntilComplete
endfunction
function OryUIPrintHTTPSQueue(oryUIHTTPSQueueID as integer)
local oryUIForI as integer
print("connectionID: " + str(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].http))
print("failedCount: " + str(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].failedCount))
print("responseCode: " + str(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].requestResponseCode))
if (OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) > 0)
print("HTTPS Queue Count: " + str(OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID)))
for oryUIForI = 0 to OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) - 1
print("---------- Slot " + str(oryUIForI) + " ----------")
print("failedCount: " + str(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].failedCount))
print("file: " + OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].file$)
print("name: " + OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].name$)
print("postData: " + OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].postData$)
print("script: " + OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].script$)
print("sentTime: " + str(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].sentTime#))
print("stickUntilComplete: " + str(OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items[oryUIForI].stickUntilComplete))
next
else
print("HTTPS Queue Empty")
endif
endfunction
function OryUIRemoveItemFromHTTPSQueue(oryUIHTTPSQueueID as integer, oryUIIndex as integer)
OryUIMoveItemsForwardsInHTTPSQueue(oryUIHTTPSQueueID, oryUIIndex)
if (OryUIGetHTTPSQueueItemCount(oryUIHTTPSQueueID) >= 0) then OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items.length = OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].items.length - 1
endfunction
function OryUIResetHTTPSQueueFailedCount(oryUIHTTPSQueueID as integer)
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].failedCount = 0
endfunction
function OryUIUpdateHTTPSQueue(oryUIHTTPSQueueID as integer, oryUIWidgetParameters$ as string)
OryUISetParametersType(oryUIWidgetParameters$)
if (oryUIParameters.delay# > -999999)
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].delay# = oryUIParameters.delay#
endif
if (oryUIParameters.domain$ <> "")
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].domain$ = oryUIParameters.domain$
endif
if (oryUIParameters.ssl > -999999)
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].ssl = oryUIParameters.ssl
endif
if (oryUIParameters.timeout > -999999)
OryUIHTTPSQueueCollection[oryUIHTTPSQueueID].timeout = oryUIParameters.timeout
endif
endfunction
foldend