#!/usr/bin/perl --
# Automatically enables "strict", "warnings", "utf8" and Perl 5.10 features
use Mojolicious::Lite;
Main( @ARGV );
exit( 0 );
sub myapp {
my $tx = shift;
$tx->send( "Entering myapp." );
my @delays;
foreach my $xx ( 0 .. 3 ) {
$tx->send( "$xx...".localtime() );
#~ https://metacpan.org/pod/Mojo::IOLoop#delay
#~ https://metacpan.org/pod/Mojo::IOLoop::Delay
push @delays, sub {
my ($delay, @args) = @_;
Mojo::IOLoop->timer( 3 => $delay->begin );
$tx->send( "after 3 $xx...".localtime() );
};
}
$tx->send( "Leaving myapp." );
Mojo::IOLoop->delay( @delays )->wait;
return "You should never see this.";
} ## end sub myapp
sub Main {
get '/' => sub { my $c = shift; $c->render( 'index' ); };
get '/log2' => sub { my $c = shift; $c->render( 'log2' ); };
websocket '/log3' => \&ws_log4;
app->secrets( [ 'password' => '8675309J' ] );
app->start;
} ## end sub Main
sub ws_log4 {
my $self = shift;
my $tx = $self->tx;
my $ip = $tx->remote_address;
app->log->debug( "Client '$ip' connected" );
$tx->send( "Entering log4." );
$self->inactivity_timeout( 50 );
Mojo::IOLoop->timer( 2 => sub { myapp( $tx ) } ); ## get started
$self->on(
finish => sub {
my( $c, $code, $reason ) = @_;
$c->app->log->debug( "WebSocket closed with status $code." );
}
);
$tx->send( "Leaving log4." );
} ## end sub ws_log4
__DATA__
@@ index.html.ep
Static Page
Index Page
This is a static page.
For WebSockets example, click here.
@@ log2.html.ep
WebSockets Example
%= javascript '/mojo/jquery/jquery.js'
wait for it )
%= javascript begin
var ws = new WebSocket('<%= url_for('log3')->to_abs %>');
ws.onopen = function() {
$('#result').text("Connection open.");
ws.send("Hi.");
};
ws.onmessage = function (e) {
// $('#result').append( "\n" + ( (new Date()).toISOString() ) + " : " + e.data);
$('#result').append( "\n" + ( (new Date()).toLocaleString() ) + " : " + e.data);
};
% end