переменные в CGI

[Yaroslav]

если не использовать CGI, то получение переменных у нас выглядит так:

Код: [Выделить]

if ($ENV{\'REQUEST_METHOD\'} eq "POST") { read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'}); }
else { $buffer=$ENV{\'QUERY_STRING\'}; }
и что б получить все что там передали можно воспользоваться print $buffer;

но используя CGI этот немер не проходит.
даже если

Код: [Выделить]


use CGI;
$a1=param(\'a1\');
$a1=param(\'a2\');
$a1=param(\'a3\');
if ($ENV{\'REQUEST_METHOD\'} eq "POST") { read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'}); }
else { $buffer=$ENV{\'QUERY_STRING\'}; }

$buffer = NULL

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

[arto]

а на какой предмет?