# MailAnnounce v0.3 - (c) pasky 4.3.2001
# GPL'ed... Tested on z-net/TAIN, applied (will hopefully be) on IRCnet

bind join -|- * pub:chc_join
bind part -|- * pub:chc_part
bind sign -|- * pub:chc_sign
bind kick -|- * pub:chr_kick
bind nick -|- * pub:chr_nick

set chc_from "#pueblo"
set rcpt     "pasky@pasky.ji.cz"

proc pub:chc_join {nick uhost hand chan} {
  mailinfo $nick $uhost $chan "joined";
  return 0;
}

proc pub:chc_part {nick uhost hand chan reason} {
  mailinfo $nick $uhost $chan "parted ($reason)";
  return 0;
}

proc pub:chc_sign {nick uhost hand chan reason} {
  mailinfo $nick $uhost $chan "signed off ($reason)";
  return 0;
}

proc pub:chc_nick {nick uhost hand chan newnick} {
  mailinfo $nick $uhost $chan "changed nick to $newnick at";
  return 0;
}

proc pub:chc_kick {nick uhost hand chan target reason} {
  mailinfo $nick $uhost $chan "kicked off $target with $reason from";
  return 0;
}

proc mailinfo {nick uhost chan action} {
  global chc_from rcpt
  if {$chan == "$chc_from"} {
    set input [open "|[exec which mail] $rcpt" w]
    puts $input "$nick at $uhost $action $chan\n"
    catch {close $input}
    unset input
  }
  return 0
}

putlog "MailAnnounce v0.3 - primitive flooder from $chc_from 2 $rcpt by pasky loaded..."