Posted to tcl by wIrEs at Wed Jul 25 11:42:24 GMT 2007view raw

  1. set autoupdate "1"
  2. set autoupdatetime "/1 * * * *"
  3.  
  4. if {$autoupdate == "1"} {
  5. eval timed $autoupdatetime
  6. proc timed {minute hour day month year} {
  7. global url keyfile
  8. package require tdom
  9. package require http
  10. set page [::http::data [::http::geturl $url]]
  11. set doc [dom parse -html "<myroot>$page</myroot>"]
  12. set root [$doc documentElement]
  13. set nodes [$root selectNodes {//div[@id="keys"]/p/span}]
  14. if {($nodes == "")} {
  15. putlog "\002Webupdate\002: update failed"
  16. return 0
  17. } else {
  18. set enter [open $keyfile "w"]
  19. foreach node $nodes {
  20. puts $enter [$node asText]
  21. }
  22. close $enter
  23. putlog "\002Webupdate\002: update completed successfully"
  24. return 1
  25. }
  26. } else {
  27. putlog "\002Webupdate\002: auto-update system is turned off"
  28. }
  29. }
  30.