amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-03 01:43:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bring option processing back into use

Browse source
This commit is contained in:
Duncan Ferguson 2011-11-25 22:09:33 +00:00
parent ec42a1481c
commit 3c3e145199
3 changed files with 68 additions and 82 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lib/App/ClusterSSH/Config.pm
View file

@ -97,6 +97,8 @@ sub new {
$self->{ $self->{comms} } = $self->find_binary( $self->{comms} );
}
$self->{terminal} = $self->find_binary( $self->{terminal} );
$self->{title} = uc($Script);
$clusters = App::ClusterSSH::Cluster->new();
@ -186,7 +188,7 @@ sub parse_config_file {
foreach my $cluster ( sort split / /, $read_config{clusters} ) {
if ( $read_config{$cluster} ) {
$clusters->register_tag( $cluster, $read_config{$cluster} );
$old_clusters{$cluster}=$read_config{$cluster};
$old_clusters{$cluster} = $read_config{$cluster};
delete( $read_config{$cluster} );
}
}
@ -280,12 +282,13 @@ sub write_user_config_file {
);
}
return $self if(!%old_clusters);
return $self if ( !%old_clusters );
if( open( my $fh, ">", "$ENV{HOME}/.clusterssh/clusters" ) ) {
print $fh '# '.$self->loc('Tag definitions moved from old .csshrc file'),$/;
foreach ( sort( keys(%old_clusters))){
print $fh $_, ' ', join(' ', $old_clusters{$_}),$/;
if ( open( my $fh, ">", "$ENV{HOME}/.clusterssh/clusters" ) ) {
print $fh '# '
. $self->loc('Tag definitions moved from old .csshrc file'), $/;
foreach ( sort( keys(%old_clusters) ) ) {
print $fh $_, ' ', join( ' ', $old_clusters{$_} ), $/;
}
close($fh);
}
@ -306,6 +309,19 @@ sub find_binary {
}
$self->debug( 2, "Looking for $binary" );
# if not found, strip the path and look again
if ( $binary =~ m!^/! ) {
if ( -f $binary ) {
$self->debug( 2, "$binary already fully qualified" );
return $binary;
}
else {
$self->debug( 2, "$binary not found - re-searching" );
$binary =~ s!^.*/!!;
}
}
my $path;
if ( !-x $binary || substr( $binary, 0, 1 ) ne '/' ) {