forum.lissyara.su

Код: Выделить всё

2007-02-06 23:14:01 1HEWhV-0002Qr-7c == cooluser@my.domen.ru R=adsi_check defer (-1): failed to expan
d "${lookup ldap {user="CN=ldap,OU=Users,DC=my,DC=domen,DC=ru" pass=xxxxxxxxx ldap:///"DC=my,DC=domen,DC=ru"?mail?sub?(&(|(objectClass=user)(objectClass=publicFolder)(objectClass=grou
p))(proxyAddresses=SMTP:${quote_ldap:${local_part}@${domain}}))}{${local_part}@${domain}}{:fail: Use
r unknown}}": lookup of "user="CN=ldap,OU=Users,DC=my,DC=domen,DC=ru" pass="ldap123" ldap:///"DC=my,DC=domen,DC=ru"?mail?sub?(&(|(objectClass=user)(objectClass=publicFolder)(objectCla
ss=group))(proxyAddresses=SMTP:cooluser%40my.domen.ru))" gave DEFER: failed to bind the LDAP connection to server 192.168.0.1 - LDAP error 49: Invalid credentials

Код: Выделить всё

ldapsearch -D ldap -w ldap123 -LLL "(&(|(objectClass=user)(objectClass=publicFolder)(objectClass=group))(proxyAddresses=SMTP:cooluser@my.domen.ru))"

Код: Выделить всё

#!/bin/sh 
 
CNAME='ldap сабака nb.local' 
FNAME='/usr/local/etc/exim/allusers.txt' 
 
cp ${FNAME} ${FNAME}.bak 
 
/usr/local/bin/ldapsearch -D ${CNAME} -w пароль -u "(&(objectClass=person)(!(userAccountControl:1.2.840.113556.1.4.803:=2)))" proxyAddresses | grep '[sS][mM][tT][pP]:' | cut -d: -f3 > ${FNAME} 
/usr/local/bin/ldapsearch -D ${CNAME} -w пароль -u "(objectclass=group)" proxyAddresses | grep '[sS][mM][tT][pP]:' | cut -d: -f3 >> ${FNAME} 
 
wc -l ${FNAME} 
 
diff ${FNAME}.bak ${FNAME} 

Код: Выделить всё

acl_check_rcpt: 
... 
  deny    message       = "In my mailserver not stored this user" 
          condition     = ${lookup{$local_part@$domain} \ 
                          lsearch{/usr/local/etc/exim/allusers.txt} \ 
                          {no}{yes}} 
          verify        = recipient 
          domains       = +local_domains 

Код: Выделить всё

#!/usr/bin/perl -w

use strict;
use Net::LDAP;
use Net::LDAP::Message;

my $ldap_server = 'dc.mydomain.local';
my $bind_dn = 'cn=mailauth,cn=Users,dc=mydomain,dc=local';
my $bind_passwd = 'mypasswd';

my $DEBUG = 1;

sub print_error
{
  my ($message) = @_;
  Exim::log_write('ERROR: ' . $message);
}

sub ldap_lookup
{
  my ($local_part, $domain) = @_;
  my $email = $local_part . '@' . $domain;
  my $ldap;
  my $mesg;
  my @entries;
  my @mail;

  $ldap = Net::LDAP->new($ldap_server);
  unless ($ldap)
  {
    print_error("Unable connect to ldap server $ldap_server");
    return ":defer:";
  }

  $mesg = $ldap->bind($bind_dn, password => $bind_passwd);
  unless ($mesg && $mesg->code == 0)
  {
    print_error("Unable bind \"$bind_dn\" to $ldap_server");
    return ":defer:";
  }

  $mesg = $ldap->search(scope => 'sub',
                      filter => '(&(objectClass=user)(proxyAddresses=smtp:' . $email . '))',
                      base => 'ou=regular_users,dc=mydomain,dc=local', 
                      attrs => ['cn','proxyAddresses'],
  );
  unless ($mesg && $mesg->code == 0)
  {
    print_error("Unable to search ldap");
    return ":defer:";
  }

  @entries = $mesg->entries;

  foreach my $entry (@entries)
  {
    @mail = $entry->get_value("proxyAddresses");
    if (@mail)
    {
      undef(@mail);
      return "1";
    }
  }
  return "";
}

