From 9571c4312d0f36cb13ca47c8ea5ac315cc1738ac 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. --- 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 2e8e0b6..d8e5040 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; } } -- 1.7.9.5