xref: /freebsd/contrib/sendmail/cf/mailer/mail11.m4 (revision 39ee7a7a6bdd1557b1c3532abf60d139798ac88b)
1PUSHDIVERT(-1)
2#
3# Copyright (c) 1998-2001 Proofpoint, Inc. and its suppliers.
4#	All rights reserved.
5#
6# By using this file, you agree to the terms and conditions set
7# forth in the LICENSE file which can be found at the top level of
8# the sendmail distribution.
9#
10#
11# Not exciting enough to bother with copyrights and most of the
12# rulesets are based from those provided by DEC.
13# Barb Dijker, Labyrinth Computer Services, barb@labyrinth.com
14#
15# This mailer is only useful if you have DECNET and the
16# mail11 program - gatekeeper.dec.com:/pub/DEC/gwtools.
17#
18# For local delivery of DECNET style addresses to the local
19# DECNET node, you will need feature(use_cw_file) and put
20# your DECNET nodename in in the cw file.
21#
22ifdef(`MAIL11_MAILER_PATH',, `define(`MAIL11_MAILER_PATH', /usr/etc/mail11)')
23_DEFIFNOT(`MAIL11_MAILER_FLAGS', `nsFx')
24ifdef(`MAIL11_MAILER_ARGS',, `define(`MAIL11_MAILER_ARGS', mail11 $g $x $h $u)')
25define(`_USE_DECNET_SYNTAX_')
26define(`_LOCAL_', ifdef(`confLOCAL_MAILER', confLOCAL_MAILER, `local'))
27define(`_MAIL11_QGRP', `ifelse(defn(`MAIL11_MAILER_QGRP'),`',`', ` Q=MAIL11_MAILER_QGRP,')')dnl
28
29POPDIVERT
30
31PUSHDIVERT(3)
32# DECNET delivery
33R$* < @ $=w .DECNET. >		$#_LOCAL_ $: $1			local DECnet
34R$+ < @ $+ .DECNET. >		$#mail11 $@ $2 $: $1		DECnet user
35POPDIVERT
36
37PUSHDIVERT(6)
38CPDECNET
39POPDIVERT
40
41###########################################
42###   UTK-MAIL11 Mailer specification   ###
43###########################################
44
45VERSIONID(`$Id: mail11.m4,v 8.23 2013-11-22 20:51:14 ca Exp $')
46
47SMail11To
48R$+ < @ $- .UUCP >	$: $2 ! $1		back to old style
49R$+ < @ $- .DECNET >	$: $2 :: $1		convert to DECnet style
50R$+ < @ $- .LOCAL >	$: $2 :: $1		convert to DECnet style
51R$+ < @ $=w. >		$: $2 :: $1		convert to DECnet style
52R$=w :: $+		$2			strip local names
53R$+ :: $+		$@ $1 :: $2		already qualified
54
55SMail11From
56R$+			$: $>Mail11To $1	preprocess
57R$w :: $+		$@ $w :: $1		ready to go
58
59Mmail11, P=MAIL11_MAILER_PATH, F=_MODMF_(MAIL11_MAILER_FLAGS, `MAIL11'), S=Mail11From, R=Mail11To,
60	T=DNS/X-DECnet/X-Unix,_MAIL11_QGRP
61	A=MAIL11_MAILER_ARGS
62