[Fencommits] fenfire-hs: implement [off] for off-the-record in Irc2RDF

[Tuukka Hastrup]

Sun Apr 13 03:25:59 EEST 2008  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * implement [off] for off-the-record in Irc2RDF

    M ./Fenfire/Irc2RDF.hs -1 +4

Sun Apr 13 03:25:59 EEST 2008  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * implement [off] for off-the-record in Irc2RDF
diff -rN -u old-fenfire-hs/Fenfire/Irc2RDF.hs new-fenfire-hs/Fenfire/Irc2RDF.hs
--- old-fenfire-hs/Fenfire/Irc2RDF.hs	2008-04-13 03:26:14.479765000 +0300
+++ new-fenfire-hs/Fenfire/Irc2RDF.hs	2008-04-13 03:26:14.709561000 +0300
@@ -168,7 +168,10 @@
            Maybe String -> [String] -> (Maybe FilePath, [Triple])
 triples channels root filepath (time,offset) (Just prefix) [cmd,target,msg0] 
     | map toUpper cmd == "PRIVMSG", 
-      '#':channelName <- map toLower target, channelName `elem` channels
+      '#':channelName <- map toLower target, channelName `elem` channels,
+      not $ "[off]" `isPrefixOf` msg0,
+      not $ "+[off]" `isPrefixOf` msg0,
+      not $ "-[off]" `isPrefixOf` msg0
     = 
     let msg = case msg0 of '+':cs -> cs; '-':cs -> cs; cs -> cs
         file = channelName ++ "-" ++ day