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

check for errors around keyboard key data gathering

Browse source
This commit is contained in:
duncan_ferguson 2006-12-13 19:12:03 +00:00
parent 1dc9e56c74
commit ecaed9f61f
1 changed files with 30 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

52
clusterssh/src/cssh.pl
View file

@ -395,30 +395,38 @@ sub load_keyboard_map()
foreach ( 0 .. $#keyboard ) foreach ( 0 .. $#keyboard )
{ {
if(defined($keycodetosym { $keyboard[$_][0] })) if(defined $keyboard[$_][0]) {
{ if(defined($keycodetosym { $keyboard[$_][0] }))
$keyboardmap{ $keycodetosym { $keyboard[$_][0] } } = 'n' . ($_ + $min); {
} else { $keyboardmap{ $keycodetosym { $keyboard[$_][0] } } = 'n' . ($_ + $min);
logmsg(2, "Unknown keycode ", $keyboard[$_][0]) if($keyboard[$_][0] != 0); } else {
logmsg(2, "Unknown keycode ", $keyboard[$_][0]) if($keyboard[$_][0] != 0);
}
} }
if(defined($keycodetosym { $keyboard[$_][1] })) if(defined $keyboard[$_][1]) {
{ if(defined($keycodetosym { $keyboard[$_][1] }))
$keyboardmap{ $keycodetosym { $keyboard[$_][1] } } = 's' . ($_ + $min); {
} else { $keyboardmap{ $keycodetosym { $keyboard[$_][1] } } = 's' . ($_ + $min);
logmsg(2, "Unknown keycode ", $keyboard[$_][1]) if($keyboard[$_][1] != 0); } else {
} logmsg(2, "Unknown keycode ", $keyboard[$_][1]) if($keyboard[$_][1] != 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[$_][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... # dont know these two key combs yet...
#$keyboardmap{ $keycodetosym { $keyboard[$_][4] } } = $_ + $min; #$keyboardmap{ $keycodetosym { $keyboard[$_][4] } } = $_ + $min;