Commit 62b6fc33 authored by Leigh B Stoller's avatar Leigh B Stoller

Comment out call to get the peers until someone complains.

parent 4bf96b77
#!/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
#
......@@ -101,7 +101,7 @@ sub GetVersion()
#
# Ask the Clearinghouse for the peers info.
#
if ($MAINSITE) {
if (0 && $MAINSITE) {
my $clearinghouse = GeniRegistry::ClearingHouse->Create();
if (!defined($clearinghouse)) {
print STDERR "Could not create clearinghouse object.\n";
......@@ -216,7 +216,7 @@ sub GetVersion()
}
};
$blob->{"peers"} = $peers
if ($MAINSITE);
if (0 && $MAINSITE);
$blob->{"default_ad_rspec"} = $default_ad
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