| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Perl: разработка для Web > Переделка с GET на POST |
| Автор: Dolik 19.1.2005, 00:06 |
| Здравствуйте, как мне переделать данный скрипт для оставления сообщения в гостевой на удаленном хосте с метода 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); |
| Автор: korob2001 19.1.2005, 03:47 |
| Если сообщение заполняется в форме, то просто укажи method="POST" тега form и action="адрес своей гостевой". Все параметры которые не зависят от ввода пользователя, такие как id и action, передавай в скрытых полях. Хотя всё не так просто, так как у твоей гостевой может быть проверка, с какого хоста был сделан запрос и если он не совпадает с текущим, то она(программа), просто, его(запрос) игнорирует. |