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

Apply patch from Dan Wallis

Browse source 
Update THANKS file
Update and correct typos in ChangeLog
This commit is contained in:
duncan_ferguson 2008-02-26 20:05:54 +00:00
parent 2080756a99
commit a5074b84b2
3 changed files with 22 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
clusterssh/src/cssh.pl
View file

@ -85,7 +85,7 @@ use Net::hostent;
my $scriptname = $0;
$scriptname =~ s!.*/!!; # get the script name, minus the path
my $options = 'dDv?hHuqQgGist:T:c:l:o:e:'; # Command line options list
my $options = 'dDv?hHuqQgGist:T:c:l:o:e:C:'; # Command line options list
my %options;
my %config;
my $debug = 0;
@ -231,8 +231,7 @@ sub parse_config_file($) {
s/\s*$//; # remove trailing whitespace
chomp();
#my ($key, $value) = split(/[ ]*=[ ]*/);
/(\w+)[ ]*=[ ]*(.*)/;
next unless m/\s*(\S+)\s*=\s*(.*)\s*/;
my ( $key, $value ) = ( $1, $2 );
$config{$key} = $value;
logmsg( 3, "$key=$value" );
@ -345,6 +344,9 @@ sub check_config() {
sub load_configfile() {
parse_config_file( $sysconfigdir . '/csshrc' );
parse_config_file( $ENV{HOME} . '/.csshrc' );
if ( $options{C} && -r $options{C} ) {
parse_config_file( "$options{C}" );
}
check_config();
}
@ -2015,6 +2017,10 @@ Enable|Disable window tiling (overriding the config file)
Use supplied file as additional cluster file (see also L<"FILES">)
=item -C <file>
Use supplied file as additional configuration file (see also L<"FILES">)
=item -l $LOGNAME
Specify the default username to use for connections (if different from the
@ -2321,7 +2327,7 @@ left and then up
B<NOTE:> The key shortcut modifiers must be in the form "Control", "Alt", or
"Shift", i.e. with the first letter capitalised and the rest lower case. Keys
may also be disabled individually by setting to the work "null".
may also be disabled individually by setting to the word "null".
=back