It sends tox-messages to pidgin!

1 files changed, 15 insertions, 8 deletions

diff --git a/Presence/ConsoleWriter.hs b/Presence/ConsoleWriter.hs
index 6b611e68..7c377d83 100644
--- a/Presence/ConsoleWriter.hs
+++ b/Presence/ConsoleWriter.hs
@@ -23,6 +23,7 @@ import System.Posix.Process ( forkProcess, exitImmediately, executeFile )
 import System.Posix.User  ( setUserID, getUserEntryForName, userID )
 import System.Posix.Files ( getFileStatus, fileMode )
 import System.INotify ( initINotify, EventVariety(Modify), addWatch )
+import System.IO.Error
 import Data.Word      ( Word8 )
 import Data.Text      ( Text )
 import Data.Map       ( Map )
@@ -34,6 +35,7 @@ import qualified Data.Text as Text
 -- import qualified Data.Text.IO as Text
 import qualified Network.BSD as BSD
 
+import DPut
 import UTmp           ( users2, utmp_file, UtmpRecord(..), UT_Type(..) )
 import FGConsole      ( forkTTYMonitor )
 import XMPPServer     ( Stanza, makePresenceStanza, JabberShow(..), stanzaType
@@ -256,14 +258,19 @@ deliverGUIMessage cw tty utmp msg = do
                 Nothing -> t
     putStrLn $ "deliverGUI: " ++ text
     handleIO_ (return False) $ do
-    uentry <- getUserEntryForName (Text.unpack $ utmpUser utmp)
-    let display = Text.unpack $ utmpHost utmp
-    pid <- forkProcess $ do
-        setUserID (userID uentry)
-        setEnv "DISPLAY" display True
-        -- rawSystem "/usr/bin/notify-send" [text]
-        executeFile "/usr/bin/notify-send" False [text] (Just [("DISPLAY",display)])
-        exitImmediately ExitSuccess
+    muentry <- fmap Just (getUserEntryForName (Text.unpack $ utmpUser utmp))
+                `catchIOError` \e -> do
+                    dput XJabber $ "deliverGUIMessage(getUserEntryForName "++show (utmpUser utmp)++"): "++show e
+                    return Nothing
+    forM_ muentry $ \uentry -> do
+        let display = Text.unpack $ utmpHost utmp
+        pid <- forkProcess $ do
+            setUserID (userID uentry)
+            setEnv "DISPLAY" display True
+            -- rawSystem "/usr/bin/notify-send" [text]
+            executeFile "/usr/bin/notify-send" False [text] (Just [("DISPLAY",display)])
+            exitImmediately ExitSuccess
+        return ()
     return True
 
 crlf :: Text -> Text