From f7ffcbd666199a0f16f292c98fea7bf3b0e53d35 Mon Sep 17 00:00:00 2001
From: vfilippov <vfilippov@6955db30-a419-402b-8a0d-67ecbb4d7f56>
Date: Fri, 16 Mar 2012 15:13:57 +0000
Subject: [PATCH] Bug 95794 - Move CustIS-specific ldap-get-aliases.pl to tools
 repository

git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@1526 6955db30-a419-402b-8a0d-67ecbb4d7f56
---
 ldap-get-aliases.pl | 145 --------------------------------------------
 1 file changed, 145 deletions(-)
 delete mode 100755 ldap-get-aliases.pl

diff --git a/ldap-get-aliases.pl b/ldap-get-aliases.pl
deleted file mode 100755
index feb02cbe0..000000000
--- a/ldap-get-aliases.pl
+++ /dev/null
@@ -1,145 +0,0 @@
-#!/usr/bin/perl -w
-# FIXME very specific to CustIS usage. Must be moved away.
-
-# Email LDAP alias getter for email_in.pl mail handler
-# Config file /etc/ldap/bugzilla-getusers.conf must be in the form of:
-# {
-#   LDAPserver   => "office.custis.ru",
-#   LDAPport     => 636,
-#   LDAPbinddn   => "cn=ldapuser,ou=bots,ou=custis,dc=office,dc=custis,dc=ru",
-#   LDAPbindpass => "",
-#   LDAPBaseDN   => "dc=office,dc=custis,dc=ru",
-# }
-
-use Cwd qw(abs_path);
-use File::Basename qw(dirname);
-BEGIN {
-    my ($a) = abs_path($0) =~ /^(.*)$/iso;
-    chdir dirname($a);
-}
-
-use utf8;
-use strict;
-
-use POSIX;
-use Net::LDAPS;
-
-use Bugzilla;
-use Bugzilla::User;
-
-BEGIN { setlocale(LC_ALL, "ru_RU.UTF-8") };
-
-my $configfile = "/etc/ldap/bugzilla-get-aliases.conf";
-my $verbose = 0;
-
-while ($ARGV[0] && $ARGV[0] =~ /^-/so)
-{
-    my $key = shift @ARGV;
-    if ($key eq '-v' || $key eq '--verbose')
-    {
-        $verbose++;
-    }
-    elsif ($key eq '--help')
-    {
-        print <<EOF;
-Email LDAP alias getter for email_in.pl mail handler
-USAGE: $0 [--verbose] [config.file]
-config.file is $configfile by default.
-EOF
-        exit;
-    }
-}
-
-$configfile = $ARGV[0] || $configfile;
-my $config = require $configfile;
-
-my $users = get_domain_users();
-$users && @$users || exit;
-my $aliases = [];
-
-my $dbh = Bugzilla->dbh;
-my $sth = $dbh->prepare("INSERT INTO emailin_aliases SET address=?, userid=?, fromldap=1, isprimary=?");
-print "Clearing aliases having fromldap=1\n" if $verbose;
-$dbh->do("DELETE FROM emailin_aliases WHERE fromldap=1");
-my %a = ();
-my @bind = map { @{$_->{emails}} } @$users;
-my $sql = "SELECT login_name, userid FROM profiles WHERE disabledtext='' AND login_name IN (" . join(",", ("?") x scalar @bind) . ")";
-my %uids = map { @$_ } @{ $dbh->selectall_arrayref($sql, undef, @bind) };
-foreach my $user (@$users)
-{
-    my $uid = [ map { $uids{$_} } @{$user->{emails}} ];
-    my ($realid, $reallogin);
-    foreach my $i (0..$#$uid)
-    {
-        # user with minimal ID
-        if ($uid->[$i] && (!$realid || $realid > $uid->[$i]))
-        {
-            $realid = $uid->[$i];
-            $reallogin = $user->{emails}->[$i];
-        }
-    }
-    if ($realid)
-    {
-        # found user
-        my $i = 0;
-        for (@{$user->{emails}})
-        {
-            print "Adding alias $_ for user $realid ($reallogin)\n" if $verbose;
-            $sth->execute($_, $realid, !($i++)) unless $a{$_}++;
-        }
-    }
-}
-exit;
-
-sub get_domain_users
-{
-    my $LDAPconn = Net::LDAPS->new($config->{LDAPserver},
-        port    => $config->{LDAPport},
-        version => 3,
-        cafile  => '/usr/share/ssl/certs/office.pem',
-        capath  => '/usr/share/ssl/certs/'
-    );
-
-    my $mesg = $LDAPconn->bind($config->{LDAPbinddn}, password => $config->{LDAPbindpass});
-
-    $mesg = $LDAPconn->search(
-        base   => $config->{LDAPBaseDN},
-        filter => '(&(&(proxyaddresses=*)(!(msExchHideFromAddressLists=TRUE))(objectclass=user)))',
-        attrs  => '*',
-    );
-
-    my $user_entry;
-    my $name;
-    my $mail;
-    my @smtp;
-    my $users = [];
-    my $entries = $mesg->count;
-
-    for my $i (0..$entries-1)
-    {
-        $user_entry = $mesg->shift_entry;
-        $name = $user_entry->get_value('sAMAccountName');
-        $mail = $user_entry->get_value('mail');
-        @smtp = $user_entry->get_value('proxyAddresses');
-        if ($mail)
-        {
-            my $aliases = { lc $mail => 1 };
-            foreach my $y (@smtp)
-            {
-                if ($y =~ m/smtp/i)
-                {
-                    $y =~ s/^smtp://i;
-                    $aliases->{lc $y} = 1;
-                }
-            }
-            $mail =~ s/^.*\@/$name@/so;
-            delete $aliases->{lc $mail};
-            push @$users, {
-                name => lc $name,
-                emails => [ lc $mail, keys %$aliases ],
-            };
-        }
-    }
-
-    return $users;
-}