Skip to content

GitLab

Commit 62b6fc33 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files
Options

Comment out call to get the peers until someone complains.

parent 4bf96b77
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
protogeni/lib/GeniAM.pm.in
View file @ 62b6fc33
#!/usr/bin/perl -wT #!/usr/bin/perl -wT
# #
# Copyright (c) 2008-2013 University of Utah and the Flux Group. # Copyright (c) 2008-2014 University of Utah and the Flux Group.
# #
# {{{GENIPUBLIC-LICENSE # {{{GENIPUBLIC-LICENSE
# #
...@@ -101,7 +101,7 @@ sub GetVersion() ...@@ -101,7 +101,7 @@ sub GetVersion()
# #
# Ask the Clearinghouse for the peers info. # Ask the Clearinghouse for the peers info.
# #
if ($MAINSITE) { if (0 && $MAINSITE) {
my $clearinghouse = GeniRegistry::ClearingHouse->Create(); my $clearinghouse = GeniRegistry::ClearingHouse->Create();
if (!defined($clearinghouse)) { if (!defined($clearinghouse)) {
print STDERR "Could not create clearinghouse object.\n"; print STDERR "Could not create clearinghouse object.\n";
...@@ -216,7 +216,7 @@ sub GetVersion() ...@@ -216,7 +216,7 @@ sub GetVersion()
} }
}; };
$blob->{"peers"} = $peers $blob->{"peers"} = $peers
if ($MAINSITE); if (0 && $MAINSITE);
$blob->{"default_ad_rspec"} = $default_ad $blob->{"default_ad_rspec"} = $default_ad
if ($API_VERSION == 1); if ($API_VERSION == 1);
......
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