From 56ccd58774980ac41436242ac1a5ed223f8868aa Mon Sep 17 00:00:00 2001
From: "eseyman%linagora.com" <>
Date: Fri, 27 Jun 2008 21:45:59 +0000
Subject: Bug 441503: Need update on contrib/syncLDAP.pl Patch by A.A. Shimono
 <shimono@mozilla.gr.jp> r=manu a=LpSolit

---
 contrib/syncLDAP.pl | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'contrib')

diff --git a/contrib/syncLDAP.pl b/contrib/syncLDAP.pl
index dc0708f60..51ee5c1fa 100755
--- a/contrib/syncLDAP.pl
+++ b/contrib/syncLDAP.pl
@@ -96,12 +96,19 @@ if ($LDAPserver eq "") {
    print "No LDAP server defined in bugzilla preferences.\n";
    exit;
 }
-my $LDAPport = "389";  # default LDAP port
-if($LDAPserver =~ /:/) {
-    ($LDAPserver, $LDAPport) = split(":",$LDAPserver);
+
+my $LDAPconn;
+if($LDAPserver =~ /\:\/\//) {
+    # if the "LDAPserver" parameter is in uri scheme
+    $LDAPconn = Net::LDAP->new($LDAPserver, version => 3);
+} else {
+    my $LDAPport = "389";  # default LDAP port
+    if($LDAPserver =~ /:/) {
+        ($LDAPserver, $LDAPport) = split(":",$LDAPserver);
+    }
+    $LDAPconn = Net::LDAP->new($LDAPserver, port => $LDAPport, version => 3);
 }
 
-my $LDAPconn = Net::LDAP->new($LDAPserver, port => $LDAPport, version => 3);
 if(!$LDAPconn) {
    print "Connecting to LDAP server failed. Check LDAPserver setting.\n";
    exit;
-- 
cgit v1.2.3-24-g4f1b