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

Perltidy -pbp

Browse source
This commit is contained in:
Duncan Ferguson 2014-06-28 11:40:00 +01:00
parent 977ae78c6f
commit 8a445a32ba
1 changed files with 33 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/App/ClusterSSH.pm
View file

@ -304,7 +304,11 @@ sub load_keyboard_map() {
{
# ignore code=0
$self->debug( 2, "Unknown keycode ", $keyboard[$i][$modifier] );
$self->debug(
2,
"Unknown keycode ",
$keyboard[$i][$modifier]
);
}
}
}
@ -552,12 +556,14 @@ sub send_text($@) {
$self->debug( 2, "Looking for char :$char: with ord :$ord:" );
$self->debug( 2, "Looking for keycode :$keycode:" );
$self->debug( 2, "Looking for keysym :$keysym:" );
$self->debug( 2, "Looking for keyboardmap :", $keyboardmap{$keysym}, ":" );
$self->debug( 2, "Looking for keyboardmap :",
$keyboardmap{$keysym}, ":" );
my ( $state, $code ) = $self->get_keycode_state($keysym);
$self->debug( 2, "Got state :$state: code :$code:" );
for my $event (qw/KeyPress KeyRelease/) {
$self->debug( 2, "sending event=$event code=:$code: state=:$state:" );
$self->debug( 2,
"sending event=$event code=:$code: state=:$state:" );
$xdisplay->SendEvent(
$servers{$svr}{wid},
0,
@ -1854,6 +1860,7 @@ sub run {
$self->getopts;
warn "GETOPTS work in progress";
#die;
### main ###
@ -1866,7 +1873,8 @@ sub run {
$self->debug( 2, "VERSION: $VERSION" );
$self->config->{ssh_args} = $self->options->options if ( $self->options->options );
$self->config->{ssh_args} = $self->options->options
if ( $self->options->options );
$self->config->{terminal_args} = $self->options->term_args
if ( $self->options->term_args );