yevrah/echo.pl

## echo.pl
#!/usr/bin/env perl

# Usage:
#   perl echo.pl daemon

use Mojolicious::Lite;

get '/' => 'index';

websocket '/echo' => sub {
    my $self = shift;
    $self->on(message => sub {
            my ($self, $msg) = @_;
            my ($s,$m,$h)=localtime(time);
            $self->send({ json => { text => $msg, time=> "$h:$m:$s" }});
        });
};

app->start;

__DATA__
@@ index.html.ep
<html>
  <head>
    <script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js" ></script>
    <script type="text/javascript" charset="utf-8">
      $(function () {
          var log = function (text) { $('#log').val( $('#log').val() + text + "\n"); };

          var ws = new WebSocket('ws://localhost:3000/echo');
          ws.onopen = function () { log('Connection opened'); };

          ws.onmessage = function (msg) {
            var res = JSON.parse(msg.data);
            log(res.time + '> '  + res.text);
          };

         $('#msg').keydown(function (e) {
             if (e.keyCode == 13 && $('#msg').val()) {
                 ws.send($('#msg').val());
                 $('#msg').val('');
             }
           });
         });
    </script>
  </head>
<body>
    <input type="text" id="msg" placeholder="Type Your Message Here" /><br>
    <textarea id="log" readonly></textarea>
</body>
</html>
	#!/usr/bin/env perl

	# Usage:
	# perl echo.pl daemon

	use Mojolicious::Lite;

	get '/' => 'index';

	websocket '/echo' => sub {
	my $self = shift;
	$self->on(message => sub {
	my ($self, $msg) = @_;
	my ($s,$m,$h)=localtime(time);
	$self->send({ json => { text => $msg, time=> "$h:$m:$s" }});
	});
	};

	app->start;

	__DATA__
	@@ index.html.ep
	<html>
	<head>
	<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js" ></script>
	<script type="text/javascript" charset="utf-8">
	$(function () {
	var log = function (text) { $('#log').val( $('#log').val() + text + "\n"); };

	var ws = new WebSocket('ws://localhost:3000/echo');
	ws.onopen = function () { log('Connection opened'); };

	ws.onmessage = function (msg) {
	var res = JSON.parse(msg.data);
	log(res.time + '> ' + res.text);
	};

	$('#msg').keydown(function (e) {
	if (e.keyCode == 13 && $('#msg').val()) {
	ws.send($('#msg').val());
	$('#msg').val('');
	}
	});
	});
	</script>
	</head>
	<body>
	<input type="text" id="msg" placeholder="Type Your Message Here" /><br>
	<textarea id="log" readonly></textarea>
	</body>
	</html>