Changeset 46 for lang

Timestamp:

05/11/08 09:52:17 (17 years ago)

Author:

naoya_t

Message:

irc-logger/htdocs/logview.cgi: make today the default date

Files:

• lang/gauche/irc-logger/trunk/htdocs/logview.cgi (modified) (2 diffs)

lang/gauche/irc-logger/trunk/htdocs/logview.cgi

@@ -5 +5 @@
 (require "../setting")
 (require "../lib/rawlog")
+
+(use srfi-19)
 
 (define (it s) #`"<i>,|s|</i>")
@@ -40 +42 @@
 (define query-string (sys-getenv "QUERY_STRING"))
 
-(unless (and query-string (rxmatch #/^20[0-9][0-9]-[01][0-9]-[0-3][0-9]$/ query-string))
-  (display "Content-type: text/html") (newline) (newline)
-  (error "invalid query string"))
-
-(define date-str query-string)
+(define date-str (if (and query-string (rxmatch #/^20[0-9][0-9]-[01][0-9]-[0-3][0-9]$/ query-string))
+                     query-string
+                     (date->string (current-date) "~Y-~m-~d")))
 
 (display "Content-type: text/html\r\n\r\n")