[ новости /+++ | форум | теги | ]

<< Предыдущая ИНДЕКС Исправить src / Печать Следующая >>

Ключевые слова: ssl, perl, proxy,  (найти похожие документы)

Date: Tue, 30 Ьфк 2008 12:55:26 +0600
From: "Dr.Lector" <drlector@can.com.>
Newsgroups: ftn.ru.perl
Subject: Пример использования Perl модуля Net::SSLeay для создания HTTP->HTTPS прокси


use Net::SSLeay qw(get_https post_https sslcat make_headers make_form);

sub get_post_https{
    my($uag, $url, $proxy, $referer, $method, @content, $lng) = @_;

    $proxy =~ m/(.+):(\d+)/;
    Net::SSLeay::set_proxy($1, $2);
    $url =~ m#^https://([\.\w\d_-]+)(/.+)#i;
    $url = $1;
    $path = $2;
    my ($html, $resp_status, %resp_heders);
       if($method eq 'get'){
         my $enc_url = url($url);
               $enc_url->query_form(@content);
          ($thml, $resp_status, %resp_heders) = get_https($enc_url, 443, $path,
            make_headers(Pragma => 'no-cache', 
                    Accept => '*/*', 
                    Accept-Encoding => 'gzip, deflate',
                    Accept-Language => $lng, 
                    Referer => $referer, 
                    User-Agent => $uag, 
                    Proxy-Connection => 'Keep-Alive'
            )
          );
       } else{
          ($html, $resp_status, %resp_heders) = post_https($url, 443, $path,
             make_headers(Pragma => 'no-cache', 
                Accept => '*/*', 
                Accept-Encoding => 'gzip, deflate',
                Accept-Language => $lng, 
                Referer => $referer, 
                User-Agent => $uag, 
                Proxy-Connection => 'Keep-Alive'
            ),
            make_form(@cont)
          );
       }
    return $html if $resp_status =~ m/200/ig;
}

Hо с куками прейдется руками через make_headers() работать, но думаю это 
не есть проблема ;)

<< Предыдущая ИНДЕКС Исправить src / Печать Следующая >>

1, FireA (??), 16:20, 02/06/2008 [ответить]   +/– Как эту штуку прикрутить к squid?

Партнёры:

Хостинг: