Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Переделка с GET на POST, Переделка с GET на POST 
:(
    Опции темы
Dolik
Дата 19.1.2005, 00:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Здравствуйте, как мне переделать данный скрипт для оставления сообщения в гостевой на удаленном хосте с метода GET на POST!!!

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);
PM MAIL   Вверх
korob2001
Дата 19.1.2005, 03:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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



Если сообщение заполняется в форме, то просто укажи method="POST" тега form и action="адрес своей гостевой". Все параметры которые не зависят от ввода пользователя, такие как id и action, передавай в скрытых полях. Хотя всё не так просто, так как у твоей гостевой может быть проверка, с какого хоста был сделан запрос и если он не совпадает с текущим, то она(программа), просто, его(запрос) игнорирует.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.0398 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.