Commit aa25701a authored by Mike Hibler's avatar Mike Hibler

Fix bonehead logic error in waiting for DNS to come on line.

parent 895a7e94
#!/usr/bin/perl -wT #!/usr/bin/perl -wT
# #
# Copyright (c) 2000-2012 University of Utah and the Flux Group. # Copyright (c) 2000-2013 University of Utah and the Flux Group.
# #
# {{{EMULAB-LICENSE # {{{EMULAB-LICENSE
# #
...@@ -83,11 +83,10 @@ my $bossname = tmccbossname(); ...@@ -83,11 +83,10 @@ my $bossname = tmccbossname();
if (!$bossname) { if (!$bossname) {
for (my $i = 1; $i <= 3; $i++) { for (my $i = 1; $i <= 3; $i++) {
print STDERR "Waiting for DNS...\n"; print STDERR "Waiting for DNS...\n";
sleep(1); sleep($i);
$bossname = tmccbossname(); $bossname = tmccbossname();
last if ($bossname); last if ($bossname);
} }
$bossname = "";
} }
if ($bossname =~ /^[^\.]+\.(.*)$/) { if ($bossname =~ /^[^\.]+\.(.*)$/) {
$domain = ".$1"; $domain = ".$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