Posted to tcl by mjanssen at Wed Jul 25 11:55:21 GMT 2007view raw

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