my $app = sub { my $env = shift; my $ws_scheme = 'ws'; if (exists($env->{HTTPS}) || $env['psgi.url_scheme'] eq 'https') { $ws_scheme = 'wss'; } if ($env->{PATH_INFO} eq '/') { my $body = <

WebSocket

EOF return ['200', ['Content-Type' => 'text/html'], [$body]]; } elsif ($env->{PATH_INFO} eq '/foobar/') { uwsgi::websocket_handshake($env->{HTTP_SEC_WEBSOCKET_KEY}, $env->{HTTP_ORIGIN}); #use Data::Dumper; print Dumper($env); my $ws_fd = &uwsgi::connection_fd; open my $file_fd, '/tmp/file_fd'; while(1) { uwsgi::wait_fd_read($ws_fd); uwsgi::wait_fd_read($file_fd); uwsgi::suspend(); my $fd = uwsgi::ready_fd(); if ($fd > -1){ if ($fd == $file_fd){ my $msg = "file changed\n"; uwsgi::websocket_send('['.time().'] '.$msg); } } else{ my $msg = uwsgi::websocket_recv_nb; } } } }