VPF::Получение и передача параметров, хранимых в Cookie

SergaNT83

Дата 28.9.2007, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 28.9.2007

Репутация: нет
Всего: нет

Подскажите пожалуйста!!!!
Есть скрипт, который через https-протокол передаёт на адрес https://www.site_name.com/login/htm логин и пароль, затем необходимо как-то с помощью этого скрипта проанализировать параметры, которые www.site_name.com пытается записать в cookie и передать их в дальнейшем другому скрипту тоже как cookie. Как это можно реализовать???

nitr

Дата 29.9.2007, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84

SergaNT83, здесь много это обсуждали, поищите (100% есть), если что - поджскажем...

--------------------

I love ArchLinux

SergaNT83

Дата 29.9.2007, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 28.9.2007

Репутация: нет
Всего: нет

Да уже искал - полночи по форуму лазил, по всякому пробовал - результата почти никакого. Вся проблема в том, что здесь, в основном, получают/передают cookie при работе с библиотекой LPW, которая НЕ поддерживает протокол https и используют для этого cookie_jar. Использовать этот метод в моем случае не получается... Вот код, может подскажите, в чем ошибка:

Код


use Time::Local;
use CGI;

use strict;
use Net::SSLeay qw(post_https make_headers);

my $req_userid = "111";
my $req_password = "222";


my $request =  "userid=$req_userid&password=$req_password";

my $reqHeaders;
$reqHeaders .= make_headers("Content-Type"=>"text/plain; charset=windows-1251");

my $host = "app.atcopen.com";

my $port = "443"; 
my $uri  = "/login.html";


my ($body, $status, %resHeaders) = post_https($host,$port,$uri,$reqHeaders,$request); ## 

print "Content-type: text/html\n\n";




print $body;




exit(0);

nitr

Дата 29.9.2007, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84

Цитата(SergaNT83 @ 29.9.2007, 16:16

)

аботе с библиотекой LPW, которая НЕ поддерживает протокол https

кто сказал?

Цитата

Crypt::SSLeay - OpenSSL support for LWP

так что установите Crypt::SSLeay, и будет работать в LWP.

Для вас:

Код


my ($content, $cookie);
my %my_headers =  (
    'User-Agent' => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6',
    'Accept' => 'text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5',
    'Accept-Charset' => 'windows-1251,utf-8;q=0.7,*;q=0.7',
    'Keep-Alive' => 300,
    'Connection' => 'keep-alive',
);
my ($page, $response, %headers) = get_https('app.atcopen.com', 443, '/login.html', make_headers(%my_headers));
if ($response =~ /200 OK/i and %headers) {
    $content = $page;
    $cookie = $headers{'SET-COOKIE'};
}
# Ну а тут разбираем строку в $cookie, конечно если надо ;)

--------------------

I love ArchLinux

biophreak

Дата 9.10.2007, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.5.2007

Репутация: нет
Всего: нет

А вообще имхо perldoc CGI::Session

nitr

Дата 9.10.2007, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84

biophreak, зачем?

--------------------

I love ArchLinux

biophreak

Дата 9.10.2007, 14:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.5.2007

Репутация: нет
Всего: нет

Понял, не то написал немного, сначала подумал что ему надо писать куки и читать из цги скрипта smile

Сорри!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »