TPC M4 mailer fragment


Here's a TPC mailer fragment that you can put into sendmail's (8.6.1 or 
newer) setup, as cf/mailer/tpc.m4.  Originally contributed by 
jtk@kolvir.blrc.ma.us (John T Kohl):

DPN - commented and added '.' after T in rulesets for easier
interface with 8.7.x sendmail (Thu Mar  7 01:46:42 GMT 1996)
DPN - adapted for use with perl tpcmailer (Wed Dec  4 22:19:24 GMT 1996)

-----------------------------cut here--------------------
PUSHDIVERT(-1)
#       $Source: /home/tpcadmin/PERLDIST/rp/server/mta/tpc.m4.msg,v $
#       $Author: tpcadmin $
#       $Id: tpc.m4.msg,v 1.2 1996/12/04 22:25:24 tpcadmin Exp $
#

ifdef(`TPC_MAILER_PATH',, `define(`TPC_MAILER_PATH', /var/tpc/tpcmailer.pl)')
ifdef(`TPC_MAILER_FLAGS',, `define(`TPC_MAILER_FLAGS', `')')
ifdef(`TPC_MAILER_ARGS',, `define(`TPC_MAILER_ARGS', `tpcmailer.pl $u $f')')
ifdef(`TPC_MAILER_LIST',, `define(`TPC_MAILER_LIST', /var/tpc/tpcmailer.cT)')
POPDIVERT

VERSIONID(`$Id: tpc.m4.msg,v 1.2 1996/12/04 22:25:24 tpcadmin Exp $')

############################################################
############################################################
#####           The Phone Company (TPC.INT)
############################################################
############################################################

Mtpc,   P=TPC_MAILER_PATH, F=CONCAT(sDFMnC, TPC_MAILER_FLAGS),
        S=18, R=28, A=TPC_MAILER_ARGS

S18
#null

S28
#null

CONCAT(FT,TPC_MAILER_LIST)

LOCAL_RULE_0

## Remote Printing Rewrites
## Note that if you paste this in the whitespace should be tabs!!!
############################
R$*<@$+.$=T.>$*         $#tpc$@$2.$3$:$1<@$2.$3>$4      suffix matched
R$*<@$=T.>$*            $#tpc$@$2$:$1<@$2>$3            exact match

Mr. Arlington Hewes