File: filter.tcl

package info (click to toggle)
inn2 2.2.2.2000.01.31-5
  • links: PTS
  • area: main
  • in suites: potato
  • size: 5,424 kB
  • ctags: 5,722
  • sloc: ansic: 61,219; perl: 9,939; sh: 5,644; makefile: 1,695; awk: 1,567; yacc: 1,548; lex: 249; tcl: 3
file content (19 lines) | stat: -rw-r--r-- 485 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
# -*- tcl -*-
#
# $Revision: 1.1.1.1 $
#
# A TCL procedure that will be run over every article. See README.tcl_hook
# 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"
}