From 3bce39d94939aaf999189e4aaed805858a996153 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Thu, 9 Jun 2011 13:02:06 +0000
Subject: [PATCH] Change import of Net::LDAP to work on squeeze

---
 Util.pm          | 2 +-
 debian/changelog | 6 ++++++
 login.cgi        | 2 +-
 logout.cgi       | 2 +-
 machines.cgi     | 2 +-
 search.cgi       | 2 +-
 update.cgi       | 2 +-
 7 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/Util.pm b/Util.pm
index 374a592..b48f6dc 100644
--- a/Util.pm
+++ b/Util.pm
@@ -7,7 +7,7 @@ package Util;
 
 use strict;
 use Date::Manip qw(ParseDate);
-use Net::LDAP qw(:all);
+use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR);
 use English;
 
 my $blocksize = 8; # A blowfish block is 8 bytes
diff --git a/debian/changelog b/debian/changelog
index 9c0cdb1..044df9e 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+userdir-ldap-cgi (0.3.3x) xnstable; urgency=low
+
+  * Change import of Net::LDAP to work on squeeze.
+
+ -- Peter Palfrader <weasel@debian.org>  Thu, 09 Jun 2011 13:01:41 +0000
+
 userdir-ldap-cgi (0.3.32) unstable; urgency=low
 
   [ Luca Filipozzi ]
diff --git a/login.cgi b/login.cgi
index cfe7380..d820af2 100755
--- a/login.cgi
+++ b/login.cgi
@@ -11,7 +11,7 @@ use CGI;
 use Util;
 use URI::Escape;
 use Crypt::Blowfish;
-use Net::LDAP qw(:all);
+use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR);
 
 my %config = &Util::ReadConfigFile;
 
diff --git a/logout.cgi b/logout.cgi
index 9bd6e0f..585fd69 100755
--- a/logout.cgi
+++ b/logout.cgi
@@ -8,7 +8,7 @@ use strict vars;
 #use Apache::Registry;
 use CGI;
 use Util;
-use Net::LDAP qw(:all);
+use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR);
 
 my %config = &Util::ReadConfigFile;
 my $proto = ($ENV{HTTPS} ? "https" : "http");
diff --git a/machines.cgi b/machines.cgi
index 4108fff..55fe5bc 100755
--- a/machines.cgi
+++ b/machines.cgi
@@ -11,7 +11,7 @@ use strict vars;
 #use Apache::Registry;
 use CGI;
 use Util;
-use Net::LDAP qw(:all);
+use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR);
 use Fcntl;
 use POSIX;
 use MIME::Base64;
diff --git a/search.cgi b/search.cgi
index dcab35b..16d00b0 100755
--- a/search.cgi
+++ b/search.cgi
@@ -11,7 +11,7 @@ use strict vars;
 use CGI;
 use Util;
 use URI::Escape;
-use Net::LDAP qw(:all);
+use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR);
 
 # Global settings...
 my %config = &Util::ReadConfigFile;
diff --git a/update.cgi b/update.cgi
index 052238f..c42eddc 100755
--- a/update.cgi
+++ b/update.cgi
@@ -13,7 +13,7 @@ use Digest::HMAC_SHA1 qw(hmac_sha1_hex);
 use Util;
 use English;
 use URI::Escape;
-use Net::LDAP qw(:all);
+use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR);
 
 my %config = &Util::ReadConfigFile;
 
-- 
2.20.1