# HG changeset patch
# User heiko
# Date 1211982692 0
# Node ID 5e1936eb198f8b3adb682dae83c046731cfe5190
# Parent  7446e196dc3180815a26b4323be08b0c91cb9fa9
- Fehler beim Suchen in unbekannten Bäumen führt erstmal nicht zum Abbruch sondern
  nur zu einer Warnung

diff -r 7446e196dc31 -r 5e1936eb198f update-mailboxes
--- a/update-mailboxes	Tue May 06 12:28:06 2008 +0000
+++ b/update-mailboxes	Wed May 28 13:51:32 2008 +0000
@@ -91,12 +91,15 @@
         my $ldap = new Net::LDAP( $LDAPSERVER, onerror => "die" );
         $ldap->bind( $LDAPADMIN, password => $LDAPPASS );
         foreach my $ou (@OU) {
-            my $msg = $ldap->search(
-                base   => "$ou,$LDAPBASE",
-                filter => "(&(samAccountName=*))",
-                attrs  => ["samAccountName"],
-            );
-            push @entries, $msg->entries;
+			eval {
+				my $msg = $ldap->search(
+					base   => "$ou,$LDAPBASE",
+					filter => "(&(samAccountName=*))",
+					attrs  => ["samAccountName"],
+				);
+				push @entries, $msg->entries;
+			};
+			warn "problem using $ou,$LDAPBASE: $@\n" if $@;
         }
 
     }