VPF::fastcgi POST - Форум программистов

frenkys

Дата 5.1.2008, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

У когото получилось пердать в CGI::FAST параметры методом POST?

Код


#!/usr/bin/perl -w
use strict;
use warnings;

require 'cont4.pl';


use CGI::Fast qw(:standard);
while (new CGI::Fast) {
my $input='';
my $sid='';
my $a=$ENV{REQUEST_METHOD}." - ".$ENV{CONTENT_LENGTH}.'<hr>';
read STDIN, $input, $ENV{CONTENT_LENGTH}; 
$a.="input:$input<BR>";


foreach (param()) {$a.=param($_).'='.$_.'<BR>'}

print header();
print $a;
}

передаю сюда парметры методом пост

получаю

Код


POST - 22
input:

а если через GET то

Код


GET - input:
truba=parametr
ter=rot

APACHE2 Win XP fastcgi

Это сообщение отредактировал(а) frenkys - 6.1.2008, 00:41

--------------------

niva[frenky]

nitr

Дата 6.1.2008, 01:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 37
Всего: 84

Запустил ваш скрипт, всё нормально, единственное убрал require 'cont4.pl';

простейший test.html

Код


<!DOCTYPE HTML SYSTEM>
<html>
<head>
    <title>test</title>
</head>
<body>
    <form method="post" action="/cgi-bin/fastcgi.pl">
        <input type="text" name="param1" value=""><br>
        <input type="text" name="param2" value="">
        <input type="submit" value="POST">
    </form>
</body>
</html>

ваш скрипт, WinXp SP2, perl 5.8.8, Apache2, FCGI-0.67, результат:

Цитата

POST - 23
input:
truba=param1
ter=param2

Это сообщение отредактировал(а) nitr - 6.1.2008, 01:36

--------------------

I love ArchLinux

frenkys

Дата 6.1.2008, 14:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Спасибо, nitr, разобрался в cont4.pl была строчка:

$menup=param('menu') || '';

но не помимаю почему это сбивало все остальные парметры

--------------------

niva[frenky]

nitr

Дата 7.1.2008, 00:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 37
Всего: 84

frenkys, думаю не из-за этого smile

, попробуйте добавить эту строку в скрипт, всё нормально, никаких диструктивных действий (как оно и должно быть).

Код


...
my $menup=param('menu') || '';
...

Цитата

POST - 23
input:
truba=param1
ter=param2

Добавлено через 1 минуту и 27 секунд
Думаю - это надо проверять сам cont4.pl , скорее не из-за этой строки, но кто его знает, что за скрипт ;)

--------------------

I love ArchLinux

frenkys

Дата 8.1.2008, 02:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Спасибо nitr smile

--------------------

niva[frenky]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »