Модераторы: korob2001, ginnie

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> не могу передать cookies от CGI 
V
    Опции темы
gcc
Дата 15.7.2008, 13:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17
не передаються cookies

передавал методом html

сейчас желательно передать модулем cgi чтобы не засорять вывод шаблонов  smile 
(редиректо тоже не работал)

Код

$query = CGI->new();

print $query->header( -charset => "utf8", -cookie=>$cookie );

#дальше сессия самописная

 $cookie = $query->cookie( -session => $session,
                             -expires => '+15m' );


сессии нету
Код

my %cookies = fetch CGI::Cookie;
print $cookies{'session'};


если передать через html, то сессии с авторизациеи и аутентификациеи работает...


подскжаите в чем проблема пожалуйста?


Это сообщение отредактировал(а) gcc - 15.7.2008, 13:10


--------------------
Perl FAQ
freelance
perl, jquery, js, php
perl, jquery
PM WWW ICQ Skype GTalk Jabber   Вверх
Itsys
Дата 15.7.2008, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

Репутация: 2
Всего: 34
Дык порядок то должен быть другой  smile 
Код

$query = CGI->new();

#дальше сессия самописная

 $cookie = $query->cookie( -session => $session,
                             -expires => '+15m' );

print $query->header( -charset => "utf8", -cookie=>$cookie );
PM MAIL WWW Skype   Вверх
gcc
Дата 15.7.2008, 14:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17
 smile 

Это сообщение отредактировал(а) gcc - 15.7.2008, 18:12


--------------------
Perl FAQ
freelance
perl, jquery, js, php
perl, jquery
PM WWW ICQ Skype GTalk Jabber   Вверх
gcc
Дата 15.7.2008, 18:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17
Код

my %cookies = fetch CGI::Cookie;

if (!($cookies{'session'})) {
exit;
}


выходит, перестает работать...

они все таки не передаються, я испробывал все что мог и раньше и не захотели работать, все получалось кроме этого, почему они не передаються? должны или что не так?  что еще написать я не знаю?




Это сообщение отредактировал(а) gcc - 15.7.2008, 18:41


--------------------
Perl FAQ
freelance
perl, jquery, js, php
perl, jquery
PM WWW ICQ Skype GTalk Jabber   Вверх
tolkien
Дата 15.7.2008, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 4
Отдохните. Дайте своему подсознанию решить эту задачу. Завтра проснетесь и сразу разберетесь в чем дело.
PM MAIL   Вверх
gcc
Дата 15.7.2008, 18:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17
 smile  smile  smile 

эту задачу я уже пол года решить не могу

Это сообщение отредактировал(а) gcc - 15.7.2008, 18:47


--------------------
Perl FAQ
freelance
perl, jquery, js, php
perl, jquery
PM WWW ICQ Skype GTalk Jabber   Вверх
KSURi
Дата 15.7.2008, 18:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 20
Всего: 27
Цитата(gcc @  15.7.2008,  13:08 Найти цитируемый пост)
Код

$cookie = $query->cookie( -session => $session,-expires => '+15m' );

А если попробовать
Код

$cookie = $query->cookie(-name => 'session',-value=>$session,-expires=>'+15m')

?


--------------------
Died at Life.pl line 21
PM Jabber   Вверх
gcc
Дата 16.7.2008, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17
спасибо, я плохо смотрел!

в первом посте я еще писал что редирект не могу сделать...

в поиске тут нашел:
Код

#!/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;



в документации:
Код

    print redirect(-uri=>'http://somewhere.else/in/movie/land',
                           -nph=>1,
                           -status=>301);


Код

   print redirect('http://somewhere.else/in/movie/land');



пробую так, и еще 100 раз - не работает

Код

my $referer = "http://org/index.pl"; 
print redirect( -uri => $referer,
                                          -nph=>1,
                           -status=>301 );


Код

print $query->redirect( -uri => $referer,
                                          -nph=>1,
                           -status=>301 );


ответ такой:
Код

 Status: 302 Moved Location: http://org/index.pl

в чем данная загадка?

Это сообщение отредактировал(а) gcc - 16.7.2008, 23:38


