Android

use Android;
 
sub dumphash {
   my $hash = pop;
   my $key, $down;
   for $key (keys %$hash) {
      if ($key eq "result") {
         $down = $hash->{$key};
         for $key (keys %$down) {
            print "result ==> $key => $down->{$key}\n";
         }
      }
   }
}
 
my $a = Android->new();
my $r;
 
$r=$a->startSensing("SENSOR_ACCELEROMETER");
&dumphash ($r);
# ^c (Ball-C) to break
for($ii=0;$ii<2000;$ii++){
  $r=$a->readSensors("SENSOR_ACCELEROMETER");
#  printf ("r %3.0f  p %3.0f  a %3.0f  \n", $r->{'result'}->{'roll'},  $r->{'result'}->{'pitch'},  $r->{'result'}->{'azimuth'});
  printf ("x %5.2f  y %5.2f  z %5.2f  \n", $r->{'result'}->{'xmag'},  $r->{'result'}->{'ymag'},  $r->{'result'}->{'zmag'});
#  &dumphash ($r);
}
$r=$a->stopSensing("SENSOR_ACCELEROMETER");
&dumphash ($r);

use Android;
my $a = Android->new();

#connect to: http://localhost:8888

use IO::Socket;
use IO::Select;

$ctrl_port = 8888;
$timeout_mins = 30; # 30 min. timeout
$selectcnt = 0;
$debug = 0;
$noisy = 0;


while ($arg = shift) {
    if ($arg =~ /help/) {
        print "Useage:\n";
        print "perl $0 [debug] [noisy] [ctrl_port=#;8888] [to=#min.]\n";
        print "If [srvr=#] is missing, report client address\n";
        exit;
    }
    if ($arg =~ /debug/) {
        $debug++;
        print "ARGS debug\n";
    }
    if ($arg =~ /noisy/) {
        $noisy = 1;
        print "ARGS noisy\n";
    }
    if ($arg =~ /to=(.+)/) {
        $timeout_mins = $1;
        print "ARGS to=$timeout_mins\n";
    }
    if ($arg =~ /ctrl_port=(.+)/) {
        $ctrl_port = $1;
        print "ARGS ctrl=$ctrl_port\n";
    }
}


$ctrl_lstn_sock = IO::Socket::INET->new (
    LocalPort => $ctrl_port,
    Listen => 5, 
    Reuse => 1
);
die "Can't create socket for listening: $!" unless $ctrl_lstn_sock;

my $readable = IO::Select->new;     # Create a new IO::Select object
$readable->add($ctrl_lstn_sock);          # Add the lstnsock to it


sub debug_info {
    print "CONN_DBG:lstnsock      $lstn_sock\n";
}


$tend = time + $timeout_mins * 60;
$tstart = time + 0;
$tickdelta = 1;
$tick = time + $tickdelta;

while(1) {
    if (time >= $tend) {
        print STDERR "\n\n=== $timeout_mins minutes timeout occured, stop\n\n";
        last;
    }
    if (time >= $tick) {
        $tick = time + $tickdelta;
        $now_string = localtime;
        print STDERR "\r$now_string: PID $$ up ", time - $tstart, " S $selectcnt connections \r";
    }

    # Get a list of sockets that are ready to talk to us.
    my ($ready) = IO::Select->select($readable, undef, undef, $tickdelta);
    foreach my $curr_socket (@$ready) {
        # Is it a new connection?
        &debug_info, if ($debug);
        $selectcnt++;
        if($curr_socket == $ctrl_lstn_sock) {
            print "============================ SELECT Control READY $selectcnt =========================\n$now_string\n", if ($noisy);
#---------------------- Form Control Page handler  -----------------------
            $now_string = localtime;
            $ctrl_sock = $ctrl_lstn_sock->accept;
            $addr = $ctrl_sock->peeraddr ();
            if (defined $addr) {
                $client_ip = inet_ntoa ($addr);
            } else {
                $client_ip = "unknown";
            }
            $commands = "";
            $ctrlportcnt++;
            print "---------------------------- CTRL HTML $ctrlportcnt begin ----------------------------\n", if ($noisy);
            while (<$ctrl_sock>) {
                if (/^ *\n*\r*$/) {
                    last;
                }
                print "CTRL $_", if ($noisy);
                if (/GET \/portfwrd_ctrlport\.pl\?([^ ]+) HTTP/) {
                    $commands = $1;
                }
            }
            print "---------------------------- CTRL HTML $ctrlportcnt   end----------------------------\n", if ($noisy);
            print "CTRL parameters: >$commands<\n", if ($noisy);
            print "CTRL $now_string: $client_ip connected to control port\n", if ($noisy);

            # ------------------- parameters input processing
            @cmd_param_pairs = split ('&', $commands);
            undef %params;
            foreach $cmd_param_pair (@cmd_param_pairs) {
                ($name, $param) = split ('=', $cmd_param_pair);
                print "CTRL_CMD $name=$param\n", if ($noisy);
                $params{$name} = $param;
            }


            if ($params{'debug'} eq "on") {
                $debug = 1;
            } else {
                $debug = 0;
            }
            if ($params{'noisy'} eq "on") {
                $noisy = 1;
            } else {
                $noisy = 0;
            }


            print $ctrl_sock "HTTP/1.0 200 OK\r\n\r\n<html><body>\n";
            print $ctrl_sock "$now_string: you have connected to the control port from $client_ip\n";


            print $ctrl_sock "<form action=\"/portfwrd_ctrlport.pl\" method=\"PUT\">\n";
            print $ctrl_sock "    <table border=\"1\" cellpadding=\"5\" cellspacing=\"3\">\n";

            print $ctrl_sock "        <tr>\n";
            print $ctrl_sock "            <td>Parameters</td>\n";
            print $ctrl_sock "            <td>Descriptions</td>\n";
            print $ctrl_sock "        </tr>\n";


            if ($debug) {
                $buf = "checked";
            } else {
                $buf = "";
            }
            print $ctrl_sock "        <tr>\n";
            print $ctrl_sock "            <td><input type=\"checkbox\" $buf name=\"debug\">debug</td>\n";
            print $ctrl_sock "            <td>debug, prints to console</td>\n";
            print $ctrl_sock "        </tr>\n";

            if ($noisy) {
                $buf = "checked";
            } else {
                $buf = "";
            }
            print $ctrl_sock "        <tr>\n";
            print $ctrl_sock "            <td><input type=\"checkbox\" $buf name=\"noisy\">noisy</td>\n";
            print $ctrl_sock "            <td>noisy, prints to console</td>\n";
            print $ctrl_sock "        </tr>\n";


            print $ctrl_sock "        <tr>\n";
            print $ctrl_sock "            <td><input type=\"submit\" value=\"Set Config\"></td>\n";
            print $ctrl_sock "            <td>$selectcnt connections</td>\n";
            print $ctrl_sock "        </tr>\n";


            print $ctrl_sock "    </table>\n";
            print $ctrl_sock "</form>\n";
            print $ctrl_sock "</body></html>";

            $ctrl_sock->close;
            $ctrl_sock = 0;
        } else {
            # multiple connection?
            print STDERR "ERROR  s $curr_socket\n";
        }
    }
}

use Android;
my $a = Android->new();
$a->makeToast("Hello, Android!");