File feedtree.hws changed (mode: 100755) (index cad1c0c..4bd0448) |
... |
... |
EndFunction |
50 |
50 |
|
|
51 |
51 |
Function p_FetchAll() |
Function p_FetchAll() |
52 |
52 |
p_Lock() |
p_Lock() |
53 |
|
If IsOnline() Then p_FetchGroup("Root") |
|
|
53 |
|
If IsOnline() Then p_TimeFetch("Root") |
54 |
54 |
p_Unlock() |
p_Unlock() |
55 |
55 |
EndFunction |
EndFunction |
56 |
56 |
|
|
|
57 |
|
Function p_TimeFetch(muiid) |
|
58 |
|
Local tid = StartTimer(Nil) |
|
59 |
|
p_FetchGroup(muiid) |
|
60 |
|
If PleaseStop |
|
61 |
|
mui.Set("status", "Contents", "job is interrupted") |
|
62 |
|
Else |
|
63 |
|
mui.Set("status", "Contents", "job is done after " ..GetTimer(tid) .." ms") |
|
64 |
|
EndIf |
|
65 |
|
StopTimer(tid) |
|
66 |
|
EndFunction |
|
67 |
|
|
57 |
68 |
;č zjistit co je Node zač, |
;č zjistit co je Node zač, |
58 |
69 |
;č podle toho postupovat |
;č podle toho postupovat |
59 |
70 |
Function p_FetchCurrent() |
Function p_FetchCurrent() |
|
... |
... |
Function p_FetchCurrent() |
61 |
72 |
Local isFound, t = mui.DoMethod(#LIST_TREE, "GetEntry", "Active", "Active", "") |
Local isFound, t = mui.DoMethod(#LIST_TREE, "GetEntry", "Active", "Active", "") |
62 |
73 |
If isFound And Not PleaseStop And IsOnline() |
If isFound And Not PleaseStop And IsOnline() |
63 |
74 |
If t.Node |
If t.Node |
64 |
|
p_FetchGroup(t.muiid) |
|
|
75 |
|
p_TimeFetch(t.muiid) |
65 |
76 |
Else |
Else |
66 |
77 |
Local status = p_Fetch(t.id) |
Local status = p_Fetch(t.id) |
67 |
78 |
If status = #FEED_STATUS_NEW |
If status = #FEED_STATUS_NEW |
|
... |
... |
EndFunction |
264 |
275 |
#FEED_STATUS_ERROR |
#FEED_STATUS_ERROR |
265 |
276 |
*/ |
*/ |
266 |
277 |
Function p_Fetch(url$) |
Function p_Fetch(url$) |
|
278 |
|
/*e = hurl.Easy({URL = url$, FollowLocation = True}) |
|
279 |
|
;e:SetOpt_Accept_Encoding("") |
|
280 |
|
;e:SetOpt_AutoReferer(1) |
|
281 |
|
e:SetOpt_FileTime(1) |
|
282 |
|
e:SetOpt_Nobody(1) |
|
283 |
|
Local err_code = ?e:Perform() |
|
284 |
|
p_Replay(err_code, "Performed!") |
|
285 |
|
|
|
286 |
|
Local timep = e:GetInfo_FileTime() |
|
287 |
|
; destroy easy object |
|
288 |
|
e:Close() |
|
289 |
|
DebugPrint(timep) |
|
290 |
|
*/ |
267 |
291 |
;č zjednodušená kontrola, pokud řetězec obsahuje procenta, |
;č zjednodušená kontrola, pokud řetězec obsahuje procenta, |
268 |
292 |
;č považujeme ho za "eskejpnutý". |
;č považujeme ho za "eskejpnutý". |
269 |
293 |
;č Na případ, kdy uživatel strčí do URLu osamělý znak procenta vysereme |
;č Na případ, kdy uživatel strčí do URLu osamělý znak procenta vysereme |
|
... |
... |
Function p_Fetch(url$) |
284 |
308 |
p_Replay(err_code, "Updated XML file from " ..url$ .." saved") |
p_Replay(err_code, "Updated XML file from " ..url$ .." saved") |
285 |
309 |
If err_code <> #ERR_NONE |
If err_code <> #ERR_NONE |
286 |
310 |
;č Aha... Tak zpětně vynulujeme čeksumu, aby příště zkusil to uložit znovu |
;č Aha... Tak zpětně vynulujeme čeksumu, aby příště zkusil to uložit znovu |
|
311 |
|
;fd_Set(url$, "timestamp", 0) |
287 |
312 |
fd_Set(url$, "checksum", False) |
fd_Set(url$, "checksum", False) |
288 |
313 |
Return(#FEED_STATUS_ERROR) |
Return(#FEED_STATUS_ERROR) |
289 |
314 |
EndIf |
EndIf |