1PUSHDIVERT(-1)
2#
3# Copyright (c) 1983 Eric P. Allman
4# Copyright (c) 1988 The Regents of the University of California.
5# All rights reserved.
6#
7# %sccs.include.redist.sh%
8#
9
10ifdef(`UUCP_MAILER_PATH',, `define(`UUCP_MAILER_PATH', /usr/bin/uux)')
11ifdef(`UUCP_MAILER_FLAGS',, `define(`UUCP_MAILER_FLAGS', `')')
12POPDIVERT
13#####################################
14###   UUCP Mailer specification   ###
15#####################################
16
17VERSIONID(`@(#)uucp.m4	6.12 (Berkeley) 05/06/93')
18
19Msuucp,		P=UUCP_MAILER_PATH, F=CONCAT(mDFMhuU, UUCP_MAILER_FLAGS), S=12, R=22, M=100000,
20		A=uux - -r -z -a$f -gC $h!rmail ($u)
21
22Muucp,		P=UUCP_MAILER_PATH, F=CONCAT(DFMhuU, UUCP_MAILER_FLAGS), S=12, R=22, M=100000,
23		A=uux - -r -z -a$f -gC $h!rmail ($u)
24
25# sender rewriting
26S12
27
28# handle error address as a special case
29R<@>				$n			errors to mailer-daemon
30
31# don't qualify list:; syntax
32R$* :; <@>			$@ $1 :;
33
34R$* < @ $* . >			$1 < @ $2 >		strip trailing dots
35R$* < @ $j >			$1			strip local name
36R$* < @ $- . UUCP >		$2 ! $1			convert to UUCP format
37R$* < @ $+ >			$2 ! $1			convert to UUCP format
38R$+				$: $k ! $1		prepend our name
39
40# recipient rewriting
41S22
42
43# don't touch list:; syntax
44R$* :; <@>			$@ $1 ;:
45
46R$* < @ $* . >			$1 < @ $2 >		strip trailing dots
47R$* < @ $j >			$1			strip local name
48R$* < @ $- . UUCP >		$2 ! $1			convert to UUCP format
49R$* < @ $+ >			$2 ! $1			convert to UUCP format
50
51PUSHDIVERT(4)
52# resolve locally connected UUCP links
53R< @ $=Y . UUCP > : $+		$#suucp $@ $1 $: $2	@host.UUCP: ...
54R< @ $=U . UUCP > : $+		$#uucp $@ $1 $: $2	@host.UUCP: ...
55R$+ < @ $=Y . UUCP >		$#suucp $@ $2 $: $1	user@host.UUCP
56R$+ < @ $=U . UUCP >		$#uucp $@ $2 $: $1	user@host.UUCP
57POPDIVERT
58