module Echo2 ( add
             )
    where

import XMPP

add = addPlugin $ Plugin (isChat `conj` hasBody) "Echo" echo

-- A real dumb thread that echos the message
echo msg = let sender = maybe "" id (getAttr "from" msg)
               text = maybe "" id (getMessageBody msg)
           in
             sendMessage sender $ "Echo 2!! " ++ text