|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Timur Vafin 2:5020/400 21 Feb 2003 16:24:54 To : Artem Chuprina Subject : Re: передать CONTENT скрипту методом POST -------------------------------------------------------------------------------- Thu Feb 20 2003 23:27, Artem Chuprina wrote to "Timur Vafin": TV>> Использую средства mod_perl TV>> нужно перед вызовом скрипта через $r->internal_redirect($uri); TV>> передать ему весть все полученные данные или из $r-args или из TV>> $r->content. TV>> Через $r->header_out(CONTENT_LENGTH => $r->content); не получается. AC> И не получится. Единственное, на что есть шансы - не читать $r->content AC> (обрати внимание, что его может читать, например, CGI.pm) до редиректа. AC> Hо я не уверен, что сработает. Или через файл - это надежно, но со всеми AC> вытекающими. Через файл нельзя. Это как раз делается для проверки кук. Система получилась такая. В скрипте вызывается функция, назовем enabledCookie, из модуля. Она должда собрать все переменные, например так %params = ($r->args,$r->content), добавить еще один параметр, "set", говорящий о том, что я куку положил, и отредиректить на $ENV{'HTTP_REFERER'}. Тама опять вызывается enabledCookie, которая видит параметр "set" и пробует получить куку. Если получилось, то возвращает истину, иначе ложь. Проблема в том, что не могу собрать все параметры и отредиректить на другой скрипт с этими параметрами... Всё будет хорошо... --- ifmail v.2.15dev5 * Origin: FidoNet Online - http://www.fido-online.com (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/16679c8cb07a5.html, оценка из 5, голосов 10
|