# HG changeset patch
# User schlorke
# Date 1216298401 0
# Node ID 61ae561639a96f4c45abe9a1cbce2eb98c7a25fb
# Parent  5e1936eb198f8b3adb682dae83c046731cfe5190
neuer Zweig für dtele

diff -r 5e1936eb198f -r 61ae561639a9 update-mailboxes
--- a/update-mailboxes	Wed May 28 13:51:32 2008 +0000
+++ b/update-mailboxes	Thu Jul 17 12:40:01 2008 +0000
@@ -18,6 +18,8 @@
 my $SERVER    = "localhost";
 my $BLACKLIST = "/etc/mail/update-mailboxes.blacklist";
 my $OULIST    = "/etc/mail/update-mailboxes.oulist";
+my $FILTER	  = "(&(objectClass=sambaSamAccount))";
+my $ATTR	  = ["uid"];
 
 my $opt_delete   = 0;
 my $opt_protocol = undef;
@@ -36,7 +38,8 @@
     open( my $in, $LDAPCONF );
     $_ = join "", <$in>;
     ($LDAPBASE)   = /^\s*BASE\s+(.*?)\s*$/ms;
-    ($LDAPSERVER) = /^\s*URI\s+(.*?)\s*$/ms;
+#    ($LDAPSERVER) = /^\s*URI\s+(.*?)\s*$/ms;
+    ($LDAPSERVER) = "ldap://172.20.20.2/";
 }
 
 my @OU;
@@ -94,8 +97,8 @@
 			eval {
 				my $msg = $ldap->search(
 					base   => "$ou,$LDAPBASE",
-					filter => "(&(samAccountName=*))",
-					attrs  => ["samAccountName"],
+					filter => $FILTER,
+					attrs  => $ATTR,
 				);
 				push @entries, $msg->entries;
 			};
@@ -108,7 +111,7 @@
     my %mbox;
     foreach my $e (@entries) {
 
-        my $mbox = $e->get_value("samAccountName");
+        my $mbox = $e->get_value("uid")."\@dtele.de";
 
         if ( $BLACK{$mbox} ) {
             print "$mbox blacklisted\n";