Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

MT3186: Remove warnings from Auth_with_cas

Browse source 
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
Matthias Meusburger 2010-04-07 15:01:19 +02:00 committed by Galen Charlton
parent 3f879e9bb5
commit ee06b581ce
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
C4/Auth_with_cas.pm
View file

@ -18,6 +18,7 @@ package C4::Auth_with_cas;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
use C4::Debug;
use C4::Context;
@ -44,20 +45,20 @@ my $casserver = C4::Context->preference('casServerUrl');
sub logout_cas {
my ($query) = @_;
my $cas = Authen::CAS::Client->new($casserver);
print $query->redirect($cas->logout_url(url => %ENV->{'SCRIPT_URI'}));
print $query->redirect($cas->logout_url(url => $ENV{'SCRIPT_URI'}));
}
# Login to CAS
sub login_cas {
my ($query) = @_;
my $cas = Authen::CAS::Client->new($casserver);
print $query->redirect($cas->login_url(%ENV->{'SCRIPT_URI'}));
print $query->redirect($cas->login_url($ENV{'SCRIPT_URI'}));
}
# Returns CAS login URL with callback to the requesting URL
sub login_cas_url {
my $cas = Authen::CAS::Client->new($casserver);
return $cas->login_url(%ENV->{'SCRIPT_URI'});
return $cas->login_url($ENV{'SCRIPT_URI'});
}
# Checks for password correctness
@ -73,7 +74,7 @@ sub checkpw_cas {
$debug and warn "Got ticket : $ticket";
# We try to validate it
my $val = $cas->service_validate(%ENV->{'SCRIPT_URI'}, $ticket);
my $val = $cas->service_validate($ENV{'SCRIPT_URI'}, $ticket);
# If it's valid
if( $val->is_success() ) {
@ -88,7 +89,7 @@ sub checkpw_cas {
$retnumber = $sth->fetchrow;
return (1, $retnumber, $userid);
}
my $sth = $dbh->prepare("select userid from borrowers where cardnumber=?");
$sth = $dbh->prepare("select userid from borrowers where cardnumber=?");
$sth->execute($userid);
if ( $sth->rows ) {
$retnumber = $sth->fetchrow;