Код: Выделить всё

perl_startup = do '/usr/local/etc/exim/exim.pl'

Код: Выделить всё

exchange:
  driver = manualroute
  domains = +local_domains
  condition = ${perl{ldap_lookup}{$local_part}{mydomain.ru}}
  route_list = * dc.mydomain.local byname
  transport = remote_smtp

Код: Выделить всё

ldap_default_servers = 192.168.1.1::3268
LDAP_AD_BINDDN = "cn=ldap,ou=Users,dc=my,dc=domen,dc=ru"
LDAP_AD_PASS = "ldap123"
LDAP_AD_BASE_DN = dc=my,dc=domen,dc=ru
LDAP_AD_MAIL_RCPT = \
user=LDAP_AD_BINDDN \
pass=LDAP_AD_PASS \
ldap:///LDAP_AD_BASE_DN?mail?sub?\
(&(|(objectClass=user)(objectClass=group))\
(proxyAddresses=SMTP:${quote_ldap:${local_part}@${domain}}))

Код: Выделить всё

tut_check:
driver = redirect
data = ${lookup ldap {LDAP_AD_MAIL_RCPT}\
  {${local_part}@${domain}}{:fail: User unknown}}
domains = +relay_to_domains
allow_fail
allow_defer
forbid_file
forbid_pipe
verify_recipient
redirect_router = tut_router

tut_router:
driver = manualroute
domains = +relay_to_domains
route_list = !+local_domains 192.168.1.1
transport = remote_smtp

Код: Выделить всё

LDAP_AD_BINDDN = "cn=ldap,ou=Users,dc=my,dc=domen,dc=ru"

Код: Выделить всё

LDAP_AD_BINDDN = ldap

Код: Выделить всё

# route to exchange server
exchange:
    driver = manualroute
    transport = remote_smtp
    domains = yourdomain.org
    condition = ${lookup{$local_part@$domain}lsearch{/etc/exim/virtual.txt}{yes}{no}}
 

Код: Выделить всё

#!/usr/bin/perl -w

# This script will pull all users' SMTP addresses from your Active Directory
# (including primary and secondary email addresses) and list them in the
# format "user@example.com".
# Be sure to double-check the path to perl above.

# This requires Net::LDAP to be installed.  To install Net::LDAP, at a shell
# type "perl -MCPAN -e shell" and then "install Net::LDAP"

use Net::LDAP;
use Net::LDAP::Control::Paged;
use Net::LDAP::Constant ( "LDAP_CONTROL_PAGED" );

# Enter the path/file for the output
$VALID = "/etc/exim/virtual.txt";
open VALID, ">$VALID" or die "CANNOT OPEN $VALID $!";

# Enter the FQDN of your Active Directory domain controllers below
$dc1="server1.w2k3-dom.local";
$dc2="server2.w2k3-dom.local";
$domain="yourdomain.org";

# Enter the LDAP container for your userbase.
# The syntax is CN=Users,dc=example,dc=com
# This can be found by installing the Windows 2000 Support Tools
# then running ADSI Edit.
# In ADSI Edit, expand the "Domain NC [domaincontroller1.example.com]" &
# you will see, for example, DC=example,DC=com (this is your base).
# The Users Container will be specified in the right pane as
# CN=Users depending on your schema (this is your container).
# You can double-check this by clicking "Properties" of your user
# folder in ADSI Edit and examining the "Path" value, such as:
# LDAP://domaincontroller1.example.com/CN=Users,DC=example,DC=com
# which would be $hqbase="cn=Users,dc=example,dc=com"
# Note:  You can also use just $hqbase="dc=example,dc=com"
$hqbase="dc=w2k3-dom,dc=local";

