Commit 30cf1918 authored by Leigh Stoller's avatar Leigh Stoller

Kill some debugging.

parent 95762aea
#!/usr/bin/perl -wT
#
# Copyright (c) 2008-2017 University of Utah and the Flux Group.
# Copyright (c) 2008-2019 University of Utah and the Flux Group.
#
# {{{GENIPUBLIC-LICENSE
#
......@@ -224,7 +224,7 @@ sub Create($$;$)
my $nostore = (exists($argref->{'nostore'}) ? $argref->{'nostore'} :0);
my $keyfile = (exists($argref->{'keyfile'}) ? $argref->{'keyfile'} :undef);
print STDERR Dumper($argref);
# print STDERR Dumper($argref);
# Let mkcert generate a new one.
$uuid = ""
......@@ -245,7 +245,7 @@ sub Create($$;$)
my $cmd = "$MKCERT $keyarg $altcaopt $caflag ".
"-i \"$urn\" $url -e \"$email\" $hrn $showuuidflag$uuid";
print STDERR "$cmd\n";
#print STDERR "$cmd\n";
if (! open(CERT, "$cmd |")) {
print STDERR "Could not start $MKCERT\n";
......
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