From: UUCP%"gjc@mitech.com" 1-AUG-1989 13:15:15.78 To: VMSNET@DRYCAS.CLUB.CC.CMU.EDU CC: Subj: Received: from crash by simpact.UUCP (DECUS UUCP w/Smail); Tue, 1 Aug 89 13:15:13 PDT Received: by crash.cts.com (smail2.5) id AA05250; 1 Aug 89 13:12:16 PDT (Tue) Received: from DRYCAS.CLUB.CC.CMU.EDU by trout.nosc.mil (5.59/1.27) id AA28081; Tue, 1 Aug 89 11:18:47 PDT Received: from bu-it.BU.EDU by DRYCAS.CLUB.CC.CMU.EDU; Tue, 1 Aug 89 14:00 EDT Received: from BUITA.BU.EDU by bu-it.BU.EDU (5.58/4.7) id AA25855; Tue, 1 Aug 89 14:00:34 EDT Received: by buita.bu.edu (3.2/4.7) id AA23711; Tue, 1 Aug 89 14:00:40 EDT Received: by mitech.com (DECUS UUCP w/Smail); Tue, 1 Aug 89 14:00:27 EDT Date: Tue, 1 Aug 89 14:00:27 EDT From: gjc@mitech.com To: VMSNET@DRYCAS.CLUB.CC.CMU.EDU Message-Id: <8908011800.AA23711@buita.bu.edu> X-Vms-Mail-To: UUCP%"VMSNET@DRYCAS.CLUB.CC.CMU.EDU" Some suggestions for UUXQT_DCL.COM, The processing in DCL to recognize the address "postmaster" happens before any mail rewrite rules. In my case I am getting addresses of the form "mitech!postmaster" through my forwarder, so I needed to change the explicit translating code after the "DO_RMAIL". I also added a few more aliases for UUCP_POSTMASTER, which are sometimes used by people and programs. $! $! This is a rewrite of the code in UUXQT_DCL.COM after "DO_RMAIL:" $! $! NOTE: (GJC 2-AUG-89) It seems it would be better to $! use the VMS SET MAIL/FORWARD mechanism instead of $! this explicit translation here, because we are $! manipulating addresses here before the [INBOUND-TO] $! translations in MAIL_REWRITE.RULES have been run. $! For now I wont bother with doing it correctly, and $! just add a DCL version of a needed rewrite rule, $! since my forwarder is sticking me with addresses of $! the form "myhost!...". $! $ addr = addressee $ xaddr = f$edit(addressee,"UPCASE") $ xt = F$EDIT(F$TRN("UUCP_HOST_NAME"),"UPCASE") + "!" $ nt = f$length(xt) $ xn = f$length(xaddr) $ kn = f$locate(xt,xaddr) $ if kn .ne. xn then xaddr = f$extract(kn+nt,xn-kn-nt,xaddr) $ J = 0 $! $ EL = "POSTMASTER,POSTMAST,USENET,ROOT,MAILER-DAEMON,UUCP" $! $XT_LOOP: $ E = F$ELEMENT(J,",",EL) $ IF E .EQS. "," THEN GOTO XT_DONE $ IF E .EQS. XADDR THEN addr = "UUCP_POSTMASTER" $ J = J + 1 $ GOTO XT_LOOP $XT_DONE: