我在CGI编程方面有点新手,我试图制作一个在线聊天API,但遇到了一些问题:
我在网上寻找解决方案,发现了Websocket(用于客户端js)和HTTP :: Daemon(用于Perl),但我不知道从哪里开始让服务器监听来自浏览器的连接。
这是我的JavaScript代码:
ws = new WebSocket('ws://www.crazygao.com:3000'); // test
ws.onopen = function() {
alert('Connection is established!'); // test
};
ws.onclose = function() {
alert('Connection is closed');
};
ws.onmessage = function(e) {
var message = e.data;
//alert('Got new message: ' + message);
};
ws.onerror = function(e) {
//var message = e.data;
alert('Error: ' + e);
};
这是我的Perl脚本测试代码:
use HTTP::Daemon;
use HTTP::Status;
my $d = HTTP::Daemon->new(
LocalAddr => 'www.crazygao.com',
LocalPort => 3000
) || die; print "Please contact me at: <URL:", $d->url, ">\n";
while(my $c = $d->accept) {
$c->send_response("1"); # test
while (my $r = $c->get_request) {
if ($r->method eq 'GET') {
$c->send_response("...");
}
}
$c->close;
undef($c);
}
当页面加载时,连接会立即关闭,并在Chrome控制台窗口中看到以下错误: WebSocket连接到'ws://198.38.89.14:3000/'失败:连接建立中出错:net::ERR_CONNECTION_REFUSED
我手动运行perl脚本(使用对http://example.com/cgi-bin/xxx.cgi的简单调用),然后当我刷新页面时,我得到: WebSocket连接到'ws://198.38.89.14:3000/'失败:WebSocket握手期间发生错误:意外的响应代码:200
我知道服务器通常返回200表示OK,但Websocket正在等待101代码作为“OK”。 我的问题是,如果是这样,我该如何做到这一点呢?