sb-pt-chain_letters.rc

这是一个从音频信号里提取特征参量的程序

# Chain letters
#
:0
* LEANTAG ?? no
{
 :0 B
 * !^-----BEGIN PGP SIGNED MESSAGE-----
 * -1000^0
 *   500^1    (^|[^0-9a-z])^[ ]?\$.*(days|weeks|months)([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])160 times.*money.*least([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])AS SEEN ON NATIONAL TV([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])BECAUSE THIS THING WORKS LIKE CRAZY!!([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])brown paper bag.*suspiciously buried([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])decision.*changed my life([^0-9a-z]|$)
 *   800^1    (^|[^0-9a-z])delete.*figured.*junk.*e.?mail([^0-9a-z]|$)
 *   300^1    (^|[^0-9a-z])entire show([^0-9a-z]|$)
 *   300^1    (^|[^0-9a-z])Five-dollar bills, twenties, fifties and hundreds([^0-9a-z]|$)
 *   800^1    (^|[^0-9a-z])Future Millionaires?([^0-9a-z]|$)
 *   800^1    (^|[^0-9a-z])growing popularity.*system.*internet([^0-9a-z]|$)
 *   800^1    (^|[^0-9a-z])Hey - have you seen this letter before\?([^0-9a-z]|$)
 *   800^1    (^|[^0-9a-z])legal.*money.*making.*(opportunity|phenomenon)([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])letter you have been hearing about([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])major nightly news([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])Method #2[0-9]:([^0-9a-z]|$)
 *    25^1.5  (^|[^0-9a-z])millionaires?([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])national weekly news([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])need.*(4|four|5|five).*reports([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])nightly news program([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])not a chain-letter([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])order.*(4|four|5|five).*reports([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])PARENTS.*FIND.*CASH HIDDEN([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])postal.*lottery.*laws([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])prohibiting.*participation.*program([^0-9a-z]|$)
 *   300^1    (^|[^0-9a-z])READ THIS MESSAGE.*want more([^0-9a-z]|$)
 *   300^1    (^|[^0-9a-z])read it.*read it again([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])report[ ]?\#([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])so-called .chain-letter([^0-9a-z]|$)
 *   300^1    (^|[^0-9a-z])testimonials?([^0-9a-z]|$)
 *   300^1    (^|[^0-9a-z])This really works.*same mistake([^0-9a-z]|$)
 *   800^1    (^|[^0-9a-z])title 18.*section (1302|1342|3005)([^0-9a-z]|$)
 *   500^1    (^|[^0-9a-z])wish.*taken.*chances([^0-9a-z]|$)
 *   800^1    (^|[^0-9a-z])Johnathan Rourke([^0-9a-z]|$)
 *   800^1    (^|[^0-9a-z])Jill Goodson([^0-9a-z]|$)
 {
  PATSCORE=$=

  :0 f
  | ${FORMAIL} -A"X-SBRule: Pattern Match (Chain Letter) (Score: ${PATSCORE})"

  :0
  { BLOCKTAG=yes }

  :0
  * PATTERNMATCHING ?? NOTIFY
  { BLOCKTHIS=yes }
 }
}