module M_src where

import Mdl

src :: Mdl
src log = react f
  where
  f (Msg from _ _ "PRIVMSG" (to:"!src":_))
    = return ["PRIVMSG "++tgt from to++" :"++getsourcecmd]
  getsourcecmd = "darcs get http://khjk.org/~pesco/ircbot/"
  tgt from to = if isAlpha (head to) then from else to