Bug#635513: clusterssh: pasting special characters results in perl errors
Package: clusterssh Version: 4.16-2 Followup-For: Bug #635513 X-Debbugs-Cc: phil...@marek.priv.at Still not fixed - pasting words that include "@" results in errors and no pasting. -- System Information: Debian Release: bullseye/sid APT prefers testing APT policy: (990, 'testing'), (500, 'unstable-debug'), (500, 'testing-debug'), (500, 'unstable'), (500, 'stable'), (1, 'experimental') Architecture: amd64 (x86_64) Kernel: Linux 5.10.0-5-amd64 (SMP w/8 CPU threads) Locale: LANG=de_AT.UTF-8, LC_CTYPE=de_AT.UTF-8 (charmap=UTF-8), LANGUAGE=de_AT:de Shell: /bin/sh linked to /usr/bin/dash Init: systemd (via /run/systemd/system) LSM: AppArmor: enabled Versions of packages clusterssh depends on: ii libexception-class-perl 1.44-1 ii libtry-tiny-perl0.30-1 ii libx11-protocol-other-perl 31-1 ii libx11-protocol-perl0.56-7.1 ii openssh-client 1:8.4p1-5 ii perl5.32.1-3 ii perl-tk 1:804.035-0.1+b1 ii xterm 366-1 clusterssh recommends no packages. clusterssh suggests no packages. -- no debconf information
Bug#635513: clusterssh: pasting special characters results in perl errors
Hello,
I encountered the same bug with a French keyboard (AZERTY layout) and made
a quick fix based on Ronny's patch.
The attached patch fixes the problem for AZERTY layout keyboards, for
ClusterSSh v4.03.06
I thought it would be useful to French users hitting this bug.
Sylvain
--- /usr/share/perl5/App/ClusterSSH.pm 2015-02-02 00:08:39.0 +0100
+++ /usr/share/perl5/App/ClusterSSH.pm.new 2015-06-01 14:13:59.912495431 +0200
@@ -248,6 +248,23 @@
$self-debug( 1, Loading keymaps and keycodes );
+# BEGIN WORKAROUND
+my %__workaround = (
+ord(é) = ord(~),
+ord(\) = ord(#),
+ord(') = ord({),
+ord(() = ord([),
+ord(-) = ord(|),
+ord(è) = ord(`),
+ord(_) = ord(\\),
+ord(ç) = ord(^),
+ord(à) = ord(@),
+ord()) = ord(]),
+ord(=) = ord(}),
+);
+@keyboard = map { defined($__workaround{$_-[0]}) and $_-[2] = $__workaround{$_-[0]}; $_ } @keyboard;
+# END WORKAROUND
+
my %keyboard_modifier_priority = (
'sa' = 3,# lowest
'a' = 2,
Bug#635513: clusterssh: pasting special characters results in perl errors
On 05/07/2012 10:29 PM, Ronny Lindner wrote: Hello Tony, I tried pasting the following string: /sbin/ifconfig | grep inet this version still has the bug: Hello Ronny, Thank you for testing and for the specific test case. I have gone ahead with the upload of 4.01.01-02 since it does address other issues folks are having with pasting, and will continue to work locally on this issue. Thank you, tony signature.asc Description: OpenPGP digital signature
Bug#635513: clusterssh: pasting special characters results in perl errors
Hello Ronny, Could you please test with the update of clusterssh I have uploaded here: http://people.debian.org/~tmancill/clusterssh_4.01.01-2_all.deb It includes a patch for #364565 which I am hoping will also address the problems you have reported in this bug. Thank you, tony signature.asc Description: OpenPGP digital signature
Bug#635513: clusterssh: pasting special characters results in perl errors
Hello Tony, I tried pasting the following string: /sbin/ifconfig | grep inet this version still has the bug: === Use of uninitialized value within %keyboardmap in pattern match (m//) at /usr/share/perl5/App/ClusterSSH.pm line 329. Use of uninitialized value $state in concatenation (.) or string at /usr/share/perl5/App/ClusterSSH.pm line 333. Use of uninitialized value $code in concatenation (.) or string at /usr/share/perl5/App/ClusterSSH.pm line 333. Use of uninitialized value $_ in pattern match (m//) at /usr/share/perl5/App/ClusterSSH.pm line 336. Use of uninitialized value $_ in pattern match (m//) at /usr/share/perl5/App/ClusterSSH.pm line 340. Use of uninitialized value $_ in pattern match (m//) at /usr/share/perl5/App/ClusterSSH.pm line 344. Use of uninitialized value $_ in pattern match (m//) at /usr/share/perl5/App/ClusterSSH.pm line 348. Tk::Error: Should never reach here at /usr/share/perl5/App/ClusterSSH.pm line 353. App::ClusterSSH::get_keycode_state at /usr/share/perl5/App/ClusterSSH.pm line 353 App::ClusterSSH::send_text at /usr/share/perl5/App/ClusterSSH.pm line 511 App::ClusterSSH::__ANON__ at /usr/share/perl5/App/ClusterSSH.pm line 1341 Paste (command bound to event) === -- Ronny Lindner Linux-Systemadministrator Unister GmbH Barfußgässchen 11 | 04109 Leipzig Telefon: +49 (0)341 65050 24537 ronny.lind...@unister.de www.unister.de Vertretungsberechtigter Geschäftsführer: Thomas Wagner Amtsgericht Leipzig, HRB: 19056 signature.asc Description: PGP signature
Bug#635513: clusterssh: pasting special characters results in perl errors
Package: clusterssh Version: 4.00.05-3 Severity: normal Tags: upstream I use a german keyboard layout (qwertz) and when I paste a@b into the clusterssh input box, it has a problem getting the keysym for the @. On my keyboard the @ is [Alt Gr] + [Q] ( q, Q and @ are on this key ). I attached the debug output of clusterssh. In the first part I typed a@b by hand (no problems) and in the second part it is pasted. The bug also appears in the current upstream version ClusterSSH-4.00_10 from 2011-07-08. The entry in @keyboard is: ## [ 113, # q 81, # Q 113, # q 81, # Q 64, # @ 2009, 64 # @ ], # @keyboard arry # 0 = plain key # 1 = with shift # 2 = with Alt-GR # 3 = with shift + AltGr # 4 = same as 2 - control/alt? # 5 = same as 3 - shift-control-alt? ## I traced it back and it might be a problem in X11::Protocol-GetKeyboardMapping. The attached patch is not really a solution because I think it only works with the german keyboard layout. -- System Information: Debian Release: 6.0.2 APT prefers stable APT policy: (500, 'stable'), (1, 'testing') Architecture: amd64 (x86_64) Kernel: Linux 2.6.32-5-amd64 (SMP w/4 CPU cores) Locale: LANG=de_DE.UTF-8, LC_CTYPE=de_DE.UTF-8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/dash Versions of packages clusterssh depends on: ii libx11-protocol-perl 0.56-2 Perl module for the X Window Syste ii openssh-client1:5.5p1-6 secure shell (SSH) client, for sec ii perl-tk 1:804.029-1+b1 Perl module providing the Tk graph ii xterm 261-1 X terminal emulator clusterssh recommends no packages. clusterssh suggests no packages. -- no debconf information *** /home/r.lindner/bin/App-ClusterSSH-4.00_10/bin/csshbug.txt 11:10:58: = 11:10:58: event=KeyPress 11:10:58: keysym =a (state=Mod2-) 11:10:58: keysymdec=97 11:10:58: keycode =38 11:10:58: state=Mod2- 11:10:58: codetosym=a 11:10:58: symtocode=97 11:10:58: keyboard =n38 11:10:58: combo=a 11:10:58: key=:Alt-n: 11:10:58: key=:Alt-r: 11:10:58: key=:Control-q: 11:10:58: key=:Control-Shift-plus: 11:10:58: key=:Alt-h: 11:10:58: key=:Control-v: 11:10:58: Sending event KeyPress with code 38 (state=Mod2-) to window 169869327 11:10:58: = 11:10:58: event=KeyRelease 11:10:58: keysym =a (state=Mod2-) 11:10:58: keysymdec=97 11:10:58: keycode =38 11:10:58: state=Mod2- 11:10:58: codetosym=a 11:10:58: symtocode=97 11:10:58: keyboard =n38 11:10:58: combo=a 11:10:58: key=:Alt-n: 11:10:58: key=:Alt-r: 11:10:58: key=:Control-q: 11:10:58: key=:Control-Shift-plus: 11:10:58: key=:Alt-h: 11:10:58: key=:Control-v: 11:10:58: Sending event KeyRelease with code 38 (state=Mod2-) to window 169869327 11:11:00: = 11:11:00: event=KeyPress 11:11:00: keysym =ISO_Level3_Shift (state=Mod2-) 11:11:00: keysymdec=65027 11:11:00: keycode =108 11:11:00: state=Mod2- 11:11:00: codetosym=ISO_Level3_Shift 11:11:00: symtocode=65027 11:11:00: keyboard =n108 11:11:00: combo=ISO_Level3_Shift 11:11:00: key=:Alt-n: 11:11:00: key=:Alt-r: 11:11:00: key=:Control-q: 11:11:00: key=:Control-Shift-plus: 11:11:00: key=:Alt-h: 11:11:00: key=:Control-v: 11:11:00: Sending event KeyPress with code 108 (state=Mod2-) to window 169869327 11:11:00: = 11:11:00: event=KeyPress 11:11:00: keysym =0 (state=Mod2-Mod5-) 11:11:00: keysymdec=0 11:11:00: keycode =24 11:11:00: state=Mod2-Mod5- 11:11:00: symtocode=48 11:11:00: keyboard =n19 11:11:00: combo=Mod5-0 11:11:00: key=:Alt-n: 11:11:00: key=:Alt-r: 11:11:00: key=:Control-q: 11:11:00: key=:Control-Shift-plus: 11:11:00: key=:Alt-h: 11:11:00: key=:Control-v: 11:11:00: Sending event KeyPress with code 24 (state=Mod2-Mod5-) to window 169869327 11:11:01: = 11:11:01: event=KeyRelease 11:11:01: keysym =0 (state=Mod2-Mod5-) 11:11:01: keysymdec=0 11:11:01: keycode =24 11:11:01: state=Mod2-Mod5- 11:11:01: symtocode=48 11:11:01: keyboard =n19 11:11:01: combo=Mod5-0 11:11:01: key=:Alt-n: 11:11:01: key=:Alt-r: 11:11:01: key=:Control-q: 11:11:01: key=:Control-Shift-plus: 11:11:01: key=:Alt-h: 11:11:01: key=:Control-v: 11:11:01: Sending event KeyRelease with code 24 (state=Mod2-Mod5-) to window 169869327 11:11:01: = 11:11:01: event=KeyRelease 11:11:01: keysym =0 (state=Mod2-Mod5-) 11:11:01: keysymdec=0 11:11:01: keycode =108 11:11:01: state=Mod2-Mod5- 11:11:01: symtocode=48 11:11:01: keyboard =n19 11:11:01: combo=Mod5-0 11:11:01: key=:Alt-n: 11:11:01: key=:Alt-r: 11:11:01: key=:Control-q: 11:11:01: key=:Control-Shift-plus: 11:11:01: key=:Alt-h: 11:11:01: key=:Control-v: 11:11:01: Sending event KeyRelease with code 108 (state=Mod2-Mod5-) to window 169869327 11:11:04: = 11:11:04: event=KeyPress 11:11:04: keysym =b (state=Mod2-) 11:11:04: keysymdec=98 11:11:04: keycode =56 11:11:04: state=Mod2- 11:11:04:
