я в шоке. CONTENT_LENGTH

[teebot]

Доброе время суток.

использую в форме метод POST, в скрипте хочу получить данные через read(STDIN,$buffer,$ENV{CONTENT_LENGTH});

но $buffer всегда пустой.
Я перенес сайт с одного сервера на другой. И вот такая беда.

Куда смотреть даже не заваю.

Помогите кто чем сможет.
Спасибо.

[NeoNox]

Выложи кусок скрипта где определяется $buffer и эта строчка.

[teebot]

#!/usr/bin/perl

read(STDIN,$st,$ENV{\'CONTENT_LENGTH\'});
@pairs = split(/&/, $st);
 foreach $pair (@pairs)
    {
      ($name, $value) = split(/=/, $pair);
      $value =~ tr/+/ /;
      $value=~ s /%0D%0A/
/g;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(\'C\', hex($1))/eg;
      $FORM{$name} = $value;
  }
..................
на предидущем сервере это работало.

[NeoNox]

Значит пора переходить тебе на модуль CGI
perldoc CGI;

use CGI qw(:standard);

my %FORM;
$FORM{fieldname} = param(fildname);

и далее...

[Yaroslav]

эээээ а где - $buffer = $ENV{\'QUERY_STRING\'}; ?

[NeoNox]

Yaroslav
эээээ а зачем он там нужен???

[Yaroslav]

NeoNox:
эээээ а зачем он там нужен???

так вот же

teebot:
но $buffer всегда пустой.

[teebot]

ну ладно не прикалывайтесь.
нам теперь $buffer не нужна на ее месте теперь $st.
Говорим $buffer подрозумеваем $st.

[Phoinix]

teebot

Может проблема в HTML форме

Попробуй все-таки проверить через CGI передаются переменные или нет? Тем более это не так долго...

[teebot]

Ну вот форма, вроде ничего особенного, к тому же на старом месте все работало (вот что меня сбивает с толку).


";

Автор*:
Тема*:
E-Mail:
	Сообщение*:

теги вроде все закрыты.

[Yaroslav]

тут много вопросов и надо все видеть что б понять, а вообще я только этой ночью написал скрипт похожий на тот что сейчас у тебя http://forums.webscript.ru/showthread.php?s=&threadid=12366&pagenumber=2  (правда не знаю что твой делать должен, но думаю тебе нет проблем исправить)

[teebot]

посмотрел, попробовал вставить if ($ENV{\'QUERY_STRING\'}) {$namevalues = $ENV{\'QUERY_STRING\'};}
else {read(STDIN, $namevalues, $ENV{\'CONTENT_LENGTH\'});}
 не помогло.

Вот мой заголовок запроса

POST http://путь/cgi-bin/nt.pl HTTP/1.0
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, application/pdf, */*
Referer: http://путь/cgi-bin/readtop.pl?dir=linux&page=0
Accept-Language: ru
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
Host: сервак
Content-Length: 48
Pragma: no-cache
Cookie: phpbb2mysql_data=a%3A2%3A%7Bs%3A11%3A%22autologinid%22%3Bs%3A0%3A%22%22%3Bs%3A6%3A%22userid%22%3Bs%3A2%3A%2288%22%3B%7D

aname=12&folderdir=linux&topik=2&email=&vopros=2


данные передаються. Значит с формой я так понял все классно.
почему же тогда $st всегда пустая.
Я уже интересовался насчет каких-то ограничений на хостинге, говорят что нет таких.
может есть еще какая нибудь переменная окружения гдежно выцепить передаваемые данные?

[teebot]

посмотрел, попробовал вставить if ($ENV{\'QUERY_STRING\'}) {$namevalues = $ENV{\'QUERY_STRING\'};}
else {read(STDIN, $namevalues, $ENV{\'CONTENT_LENGTH\'});}
 не помогло.

Вот мой заголовок запроса

POST http://путь/cgi-bin/nt.pl HTTP/1.0
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, application/pdf, */*
Referer: http://путь/cgi-bin/readtop.pl?dir=linux&page=0
Accept-Language: ru
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
Host: сервак
Content-Length: 48
Pragma: no-cache
Cookie: phpbb2mysql_data=a%3A2%3A%7Bs%3A11%3A%22autologinid%22%3Bs%3A0%3A%22%22%3Bs%3A6%3A%22userid%22%3Bs%3A2%3A%2288%22%3B%7D

aname=12&folderdir=linux&topik=2&email=&vopros=2


данные передаються. Значит с формой я так понял все классно.
почему же тогда $st всегда пустая.
Я уже интересовался насчет каких-то ограничений на хостинге, говорят что нет таких.
может есть еще какая нибудь переменная окружения гдежно выцепить передаваемые данные?

[NCRangeR]

teebot
У меня такое уже было

Попробуй получать данные из POST в самом-самом-самом начале работы скрипта.

Некоторые встроенные функции типа "cookie" делают sysread до тебя, таким образом информация теряется.

Еще попробуй вместо просто sysread сделать вот так:

$PostContent = "";
while (sysread STDIN, $str, $ENV {"CONTENT_LENGTH"})
{
$PostContent .= $str;
};

[teebot]

ничего не изменилось.
пробовал вставить твой кусок.

а sysread  у мен я и так самой первой строчкой стоит,ну после #!/usr/bin/perl, розумеется.