From 90a0dcd223071ce2abd8292b4d40d35ca1eddcf7 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Mon, 10 Dec 2007 16:42:10 -0600
Subject: [PATCH] Auth.pm - 3 changes: $debug instead of warn, LDAP
 require/import, $timeout regexp (+ instead of *).

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Auth.pm | 53 +++++++++++++++++++++++++----------------------------
 1 file changed, 25 insertions(+), 28 deletions(-)
 mode change 100644 => 100755 C4/Auth.pm

diff --git a/C4/Auth.pm b/C4/Auth.pm
old mode 100644
new mode 100755
index cb7c338153..42574c8917
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -33,13 +33,20 @@ use C4::Koha;
 use C4::Branch; # GetBranches
 
 # use utf8;
-# use Net::LDAP;
-# use Net::LDAP qw(:all);
-
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
-# set the version for version checking
-$VERSION = 3.00;
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap);
+
+BEGIN {
+	$VERSION = 3.01;        # set version for version checking
+	$debug = $ENV{DEBUG} || 0 ;
+	@ISA   = qw(Exporter);
+	@EXPORT    = qw(&checkauth &get_template_and_user);
+	@EXPORT_OK = qw(&check_api_auth &get_session &check_cookie_auth &checkpw);
+	$ldap = C4::Context->config('useldapserver') || 0;
+	if ($ldap) {
+		require C4::Auth_with_ldap;             # no import
+		import  C4::Auth_with_ldap qw(checkpw_ldap);
+	}
+}
 
 =head1 NAME
 
@@ -80,19 +87,6 @@ C4::Auth - Authenticates Koha users
 
 =over 2
 
-=cut
-
-@ISA    = qw(Exporter);
-@EXPORT = qw(
-  &checkauth
-  &get_template_and_user
-);
-@EXPORT_OK = qw(
-  &check_api_auth
-  &get_session
-  &check_cookie_auth
-);
-
 =item get_template_and_user
 
 	my ($template, $borrowernumber, $cookie)
@@ -404,7 +398,7 @@ sub _version_check ($$) {
 	my $kohaversion=C4::Context::KOHAVERSION;
 	# remove the 3 last . to have a Perl number
 	$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/;
-	# warn "kohaversion : $kohaversion";
+	$debug and print STDERR "kohaversion : $kohaversion\n";
 	if ($version < $kohaversion){
 		my $warning = "Database update needed, redirecting to %s. Database is $version and Koha is "
 			. C4::Context->config("kohaversion");
@@ -438,7 +432,7 @@ sub checkauth {
     my $dbh     = C4::Context->dbh;
     my $timeout = C4::Context->preference('timeout');
 	# days
- 	if ($timeout =~ /(\d*)[dD]/) {
+ 	if ($timeout =~ /(\d+)[dD]/) {
 		$timeout = $1 * 86400;
     };
 	$timeout = 600 unless $timeout;
@@ -469,8 +463,7 @@ sub checkauth {
                 $session->param('branchname'),   $session->param('flags'),
                 $session->param('emailaddress'), $session->param('branchprinter')
             );
-#             warn       "".$session->param('cardnumber').",   ".$session->param('firstname').",
-#                 ".$session->param('surname').",      ".$session->param('branch');
+			$debug and printf STDERR "AUTH_SESSION: (%s)\t%s %s - %s\n", map {$session->param($_)} qw(cardnumber firstname surname branch) ;
         }
         my $ip;
         my $lasttime;
@@ -564,7 +557,7 @@ sub checkauth {
 					$branchcode, $branchname, $branchprinter, $emailaddress
 				) = $sth->fetchrow;
 
-#         warn "$cardnumber,$borrowernumber,$userid,$firstname,$surname,$userflags,$branchcode,$emailaddress";
+				$debug and print STDERR "AUTH_1: $cardnumber,$borrowernumber,$userid,$firstname,$surname,$userflags,$branchcode,$emailaddress\n";
                 unless ( $sth->rows ) {
                     my $sth = $dbh->prepare("$select where cardnumber=?");
 					$sth->execute($cardnumber);
@@ -573,7 +566,7 @@ sub checkauth {
 						$branchcode, $branchname, $branchprinter, $emailaddress
 					) = $sth->fetchrow;
 
-#           warn "$cardnumber,$borrowernumber,$userid,$firstname,$surname,$userflags,$branchcode,$emailaddress";
+					$debug and print STDERR "AUTH_2: $cardnumber,$borrowernumber,$userid,$firstname,$surname,$userflags,$branchcode,$emailaddress\n";
                     unless ( $sth->rows ) {
                         $sth->execute($userid);
 						($sth->rows) and (
@@ -616,8 +609,7 @@ sub checkauth {
                 $session->param('emailaddress',$emailaddress);
                 $session->param('ip',$session->remote_addr());
                 $session->param('lasttime',time());
-#            warn       "".$session->param('cardnumber').",   ".$session->param('firstname').",
-#                 ".$session->param('surname').",      ".$session->param('branch');
+				$debug and printf STDERR "AUTH_3: (%s)\t%s %s - %s\n", map {$session->param($_)} qw(cardnumber firstname surname branch) ;
             }
             elsif ( $return == 2 ) {
                 #We suppose the user is the superlibrarian
@@ -1102,6 +1094,11 @@ sub get_session {
 sub checkpw {
 
     my ( $dbh, $userid, $password ) = @_;
+	if ($ldap) {
+		$debug and print "## checkpw - checking LDAP\n";
+		my ($retval,$retcard) = checkpw_ldap(@_);    # EXTERNAL AUTH
+		($retval) and return ($retval,$retcard);
+	}
 
     # INTERNAL AUTH
     my $sth =
-- 
2.39.5