|
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 |
- |
|
|