1PUSHDIVERT(-1) 2# 3# Copyright (c) 1983 Eric P. Allman 4# Copyright (c) 1988, 1993 5# The Regents of the University of California. All rights reserved. 6# 7# %sccs.include.redist.sh% 8# 9ifdef(`SMTP_MAILER_FLAGS',, `define(`SMTP_MAILER_FLAGS', `')') 10ifdef(`SMTP_MAILER_ARGS',, `define(`SMTP_MAILER_ARGS', `IPC $h')') 11ifdef(`ESMTP_MAILER_ARGS',, `define(`ESMTP_MAILER_ARGS', `IPC $h')') 12ifdef(`SMTP8_MAILER_ARGS',, `define(`SMTP8_MAILER_ARGS', `IPC $h')') 13ifdef(`RELAY_MAILER_ARGS',, `define(`RELAY_MAILER_ARGS', `IPC $h')') 14POPDIVERT 15##################################### 16### SMTP Mailer specification ### 17##################################### 18 19VERSIONID(`@(#)smtp.m4 8.18 (Berkeley) 11/13/94') 20 21Msmtp, P=[IPC], F=CONCAT(mDFMuX, SMTP_MAILER_FLAGS), S=11/31, R=ifdef(`_ALL_MASQUERADE_', `11/31', `21'), E=\r\n, 22 L=990, ifdef(`SMTP_MAILER_MAX', `M=SMTP_MAILER_MAX, ')A=SMTP_MAILER_ARGS 23Mesmtp, P=[IPC], F=CONCAT(mDFMuXa, SMTP_MAILER_FLAGS), S=11/31, R=ifdef(`_ALL_MASQUERADE_', `11/31', `21'), E=\r\n, 24 L=990, ifdef(`SMTP_MAILER_MAX', `M=SMTP_MAILER_MAX, ')A=ESMTP_MAILER_ARGS 25Msmtp8, P=[IPC], F=CONCAT(mDFMuX8, SMTP_MAILER_FLAGS), S=11/31, R=ifdef(`_ALL_MASQUERADE_', `11/31', `21'), E=\r\n, 26 L=990, ifdef(`SMTP_MAILER_MAX', `M=SMTP_MAILER_MAX, ')A=SMTP8_MAILER_ARGS 27Mrelay, P=[IPC], F=CONCAT(mDFMuXa8, SMTP_MAILER_FLAGS), S=11/31, R=61, E=\r\n, 28 L=2040, A=RELAY_MAILER_ARGS 29 30# 31# envelope sender and masquerading recipient rewriting 32# 33S11 34R$+ $: $>51 $1 sender/recipient common 35R$* :; <@> $@ $1 :; list:; special case 36R$* $@ $>61 $1 qualify unqual'ed names 37 38 39# 40# header recipient rewriting if not masquerading recipients 41# 42S21 43 44# do sender/recipient common rewriting 45R$+ $: $>51 $1 46 47# unqualified names (e.g., "eric") are qualified by local host 48R$* < @ $* > $* $@ $1 < @ $2 > $3 already qualified 49R$+ $: $1 < @ $j > add local domain 50 51 52# 53# header sender and masquerading recipient rewriting 54# 55S31 56R$+ $: $>51 $1 sender/recipient common 57R$* :; <@> $@ $1 :; list:; special case 58 59# do special header rewriting 60R$* <@> $* $@ $1 <@> $2 pass null host through 61R< @ $* > $* $@ < @ $1 > $2 pass route-addr through 62R$=E < @ $=w . > $@ $1 < @ $2 > exposed user as is 63R$* < @ $=w . > $: $1 < @ $2 @ $M > masquerade as domain 64R$* < @ $+ @ > $@ $1 < @ $2 > in case $M undefined 65R$* < @ $+ @ $+ > $@ $1 < @ $3 > $M is defined -- use it 66R$* $@ $>61 $1 qualify unqual'ed names 67 68 69# 70# convert pseudo-domain addresses to real domain addresses 71# 72S51 73 74# pass <route-addr>s through 75R< @ $+ > $* $@ < @ $1 > $2 resolve <route-addr> 76 77# output fake domains as user%fake@relay 78ifdef(`BITNET_RELAY', 79`R$+ <@ $+ .BITNET. > $: $1 % $2 .BITNET < @ $B > user@host.BITNET 80R$+.BITNET <@ $+:$+ > $: $1 .BITNET < @ $3 > strip mailer: part', 81 `dnl') 82ifdef(`_NO_UUCP_', `dnl', ` 83# do UUCP heuristics; note that these are shared with UUCP mailers 84R$+ < @ $+ .UUCP. > $: < $2 ! > $1 convert to UUCP form 85R$+ < @ $* > $* $@ $1 < @ $2 > $3 not UUCP form 86 87# leave these in .UUCP form to avoid further tampering 88R< $&h ! > $- ! $+ $@ $2 < @ $1 .UUCP. > 89R< $&h ! > $-.$+ ! $+ $@ $3 < @ $1.$2 > 90R< $&h ! > $+ $@ $1 < @ $&h .UUCP. > 91R< $+ ! > $+ $: $1 ! $2 < @ $j > 92R$+ < @ $+ : $+ > $: $1 < @ $3 > strip mailer: part') 93 94 95# 96# common sender and masquerading recipient rewriting 97# 98S61 99 100R$* < @ $* > $* $@ $1 < @ $2 > $3 already qualified 101R$=E $@ $1 < @ $j> show exposed names 102R$+ $: $1 < @ $M > user w/o host 103R$+ <@> $: $1 < @ $j > in case $M undefined 104