in reply to PSGI, Plack, Twiggy, AnyEvent and SockJS... I need help

In your code, you create the callback timer and immediately discard it, which prevents the timer from ever getting called:

sub {
...
            my $w = AnyEvent->timer(
                after => 0,
                interval => 5,
                cb => sub {
                    $session->write('5 seconds have passed');
                    $w_cond->send();
                }
            };
}

[download]

You need to keep $w alive until the timer has fired. The easiest way is the following pattern:

...
            my $w; $w = AnyEvent->timer(
                after => 0,
                interval => 5,
                cb => sub {
                    undef $w; # cleanup!
                    $session->write('5 seconds have passed');
                    $w_cond->send();
                }
            };
...

[download]

That way, the timer stays alive until it has fired.

Replies are listed 'Best First'.
Re^2: PSGI, Plack, Twiggy, AnyEvent and SockJS... I need help
by xtpu2 (Acolyte) on Apr 09, 2014 at 14:24 UTC
    Thanks for that advice also! I've modified the code in the OP, however, the behavior has stayed the same.
[reply]

      Please don't modify your original code that much, as people then can't learn from seeing your code progress through the stages.

      The next step would be to add (much) more amounts of server-side logging. print or warn at every step of the process. At least add logging statements to the following points:

          mount '/echo' => SockJS->new(
        handler => sub {
            warn "Creating new session";
            my ($session) = @_;

            $session->on(
                'data' => sub {
                    my $session = shift;
                    warn "got new data";

                    $session->write('got your message');
                    warn "Wrote response";
                }
            );

            $session->write('connected');
            warn "Wrote greeting";

            my $w_cond = AnyEvent->condvar;
            my $w; $w = AnyEvent->timer(
                after => 0,
                interval => 5,
                cb => sub {
                    undef $w; # cleanup
                    $session->write('5 seconds have passed');
                    warn "Wrote timer message";
                    $w_cond->send();
                }
            );
            $w_cond->recv;
            warn "Leaving";
        };
    );

      [download]
[reply]
[d/l]
[select]

        Sorry! I will stop doing that. So far, one of the issues has been resolved: the problem with connection closing immediately. The node with updated code is here.

        There is still a problem with the timer firing only once.

[reply]
Re^2: PSGI, Plack, Twiggy, AnyEvent and SockJS... I need help
by Anonymous Monk on Apr 09, 2014 at 14:56 UTC
    I believe you meant to say: 
    my $w;
sub {
...
    $w = AnyEvent->timer(
    ...
}

    [download]
    ie: you want $w outside of builder
[reply]
[d/l]
      On another glance 
      my $w; $w = AnyEvent->timer(

      [download]
      is correct, but 
      $w_cond->send();

      [download]
      within your timer cb is not what you want. From AnyEvent: 
      $w->recv; # enters "main loop" till $condvar gets ->send

      [download]
      You want to ->recv when you are done with things. Adding another timeout timer for example would do the trick allowing your timer to run couple of times and eventually terminating your timer and the main loop after 30 seconds: 
      my $w; $w = AnyEvent->timer(
    after => 0,
    interval => 5,
    cb => sub {
        $session->write('5 seconds have passed');
    }
);

my $timeout_timer; $timeout_timer = AnyEvent->timer(
    after => 0,
    interval => 30,
    cb => sub {
        undef $w;
        undef $timeout_timer;
        $session->write('Timeout after 30 seconds');
        $w_cond->send();
    }
);

      [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom