chiark / gitweb /
better stats for missing
[inn-innduct.git] / 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 }