Commit 8912cc50 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Print out some useful if the credential does not verify.

parent 3209b890
#!/usr/bin/perl -w
#
# GENIPUBLIC-COPYRIGHT
# Copyright (c) 2008-2011 University of Utah and the Flux Group.
# Copyright (c) 2008-2012 University of Utah and the Flux Group.
# All rights reserved.
#
use strict;
......@@ -323,7 +323,7 @@ foreach my $sigid (keys(%credentials)) {
$bad = 1;
}
print STDERR $line
if (defined($line) && $debug);
if (defined($line) && ($debug || $bad));
my $issuer = undef;
while (<SEC>) {
print STDERR $_
......
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