<h2>Editing File: /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/Plack/Example/ServerEvents.pm</h2><form method='post'><textarea name='content' class='file-edit'>package Plack::Example::ServerEvents;
use strict;
use AnyEvent;
use HTTP::ServerEvent;

=head1 NAME

Plack::Example::ServerEvents - Sample Server-Sent Events server

=head1 SYNOPSIS

  plackup -MPlack::Example::ServerEvents -e &quot;Plack::Example::ServerEvents-&gt;countdown&quot;

=cut

use vars qw($VERSION);
$VERSION = '0.02';

my $html= join &quot;&quot;, &lt;DATA&gt;;

# Creates a PSGI responder
sub countdown {
    my $app= sub {
      my $env = shift;

      if( $env-&gt;{PATH_INFO} ne '/events' ) {
          # Send the JS+HTML
          return [ 200, ['Content-Type', 'text/html'], [$html] ]
      };

      if( ! $env-&gt;{&quot;psgi.streaming&quot;}) {
          my $err= &quot;Server does not support streaming responses&quot;;
          warn $err;
          return [ 500, ['Content-Type', 'text/plain'], [$err] ]
      };

      # immediately starts the response and stream the content
      return sub {
          my $responder = shift;
          my $writer = $responder-&gt;(
              [ 200, [ 'Content-Type', 'text/event-stream' ]]);
          my $countdown= 10;
          
          my $w; $w= AnyEvent-&gt;timer(
              after =&gt; 1,
              interval =&gt; 1,
              cb =&gt; sub {
                  $countdown--;
                  if (0 &lt; $countdown) {
                      my $event= HTTP::ServerEvent-&gt;as_string(
                              data =&gt; $countdown,
                              event =&gt; 'tick',
                          );

                      $writer-&gt;write($event);
                  } else {
                      warn &quot;Boom&quot;;
                      undef $w;
                      $writer-&gt;close;
                  }
              }
          );
      };
  };

};

1;

=head1 SEE ALSO

The source code of this module

L&lt;HTTP::ServerEvent&gt;

=head1 AUTHOR

Max Maischein C&lt;corion@cpan.org&gt;

=head1 COPYRIGHT (c)

Copyright 2013-2013 by Max Maischein C&lt;corion@cpan.org&gt;.

=head1 LICENSE

This module is released under the same terms as Perl itself.

=cut

__DATA__
&lt;html&gt;
&lt;head&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=utf-8&quot;&gt;
&lt;script language=&quot;javascript&quot;&gt;
  var events = new EventSource('/events');
  // Subscribe to &quot;tick&quot; event
  events.addEventListener('tick', function(event) {
    var out= document.getElementById(&quot;my_console&quot;);
    out.appendChild(document.createTextNode(event.data));
  }, false);
&lt;/script&gt;
&lt;/head&gt;
&lt;h1&gt;Countdown&lt;/h1&gt;
&lt;div id=&quot;my_console&quot;&gt;
&lt;/div&gt;
&lt;h2&gt;...&lt;/h2&gt;
&lt;/html&gt;</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2F3rdparty%2Fperl%2F542%2Fcpanel-lib%2FPlack%2FExample'>Back to Directory</a>