Commit 4cfed85c authored by Leigh B. Stoller's avatar Leigh B. Stoller

Minor debugging changes.

parent 746c9361
......@@ -165,7 +165,7 @@ sub CreatePhysNode($)
my ($auth,$type,$node_id) = GeniHRN::Parse($node_urn);
my $manager_urn = GeniHRN::Generate($auth, "authority", "cm");
print STDERR "$node_urn\n";
# print STDERR "$node_urn\n";
#
# Load the SA cert to act as caller context.
......@@ -200,7 +200,7 @@ sub CreatePhysNode($)
my ($translated) = $authority->hrn() =~ /^([-\w]+)\..*/;
my $node_hrn = $translated . "." . $node_id;
print STDERR "$node_hrn\n";
# print STDERR "$node_hrn\n";
my $component = GeniComponent->Lookup($node_hrn);
if (defined($component)) {
......@@ -216,6 +216,8 @@ sub CreatePhysNode($)
}
}
print STDERR "Creating local node for $node_urn\n";
my $credential = GeniRegistry::Client->CreateCredential($component);
if (!defined($credential)) {
print STDERR "Could not create a credential for $component\n";
......@@ -337,7 +339,7 @@ sub CreatePhysNode($)
$ifaceargs->{'role'} = TBDB_IFACEROLE_CONTROL();
}
$count++;
print Dumper($ifaceargs);
#print Dumper($ifaceargs);
}
}
}
......
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