diff options
author | Andreas Rottmann | 2009-07-03 18:08:47 +0200 |
---|---|---|
committer | Andreas Rottmann | 2009-07-03 18:08:47 +0200 |
commit | 1c0d0f2a85afe12bc25f57360912756ac151f1bc (patch) | |
tree | b787ada2b92fef9f1a1e7b4ac4cf70702c099978 | |
parent | eac799afc38391234acfd0c09c71cbecd1746927 (diff) | |
download | tekuti-1c0d0f2a85afe12bc25f57360912756ac151f1bc.tar.gz tekuti-1c0d0f2a85afe12bc25f57360912756ac151f1bc.zip |
Don't crash generating the atom feed when there are no posts yet
-rw-r--r-- | tekuti/page-helpers.scm | 4 | ||||
-rw-r--r-- | tekuti/page.scm | 10 |
2 files changed, 9 insertions, 5 deletions
diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm index 709f44c..3a04d3f 100644 --- a/tekuti/page-helpers.scm +++ b/tekuti/page-helpers.scm @@ -278,7 +278,9 @@ (@ (xmlns "http://www.w3.org/2005/Atom") (xml:base ,(relurl ""))) (title (@ (type "text")) ,*title*) (subtitle (@ (type "text")) ,*subtitle*) - (updated ,(timestamp->atom-date last-modified)) + ,@(if last-modified + `((updated ,(timestamp->atom-date last-modified))) + '()) (generator (@ (uri "http://wingolog.org/software/tekuti") (version "what")) "tekuti") diff --git a/tekuti/page.scm b/tekuti/page.scm index c9fcf7c..f114715 100644 --- a/tekuti/page.scm +++ b/tekuti/page.scm @@ -314,10 +314,12 @@ 'status 304 'doctype #f)) (else - (rcons* (rpush 'output-headers (cons "Last-Modified" - (timestamp->rfc822-date - last-modified)) - request) + (rcons* (if last-modified + (rpush 'output-headers (cons "Last-Modified" + (timestamp->rfc822-date + last-modified)) + request) + request) 'doctype "" 'content-type "application/atom+xml" 'sxml (append (atom-header server-name last-modified) |