version 1.3, 2009/05/13 19:58:32
|
version 1.4, 2011/05/12 14:08:54
|
Line 8
|
Line 8
|
|
|
=head1 DESCRIPTION |
=head1 DESCRIPTION |
|
|
Performs an adiminstrative action on all hosts in the current dns_hosts.tab |
Performs an adminstrative action on DNS hosts in the current hosts.tab |
file. For this to work, the current host must be the cluster administrator |
file. For this to work, the current host must be the cluster administrator |
on the target systems. That is this must be a host in managers.tab |
on the target systems. That is this must be a host in managers.tab |
Furthermore, lonc must be running on this system. |
Furthermore, lonc must be running on this system. |
Line 16 Furthermore, lonc must be running on thi
|
Line 16 Furthermore, lonc must be running on thi
|
The action is specified by the 'command' parameter which may have additional arguments. |
The action is specified by the 'command' parameter which may have additional arguments. |
|
|
All communications with remote clients are made critical so that |
All communications with remote clients are made critical so that |
they will eventually happen even if the147 host we want to talk with |
they will eventually happen even if the host we want to talk with |
is dead. |
is dead. |
|
|
|
|
Line 219 sub push_file {
|
Line 219 sub push_file {
|
|
|
foreach my $host (@$hosts) { |
foreach my $host (@$hosts) { |
my $loncapa_name = &Apache::lonnet::host_from_dns($host); |
my $loncapa_name = &Apache::lonnet::host_from_dns($host); |
|
next if ($loncapa_name eq $config{'lonHostID'}); |
my $reply = &Apache::lonnet::critical($cmd, $loncapa_name); |
my $reply = &Apache::lonnet::critical($cmd, $loncapa_name); |
if ($reply ne 'ok') { |
if ($reply ne 'ok') { |
print STDERR "Reply from $host ($loncapa_name) not 'ok' was: $reply\n"; |
print STDERR "Reply from $host ($loncapa_name) not 'ok' was: $reply\n"; |