add irc-log webapp to redirect you to today's \#concatenative log

extra/webapps/irc-log/authors.txt

@@ -0,0 +1 @@
+Doug Coleman

extra/webapps/irc-log/irc-log.factor

@@ -0,0 +1,22 @@
+! Copyright (C) 2008 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: calendar kernel http.server.dispatchers prettyprint
+sequences printf furnace.actions html.forms accessors
+furnace.redirection ;
+IN: webapps.irc-log
+
+TUPLE: irclog-app < dispatcher ;
+
+: irc-link ( -- string )   
+    gmt -7 hours convert-timezone >date<
+    [ unparse 2 tail ] 2dip
+    "http://bespin.org/~nef/logs/concatenative/%02s.%02d.%02d"
+    sprintf ;
+    
+: <display-irclog-action> ( -- action )
+    <action>
+        [ irc-link <redirect> ] >>display ;
+
+: <irclog-app> ( -- dispatcher )
+    irclog-app new-dispatcher
+        <display-irclog-action> "" add-responder ;