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

Add new "-a 'command'" option for running a command in each terminal

Browse source 
Fix bug with some host lookups failing
This commit is contained in:
duncan_ferguson 2009-04-15 17:35:22 +00:00
parent 1325c6aead
commit 49f4d65a32
2 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
clusterssh/ChangeLog
View file

@ -8,6 +8,8 @@
* Cope better with IPv6 addresses
* Fix bug with passing arguments from command line to comms method binary
* Rework defaultport code
* Add new "-a 'command'" option for running a command in each terminal
* Fix bug with some host lookups failing
2009-03-26 Duncan Ferguson <duncan_ferguson@user.sf.net> - v3.25-1

21
clusterssh/src/cssh.pl
View file

@ -86,7 +86,7 @@ use Carp;
my $scriptname = $0;
$scriptname =~ s!.*/!!; # get the script name, minus the path
my $options = 'dDv?hHuqQgGist:T:c:l:o:e:C:p:'; # Command line options list
my $options = 'dDv?hHuqQgGist:T:c:l:o:e:C:p:a:'; # Command line options list
my %options;
my %config;
my $debug = 0;
@ -229,7 +229,6 @@ sub load_config_defaults() {
$config{ssh_args} = " -x -o ConnectTimeout=10"
if ( $config{ $config{comms} } =~ /ssh$/ );
$config{ssh_args} = $options{o} if ( $options{o} );
$config{rsh_args} = "";
$config{telnet_args} = "";
@ -241,6 +240,8 @@ sub load_config_defaults() {
$config{show_history} = 0;
$config{history_width} = 40;
$config{history_height} = 10;
$config{command} = q{};
}
# load in config file settings
@ -366,6 +367,8 @@ sub check_config() {
$config{ssh_args} = $options{o} if ( $options{o} );
$config{show_history} = 1 if $options{s};
$config{command} = $options{a} if ( $options{a} );
}
sub load_configfile() {
@ -860,7 +863,7 @@ sub setup_helper_script() {
\$command .= "\$svr";
}
}
\$command .= " || sleep 5";
\$command .= " $config{command} || sleep 5";
# warn("Running:\$command\\n"); # for debug purposes
exec(\$command);
HERE
@ -929,7 +932,7 @@ sub split_hostname {
}
}
$port ||= defined $options{p} ? $options{p} : q{};
$port ||= defined $options{p} ? $options{p} : q{};
$username ||= q{};
logmsg( 3, "username=$username, server=$server, port=$port" );
@ -955,11 +958,11 @@ sub check_host($) {
else {
logmsg( 1,
"Failed to check host (falling back to gethostbyname): $!" );
return gethostbyname($host);
return gethostbyname($host)->name();
}
}
else {
return gethostbyname($host);
return gethostbyname($host)->name();
}
}
@ -2131,6 +2134,12 @@ Default options are shown as appropriate.
=over
=item -a '<command>'
Run the command in each session, i.e. C<-a 'vi /etc/hosts'> to drop straight
into a vi session. NOTE: not all communications methods support this (ssh
and rsh should, telnet will not).
=item -c <file>
Use supplied file as additional cluster file (see also L<"FILES">)