Tue Jun 28 08:04:14 UTC 2011 pix@kepibu.org

* Don't consider a page updated if the last-known good is the same as the current version

--- old-claki/claki.lisp 2013-07-22 03:24:34.000000000 +0000

+++ new-claki/claki.lisp 2013-07-22 03:24:34.000000000 +0000

@@ -57,6 +57,8 @@

("#footer > b" . #t(list ?b))) page)

(let ((current-version (oh-ducks.traversal:element-content b)))

(format t "; Page ~s modified, now at version ~a.~%" page-url current-version)

+ (when (string= (gethash page-url *last-known-good*) current-version)

+ (return-from parse-page nil))

(pushnew (list page-url current-version) *updated-pages* :test #'equal)

(dolist (link a)

(let ((url (oh-ducks.traversal:element-attribute :href link)))