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

Apply patch from Harald Weidner to stop error messages in Debian Etch, and perltidy '-i=2 -b'

Browse source
This commit is contained in:
duncan_ferguson 2007-11-28 22:38:26 +00:00
parent 181d21d483
commit b7889e7236
2 changed files with 72 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

1
clusterssh/ChangeLog
View file

@ -1,6 +1,7 @@
???? Duncan Ferguson <duncan_ferguson@user.sf.net> - v3.22-1
* Update X resources class to allow use of terms other than XTerm
* Apply patch from Harald Weidner to stop error messages in Debian Etch
2008-11-28 Duncan Ferguson <duncan_ferguson@user.sf.net> - v3.21-1

21
clusterssh/src/cssh.pl
View file

@ -161,8 +161,7 @@ sub load_config_defaults() {
$config{terminal} = "xterm";
$config{terminal_args} = "";
$config{terminal_title_opt} = "-T";
$config{terminal_allow_send_events} =
"-xrm '*.VT100.allowSendEvents:true'";
$config{terminal_allow_send_events} = "-xrm '*.VT100.allowSendEvents:true'";
$config{terminal_font} = "6x13";
$config{terminal_size} = "80x24";
$config{use_hotkeys} = "yes";
@ -213,8 +212,8 @@ sub load_config_defaults() {
$config{unmap_on_redraw} = "no"; # Debian #329440
$config{show_history} = 0;
$config{history_width} = 40,
$config{history_height} = 10,
$config{history_width} = 40;
$config{history_height} = 10;
}
# load in config file settings
@ -419,6 +418,7 @@ sub load_keyboard_map() {
logmsg( 1, "Loading keymaps and keycodes" );
foreach ( 0 .. $#keyboard ) {
if ( defined $keyboard[$_][0] ) {
if ( defined( $keycodetosym{ $keyboard[$_][0] } ) ) {
$keyboardmap{ $keycodetosym{ $keyboard[$_][0] } } = 'n' . ( $_ + $min );
}
@ -426,6 +426,8 @@ sub load_keyboard_map() {
logmsg( 2, "Unknown keycode ", $keyboard[$_][0] )
if ( $keyboard[$_][0] != 0 );
}
}
if ( defined $keyboard[$_][1] ) {
if ( defined( $keycodetosym{ $keyboard[$_][1] } ) ) {
$keyboardmap{ $keycodetosym{ $keyboard[$_][1] } } = 's' . ( $_ + $min );
}
@ -433,6 +435,8 @@ sub load_keyboard_map() {
logmsg( 2, "Unknown keycode ", $keyboard[$_][1] )
if ( $keyboard[$_][1] != 0 );
}
}
if ( defined $keyboard[$_][2] ) {
if ( defined( $keycodetosym{ $keyboard[$_][2] } ) ) {
$keyboardmap{ $keycodetosym{ $keyboard[$_][2] } } = 'a' . ( $_ + $min );
}
@ -440,13 +444,17 @@ sub load_keyboard_map() {
logmsg( 2, "Unknown keycode ", $keyboard[$_][2] )
if ( $keyboard[$_][2] != 0 );
}
}
if ( defined $keyboard[$_][3] ) {
if ( defined( $keycodetosym{ $keyboard[$_][3] } ) ) {
$keyboardmap{ $keycodetosym{ $keyboard[$_][3] } } = 'sa' . ( $_ + $min );
$keyboardmap{ $keycodetosym{ $keyboard[$_][3] } } =
'sa' . ( $_ + $min );
}
else {
logmsg( 2, "Unknown keycode ", $keyboard[$_][3] )
if ( $keyboard[$_][3] != 0 );
}
}
# dont know these two key combs yet...
#$keyboardmap{ $keycodetosym { $keyboard[$_][4] } } = $_ + $min;
@ -1368,7 +1376,8 @@ sub create_windows() {
);
if ( $config{show_history} ) {
$windows{history} = $windows{main_window}->Scrolled("ROText",
$windows{history} = $windows{main_window}->Scrolled(
"ROText",
-insertborderwidth => 4,
-width => $config{history_width},
-height => $config{history_height},