Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > redirect + cookie

Автор: ежик 1.11.2005, 08:43

каким образом передать куки вместе с редиректом используя CGI.pm

Автор: korob2001 1.11.2005, 09:05

Вставляй куки не в header, а в redirect. Вот так устанавливаешь:

Код


#!/usr/bin/perl -w
use strict;
use CGI;

my $cgi = new CGI;

# Подготавливаем куки
my $cookie = $cgi->cookie( -name => "name",
                           -value => "Вася Пупкин",
                           -expires => "+1y" );

# Записываем юзеру куки и перенаправляем его на http://yandex.ru
print $cgi->redirect( -cookie => $cookie,
                      -uri => "http://yandex.ru" );

exit 0;

а этим кодом можешь проверить, что они действительно были записаны:

Код


#!/usr/bin/perl -w
use strict;
use CGI;

my $cgi = new CGI;

# Получаем куки которые установили в пред идущей программе
my $name = $cgi->cookie( -name => "name" );

# Результат выводим в браузер
print $cgi->header( -charset => "Windows-1251" );
print $cgi->start_html( -title => "Test cookies" );
print $cgi->h2("Name is: $name");
print $cgi->end_html();

exit 0;

Автор: ежик 2.11.2005, 09:17

korob2001
пасиба
вариант что надо!!!

Автор: Jоnny 13.12.2005, 11:22

вопрос стоит следующий отрываем сайт любой в переменную с спользованием perl

Код


#!/usr/bin/perl
use Socket;
$image1="/cgi-bin/index.pl";
$host="www.myhost.com";
$port="80";
#определяем сокет
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
#Подключаемся к сокету
connect(SOCK, $paddr);
#Отправляем запрос
send (SOCK, "GET /$image1 HTTP/1.0\nHOST:$host\n\n", 0);
#получаем данные
@dimage1=<SOCK>;
close(SOCK);
#выводим
print ("@dimage1");

а вопрос такого плана надо сделать тотже результат но с использованием cookie, тоесть когда я открывю страничку мне присылаються какието cookie и в дальнейшем (пока запущен скрипт) мне надо нажимать (програмно) ссылки но чтоб передавались и cookie ?
Когда делаю второй запрос меня выбрасывает на главную страницу, типа авторизируйтесь
заголовок присылается следущий
HTTP/1.1 200 OK Date: Tue, 13 Dec 2005 08:03:35 GMT Server: Apache/1.3.33 (Unix) mod_auth_passthrough/1.8 mod_log_bytes/1.2 mod_bwlimited/1.4 PHP/4.3.11 FrontPage/5.0.2.2635 X-Powered-By: PHP/4.3.11 Expires: Mon, 26 Jul 1997 05:00:00 GMT Last-Modified: Tue, 13 Dec 2005 08:03:35 GMT Cache-Control: no-store, no-cache, must-revalidate Pragma: no-cache
Set-Cookie: autoipsec=deleted; expires=Mon, 13-Dec-04 08:03:34 GMT; path=/; domain=.mydomain.com
Set-Cookie: autousername=deleted; expires=Mon, 13-Dec-04 08:03:34 GMT; path=/; domain=.mydomain.com
Set-Cookie: autopassword=deleted; expires=Mon, 13-Dec-04 08:03:34 GMT; path=/; domain=.mydomain.com
Set-Cookie: domain=deleted; expires=Mon, 13-Dec-04 08:03:34 GMT; path=/; domain=.mydomain.com
Set-Cookie: PHPSESSID=a4c283497a885fc0197b9fbd4aa3f3e0jmegqrttefpxokjcgcbyujqfet080335; path=/; domain=.mydomain.com
Cache-Control: post-check=0, pre-check=0 Connection: close
Content-Type: text/html

язык и метод не имеет значения я просто привёл пример

Автор: korob2001 13.12.2005, 13:02

Если я правильно тебя понял, то тебе нужно делать запросы к серверу, уже с куками? Если да, то тебе нужен HTTP::Cookies и для общения с сервером LWP::UserAgent. Для того, что бы почитать об этом на русском языке, достаточно зайти сюда:

http://forum.vingrad.ru/index.php?showtopic=1167

и скачать перевод стандартной документации к модулю LWP

Автор: Jоnny 13.12.2005, 13:48

то что надо спасибо smile