151226SericPUSHDIVERT(-1)
251226Seric#
351226Seric# Copyright (c) 1983 Eric P. Allman
462501Sbostic# Copyright (c) 1988, 1993
562501Sbostic#	The Regents of the University of California.  All rights reserved.
651226Seric#
751226Seric# %sccs.include.redist.sh%
851226Seric#
958088Seric
1058088Sericifdef(`UUCP_MAILER_PATH',, `define(`UUCP_MAILER_PATH', /usr/bin/uux)')
1163755Sericifdef(`UUCP_MAILER_ARGS',, `define(`UUCP_MAILER_ARGS', `uux - -r -z -a$f -gC $h!rmail ($u)')')
1259765Sericifdef(`UUCP_MAILER_FLAGS',, `define(`UUCP_MAILER_FLAGS', `')')
1363790Sericifdef(`UUCP_MAX_SIZE',, `define(`UUCP_MAX_SIZE', 100000)')
1451226SericPOPDIVERT
1551226Seric#####################################
1651226Seric###   UUCP Mailer specification   ###
1751226Seric#####################################
1851226Seric
19*65217SericVERSIONID(`@(#)uucp.m4	8.11 (Berkeley) 12/27/93')
2051226Seric
2165083Seric#
2265083Seric#  There are innumerable variations on the UUCP mailer.  It really
2365083Seric#  is rather absurd.
2465083Seric#
2565083Seric
2665083Seric# old UUCP mailer (two names)
2763790SericMuucp,		P=UUCP_MAILER_PATH, F=CONCAT(DFMhuU, UUCP_MAILER_FLAGS), S=12, R=22, M=UUCP_MAX_SIZE,
2863755Seric		A=UUCP_MAILER_ARGS
2965083SericMuucp-old,	P=UUCP_MAILER_PATH, F=CONCAT(DFMhuU, UUCP_MAILER_FLAGS), S=12, R=22, M=UUCP_MAX_SIZE,
3065083Seric		A=UUCP_MAILER_ARGS
3151226Seric
3265083Seric# smart UUCP mailer (handles multiple addresses) (two names)
3363790SericMsuucp,		P=UUCP_MAILER_PATH, F=CONCAT(mDFMhuU, UUCP_MAILER_FLAGS), S=12, R=22, M=UUCP_MAX_SIZE,
3463755Seric		A=UUCP_MAILER_ARGS
3565083SericMuucp-new,	P=UUCP_MAILER_PATH, F=CONCAT(mDFMhuU, UUCP_MAILER_FLAGS), S=12, R=22, M=UUCP_MAX_SIZE,
3665083Seric		A=UUCP_MAILER_ARGS
3751226Seric
3863790Sericifdef(`_MAILER_smtp_',
3963790Seric`# domain-ized UUCP mailer
4064804SericMuucp-dom,	P=UUCP_MAILER_PATH, F=CONCAT(mDFMhu, UUCP_MAILER_FLAGS), S=52/31, R=ifdef(`_ALL_MASQUERADE_', `11/31', `21'), M=UUCP_MAX_SIZE,
4165083Seric		A=UUCP_MAILER_ARGS
4265083Seric
4365083Seric# domain-ized UUCP mailer with UUCP-style sender envelope
4465083SericMuucp-uudom,	P=UUCP_MAILER_PATH, F=CONCAT(mDFMhu, UUCP_MAILER_FLAGS), S=72/31, R=ifdef(`_ALL_MASQUERADE_', `11/31', `21'), M=UUCP_MAX_SIZE,
4563790Seric		A=UUCP_MAILER_ARGS')
4663790Seric
4763790Seric
4864804Seric#
4964804Seric#  envelope and header sender rewriting
5064804Seric#
5151226SericS12
5251226Seric
5358117Seric# handle error address as a special case
5458500SericR<@>				$n			errors to mailer-daemon
5558117Seric
5663759Seric# do not qualify list:; syntax
5758500SericR$* :; <@>			$@ $1 :;
5854018Seric
5958797SericR$* < @ $* . >			$1 < @ $2 >		strip trailing dots
6064973SericR$* < @ $=w >			$1			strip local name
6151245SericR$* < @ $- . UUCP >		$2 ! $1			convert to UUCP format
6251245SericR$* < @ $+ >			$2 ! $1			convert to UUCP format
63*65217SericR$&h ! $+ ! $+			$@ $1 ! $2		$h!...!user => ...!user
64*65217SericR$&h ! $+			$@ $&h ! $1		$h!user => $h!user
6563755SericR$+				$: $U ! $1		prepend our name
6665184SericR! $+				$: $k ! $1		in case $U undefined
6751259Seric
6864804Seric#
6964804Seric#  envelope and header recipient rewriting
7064804Seric#
7158023SericS22
7258023Seric
7358023Seric# don't touch list:; syntax
7464930SericR$* :; <@>			$@ $1 :;
7558023Seric
7658797SericR$* < @ $* . >			$1 < @ $2 >		strip trailing dots
7758758SericR$* < @ $j >			$1			strip local name
7858023SericR$* < @ $- . UUCP >		$2 ! $1			convert to UUCP format
7958023SericR$* < @ $+ >			$2 ! $1			convert to UUCP format
80*65217SericR$&h ! $+ ! $+			$@ $1 ! $2		$h!...!user => ...!user
81*65217SericR$&h ! $+			$@ $&h ! $1		$h!user => $h!user
82*65217SericR$+				$: $U ! $1		prepend our name
83*65217SericR! $+				$: $k ! $1		in case $U undefined
8458023Seric
8564804Seric
8665083Sericifdef(`_MAILER_smtp_',
8765083Seric`#
8864804Seric#  envelope sender rewriting for uucp-dom mailer
8964804Seric#
9064804SericS52
9164804Seric
9264804Seric# handle error address as a special case
9364804SericR<@>				$n			errors to mailer-daemon
9464804Seric
9564804Seric# pass everything to standard SMTP mailer rewriting
9664804SericR$*				$@ $>11 $1
9764804Seric
9865083Seric#
9965083Seric#  envelope sender rewriting for uucp-uudom mailer
10065083Seric#
10165083SericS72
10264804Seric
103*65217Seric# handle error address as a special case
104*65217SericR<@>				$n			errors to mailer-daemon
105*65217Seric
106*65217Seric# do not qualify list:; syntax
107*65217SericR$* :; <@>			$@ $1 :;
108*65217Seric
109*65217SericR$* < @ $* . >			$1 < @ $2 >		strip trailing dots
110*65217SericR$* < @ $=w >			$1			strip local name
111*65217SericR$* < @ $- . UUCP >		$2 ! $1			convert to UUCP format
112*65217SericR$* < @ $+ >			$@ $2 ! $1		convert to UUCP format
113*65217Seric
114*65217SericR$&h ! $+ ! $+			$@ $1 ! $2		$h!...!user => ...!user
115*65217SericR$&h ! $+			$@ $&h ! $1		$h!user => $h!user
11665184SericR$+				$: $M ! $1		prepend masquerade name
11765184SericR! $+				$: $j ! $1		in case $M undefined')
11865083Seric
11965083Seric
12051259SericPUSHDIVERT(4)
12151259Seric# resolve locally connected UUCP links
122*65217SericR$* < @ $=Z . UUCP. > $*	$#uucp-uudom $@ $1 $: $1 < @ $2 .UUCP. > $3	@host.UUCP: ...
12365083SericR< @ $=Y . UUCP. > : $+		$#uucp-new $@ $1 $: $2	@host.UUCP: ...
12465083SericR$+ < @ $=Y . UUCP. >		$#uucp-new $@ $2 $: $1	user@host.UUCP
12565083SericR< @ $=U . UUCP. > : $+		$#uucp-old $@ $1 $: $2	@host.UUCP: ...
12665083SericR$+ < @ $=U . UUCP. >		$#uucp-old $@ $2 $: $1	user@host.UUCP
12751259SericPOPDIVERT
128