core, basis, extra: Remove DOS line endings from files.

[factor.git] / basis / logging / insomniac / insomniac.factor

diff --git a/basis/logging/insomniac/insomniac.factor b/basis/logging/insomniac/insomniac.factor
index 5f323d7ada5b78ee382229060f2e442f7c32f095..786752f01bcf1aa6df64e64129ab6d7fadd9f7e8 100644 (file)
--- a/basis/logging/insomniac/insomniac.factor
+++ b/basis/logging/insomniac/insomniac.factor
@@ -1,32 +1,32 @@
-! Copyright (C) 2008, 2010 Slava Pestov.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: logging.analysis logging.server logging smtp kernel\r
-io.files io.streams.string namespaces make timers assocs\r
-io.encodings.utf8 accessors calendar sequences locals ;\r
-QUALIFIED: io.sockets\r
-IN: logging.insomniac\r
-\r
-SYMBOL: insomniac-sender\r
-SYMBOL: insomniac-recipients\r
-\r
-: email-subject ( service -- string )\r
-    [\r
-        "Log analysis for " % % " on " % io.sockets:host-name %\r
-    ] "" make ;\r
-\r
-:: (email-log-report) ( service word-names -- )\r
-    <email>\r
-        [ service word-names analyze-log-file ] with-string-writer >>body\r
-        insomniac-recipients get >>to\r
-        insomniac-sender get >>from\r
-        service email-subject >>subject\r
-    send-email ;\r
-\r
-\ (email-log-report) NOTICE add-error-logging\r
-\r
-: email-log-report ( service word-names -- )\r
-    "logging.insomniac" [ (email-log-report) ] with-logging ;\r
-\r
-: schedule-insomniac ( service word-names -- )\r
-    [ email-log-report rotate-logs ] 2curry\r
-    1 days every drop ;\r
+! Copyright (C) 2008, 2010 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: logging.analysis logging.server logging smtp kernel
+io.files io.streams.string namespaces make timers assocs
+io.encodings.utf8 accessors calendar sequences locals ;
+QUALIFIED: io.sockets
+IN: logging.insomniac
+
+SYMBOL: insomniac-sender
+SYMBOL: insomniac-recipients
+
+: email-subject ( service -- string )
+    [
+        "Log analysis for " % % " on " % io.sockets:host-name %
+    ] "" make ;
+
+:: (email-log-report) ( service word-names -- )
+    <email>
+        [ service word-names analyze-log-file ] with-string-writer >>body
+        insomniac-recipients get >>to
+        insomniac-sender get >>from
+        service email-subject >>subject
+    send-email ;
+
+\ (email-log-report) NOTICE add-error-logging
+
+: email-log-report ( service word-names -- )
+    "logging.insomniac" [ (email-log-report) ] with-logging ;
+
+: schedule-insomniac ( service word-names -- )
+    [ email-log-report rotate-logs ] 2curry
+    1 days every drop ;