Posted to tcl by dandyn at Tue Jun 17 18:57:47 GMT 2025view raw

  1. orginal:
  2.  
  3. foreach feed $::rss::feeds {
  4. # FEEDS: Import feed details.
  5. set order [set ::rss::${feed}Ord] ; set regex [set ::rss::${feed}Reg]
  6. if {$feed eq "ggl"} { set url [rotate ::rss::gglUrl]
  7. } else {set url [set ::rss::${feed}Url]}
  8.  
  9. # UPDATE: Download news from feed.
  10. if {[catch {::http::geturl $url -timeout 20000} tok]} {putlog "$feed\: timeout problems: $tok"; error $tok}
  11. if {[::http::status $tok] ne "ok"} {
  12. error "[s2u $feed] feed (TCP error: [::http::status $tok][::http::cleanup $tok])"
  13. }
  14. if {[::http::ncode $tok] != 200} {
  15. error "[s2u $feed] feed (HTTP error: [::http::code $tok][::http::cleanup $tok])"
  16. }
  17. set data [::http::data $tok] ; ::http::cleanup $tok ; unset tok ; set drpCnt 0
  18.  
  19.  
  20. My edit:
  21.  
  22. foreach feed $::rss::feeds {
  23. # FEEDS: Import feed details.
  24. set order [set ::rss::${feed}Ord] ; set regex [set ::rss::${feed}Reg]
  25. if {$feed eq "ggl"} { set url [rotate ::rss::gglUrl]
  26. } else {set url [set ::rss::${feed}Url]}
  27.  
  28. # UPDATE: Download news from feed.
  29. if {[catch {::http::geturl $url -timeout 20000} tok]} {
  30.  
  31. #---------------
  32. if {$feed eq "fox"} {
  33. if {[catch {::http::geturl $url -timeout 20000} tok]} {putlog "$feed\: timeout problems: $tok"; error $tok}
  34. } else {putlog "$feed\: timeout problems: $tok"; error $tok}
  35.  
  36. }
  37. #-------------------
  38.  
  39. if {[::http::status $tok] ne "ok"} {
  40. error "[s2u $feed] feed (TCP error: [::http::status $tok][::http::cleanup $tok])"
  41. }
  42. if {[::http::ncode $tok] != 200} {
  43. error "[s2u $feed] feed (HTTP error: [::http::code $tok][::http::cleanup $tok])"
  44. }
  45. set data [::http::data $tok] ; ::http::cleanup $tok ; unset tok ; set drpCnt 0
  46.  

Add a comment

Please note that this site uses the meta tags nofollow,noindex for all pages that contain comments.
Items are closed for new comments after 1 week