From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 19 Sep 2010 20:32:09 +0000 (+0200)
Subject: use xdo type and key to implement keyboard
X-Git-Url: http://git.rot13.org/?p=premotedroid-server-perl.git;a=commitdiff_plain;h=cb61382a0111ebc555c2a379b68bb832e8b442e9

use xdo type and key to implement keyboard
---

diff --git a/premotedroid-server.pl b/premotedroid-server.pl
index c0cbd2f..470b069 100755
--- a/premotedroid-server.pl
+++ b/premotedroid-server.pl
@@ -39,6 +39,11 @@ 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;
@@ -64,6 +69,19 @@ while ( my $client = $sock->accept() ) {
 			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";
 		} else {
 			die "UNSUPPORTED";
 		}