From d7fbb8c7c1ecabb51da6ea6ea492b05725b209a0 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 --- 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.10