VPF::Скрипт отсыла сообщения в гостевую

Dolik

Дата 15.1.2005, 00:59 (ссылка)

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

Загрузка ...

Новичок

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

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

Приветствую. Объясните почему он работать не хочет. По идее он должен при запуске внести запись в гостевую на удаленном хосте. При его запуске с компа значек на компе "загорается" , т.е. соединение с хостом идет но сообщение не остается. Помогите пожалуйста.

Код

use LWP::Simple;
my $url = 'http://rota35.boom.ru/servletGuestBook?action=view&id=33076235'; #URL гостевой на удаленном хосте
my $form1= 'from';                 # имя поля формы
my $form2 = 'comment';         # имя поля формы
my $val1= 'Dolik';                   # значение поля формы
my $val2 = 'Eto soobschenie poslano skriptom, esli ono doshlo znachit skript rabotaet';                 # значение поля формы
my $req = $url."&".&c_str($form1 => $val1, $form2 => $val2);
sub c_str{
my %_data=map { s/([^0-9a-z])/sprintf("%%%x", ord($1))/egi;$_; } @_;
my $_out;
for ( keys %_data ){
 $_out.="&" if ($_out);
 $_out.=$_."=".$_data{$_};
}
return $_out;
}
get($req);

wpp

Дата 16.1.2005, 12:32 (ссылка)

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

Загрузка ...

Шустрый

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

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

там же вроде метод POST ожидается

Цитата

Гость_Yuri

Дата 16.2.2005, 14:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ну что методом POST проблему решили?
Если нет - поделюсь своими соображениями.
[email protected]

dimes

Дата 16.2.2005, 17:02 (ссылка)

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

Загрузка ...

Бывалый

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

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

Dolik
Абсолютно не правильный запрос на сервер... Не привильный не состороны perl а просто е правильный, передаются не те значения не те поля и т.д.
Проблемма каторая стала перед табой к perl не имеет отношение скорее к HTML, вобщем учим мат часть в смысле HTML

s_a_s_h_a

Дата 17.2.2005, 09:56 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 261
Регистрация: 20.7.2004
Где: Петрозаводск

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

Посмотрел я твою гостевую. Исправь в

my $url = 'http://rota35.boom.ru/servletGuestBook?action=view&id=33076235';

action=view на action=post. В общем, смотри html-код своей формы.

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