amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-04-22 09:22:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Run through perltidy

Browse source
This commit is contained in:
Duncan Ferguson 2009-11-24 09:22:31 +00:00
parent b39e649ab3
commit ac1b4697cf
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/cssh.pl
View file

@ -433,8 +433,9 @@ sub check_ssh_hostnames {
if ( -r $ssh_config && open( SSHCFG, "<", $ssh_config ) ) {
while (<SSHCFG>) {
next unless (m/^\s*host\s+([\w\.-]+)/i);
# account for multiple declarations of hosts
$ssh_hostnames{$_} = 1 foreach (split(/\s+/, $1) );
$ssh_hostnames{$_} = 1 foreach ( split( /\s+/, $1 ) );
}
close(SSHCFG);
}
@ -690,7 +691,7 @@ sub resolve_names(@) {
my @servers = @_;
foreach (@servers) {
my $dirty = $_;
my $dirty = $_;
my $username = "";
my $node;
logmsg( 3, "Found server $_" );
@ -699,7 +700,7 @@ sub resolve_names(@) {
$username = $1;
}
if ( $clusters{$dirty} ) {
foreach $node (split( / /, $clusters{$dirty})) {
foreach $node ( split( / /, $clusters{$dirty} ) ) {
push( @servers, $username . "@" . $node );
}
$_ = "";