--- a/update-mailboxes	Fri Feb 01 10:09:50 2008 +0000
+++ b/update-mailboxes	Mon Feb 04 15:55:38 2008 +0000
@@ -16,6 +16,7 @@
 my $PRIVATE  = "$ENV{HOME}/private/accounts";
 my $LDAPCONF = "/etc/ldap/ldap.conf";
 my $SERVER   = "localhost";
+my $BLACKLIST = "/etc/mail/update-mailboxes.blacklist";
 
 my $opt_delete  = 0;
 my $opt_help    = 0;
@@ -50,6 +51,16 @@
     $LDAPBASE = "ou=proconcept,$LDAPBASE";
 }
 
+my %BLACK;
+if (open(my $in, $BLACKLIST)) {
+	while (<$in>) { chomp;
+		s/#.*//;
+		s/^\s*(.*)\s*$/$1/;
+		next if not $_;
+		$BLACK{$_} = 1;
+	}
+}
+
 MAIN: {
     Getopt::Long::Configure("bundling");
     GetOptions(
@@ -86,7 +97,14 @@
 
     while (my $e = $msg->pop_entry) {
 
-        my $folder = "user/" . $e->get_value("samAccountName");
+    	my $mbox = $e->get_value("samAccountName");
+	
+	if ($BLACK{$mbox}) {
+		warn "$mbox blacklisted\n";
+		next;
+	}
+
+        my $folder = "user/$mbox";
         delete $folder{$folder};
 
         print "$folder: ";