1PUSHDIVERT(-1) 2# 3# Not exciting enough to bother with copyrights and most of the 4# rulesets are based from those provided by DEC. 5# Barb Dijker, Labyrinth Computer Services, barb@labyrinth.com 6# 7# This mailer is only useful if you have DECNET and the 8# mail11 program - gatekeeper.dec.com:/pub/DEC/gwtools. 9# 10# For local delivery of DECNET style addresses to the local 11# DECNET node, you will need feature(use_cw_file) and put 12# your DECNET nodename in in the cw file. 13# 14ifdef(`MAIL11_MAILER_PATH',, `define(`MAIL11_MAILER_PATH', /usr/etc/mail11)') 15ifdef(`MAIL11_MAILER_FLAGS',, `define(`MAIL11_MAILER_FLAGS', nsFx)') 16ifdef(`MAIL11_MAILER_ARGS',, `define(`MAIL11_MAILER_ARGS', mail11 $g $x $h $u)') 17define(`_USE_DECNET_SYNTAX_') 18 19POPDIVERT 20 21PUSHDIVERT(3) 22# DECNET delivery 23R$* < @ $=w .DECNET. > $#local $: $1 local DECnet 24R$+ < @ $+ .DECNET. > $#mail11 $@ $2 $: $1 DECnet user 25POPDIVERT 26 27PUSHDIVERT(6) 28CPDECNET 29POPDIVERT 30 31########################################### 32### UTK-MAIL11 Mailer specification ### 33########################################### 34 35VERSIONID(`@(#)mail11.m4 8.1 (Berkeley) 05/23/95') 36 37Mmail11, P=MAIL11_MAILER_PATH, F=MAIL11_MAILER_FLAGS, S=15, R=25, 38 A=MAIL11_MAILER_ARGS 39 40S15 41R$+ $: $>25 $1 preprocess 42R$w :: $+ $@ $w :: $1 ready to go 43 44S25 45R$+ < @ $- .UUCP > $: $2 ! $1 back to old style 46R$+ < @ $- .DECNET > $: $2 :: $1 convert to DECnet style 47R$+ < @ $- .LOCAL > $: $2 :: $1 convert to DECnet style 48R$+ < @ $=w. > $: $2 :: $1 convert to DECnet style 49R$=w :: $+ $2 strip local names 50R$+ :: $+ $@ $1 :: $2 already qualified 51