330 |
my $host = $self->{port_on_host}->{$port} || die "no port $port in ",dump $self; |
my $host = $self->{port_on_host}->{$port} || die "no port $port in ",dump $self; |
331 |
next if $host =~ m{(localhost|127\.)}; |
next if $host =~ m{(localhost|127\.)}; |
332 |
next if $updated->{$host}++; |
next if $updated->{$host}++; |
333 |
warn "update $host $Sack::VERSION\n"; |
warn "update [$port] on $host to $Sack::VERSION\n"; |
334 |
system("find /srv/Sack/ | cpio --create | ssh -F etc/lib.ssh $host cpio --extract --make-directories --unconditional") == 0 and $self->restart_nodes( $port ); |
system("find /srv/Sack/ | cpio --create | ssh -F etc/lib.ssh $host cpio --extract --make-directories --unconditional") == 0 and $self->restart_nodes( $port ); |
335 |
} |
} |
336 |
} |
} |