--------------------
Perl FAQ
freelance
perl, jquery, js, php
perl, jquery
PM WWW ICQ Skype GTalk Jabber   Вверх
nitr
Дата 17.7.2008, 00:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 37
Всего: 84
Цитата
The -nph parameter, if set to a true value, will issue the correct headers to work with a NPH (no-parse-header) script. This is important to use with certain servers, such as Microsoft IIS, which expect all their scripts to be NPH.


Код
print $query->redirect( -uri => $referer,
                        -status => 301 );


Это сообщение отредактировал(а) nitr - 17.7.2008, 00:49


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
gcc
Дата 17.7.2008, 01:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17
Код

Status: 301 Location: http://org/index.pl


тоже самое, ссылка у редиректа идет на мой скрипт, в общем я загуржу просто функцию главной страницы...  smile  

мне пока не надо - вопрос решил, если получиться напишу

(просто лучше узнать реферер, и отредиректить на реферер)

брайзер firefox 2



Это сообщение отредактировал(а) gcc - 17.7.2008, 01:18


--------------------
Perl FAQ
freelance
perl, jquery, js, php
perl, jquery
PM WWW ICQ Skype GTalk Jabber   Вверх
nitr
Дата 17.7.2008, 01:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 37
Всего: 84
gcc, это выдаётся в сам браузер? Если да, обновите до 3 ;)

А вообще, похоже что-то с index.pl (имхо).

Проверьте так:

1) создайте в DocumentRoot => index.html
Код
<html>
<head>
  <title>Test</title>
</head>
<body>
  <a href="/cgi-bin/test.cgi" title="Test">Test</a>
</body>
</html>

2) создайте в ./cgi-bin/ => test.cgi
Код
#!perl
use strict;
use CGI;

my $cgi = new CGI;

my $referer = "http://org/index.html";
print $cgi->redirect( -uri => $referer,
                      -status=>301);



--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
gcc
Дата 17.7.2008, 01:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17
ошибка 500, там заголовок надо передать браузеру, у меня перл не модулем работает

мне пока не надо - вопрос решил загрузкой главной страницы, если получиться напишу

ЗЫ я давно не ставил + в репутацию, после перла сил не хватает, надо будет ставить всем smile 

Это сообщение отредактировал(а) gcc - 17.7.2008, 01:48


--------------------
Perl FAQ
freelance
perl, jquery, js, php
perl, jquery
PM WWW ICQ Skype GTalk Jabber   Вверх
gcc
Дата 17.7.2008, 06:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17
Код

Status: 301 Location: /index.html


попробовал в opere - тоже самое...

там все таки надо сделать редирект, по той причине что функция проверки сессии и cookie идет из самого начала, а чтобы перекинуть пользователя в режим гостя или пользователя, то нужно все с начала выбирать иначе получиться 2 режима  smile 


а то кто делал, подскажите пожалуйста про редирект...

Это сообщение отредактировал(а) gcc - 17.7.2008, 06:45


--------------------
Perl FAQ
freelance
perl, jquery, js, php
perl, jquery
PM WWW ICQ Skype GTalk Jabber   Вверх
nitr
Дата 17.7.2008, 07:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 37
Всего: 84
gcc, я вам привёл примеры, которые работают. Я специально проверил на трёх различных машинах, с разными ОС.
WinXP (Apache2), FreeBSD (Apache2), fedora (Apache).

gcc, раз вы протестировали моим способом, и не работает
1) Проверьте данное на хостинге, сервере (т.к. вероятность, что там криво настроен веб-сервер минимальна)
2) Сайты с редиректом работают (в Интернете)?

Считаю, что вы зря мучаетесь и не там копаете. В скриптах нет ошибок. Или приводите полный код...

P.S.: пол года это большой срок.

Добавлено через 4 минуты и 54 секунды
Вы mod_rewrite не используете? smile


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
gcc
Дата 17.7.2008, 07:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17
ну я где-то пол года назад поробовал много раз не получалось - решил через html


ваш код выдает error 500, потому что нету заголовка я заголовки так передал, правильно?

Код

#!/usr/local/bin/perl
use strict;
use CGI;

