Commit 25ea388e authored by Leigh B Stoller's avatar Leigh B Stoller

Bug Fix: Add debugging output for GetCredential().

parent 91538049
......@@ -39,6 +39,7 @@ use Time::Local;
# Configure variables
my $TB = "@prefix@";
my $TBOPS = "@TBOPSEMAIL@";
my $MAINSITE = @TBMAINSITE@;
my $OURDOMAIN = "@OURDOMAIN@";
my $PGENIDOMAIN = "@PROTOGENI_DOMAIN@";
my $SLICESHUTDOWN = "$TB/sbin/protogeni/shutdownslice";
......@@ -66,6 +67,10 @@ sub GetCredential($)
my $urn = $argref->{'urn'};
my $cred = $argref->{'credential'};
if ($MAINSITE) {
print STDERR "Debugging getslicecred()\n";
}
#
# No credential, then return a generic credential giving user permission
# to do other things.
......
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