Commit 2908473f authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Use UDP for isalive from both local and remote nodes.

parent c85d7a7e
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# EMULAB-COPYRIGHT # EMULAB-COPYRIGHT
# Copyright (c) 2000-2002 University of Utah and the Flux Group. # Copyright (c) 2000-2003 University of Utah and the Flux Group.
# All rights reserved. # All rights reserved.
# #
use Getopt::Std; use Getopt::Std;
...@@ -199,10 +199,7 @@ sub startisalive() ...@@ -199,10 +199,7 @@ sub startisalive()
while ($retries) { while ($retries) {
# my $options = "-p 7778 REDIRECT=192.168.100.1"; # my $options = "-p 7778 REDIRECT=192.168.100.1";
my $options = ""; my $options = "-u -t 3";
if (REMOTE()) {
$options .= " -u -t 3";
}
my $result = `tmcc $options isalive`; my $result = `tmcc $options isalive`;
if (! $?) { if (! $?) {
my $date = POSIX::strftime("20%y/%m/%d %H:%M:%S", localtime()); my $date = POSIX::strftime("20%y/%m/%d %H:%M:%S", localtime());
......
Supports Markdown
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