[Mimedefang] OT: Validing email address in Exchange

[Graham Dunn]

On Mon, Nov 24, 2003 at 10:07:25AM -0500, Ray Parish wrote:
> Sorry for the OT:
> Figured some of you all are using mimedefang in front of your
> Exchange enviroment and perhaps have the same issue.
> 
> I would like to configure sendmail using LDAP to check the validity
> of an email before accepting the message.
> I know sendmail can make the LDAP calls, just a little stumped at
> the ldap search query that needs to be preformed.

----
#!/usr/bin/perl -w
··
use strict;
use Net::LDAP;
··
my $ldap=Net::LDAP->new('my.exchange.server') or die "$@";

$ldap->bind;

my $mesg=$ldap->search(base=>"o=My Organizational Name",
                       filter=> "(&(mail=*)(otherMailbox=smtp\$$ARGV[0]*))",
»·······»·······»·······attrs => ['otherMailbox']
                        );

$mesg->code && die $mesg->error;
                        
foreach my $entry ($mesg->all_entries) {
        $entry->dump;
}

$ldap->unbind;
----

Will get you something back like:

gdunn at shizuka ~ %./test-ldap2.pl grahamd at inscriber.com
~
------------------------------------------------------------------------
dn:cn=GrahamD,cn=Recipients,ou=DEV,o=My Organizational Name

otherMailbox: CCMAIL$Dunn, Graham at DEV
              MS$INSCRIBERT/DEV/GRAHAMD
              smtp$Graham at inscriber.com
              smtp$grahamd at imagenorth.com
              smtp$GrahamD at inscriber.com
              smtp$hup at inscriber.com
              smtp$mimedefang at inscriber.com
              smtp$mslicensing at inscriber.com
              smtp$nsi-admin at inscriber.com
              smtp$root at inscriber.com

I'm working on a more robust version of the script now.

Graham