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

Create .clusterssh/clusters file from old .csshrc file

Browse source
This commit is contained in:
Duncan Ferguson 2011-11-23 21:33:50 +00:00
parent 8bfd032ace
commit 7acdf5da79
2 changed files with 22 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

1
WIP_TASKS
View file

@ -1,4 +1,3 @@
get auto_close code working get auto_close code working
allow for multiple commands with -a 'echo ; echo ; echo' allow for multiple commands with -a 'echo ; echo ; echo'
check all options work check all options work
create .clustersshrc/clusters from .csshrc entries

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

@ -15,6 +15,7 @@ use base qw/ App::ClusterSSH::Base /;
use App::ClusterSSH::Cluster; use App::ClusterSSH::Cluster;
my $clusters; my $clusters;
my %old_clusters;
my @app_specific = (qw/ command title comms method ssh rsh telnet ccon /); my @app_specific = (qw/ command title comms method ssh rsh telnet ccon /);
my %default_config = ( my %default_config = (
terminal => "xterm", terminal => "xterm",
@ -35,6 +36,7 @@ my %default_config = (
key_paste => "Control-v", key_paste => "Control-v",
mouse_paste => "Button-2", mouse_paste => "Button-2",
auto_quit => "yes", auto_quit => "yes",
auto_close => 5,
window_tiling => "yes", window_tiling => "yes",
window_tiling_direction => "right", window_tiling_direction => "right",
console_position => "", console_position => "",
@ -89,13 +91,15 @@ sub new {
$self->{comms} = 'ssh'; $self->{comms} = 'ssh';
} }
if($self->{comms} && (! $self->{ $self->{comms} } || ! -e $self->{ $self->{comms} } ) ) { if ( $self->{comms}
$self->{ $self->{comms} } = $self->find_binary( $self->{ comms } ); && ( !$self->{ $self->{comms} } || !-e $self->{ $self->{comms} } ) )
{
$self->{ $self->{comms} } = $self->find_binary( $self->{comms} );
} }
$self->{title} = uc($Script); $self->{title} = uc($Script);
$clusters=App::ClusterSSH::Cluster->new(); $clusters = App::ClusterSSH::Cluster->new();
return $self->validate_args(%args); return $self->validate_args(%args);
} }
@ -176,13 +180,14 @@ sub parse_config_file {
} }
close(CFG); close(CFG);
# grab any clusters from the config before validating it # grab any c'lusters from the config before validating it
if ( $read_config{clusters} ) { if ( $read_config{clusters} ) {
$self->debug( 3, "Picked up clusters defined in $config_file" ); $self->debug( 3, "Picked up clusters defined in $config_file" );
foreach my $cluster ( sort split / /, $read_config{clusters} ) { foreach my $cluster ( sort split / /, $read_config{clusters} ) {
if($read_config{$cluster}) { if ( $read_config{$cluster} ) {
$clusters->register_tag($cluster,$read_config{$cluster}); $clusters->register_tag( $cluster, $read_config{$cluster} );
delete( $read_config{$cluster} ); $old_clusters{$cluster}=$read_config{$cluster};
delete( $read_config{$cluster} );
} }
} }
delete( $read_config{clusters} ); delete( $read_config{clusters} );
@ -274,6 +279,16 @@ sub write_user_config_file {
), ),
); );
} }
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{$_}),$/;
}
close($fh);
}
return $self; return $self;
} }