Или туда, или сюда

[shoorick]

В ходе борьбы с самописными изобретениями лисапедов, унаследованными с каких-то древних времён, стал снова читать передаваемые скрипту аргументы старым добрым модулем CGI. Выяснил, что одновременное чтение аргументов методами POST и GET не получается: если параметры переданы методом POST, то CGI.pm не желает заниматься разбором URL (а писать самому — не наш метод).

Comments

[porutchik.livejournal.com]

# Some people want to have their cake and eat it too!
# Uncomment this line to have the contents of the query string
# APPENDED to the POST data.
# $query_string .= (length($query_string) ? '&' : '') . $ENV{'QUERY_STRING'} if defined $ENV{'QUERY_STRING'};
last METHOD;


CGI.pm 3.29, line 647

[sappa.livejournal.com]

Хакать CGI.pm это плохая магия. Я бы отрывал руки. На крайний случай (если чтение документации не помогает) можно объявить свой класс унаследованный от CGI и написать в нем свой метод init. Но мне таких крайних случаев не попадалось.

[sappa.livejournal.com]

> если параметры переданы методом POST, то CGI.pm не желает заниматься разбором URL

Желает. Читаем главу MIXING POST AND URL PARAMETERS в доке perldoc CGI.

my $cgi = new CGI;

if ($cgi->request_method() eq 'POST') {
    my $id_from_body = $cgi->param('id');
    my $id_from_url  = $cgi->url_param('id');
    ...
}

Обычно, если параметр один (в данном примере еще и не пустой и не ноль),
но передается неизвестно где, то достаточно просто написать:

my $session_id = $cgi->param('session_id') || $cgi->url_param('session_id');

uncomment, говоришь?

[shoorick.livejournal.com]

Не наш метод.

Промахнулся

[shoorick.livejournal.com]

Коммент про не наш метод, вообще-то, был Роме адресован :-)