samples/filter.tcl

   1 # -*- tcl -*-
   2 #
   3 # $Revision: 4171 $
   4 #
   5 # A TCL procedure that will be run over every article. See doc/hook-tcl
   6 # for more details.
   7
   8 proc filter_news {} {
   9 #  global o Headers
  10 #  set sum [checksum_article]
  11 #  puts $o "$Headers(Message-ID) $sum"
  12 #  set newsgroups [split $Headers(Newsgroups) ,]
  13 #  foreach i $newsgroups {
  14 #    if {$i=="alt.test" && [string match "*heiney@pa.dec.com*" $Headers(From)]} {
  15 #      return "dont like alt.test from heiney"
  16 #    }
  17 #  }
  18   return "accept"
  19 }