Lines 145-151
sub checkpw_cas {
Link Here
|
145 |
$debug and warn "User $userid is not a valid Koha user"; |
145 |
$debug and warn "User $userid is not a valid Koha user"; |
146 |
|
146 |
|
147 |
} else { |
147 |
} else { |
148 |
$debug and warn "Invalid session ticket : $ticket"; |
148 |
$debug and warn "Problem when validating ticket : $ticket"; |
|
|
149 |
$debug and warn "Authen::CAS::Client::Response::Error: " . $val->error() if $val->is_error(); |
150 |
$debug and warn "Authen::CAS::Client::Response::Failure: " . $val->message() if $val->is_failure(); |
151 |
$debug and warn Data::Dumper::Dumper($@) if $val->is_error() or $val->is_failure(); |
149 |
return 0; |
152 |
return 0; |
150 |
} |
153 |
} |
151 |
} |
154 |
} |
152 |
- |
|
|