0
我下载HTTP::Daemon::SSL草莓的Perl 5.10从CPAN和运行这个例子:如何使HTTP :: Daemon :: SSL在没有证书的情况下工作?
use HTTP::Daemon::SSL;
use HTTP::Status;
# Make sure you have a certs/ directory with "server-cert.pem"
# and "server-key.pem" in it before running this!
my $d = HTTP::Daemon::SSL->new || die;
print "Please contact me at: <URL:", $d->url, ">\n";
while (my $c = $d->accept) {
while (my $r = $c->get_request) {
if ($r->method eq 'GET' and $r->url->path eq "/dir") {
# remember, this is *not* recommened practice :-)
$c->send_file_response("f.html");
} else {
$c->send_error(RC_FORBIDDEN);
}
}
$c->close;
undef($c);
}
应用死于这一行:
my $d = HTTP::Daemon::SSL->new || die;
我没有证书。是否有一个选项可以自定义此代码以在不需要证书的情况下运行它?如果是的话,有人可以帮忙吗?
我也试图取代
my $d = HTTP::Daemon::SSL->new || die
与
my $d = HTTP::Daemon::SSL->new(SSL_use_cert => 0) || die;
,得到了相同的结果。
我产生用于测试一些certifactes正如你所说,但还是死的链接。 – smith 2012-01-30 14:37:55
适用于我 – daxim 2012-01-30 14:47:13