File: filter.tcl

package info (click to toggle)
inn2 2.4.5-5
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 8,912 kB
  • ctags: 7,860
  • sloc: ansic: 85,104; perl: 11,427; sh: 9,863; makefile: 2,498; yacc: 1,563; python: 298; lex: 252; tcl: 7
file content (19 lines) | stat: -rw-r--r-- 479 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
# -*- tcl -*-
#
# $Revision: 4171 $
#
# A TCL procedure that will be run over every article. See doc/hook-tcl
# for more details.

proc filter_news {} {
#  global o Headers
#  set sum [checksum_article]
#  puts $o "$Headers(Message-ID) $sum"
#  set newsgroups [split $Headers(Newsgroups) ,]
#  foreach i $newsgroups {
#    if {$i=="alt.test" && [string match "*heiney@pa.dec.com*" $Headers(From)]} {
#      return "dont like alt.test from heiney"
#    }
#  }
  return "accept"
}