Index: lang/gauche/irc-logger/trunk/htdocs/logview.cgi
===================================================================
--- lang/gauche/irc-logger/trunk/htdocs/logview.cgi (revision 43)
+++ lang/gauche/irc-logger/trunk/htdocs/logview.cgi (revision 46)
@@ -5,4 +5,6 @@
 (require "../setting")
 (require "../lib/rawlog")
+
+(use srfi-19)
 
 (define (it s) #`"<i>,|s|</i>")
@@ -40,9 +42,7 @@
 (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")