Package: clusterssh Version: 3.19.1-4 cssh in etch reports the following error messages about 100 times when being invoked:
Use of uninitialized value in hash element at /usr/bin/cssh line 410. Use of uninitialized value in numeric ne (!=) at /usr/bin/cssh line 414. Use of uninitialized value in hash element at /usr/bin/cssh line 416. Use of uninitialized value in numeric ne (!=) at /usr/bin/cssh line 420. The following patch fixes the problem: --- cssh.orig 2006-11-07 03:08:26.000000000 +0100 +++ cssh.hw 2006-12-11 11:19:40.000000000 +0100 @@ -395,30 +395,38 @@ foreach ( 0 .. $#keyboard ) { - if(defined($keycodetosym { $keyboard[$_][0] })) - { - $keyboardmap{ $keycodetosym { $keyboard[$_][0] } } = 'n' . ($_ + $min); - } else { - logmsg(2, "Unknown keycode ", $keyboard[$_][0]) if($keyboard[$_][0] != 0); - } - if(defined($keycodetosym { $keyboard[$_][1] })) - { - $keyboardmap{ $keycodetosym { $keyboard[$_][1] } } = 's' . ($_ + $min); - } else { - logmsg(2, "Unknown keycode ", $keyboard[$_][1]) if($keyboard[$_][1] != 0); + if(defined $keyboard[$_][0]) { + if(defined($keycodetosym { $keyboard[$_][0] })) + { + $keyboardmap{ $keycodetosym { $keyboard[$_][0] } } = 'n' . ($_ + $min); + } else { + logmsg(2, "Unknown keycode ", $keyboard[$_][0]) if($keyboard[$_][0] != 0); + } } - if(defined($keycodetosym { $keyboard[$_][2] })) - { - $keyboardmap{ $keycodetosym { $keyboard[$_][2] } } = 'a' . ($_ + $min); - } else { - logmsg(2, "Unknown keycode ", $keyboard[$_][2]) if($keyboard[$_][2] != 0); - } - if(defined($keycodetosym { $keyboard[$_][3] })) - { - $keyboardmap{ $keycodetosym { $keyboard[$_][3] } } = 'sa' . ($_ + $min); - } else { - logmsg(2, "Unknown keycode ", $keyboard[$_][3]) if($keyboard[$_][3] != 0); + if(defined $keyboard[$_][1]) { + if(defined($keycodetosym { $keyboard[$_][1] })) + { + $keyboardmap{ $keycodetosym { $keyboard[$_][1] } } = 's' . ($_ + $min); + } else { + 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); + } else { + 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); + } else { + logmsg(2, "Unknown keycode ", $keyboard[$_][3]) if($keyboard[$_][3] != 0); + } + } # dont know these two key combs yet... #$keyboardmap{ $keycodetosym { $keyboard[$_][4] } } = $_ + $min; ||/ Name Version Description +++-====================-====================-======================================================== ii clusterssh 3.19.1-4 administer multiple ssh or rsh shells simultaneously ii libx11-protocol-perl 0.55-1 Perl module for the X Window System Protocol, version 11 ii openssh-client 4.3p2-6 Secure shell client, an rlogin/rsh/rcp replacement ii perl-tk 804.027-7 Perl module providing the Tk graphics library. ii xterm 222-1 X terminal emulator -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]