From 07e30a78d306fbd395dbe510fb867ba31540388b Mon Sep 17 00:00:00 2001 From: Matthias Meusburger Date: Thu, 21 Jun 2012 10:39:16 +0200 Subject: [PATCH] Bug 8279: CAS Debugging improvements Adds more precise debug informations for easier CAS troubleshootings resolution. Before this patch, whenever ticket validation failed, the debug message was "Invalid ticket". But ticket validation may fail for other reasons: CAS server not reachable, casServerUrl syspref is wrong... This patch adds the reason for ticket validation failing. Signed-off-by: Chris Cormack Signed-off-by: Paul Poulain --- C4/Auth_with_cas.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/C4/Auth_with_cas.pm b/C4/Auth_with_cas.pm index 2e8e0b64cf..d8e504020e 100644 --- a/C4/Auth_with_cas.pm +++ b/C4/Auth_with_cas.pm @@ -145,7 +145,10 @@ sub checkpw_cas { $debug and warn "User $userid is not a valid Koha user"; } else { - $debug and warn "Invalid session ticket : $ticket"; + $debug and warn "Problem when validating ticket : $ticket"; + $debug and warn "Authen::CAS::Client::Response::Error: " . $val->error() if $val->is_error(); + $debug and warn "Authen::CAS::Client::Response::Failure: " . $val->message() if $val->is_failure(); + $debug and warn Data::Dumper::Dumper($@) if $val->is_error() or $val->is_failure(); return 0; } } -- 2.39.5