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