Commit 6afd5dd7 authored by Leigh B Stoller's avatar Leigh B Stoller

Remove debugging code.

parent 9268bdfa
#!/usr/bin/perl -wT #!/usr/bin/perl -wT
# #
# Copyright (c) 2007-2014 University of Utah and the Flux Group. # Copyright (c) 2007-2015 University of Utah and the Flux Group.
# #
# {{{EMULAB-LICENSE # {{{EMULAB-LICENSE
# #
...@@ -440,7 +440,7 @@ sub CreateDataset($) ...@@ -440,7 +440,7 @@ sub CreateDataset($)
if (defined($self->expires())); if (defined($self->expires()));
my $cmurl = $authority->url(); my $cmurl = $authority->url();
$cmurl =~ s/protogeni/protogeni\/stoller/; # $cmurl =~ s/protogeni/protogeni\/stoller/;
return Genixmlrpc::CallMethod($cmurl, $context, "CreateDataset", $args); return Genixmlrpc::CallMethod($cmurl, $context, "CreateDataset", $args);
} }
...@@ -471,7 +471,7 @@ sub DeleteDataset($) ...@@ -471,7 +471,7 @@ sub DeleteDataset($)
$speaksfor_credential->asString()], $speaksfor_credential->asString()],
}; };
my $cmurl = $authority->url(); my $cmurl = $authority->url();
$cmurl =~ s/protogeni/protogeni\/stoller/; # $cmurl =~ s/protogeni/protogeni\/stoller/;
return Genixmlrpc::CallMethod($cmurl, $context, "DeleteDataset", $args); return Genixmlrpc::CallMethod($cmurl, $context, "DeleteDataset", $args);
} }
...@@ -506,7 +506,7 @@ sub ModifyDataset($) ...@@ -506,7 +506,7 @@ sub ModifyDataset($)
if (defined($self->expires())); if (defined($self->expires()));
my $cmurl = $authority->url(); my $cmurl = $authority->url();
$cmurl =~ s/protogeni/protogeni\/stoller/; # $cmurl =~ s/protogeni/protogeni\/stoller/;
return Genixmlrpc::CallMethod($cmurl, $context, "ModifyDataset", $args); return Genixmlrpc::CallMethod($cmurl, $context, "ModifyDataset", $args);
} }
...@@ -538,7 +538,7 @@ sub ExtendDataset($) ...@@ -538,7 +538,7 @@ sub ExtendDataset($)
"extend" => 1, "extend" => 1,
}; };
my $cmurl = $authority->url(); my $cmurl = $authority->url();
$cmurl =~ s/protogeni/protogeni\/stoller/; # $cmurl =~ s/protogeni/protogeni\/stoller/;
return Genixmlrpc::CallMethod($cmurl, $context, "ModifyDataset", $args); return Genixmlrpc::CallMethod($cmurl, $context, "ModifyDataset", $args);
} }
...@@ -569,7 +569,7 @@ sub DescribeDataset($) ...@@ -569,7 +569,7 @@ sub DescribeDataset($)
$speaksfor_credential->asString()], $speaksfor_credential->asString()],
}; };
my $cmurl = $authority->url(); my $cmurl = $authority->url();
$cmurl =~ s/protogeni/protogeni\/stoller/; # $cmurl =~ s/protogeni/protogeni\/stoller/;
return Genixmlrpc::CallMethod($cmurl, $context, "DescribeDataset", $args); return Genixmlrpc::CallMethod($cmurl, $context, "DescribeDataset", $args);
} }
......
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