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

protogeni/scripts/genclrcredentials.in

@@ -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"};
 }