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 {
}
# Case 5: Kerberos ticket received
$self->logger->debug("Kerberos ticket received: $1");
my $data;
eval { $data = MIME::Base64::decode($1) };
if ($@) {
......@@ -109,13 +110,18 @@ sub extractFormInfo {
return PE_BADCREDENTIALS;
}
$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 $server_context, GSS_C_NO_CREDENTIAL,
$data, GSS_C_NO_CHANNEL_BINDINGS,
$gss_client_name, undef,
my $gss_output_token, my $out_flags,
my $out_time, my $gss_delegated_cred
my $server_context,
GSS_C_NO_CREDENTIAL,
$data,
GSS_C_NO_CHANNEL_BINDINGS,
my $gss_client_name,
undef,
my $gss_output_token,
my $out_flags,
my $out_time,
my $gss_delegated_cred
);
unless ($status) {
$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