Commit 6cfe8ad5 authored by Srikanth Chikkulapelly's avatar Srikanth Chikkulapelly
Browse files

fixed a minor bug. Now it can be used to generate special credentials on clearing house

parent f90ccf30
......@@ -7,6 +7,10 @@
use strict;
use lib '@prefix@/lib';
# Do this early so that we talk to the right DB.
use vars qw($GENI_DBNAME $GENI_ISCLRHOUSE);
BEGIN { $GENI_DBNAME = "geni-ch"; $GENI_ISCLRHOUSE = 1; }
use GeniCredential;
use GeniCertificate;
use GeniAuthority;
......@@ -67,7 +71,7 @@ if($numArgs !=2) {
print "Please specify <user-urn> <ch-urn> as command line arguments\n\n";
}else{
my $val = CreateSpecialCredential @ARGV;
#print STDERR $val->{"code"};
#print STDERR $val->{"value"};
print $val->{"output"};
#print $val->{"output"};
#print $val->{"code"};
print $val->{"value"};
}
Supports Markdown
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