Re^6: Mojolicious Websocket example

OK, I am learning that stuff. Here is a solution for my problem. Script runs every second and sends data ( current time in this example) via websocket.

Here is the code:

#!/usr/bin/env perl
use warnings;
use strict;
use Mojolicious::Lite;

get '/' => 'index';

websocket '/echo' => sub {
  my $c = shift;
  $c->app->log->debug('WebSocket opened');

  $c->inactivity_timeout(300);

  my $id = Mojo::IOLoop->recurring(1 => sub {

  my $msg1 = `date`;
  $c->send($msg1);

 });

   $c->on(finish => sub {
    my ($c, $code, $reason) = @_;
    $c->on(finish => sub { Mojo::IOLoop->remove($id) });

    $c->app->log->debug("WebSocket closed with status $code");

  });
};
app->start;

__DATA__

@@ index.html.ep
<!DOCTYPE html>
<html>
  <head><title>Test</title></head>
  <body>
    <script>
      var ws = new WebSocket('<%= url_for('echo')->to_abs %>');
      ws.onmessage = function(event) {
        document.getElementById("dateTime").innerHTML = event.data;
      };
    </script>

<h1 id="dateTime"></h1>
  </body>
</html>
[download]

Thanks for help.

Robert

Comment on Re^6: Mojolicious Websocket example Download Code