Log rotation

extra/http/server/server.factor

@@ -13,7 +13,7 @@ io.encodings.ascii
 io.encodings.binary
 io.streams.limited
 io.timeouts
-fry logging calendar urls
+fry logging logging.insomniac calendar urls
 http
 http.server.responses
 html.elements
@@ -140,4 +140,7 @@ LOG: httpd-hit NOTICE
 : httpd-main ( -- )
     8888 httpd ;
 
+: httpd-insomniac ( -- )
+    "http.server" { httpd-hit } schedule-insomniac ;
+
 MAIN: httpd-main

extra/logging/logging.factor

@@ -42,11 +42,9 @@ SYMBOL: log-service
 
 <PRIVATE
 
-PREDICATE: one-string-array < array
-    [ length 1 = ] [ [ string? ] all? ] bi and ;
-
 : stack>message ( obj -- inputs>message )
-    dup one-string-array? [ first ] [
+    dup array? [ dup length 1 = [ first ] when ] when
+    dup string? [
         [
             string-limit off
             1 line-limit set
@@ -54,7 +52,7 @@ PREDICATE: one-string-array < array
             0 margin set
             unparse
         ] with-scope
-    ] if ;
+    ] unless ;
 
 PRIVATE>
 

extra/webapps/factor-website/factor-website.factor

@@ -3,6 +3,7 @@
 USING: accessors kernel sequences assocs io.files io.sockets
 io.server
 namespaces db db.tuples db.sqlite smtp
+logging.insomniac
 http.server
 http.server.dispatchers
 furnace.alloy
@@ -61,10 +62,13 @@ TUPLE: factor-website < dispatcher ;
 : init-factor-website ( -- )
     "factorcode.org" 25 <inet> smtp-server set-global
     "todo@factorcode.org" lost-password-from set-global
+    "website@factorcode.org" insomniac-sender set-global
+    "slava@factorcode.org" insomniac-recipients set-global
     init-factor-db
     <factor-website> main-responder set-global ;
 
 : start-factor-website ( -- )
     test-db start-expiring
     test-db start-update-task
+    httpd-insomniac
     8812 httpd ;