?? https.pm
字號:
#package LWP::Protocol::https;# $Id: https.pm,v 1.12 2003/10/15 10:35:47 gisle Exp $use strict;use vars qw(@ISA);require LWP::Protocol::http;@ISA = qw(LWP::Protocol::http);sub _check_sock{ my($self, $req, $sock) = @_; my $check = $req->header("If-SSL-Cert-Subject"); if (defined $check) { my $cert = $sock->get_peer_certificate || die "Missing SSL certificate"; my $subject = $cert->subject_name; die "Bad SSL certificate subject: '$subject' !~ /$check/" unless $subject =~ /$check/; $req->remove_header("If-SSL-Cert-Subject"); # don't pass it on }}sub _get_sock_info{ my $self = shift; $self->SUPER::_get_sock_info(@_); my($res, $sock) = @_; $res->header("Client-SSL-Cipher" => $sock->get_cipher); my $cert = $sock->get_peer_certificate; if ($cert) { $res->header("Client-SSL-Cert-Subject" => $cert->subject_name); $res->header("Client-SSL-Cert-Issuer" => $cert->issuer_name); } if(! eval { $sock->get_peer_verify }) { $res->header("Client-SSL-Warning" => "Peer certificate not verified"); }}#-----------------------------------------------------------package LWP::Protocol::https::Socket;use vars qw(@ISA);require Net::HTTPS;@ISA = qw(Net::HTTPS LWP::Protocol::http::SocketMethods);1;?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -