Commit 17fbd637 authored by Clément OUDOT's avatar Clément OUDOT

Add some debug message (#707)

parent 8a07f47e
...@@ -102,6 +102,7 @@ sub extractFormInfo { ...@@ -102,6 +102,7 @@ sub extractFormInfo {
} }
# Case 5: Kerberos ticket received # Case 5: Kerberos ticket received
$self->logger->debug("Kerberos ticket received: $1");
my $data; my $data;
eval { $data = MIME::Base64::decode($1) }; eval { $data = MIME::Base64::decode($1) };
if ($@) { if ($@) {
...@@ -109,13 +110,18 @@ sub extractFormInfo { ...@@ -109,13 +110,18 @@ sub extractFormInfo {
return PE_BADCREDENTIALS; return PE_BADCREDENTIALS;
} }
$ENV{KRB5_KTNAME} = $self->keytab; $ENV{KRB5_KTNAME} = $self->keytab;
my $gss_client_name; $self->logger->debug( "Set KRB5_KTNAME env to " . $ENV{KRB5_KTNAME} );
my $status = GSSAPI::Context::accept( my $status = GSSAPI::Context::accept(
my $server_context, GSS_C_NO_CREDENTIAL, my $server_context,
$data, GSS_C_NO_CHANNEL_BINDINGS, GSS_C_NO_CREDENTIAL,
$gss_client_name, undef, $data,
my $gss_output_token, my $out_flags, GSS_C_NO_CHANNEL_BINDINGS,
my $out_time, my $gss_delegated_cred my $gss_client_name,
undef,
my $gss_output_token,
my $out_flags,
my $out_time,
my $gss_delegated_cred
); );
unless ($status) { unless ($status) {
$self->logger->error('Unable to accept security context'); $self->logger->error('Unable to accept security context');
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment