[prev in list] [next in list] [prev in thread] [next in thread] 

List:       majordomo-workers
Subject:    Getting x.400 addresses to work with Majordomo
From:       "Earle F. Ake Mr" <akee () wpdis03 ! wpafb ! af ! mil>
Date:       1996-10-23 18:31:26
[Download RAW message or body]

	I almost had x.400 addresses working correctly with majordomo but did
not have time to fix it.  After 1.94 was released, I finally realized what I
did wrong.  If anyone wants x.400 addresses to work properly, change the
$no_x400at to $main'no_x400at and $no_true_x400 to $main'no_true_x400 in
majordomo.pl.  I forgot that those variables were define in the main and
not in majordomo.pl itself.  Not worth a new release but worth noting.  When
2.0 comes out using perl5, this of course goes away.


-Earle
-- 
Earle Ake                   MSG/ENI                  akee@wpdis03.wpafb.af.mil
Hassler Communication Systems Technology, Inc.       ake@hcst.com
HCST: 2332 Grange Hall Road; Beavercreek, OH 45431-2345  Phone: 937-427-9000
Base: 4375 Chidlaw Rd. Suite 6; WPAFB, OH 45433-5006 937-257-7492 DSN:787-7492


*** majordomo.pl~	Wed Oct 23 08:42:39 1996
--- majordomo.pl	Wed Oct 23 14:13:57 1996
***************
*** 519,531 ****
         # file we make sure that the last component of the address has an
         # @ sign on it for an X.400->smtp gateway translation.
  
!         if (!$no_x400at) {
  	    &main'abort("HOSTILE ADDRESS (no x400 \@) $addr") if (
                      "$components[$#components]" !~ /\@/);  #'
  	}
  
          # check to see that the c= and a[dm]= parts exist
! 	if (!$no_true_x400) {
              &main'abort("HOSTILE ADDRESS (no x400 c=) $addr")
                      if ($_ !~ m#/c=#); #'
              &main'abort("HOSTILE ADDRESS (no x400 a[dm]=) $addr")
--- 519,531 ----
         # file we make sure that the last component of the address has an
         # @ sign on it for an X.400->smtp gateway translation.
  
!         if (!$main'no_x400at) {
  	    &main'abort("HOSTILE ADDRESS (no x400 \@) $addr") if (
                      "$components[$#components]" !~ /\@/);  #'
  	}
  
          # check to see that the c= and a[dm]= parts exist
! 	if (!$main'no_true_x400) {
              &main'abort("HOSTILE ADDRESS (no x400 c=) $addr")
                      if ($_ !~ m#/c=#); #'
              &main'abort("HOSTILE ADDRESS (no x400 a[dm]=) $addr")

[prev in list] [next in list] [prev in thread] [next in thread]