GrowlNotify-0.2: growlnotify.hs

import Network.GrowlNotify
import System (getArgs)

main = do
    args <- getArgs
    (server, password, title, message) <- case args of
        server:password:title:message -> return $ (server, password, title, message)
        _ -> error "Usage: server password title message"
    let b =  registrationPacket "growlnotify" ["Command-Line Growl Notification"]
    let m = addMD5Sum password b
    let b2 = notificationPacket "growlnotify" "Command-Line Growl Notification" title (unwords message)
    let m2 = addMD5Sum password b2
    sendMessage server m 
    sendMessage server m2