gist:387207

gistfile1.pl

Perl

      
        
          
          
            use Android;
my $a = Android->new();
use Plack::Runner;
use Plack::Request;
 
my $runner = Plack::Runner->new;
$runner->parse_options(qw[
    --server HTTP::Server::PSGI
    --port   8888
]);
$runner->run(sub {
    my $env = shift;
    my $req = Plack::Request->new( $env );
 
    if ( my $phone_number = $req->param('phone_number') ) {
        $a->callNumber( $phone_number );
        return [
            200,
            [ 'Content-Type' => 'text/html' ],
            [qq[
                <html>
                <head>
                    <title>Plack On Droid</title>
                </head>
                <body>
                    <p>Calling $phone_number ...</p>
                </body>
                </html>
            ]]
        ];
    }
    else {
        return [
            200,
            [ 'Content-Type' => 'text/html' ],
            [q[
                <html>
                <head>
                    <title>Plack On Droid</title>
                </head>
                <body>
                <form>
                    Enter a phone number to call<br/>
                    <input type="text" name="phone_number" />
                    <input type="submit" value="Go" />
                </form>
                </body>
                </html>
            ]]
        ];
    }
});

          
        

    

Please sign in to comment on this gist.

public stevan / gist:387207 Created 2010-05-02

public

stevan / gist:387207

Created 2010-05-02