Forum Webscript.Ru
Программирование => Perl => Тема начата: xalex от 22 Мая 2003, 15:00:11
-
Доброе время суток.
Есть задача, передать данные в определенную форму на странице. Что нужно добавить?
Текущий код:
#!/usr/bin/perl -w
use Socket;
$host="www.zol.ru";
$port="80";
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\'));
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
# post method send
$link = "/declar_new/add.php";
send (SOCK, "
POST $link\\n
HTTP/1.0\\n
User-Agent: Mozilla/5.0\\n
Accept: text/html\\n
Accept: image/gif\\n
Content-Type: application/x-www-form-urlencoded\\n
Content-Length: 0\\n
title=demo\\n
author=demo\\n
email=demo\\@demo.ru\\n
url=www.demo.ru\\n
class=3\\n
mesg=demo\\n
HOST:$host\\n\\n
", 0);
@data = ;
close(SOCK);
print @data;
-
А чё, не работает?
-
Mog.:
А чё, не работает?
Работало бы - не спрашивал. :)
Не работает. В ответе пишет ошибку 302.
На указанной странице несколько форм, может быть связано с этим. Кстати, как запостить данные именно в нужную форму, или это определяет сервер по переданным параметрам?
-
Mog.:
А чё, не работает?
ответ сервера:
[/list]
302 Found
Found
The document has moved here.<
P>
Apache/1.3.27 Server at http://www.zol.ru Port 80
[/list]
-
Словарь в руки и переводить.
Далее документация по LWP (perldoc LWP) до понятия сути вопроса.
Потом посмотреть какие названия у формы и передавать в каждую свою информацию.
Если лень все это делать, то есть раздел "Изготовление Скриптов..." запасайся деньгами и вперед.
-
NeoNox:
Словарь в руки и переводить.
Далее документация по LWP (perldoc LWP) до понятия сути вопроса.
Потом посмотреть какие названия у формы и передавать в каждую свою информацию.
Если лень все это делать, то есть раздел "Изготовление Скриптов..." запасайся деньгами и вперед.
Не пойму, для чего словарь, ну да ладно.
Если у формы нет названия, просто action и method?
-
Для перевода вот этой строки:
The document has moved here.
Далее смотрим эту страницу -
1) form action="/declar_new/add.php"
2) Заголовок объявления: input type="text" name="title" size="60" maxlength="60" value=""
3) Ваше имя: input type="text" name="author" size="60" maxlength="60" value=""
и так далее.
тебя должны интересовать name в input
-
NeoNox:
Для перевода вот этой строки:
The document has moved here.
Далее смотрим эту страницу -
1) form action="/declar_new/add.php"
2) Заголовок объявления: input type="text" name="title" size="60" maxlength="60" value=""
3) Ваше имя: input type="text" name="author" size="60" maxlength="60" value=""
и так далее.
тебя должны интересовать name в input
Я прекрасно знаю, что там написано, но почему document has moved?
Насчёт значений name в input - в моём примере они уже заданы. Насколько я понимаю, в эти поля должны были быть переданы указанные данные. Но этого не происходит, вместо этого надпись, что документ перемещен.
Вот здесь у меня вопрос, где я ошибаюсь?
-
Почему?!
К разработчику скрипта а не к нам :)
Скорее всего они так с рефрешом борятся...
-
Alone:
Почему?!
К разработчику скрипта а не к нам
Скорее всего они так с рефрешом борятся...
Может есть какие-то идеи, как всё-таки запостить объяву?
-
Content-Length: 0\\n
лол :)
И эээээ...уже не раз писал, что изобретение велосипеда не преследуется по закону.
Может воспользоваться LWP?
Если все-таки нет, то внимательно читать rfc2616.