Posted to tcl by jdc at Wed Mar 09 08:58:49 GMT 2011view raw

  1. proc /recent {r} {
  2.  
  3. puts "RECENT!"
  4.  
  5. # try cached version
  6. lassign [fromCache $r recent] cached result
  7. if {$cached} {
  8. return $result
  9. }
  10.  
  11. variable recent_cache
  12. variable rprotected
  13. variable mount
  14. variable pageURL
  15. variable delta
  16. variable image_prefix
  17.  
  18. if {[info exists recent_cache]} {
  19. Debug.wikit {/recent from its cache}
  20. set C $recent_cache
  21. } else {
  22.  
  23. set C [getMOTD] ;# contents includes motd
  24. set results {}
  25. set result {}
  26. set lastDay 0
  27. set threshold [expr {[clock seconds] - 7 * 86400}]
  28. set deletesAdded 0
  29. set activityHeaderAdded 0
  30.  
  31. Debug.wikit {/recent start query}
  32. set records [WDB RecentChanges $threshold]
  33.  
  34. Debug.wikit {/recent start processing results}
  35. foreach record $records {
  36.  
  37. puts $record
  38.  
  39. dict with record {}