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

Amend default key_addhost from 'Control-plus' to 'Control-Shift-plus'

Browse source 
Increase allowable debug level and adjust some repetative logging
This commit is contained in:
duncan_ferguson 2009-04-22 19:07:32 +00:00
parent d4436cd9eb
commit 2dd1f2b8f8
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
clusterssh/src/cssh.pl
View file

@ -192,8 +192,8 @@ sub exit_prog() {
sub logmsg($@) { sub logmsg($@) {
my $level = shift; my $level = shift;
if ( $level > 3 ) { if ( $level > 6 ) {
croak('requested debug level should not be above 3'); croak('requested debug level should not be above 6');
} }
if ( $level <= $options{debug} ) { if ( $level <= $options{debug} ) {
@ -216,7 +216,7 @@ sub load_config_defaults() {
$config{terminal_size} = "80x24"; $config{terminal_size} = "80x24";
$config{use_hotkeys} = "yes"; $config{use_hotkeys} = "yes";
$config{key_quit} = "Control-q"; $config{key_quit} = "Control-q";
$config{key_addhost} = "Control-plus"; $config{key_addhost} = "Control-Shift-plus";
$config{key_clientname} = "Alt-n"; $config{key_clientname} = "Alt-n";
$config{key_history} = "Alt-h"; $config{key_history} = "Alt-h";
$config{key_retilehosts} = "Alt-r"; $config{key_retilehosts} = "Alt-r";
@ -1535,7 +1535,7 @@ sub setup_repeat() {
if ( $config{internal_count} > 60000 ); # reset if too high if ( $config{internal_count} > 60000 ); # reset if too high
$config{internal_count}++; $config{internal_count}++;
my $build_menu = 0; my $build_menu = 0;
logmsg( 3, "Running repeat (count=$config{internal_count})" ); logmsg( 5, "Running repeat (count=$config{internal_count})" );
#logmsg( 3, "Number of servers in hash is: ", scalar( keys(%servers) ) ); #logmsg( 3, "Number of servers in hash is: ", scalar( keys(%servers) ) );
@ -1842,7 +1842,6 @@ sub key_event {
next if ( $key eq "null" ); # ignore disabled keys next if ( $key eq "null" ); # ignore disabled keys
logmsg( 3, "key=:$key:" ); logmsg( 3, "key=:$key:" );
logmsg( 3, "combo=$combo" );
if ( $combo =~ /^$key$/ ) { if ( $combo =~ /^$key$/ ) {
if ( $event eq "KeyRelease" ) { if ( $event eq "KeyRelease" ) {
logmsg( 2, "Received hotkey: $hotkey" ); logmsg( 2, "Received hotkey: $hotkey" );
@ -2455,7 +2454,7 @@ as a to reference the users home directory, i.e.
THIS OPTION IS DEPRECATED. It has been left in so current systems continue THIS OPTION IS DEPRECATED. It has been left in so current systems continue
to function as expected. to function as expected.
=item key_addhost = Control-plus =item key_addhost = Control-Shift-plus
Default key sequence to open AddHost menu. See below notes on shortcuts. Default key sequence to open AddHost menu. See below notes on shortcuts.