my $cgi = new CGI;



print $cgi->header( -charset => "utf8" );

my $referer = 'http://.ua/1/index.html';

print $cgi->redirect( -uri => $referer,
                      -status=>301);


это и есть полный код
perl 5.0.8

а у вам perl модeлем работает?

Это сообщение отредактировал(а) gcc - 17.7.2008, 11:01


--------------------
Perl FAQ
freelance
perl, jquery, js, php
perl, jquery
PM WWW ICQ Skype GTalk Jabber   Вверх
nitr
Дата 17.7.2008, 07:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 37
Всего: 84
Всё же чувство, трабл в веб-сервере.

Добавлено через 5 минут и 1 секунду
gcc, тот код что я привёл работает на трёх машинах.
Вы проверили на другой машине ваши скрипты?

Как тут заголовка нет? А редирект что?

gcc, вы исправьте в моём скрипте для себя
Код

#!/usr/local/bin/perl

вместо моего ;)


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
gcc
Дата 17.7.2008, 07:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17
Код

    AddHandler cgi-script .cgi
    AddHandler cgi-script .pl

Код


<Directory "/home/*/www/data">
        Options         +Indexes FollowSymLinks MultiViews ExecCGI
        AllowOverride   All
        Order           deny,allow
        Allow from      all
        MaxConnPerIP 10
</Directory>
# директория скриптов пользователя
<Directory "/home/*/www/cgi-bin">
        AllowOverride None
        Options None
        Order allow,deny
        Allow from all
        MaxConnPerIP 10
</Directory>


Код

<VirtualHost *:80>
#       ScriptAlias /cgi-bin "/home/ra/www/cgi-bin"
        ServerAdmin     [email protected]
#       AliasMatch      ^/~([^/]+)(/.*)*        /usr/home/$1/data$2
        DocumentRoot    /home/ra/www/data
        ServerName      *.org.ua
        ServerAlias     www.rab.org.ua
        SuexecUserGroup ra   ra
        Alias           /php-fcgi/      /home/ra/www/cgi-bin/
        CustomLog       /home/ra/log/httpd-access.log       combined
        ErrorLog        /home/ra/log/httpd-error.log
    
  CBandClassLimit world 150M
  CBandExceededSpeed 32 5 55
  CBandSpeed 4096 20 60
  CBandRemoteSpeed 512 6 6
  CBandScoreboard /var/www/scoreboard
  CBandPeriod 4W
</VirtualHost>



ну вот и все...

скрипты стоят в /home/*/www/data

 :(

Это сообщение отредактировал(а) gcc - 17.7.2008, 07:52


--------------------
Perl FAQ
freelance
perl, jquery, js, php
perl, jquery
PM WWW ICQ Skype GTalk Jabber   Вверх
nitr
Дата 17.7.2008, 07:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 37
Всего: 84
gcc, перечитайте все мои вопросы, и лучше отвечать на все smile Один ответили частично. А остальные? 
http://forum.vingrad.ru/index.php?showtopi...t&p=1582515

P.S. :редирект аля заголовок


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
gcc
Дата 17.7.2008, 07:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17
сори я поставил 

Код

#!/usr/bin/perl


ура!! работает, спасибо! 

Это сообщение отредактировал(а) gcc - 17.7.2008, 08:01


--------------------
Perl FAQ
freelance
perl, jquery, js, php
perl, jquery
PM WWW ICQ Skype GTalk Jabber   Вверх
nitr
Дата 17.7.2008, 08:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 37
Всего: 84
gcc, smile ну вот. Вы похоже плохо разобрались с заголовками. Редирект это тоже он ;)

P.S.: поздравляю, мучение закончилось. Не находите себе проблем на пол года ;)


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
nitr
Дата 19.7.2008, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 37
Всего: 84
Ставь галочку, раз решено


--------------------
user posted image
user posted image
I love ArchLinux
PM   Вверх
gcc
Дата 20.7.2008, 02:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17
пометил


--------------------
Perl FAQ
freelance
perl, jquery, js, php
perl, jquery
PM WWW ICQ Skype GTalk Jabber   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0916 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.