diff options
Diffstat (limited to 'parallel/glunix/patches/patch-bh')
| -rw-r--r-- | parallel/glunix/patches/patch-bh | 42 |
1 files changed, 35 insertions, 7 deletions
diff --git a/parallel/glunix/patches/patch-bh b/parallel/glunix/patches/patch-bh index 8d7b56c9404..eaa7d07ae90 100644 --- a/parallel/glunix/patches/patch-bh +++ b/parallel/glunix/patches/patch-bh @@ -1,13 +1,26 @@ -$NetBSD: patch-bh,v 1.1.1.1 1998/10/21 19:59:30 garbled Exp $ +$NetBSD: patch-bh,v 1.2 2000/07/10 23:54:24 wiz Exp $ ---- progs/tools/run_glunix_script.pl.orig Wed Nov 5 13:44:28 1997 -+++ progs/tools/run_glunix_script.pl Thu Apr 2 21:40:47 1998 -@@ -15,3 +15,3 @@ +--- progs/tools/run_glunix_script.pl.orig Wed Nov 5 15:44:28 1997 ++++ progs/tools/run_glunix_script.pl Thu Jun 22 00:31:41 2000 +@@ -6,20 +6,21 @@ + # These machines have to be able to do a root rsh to all other machines in + # the cluster. + @ok_hostnames = ("%%MASTER_HOSTNAME%%"); +-@ok_people = ("ghorm", "glunix", "root"); # These people are allowed to +- # modify the production cluster +-@dont_notify_people = ("ghorm", "jcoates"); # Don't send mail if these people +- # do things. ++@ok_people = ("glunix", "root"); # These people are allowed to ++ # modify the production cluster ++@dont_notify_people = (); # Don't send mail if these people ++ # do things. + + $root_dir = "%%GLUNIX_DIR%%"; $data_dir = "%%GLUNIX_DATA_DIR%%"; -$release_dir = "$root_dir/release"; +$release_dir = "$root_dir"; $devel_dir = "$root_dir/devel"; -@@ -19,5 +19,6 @@ + $perl_lib = "%%PERL_LIB_DIR%%"; $run_glunix_agent = "%%INSTALL_DIR%%/bin/run_glunix_agent"; -$command_master = "u"; # The preferred location of the master +# The preferred location of the master @@ -16,10 +29,25 @@ $NetBSD: patch-bh,v 1.1.1.1 1998/10/21 19:59:30 garbled Exp $ -$admin_email = "glunix-admin\@now.cs"; +$admin_email = "root"; $questions_email = "glunix\@now.cs.berkeley.edu"; -@@ -550,4 +551,4 @@ + $glunix_platform = "%%GLUNIX_PLATFORM%%"; + $rsh_command = "%%RSH_PATH%%"; +@@ -548,8 +549,8 @@ + next; + } $full_hostname = &expand_hostname($host); - $ping_str = `/usr/sbin/ping -v $full_hostname 2`; - if ($ping_str =~ m/$full_hostname.* is alive/) { + $ping_str = `/sbin/ping -o $full_hostname`; -+ if ($ping_str =~ m/1 packets transmitted, 1 packets received, 0% packet loss/) { ++ if ($ping_str =~ m/1 packets transmitted, 1 packets received/) { push(@alive, $host); + print "$host "; + } else { +@@ -1097,7 +1098,7 @@ + + foreach $pid (keys %children) { + kill(2, $pid); +- print STDERR &expand_hostname(${children{$pid}}), ".CS.Berkeley.EDU: timed out\n"; ++ print STDERR &expand_hostname(${children{$pid}}), ": timed out\n"; + } + } + |