don't dot terminate .BITNET. when sending to bitnet relay -- the
[unix-history] / usr / src / usr.sbin / sendmail / cf / mailer / smtp.m4
PUSHDIVERT(-1)
#
# Copyright (c) 1983 Eric P. Allman
# Copyright (c) 1988, 1993
# The Regents of the University of California. All rights reserved.
#
# %sccs.include.redist.sh%
#
ifdef(`SMTP_MAILER_FLAGS',,
`define(`SMTP_MAILER_FLAGS',
`ifdef(`_OLD_SENDMAIL_', `L', `')')')
POPDIVERT
#####################################
### SMTP Mailer specification ###
#####################################
VERSIONID(`@(#)smtp.m4 8.10 (Berkeley) %G%')
Msmtp, P=[IPC], F=CONCAT(mDFMuX, SMTP_MAILER_FLAGS), S=11/31, R=ifdef(`_ALL_MASQUERADE_', `11/31', `21'), E=\r\n,
ifdef(`_OLD_SENDMAIL_',, `L=990, ')A=IPC $h
Mesmtp, P=[IPC], F=CONCAT(mDFMuXa, SMTP_MAILER_FLAGS), S=11/31, R=ifdef(`_ALL_MASQUERADE_', `11/31', `21'), E=\r\n,
ifdef(`_OLD_SENDMAIL_',, `L=990, ')A=IPC $h
Mrelay, P=[IPC], F=CONCAT(mDFMuXa, SMTP_MAILER_FLAGS), S=11/31, R=0, E=\r\n,
ifdef(`_OLD_SENDMAIL_',, `L=2040, ')A=IPC $h
#
# envelope sender and masquerading recipient rewriting
#
S11
R$+ $: $>51 $1 sender/recipient common
R$* :; <@> $@ $1 :; list:; special case
# handle unqualified names
R$* < @ $* > $* $@ $1 < @ $2 > $3 already qualified
R$* $@ $>61 $1
#
# header recipient rewriting if not masquerading recipients
#
S21
# do sender/recipient common rewriting
R$+ $: $>51 $1
# unqualified names (e.g., "eric") are qualified by local host
R$* < @ $* > $* $@ $1 < @ $2 > $3 already qualified
R$+ $: $1 < @ $j > add local domain
#
# header sender and masquerading recipient rewriting
#
S31
R$+ $: $>51 $1 sender/recipient common
R$* :; <@> $@ $1 :; list:; special case
# do special header rewriting
R$* <@> $* $@ $1 <@> $2 pass null host through
R< @ $* > $* $@ < @ $1 > $2 pass route-addr through
R$=E < @ $=w . > $@ $1 < @ $2 > exposed user as is
R$* < @ $=w . > $: $1 < @ $M > masquerade as domain
R$* < @ > $: $1 < @ $j > in case $M undefined
# handle unqualified names
R$* < @ $* > $* $@ $1 < @ $2 > $3 already qualified
R$* $@ $>61 $1
#
# common rewriting for all SMTP addresses
#
S51
# pass <route-addr>s through
R< @ $+ > $* $@ < @ $1 > $2 resolve <route-addr>
# output fake domains as user%fake@relay
ifdef(`BITNET_RELAY',
`R$+ <@ $+ .BITNET. > $: $1 % $2 .BITNET < @ $B > user@host.BITNET
R$+.BITNET. <@ $+:$+ > $: $1 .BITNET < @ $3 > strip mailer: part',
`dnl')
ifdef(`CSNET_RELAY',
`R$+ <@ $+ .CSNET. > $: $1 % $2 .CSNET < @ $C > user@host.CSNET
R$+.CSNET. <@ $+:$+ > $: $1 .CSNET < @ $3 > strip mailer: part',
`dnl')
ifdef(`_NO_UUCP_', `dnl',
`R$+ <@ $+ .UUCP. > $: $2 ! $1 < @ $j > user@host.UUCP')
#
# common sender and masquerading recipient rewriting
#
S61
R$=E $@ $1 < @ $j> show exposed names
R$+ $: $1 < @ $M > user w/o host
R$+ <@> $: $1 < @ $j > in case $M undefined