use constant FILE_EXPLORE_REQUEST => 8;
use constant FILE_EXPLORE_RESPONSE => 9;
+open(my $xdo, '|-', 'xdotool -') || die $!;
+select($xdo); $|=1;
+
+my $keysyms = {
+ -1 => 'BackSpace',
+ 10 => 'Return',
+};
+
while ( my $client = $sock->accept() ) {
warn "connect from ", dump $client->peeraddr, $client->peerport;
warn "# command: $command\n";
if ( $command == MOUSE_MOVE ) {
read $client, my $move, 4;
- my ( $x, $y ) = unpack 'ss', $move;
+ my ( $x, $y ) = unpack 's>s>', $move; # big-endian 16 bit
warn "MOVE $x $y\n";
+ print $xdo "mousemove_relative -- $x $y\n";
+ } elsif ( $command == MOUSE_CLICK ) {
+ read $client, my $b, 2;
+ my ( $button, $state ) = unpack 'cc', $b;
+ warn "MOUSE_CLICK $button $state\n";
+ print $xdo 'mouse' . ( $state ? 'down' : 'up' ) . ' ' . $button . "\n";
+ } elsif ( $command == MOUSE_WHEEL ) {
+ read $client, my $amount, 1;
+ $amount = unpack 'c', $amount;
+ warn "MOUSE_WHEEL $amount\n";
+ print $xdo 'click ' . ( $amount > 0 ? 4 : 5 ) . "\n" foreach ( 1 .. abs($amount) );
} elsif ( $command == AUTHENTIFICATION ) {
my $auth = readUTF $client;
warn "AUTHENTIFICATION [$auth]\n";
print $client pack 'cc', AUTHENTIFICATION_RESPONSE, 1; # FIXME anything goes
+ } elsif ( $command == KEYBOARD ) {
+ read $client, my $unicode, 4;
+ my $key = unpack 'l>', $unicode;
+ my $command = 'type';
+ if ( defined $keysyms->{$key} ) {
+ $key = $keysyms->{$key};
+ $command = 'key';
+ } else {
+ $key = chr($key);
+ $command = 'key' if $key =~ m/^\w$/;
+ }
+ warn uc($command)," $key\n";
+ print $xdo "$command '$key'\n";
+ } elsif ( $command == SCREEN_CAPTURE_REQUEST ) {
+ read $client, my $capture_req, 7;
+ my ( $width, $height, $format ) = unpack 's>s>c', $capture_req;
+ my $fmt = $format ? 'jpg' : 'png';
+ warn "SCREEN_CAPTURE_REQUEST $width*$height $format $fmt\n";
+ my $location = `xdotool getmouselocation`;
+ warn "# mouse $location\n";
+
+ my $x = $1 if $location =~ m/x:(\d+)/;
+ my $y = $1 if $location =~ m/y:(\d+)/;
+
+ $x -= $width / 2; $x = 0 if $x < 0;
+ $y -= $height / 2; $y = 0 if $y < 0;
+
+ my $file = "/tmp/capture.$fmt";
+ my $capture = "xwd -root | convert -crop ${width}x${height}+$x+$y xwd:- $file";
+ # FIXME I wasn't able to persuade import to grab whole screen and disable click
+
+ warn "# $capture\n";
+ system $capture;
+
+ print $client pack('cl>', SCREEN_CAPTURE_RESPONSE, -s $file);
+ open(my $fh, '<', $file) || die "$file: $!";
+ while( read $fh, my $chunk, 8192 ) {
+ print $client $chunk;
+ warn ">> ",length($chunk), "\n";
+ }
} else {
die "UNSUPPORTED";
}