kraih · October 30, 2011 04:14
diff --git a/livelog.pl b/livelog.pl
 #!/usr/bin/env perl
 use Mojolicious::Lite;

 get '/' => 'index';

 get '/events' => sub {
  my $self = shift;

  # Subscribe to "message" event and emit "log" event
  $self->res->headers->content_type('text/event-stream');
  my $cb = $self->app->log->on(
    message => sub {
      my ($log, $level, $message) = @_;
      $self->write("event:log\ndata: [$level] $message\n\n");
    }
  );
  $self->on(finish => sub { $self->app->log->unsubscribe(message => $cb) });
 };

 app->start;
 __DATA__

 @@ index.html.ep
 <!doctype html><html>
  <head><title>LiveLog</title></head>
  <body>
    <script>
      var events = new EventSource('<%= url_for 'events' %>');

      // Subscribe to "log" event
      events.addEventListener('log', function(event) {
        document.body.innerHTML += event.data + '<br/>';
      }, false);
    </script>
  </body>
 </html>
	#!/usr/bin/env perl
	use Mojolicious::Lite;

	get '/' => 'index';

	get '/events' => sub {
	my $self = shift;

	# Subscribe to "message" event and emit "log" event
	$self->res->headers->content_type('text/event-stream');
	my $cb = $self->app->log->on(
	message => sub {
	my ($log, $level, $message) = @_;
	$self->write("event:log\ndata: [$level] $message\n\n");
	}
	);
	$self->on(finish => sub { $self->app->log->unsubscribe(message => $cb) });
	};

	app->start;
	__DATA__

	@@ index.html.ep
	<!doctype html><html>
	<head><title>LiveLog</title></head>
	<body>
	<script>
	var events = new EventSource('<%= url_for 'events' %>');

	// Subscribe to "log" event
	events.addEventListener('log', function(event) {
	document.body.innerHTML += event.data + '<br/>';
	}, false);
	</script>
	</body>
	</html>