X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=premotedroid-server.pl;h=0d7c6b0d4c1120f230842aefb5911f0bbfd4257b;hb=84af4ebaf2cd7af727a304463504e136bbbbf1e9;hp=da8c17d1051166151f745d8634789adb585350a2;hpb=4ac752ff650f0490e19fff56ae954c81bd111508;p=premotedroid-server-perl.git

diff --git a/premotedroid-server.pl b/premotedroid-server.pl
index da8c17d..0d7c6b0 100755
--- a/premotedroid-server.pl
+++ b/premotedroid-server.pl
@@ -45,8 +45,16 @@ while ( my $client = $sock->accept() ) {
 		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";
+		} elsif ( $command == MOUSE_CLICK ) {
+			read $client, my $b, 2;
+			my ( $button, $state ) = unpack 'cc', $b;
+			warn "MOUSE_CLICK $button $state\n";
+		} elsif ( $command == MOUSE_WHEEL ) {
+			read $client, my $amount, 1;
+			$amount = unpack 'c', $amount;
+			warn "MOUSE_WHEEL $amount\n";
 		} elsif ( $command == AUTHENTIFICATION ) {
 			my $auth = readUTF $client;
 			warn "AUTHENTIFICATION [$auth]\n";