# Enter the username & password for a valid user in your Active Directory
# with username in the form cn=username,cn=Users,dc=example,dc=com
# Make sure the user's password does not expire.  Note that this user
# does not require any special privileges.
# You can double-check this by clicking "Properties" of your user in
# ADSI Edit and examining the "Path" value, such as:
# LDAP://domaincontroller1.example.com/CN=user,CN=Users,DC=example,DC=com
# which would be $user="cn=user,cn=Users,dc=example,dc=com"
# Note: You can also use the UPN login: "user\@example.com"
$user="cn=user,cn=Users,dc=w2k3-dom,dc=local";
$passwd="secret";

# Connecting to Active Directory domain controllers
$noldapserver=0;
$ldap = Net::LDAP->new($dc1) or
   $noldapserver=1;
if ($noldapserver == 1)  {
   $ldap = Net::LDAP->new($dc2) or
      die "Error connecting to specified domain controllers $@ \n";
}

$mesg = $ldap->bind ( dn => $user, password =>$passwd);
#$mesg = $ldap->bind ;


if ( $mesg->code()) {
    die ("error:", $mesg->error_text((),"\n"));
}

# How many LDAP query results to grab for each paged round
# Set to under 1000 for Active Directory
$page = Net::LDAP::Control::Paged->new( size => 100 );

@args = ( base     => $hqbase,
# Play around with this to grab objects such as Contacts, Public Folders, etc.
# A minimal filter for just users with email would be:
# filter => "(&(sAMAccountName=*)(mail=*))"
         filter => " (| (&(objectClass=user) (proxyAddresses=smtp*)(!(name=SystemMailbox*)))
                        (&(objectClass=group)(proxyAddresses=smtp*)(!(name=SystemMailbox*)))
                        ) ",
          control  => [ $page ],
          attrs  => "proxyAddresses",
);

my $cookie;
while(1) {
  # Perform search
  my $mesg = $ldap->search( @args );

# Filtering results for proxyAddresses attributes
  foreach my $entry ( $mesg->entries ) {
    my $name = $entry->get_value( "cn" );
    # LDAP Attributes are multi-valued, so we have to print each one.
    foreach my $mail ( $entry->get_value( "proxyAddresses" ) ) {
     if ( $mail =~ s/^(smtp|SMTP)://gs && $mail =~ /$domain/ ) {
       print VALID $mail."\n";
     }
    }
  }

  # Only continue on LDAP_SUCCESS
$mesg->code and last;
 # Get cookie from paged control
my($resp)  = $mesg->control( LDAP_CONTROL_PAGED ) or last;
  $cookie    = $resp->cookie or last;
# Set cookie in paged control
  $page->cookie($cookie);
 }

if ($cookie) {
# We had an abnormal exit, so let the server know we do not want any more
 $page->cookie($cookie);
 $page->size(0);
 $ldap->search( @args );
# Also would be a good idea to die unhappily and inform OP at this point
 die("LDAP query unsuccessful");
}


close VALID;

Код: Выделить всё

condition       = ${if !eq{${lookup ldap {LDAP_AD_MAIL_RCPT}}}{${local_part}@${domain}}{yes}{no}}

Код: Выделить всё

condition             = ${if eq{${lookup ldap {LDAP_AD_MAIL_RCPT}}}{}{yes}{no}}

Код: Выделить всё

14:41:49  1072 after ldap_url_parse: host=192.168.1.1 port=0
14:41:49  1072 ldap_initialize with URL ldap://192.168.1.1:389/
14:41:49  1072 initialized for LDAP (v3) server 192.168.1.1:389
14:41:49  1072 LDAP_OPT_X_TLS_TRY set
14:41:49  1072 binding with user=exim password=******
14:41:49  1072 Start search
14:41:49  1072 ldap_result loop
14:41:49  1072 LDAP entry loop
14:41:49  1072 LDAP attr loop mail:user@domain.com