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

Bugfix for shifted non-alphanumeric keyboard chars not being pasted correctly

Browse source
This commit is contained in:
duncan_ferguson 2005-05-19 09:41:28 +00:00
parent 9ebbf96535
commit 7da97b3491
1 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
clusterssh/src/cssh.pl
View file

@ -130,6 +130,22 @@ my %chartokeysym = (
' ' => 'space', ' ' => 'space',
); );
# list of key codes that do not require the shift key
my %unshiftedchars = (
'semicolon' => 1,
'minus' => 1,
'equal' => 1,
'bracketleft' => 1,
'bracketright' => 1,
'apostrophe' => 1,
'numbersign' => 1,
'comma' => 1,
'period' => 1,
'slash' => 1,
'backslash' => 1,
);
### all sub-routines ### ### all sub-routines ###
# catch_all exit routine that should always be used # catch_all exit routine that should always be used
@ -449,7 +465,8 @@ sub send_text($@)
#$code=$keycodes{$keysymtocode{$char}}; #$code=$keycodes{$keysymtocode{$char}};
#} #}
$mask=ShiftMask if($char =~ /[A-Z]/); # catch capital letters # catch letters that require the shift key when sent
$mask=ShiftMask if($char =~ /[A-Z]/ || ($char =~ /\W/ && !$unshiftedchars{$code}));
logmsg(2, "char=:$char: code=:$code: mask=:$mask: number=:$keycodes{$keysymtocode{$code}}:"); logmsg(2, "char=:$char: code=:$code: mask=:$mask: number=:$keycodes{$keysymtocode{$code}}:");
#logmsg(2, "char=:$char:"); #logmsg(2, "char=:$char:");