Mailing List Archive

It's worth noting that when I started stashing the $hd variable into
somewhere, I started getting a connection holding open.
However, attempts to CLOSE the websocket now seemed to hang on the
browser side, and were unreported on the server side.

Code follows:
has 'clients' => (
is => 'rw',
default => sub { +{} },
);

sub ws : Path('/ws') {
my ($self, $c) = @_;
$c->stash->{is_websocket} = 1;
my $io = $c->req->io_fh;
my $hs = Protocol::WebSocket::Handshake::Server->new_from_psgi($c->req->env);
$hs->parse($io);
my $hd = AnyEvent::Handle->new(fh => $io);
$self->clients->{$hd} = 1;
$hd->push_write($hs->to_string);
$hd->push_write($hs->build_frame(buffer => "Echo Initiated")->to_bytes);
my $error_cb = sub {
my ($handle, $fatal, $message) = @_;
if (defined $message) {
warn "ws error: $message\n";
}
delete $self->clients->{$handle};
return;
};
$hd->on_eof($error_cb);
$hd->on_error($error_cb);
$hd->on_read(sub {
(my $frame = $hs->build_frame)->append($_[0]->rbuf);
while (my $msg = $frame->next) {
warn "ws: frame contained: $msg\n";
$hd->push_write($hs->build_frame(buffer => "Hello $msg")->to_bytes);
}
});
}


On 23 February 2015 at 12:08, Toby Corkindale <toby@dryft.net> wrote:
> Hi,
> I've been trying to replicate the use of WebSockets in Catalyst, by
> following the example from the Advent calendar a year and a bit ago.
> ie.
> https://github.com/perl-catalyst/2013-Advent-Staging/blob/master/Websocket-Echo/lib/MyApp/Controller/Root.pm
>
> In my experience, it isn't actually working properly -- I get the
> "Echo Initiated" message, but then an instant disconnect.
>
> Looking at the code, I'm highly suspicious of the $hd variable -- it
> doesn't get stored anywhere, and according to the AnyEvent docs, I
> think that means it will get DESTROYed once it goes out of scope. ie.
> Immediately.
>
> That fits the behaviour I'm seeing, although I think I've had it work
> for me randomly at times as well, so... I don't know.
>
> I wondered if anyone here has thoughts on the matter?
>
> Cheers,
> Toby



--
Turning and turning in the widening gyre
The falcon cannot hear the falconer
Things fall apart; the center cannot hold
Mere anarchy is loosed upon the world

_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Last I checked it worked however there's no version of this in the catalyst test repo.  If you can help me figure out how to bake a test for this (even if it needs to be an optional developer only test) I'd greatly appreciate it.

On Sunday, February 22, 2015 7:09 PM, Toby Corkindale <toby@dryft.net> wrote:


Hi,
I've been trying to replicate the use of WebSockets in Catalyst, by
following the example from the Advent calendar a year and a bit ago.
ie.
https://github.com/perl-catalyst/2013-Advent-Staging/blob/master/Websocket-Echo/lib/MyApp/Controller/Root.pm

In my experience, it isn't actually working properly -- I get the
"Echo Initiated" message, but then an instant disconnect.

Looking at the code, I'm highly suspicious of the $hd variable -- it
doesn't get stored anywhere, and according to the AnyEvent docs, I
think that means it will get DESTROYed once it goes out of scope. ie.
Immediately.

That fits the behaviour I'm seeing, although I think I've had it work
for me randomly at times as well, so...  I don't know.

I wondered if anyone here has thoughts on the matter?

Cheers,
Toby

_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

try the code here: jjn1056/Perl-Catalyst-AsyncExample and let me know if that's busted, it would give me something to go on.
|   |
|   | |   |   |   |   |   |
| jjn1056/Perl-Catalyst-AsyncExamplePerl-Catalyst-AsyncExample - maybe some sort of async with catalyst |
| |
| View on github.com | Preview by Yahoo |
| |
|   |