URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID8
Нить номер: 7750
[ Назад ]

Исходное сообщение
"websocket(серверная часть - perl)"

Отправлено Booker , 11-Июл-13 09:07 
#!/usr/bin/perl
use strict;
use Socket;
use Carp;
sub logmsg { print "@_ \n" }
my $port = shift || 8888;
my $proto = getprotobyname('tcp');
($port) = $port =~ /^(\d+)$/ or die "invalid port";
socket(Server, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1))   || die "setsockopt:$!";
bind(Server, sockaddr_in($port, INADDR_ANY)) || die "bind: $!";
listen(Server,SOMAXCONN) || die "listen: $!";
my $paddr;
$SIG{CHLD} = \&REAPER;
for ( ; $paddr = accept(Client,Server); close Client) {
    my($port,$iaddr) = sockaddr_in($paddr);
    my $name = gethostbyaddr($iaddr,AF_INET);
    my ($len, $data) = (0, "");
    $len = sysread(Client, $data, 8192, length($data));
    logmsg $data;
    my $Key;
    my $SecretKey = "258EAFA5-E914-47DA-95CA-C5AB0DC85B11";
    if ($data =~ /Sec-WebSocket-Key: (.*?)\r/) {
        my $data = $1.$SecretKey;
        use Digest::SHA1 qw/sha1_base64/;
        $Key = sha1_base64($data);
    }
    my $SendHandshake = "HTTP/1.1 101 Switching Protocols\r\n".
    "Upgrade: websocket\r\n".
    "Connection: Upgrade\r\n".
    "Sec-WebSocket-Accept: $Key\r\n\r\n";
    logmsg $SendHandshake;
    print Client $SendHandshake;
}

___________________________________________________________________________________

<html>
    <head>
        <meta http-equiv="content-type" content="text/html; charset=UTF-8"/>
    </head>
    <body>
        <script type="text/javascript">
        </script>
        <table border="0" cellpadding="2" cellspacing="2" width="100%">
            <tr>
                <td align="center">
                    <script type="text/javascript">
function WebSocketTest()
{
  if ("WebSocket" in window)
  {
     alert("WebSocket is supported by your Browser!");
     // Let us open a web socket
     var ws = new WebSocket("ws://localhost:8888");
     ws.onopen = function()
     {
        //Web Socket is connected, send data using send()
                alert("Message is sent...");
        ws.send("Message to send");
     };
     //alert(ws.readyState);
     //ws.send('meaasge');
     ws.onmessage = function (evt)
     {
        var received_msg = evt.data;
        alert("Message is received...");
     };
     ws.onclose = function()
     {
         //websocket is closed.
        alert("Connection is closed...");
     };
  }
  else
  {
     // The browser doesn't support WebSocket
     alert("WebSocket NOT supported by your Browser!");
  }
}
WebSocketTest();
                        </script>
                </td>
            </tr>
        </table>
    </body>
</html>

Событие onopen в javascript не срабатывает. Хендшейки пробовал по разному формировать, но не добился результата. В чем моя ошибка?


Содержание

Сообщения в этом обсуждении
"websocket(серверная часть - perl)"
Отправлено ACCA , 19-Июл-13 01:50 
Баг в sha1_base64. Причём и в Digest::SHA1 и в Digest::SHA

Так работает -


   use MIME::Base64;
   $Key = MIME::Base64::encode(sha1($data));


"websocket(серверная часть - perl)"
Отправлено ЫЫ , 28-Апр-16 00:58 
http://perldoc.perl.org/Digest/SHA.html
By convention, CPAN Digest modules do not pad their Base64 output.
  
      while (length($b64_digest) % 4) {
            $b64_digest .= '=';
        }

> Так работает -
>
 
>    use MIME::Base64;
>    $Key = MIME::Base64::encode(sha1($data));
>