home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March B / SCO_CASTOR4RRT.iso / base / root.15 / etc / mail / cf / mailer / mail11.m4 / mail11
Text File  |  1998-08-19  |  2KB  |  52 lines
  1. PUSHDIVERT(-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. #
  14. ifdef(`MAIL11_MAILER_PATH',, `define(`MAIL11_MAILER_PATH', /usr/etc/mail11)')
  15. ifdef(`MAIL11_MAILER_FLAGS',, `define(`MAIL11_MAILER_FLAGS', nsFx)')
  16. ifdef(`MAIL11_MAILER_ARGS',, `define(`MAIL11_MAILER_ARGS', mail11 $g $x $h $u)')
  17. define(`_USE_DECNET_SYNTAX_')
  18. define(`_LOCAL_', ifdef(`confLOCAL_MAILER', confLOCAL_MAILER, `local'))
  19.  
  20. POPDIVERT
  21.  
  22. PUSHDIVERT(3)
  23. # DECNET delivery
  24. R$* < @ $=w .DECNET. >        $#_LOCAL_ $: $1            local DECnet
  25. R$+ < @ $+ .DECNET. >        $#mail11 $@ $2 $: $1        DECnet user
  26. POPDIVERT
  27.  
  28. PUSHDIVERT(6)
  29. CPDECNET
  30. POPDIVERT
  31.  
  32. ###########################################
  33. ###   UTK-MAIL11 Mailer specification   ###
  34. ###########################################
  35.  
  36. VERSIONID(`@(#)mail11.m4    8.4 (Berkeley) 3/18/97')
  37.  
  38. Mmail11, P=MAIL11_MAILER_PATH, F=MAIL11_MAILER_FLAGS, S=15, R=25,
  39.     A=MAIL11_MAILER_ARGS
  40.  
  41. S15
  42. R$+            $: $>25 $1        preprocess
  43. R$w :: $+        $@ $w :: $1        ready to go
  44.  
  45. S25
  46. R$+ < @ $- .UUCP >    $: $2 ! $1        back to old style
  47. R$+ < @ $- .DECNET >    $: $2 :: $1        convert to DECnet style
  48. R$+ < @ $- .LOCAL >    $: $2 :: $1        convert to DECnet style
  49. R$+ < @ $=w. >        $: $2 :: $1        convert to DECnet style
  50. R$=w :: $+        $2            strip local names
  51. R$+ :: $+        $@ $1 :: $2        already qualified
  52.