Поиск (ключи):    ПРОГРАММЫ СТАТЬИ СОВЕТЫ ФОРУМ   WIKI НОВОСТИ (+) MAN'ы ДОКУМЕНТАЦИЯ

<< Предыдущая ИНДЕКС Исправить 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 / Печать Следующая >>

Обсуждение [ RSS ]   1, FireA, 16:20, 02/06/2008 [ответить] [смотреть все] +/– Как эту штуку прикрутить к squid?   Ваш комментарий Имя:          E-Mail:       Заголовок: Текст:

АКЦИЯ! ПОДПИШИСЬ на журнал Linux Format до 31 января 2012 года и выиграй СУПЕРПРИЗ! Журнал "Linux Format" (Линукс Формат)- Единственный в России и странах СНГ журнал на русском языке, посвящённый Linux и свободному ПО. Журнал для IT-директоров, IT-менеджеров, программистов, системных администраторов, учителей школ и преподавателей ВУЗов и всех пользователей ПК. В каждом выпуске: Новости индустрии OpenSource, обзоры новинок свободного ПО, обучающие и методические статьи. Каждый, кто оформит подписку, получает бонус- объёмные наклейки на системный блок и подарки: с одним из первых выпусков журнала в 2012 году- диск с архивом номеров за 2005-2011 г.г. и ежемесячно электронную версию журнала в pdf-формате. Подробнее о проведении акции вы можете прочитать на странице сайта.