start porting from Java

- added readUTF
- added constants for actions

diff --git a/premotedroid-server.pl b/premotedroid-server.pl
index 7d630a0..0813192 100755 (executable)
--- a/premotedroid-server.pl
+++ b/premotedroid-server.pl
@@ -15,6 +15,27 @@ my $sock = IO::Socket::INET->new(
 
 warn "listen on ", dump $sock->sockaddr, $sock->sockport;
 
+sub readUTF {
+       my $client = shift;
+       read $client, my $len, 2;
+       $len = unpack( 'n', $len );
+       read $client, my $utf, $len;
+       warn "## readUTF $len [$utf]";
+       return $utf;
+}
+
+# from PRemoteDroid Protocol/src/org/pierre/remotedroid/protocol/action/PRemoteDroidAction.java
+use constant MOUSE_MOVE => 0;
+use constant MOUSE_CLICK => 1;
+use constant MOUSE_WHEEL => 2;
+use constant KEYBOARD => 3;
+use constant AUTHENTIFICATION => 4;
+use constant AUTHENTIFICATION_RESPONSE => 5;
+use constant SCREEN_CAPTURE_REQUEST => 6;
+use constant SCREEN_CAPTURE_RESPONSE => 7;
+use constant FILE_EXPLORE_REQUEST => 8;
+use constant FILE_EXPLORE_RESPONSE => 9;
+
 while ( my $client = $sock->accept() ) {
 
        warn "connect from ", dump $client->peeraddr, $client->peerport;
@@ -22,10 +43,10 @@ while ( my $client = $sock->accept() ) {
        while ( read $client, my $command, 1 ) {
                $command = ord $command;
                warn "# command: $command\n";
-               if ( $command == 4 ) {
-                       read $client, my $len, 2;
-                       read $client, my $auth, unpack( 'n', $len );
-                       warn "AUTHENTIFICATION $len $auth\n";
+               if ( $command == AUTHENTIFICATION ) {
+                       my $auth = readUTF $client;
+                       warn "AUTHENTIFICATION [$auth]\n";
+
                } else {
                        die "UNSUPPORTED";
                }