X-Git-Url: http://git.rot13.org/?p=premotedroid-server-perl.git;a=blobdiff_plain;f=premotedroid-server.pl;fp=premotedroid-server.pl;h=da8c17d1051166151f745d8634789adb585350a2;hp=59daded79f89b239c4423bcfa4cf3642d66b91a6;hb=4ac752ff650f0490e19fff56ae954c81bd111508;hpb=31ce457a44098b75ac165bf4be2e629e183b415c

diff --git a/premotedroid-server.pl b/premotedroid-server.pl
index 59daded..da8c17d 100755
--- a/premotedroid-server.pl
+++ b/premotedroid-server.pl
@@ -43,7 +43,11 @@ while ( my $client = $sock->accept() ) {
 	while ( read $client, my $command, 1 ) {
 		$command = ord $command;
 		warn "# command: $command\n";
-		if ( $command == AUTHENTIFICATION ) {
+		if ( $command == MOUSE_MOVE ) {
+			read $client, my $move, 4;
+			my ( $x, $y ) = unpack 'ss', $move;
+			warn "MOVE $x $y\n";
+		} elsif ( $command == AUTHENTIFICATION ) {
 			my $auth = readUTF $client;
 			warn "AUTHENTIFICATION [$auth]\n";
 			print $client pack 'cc', AUTHENTIFICATION_RESPONSE, 1; # FIXME anything goes