From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 19 Sep 2010 21:11:40 +0000 (+0200)
Subject: send mouse wheel events to xdotool
X-Git-Url: http://git.rot13.org/?p=premotedroid-server-perl.git;a=commitdiff_plain;h=949faeb914b497e897babb65e139853534d0a71f

send mouse wheel events to xdotool
---

diff --git a/premotedroid-server.pl b/premotedroid-server.pl
index 470b069..d4f2169 100755
--- a/premotedroid-server.pl
+++ b/premotedroid-server.pl
@@ -65,6 +65,7 @@ while ( my $client = $sock->accept() ) {
 			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";