Участник+
Зарегистрирован: Jun 2002
Место проживания:
Публикаций: 85
Статус:  |
блин... засада у меня просто какая-то...
в наличии форма для входа:
<form action="http://666.test.ru/" method=get>
<input type=hidden name="c" value="666">
Имя: <input name="mn" maxlength=30>
Пароль: <input type=password name="pass"> (для зарегистрированных)
<input type=submit value=" OK ">
</form>
есть скрипт увиденный где-то на форуме:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
use CGI;
$q = new CGI("c=666&mn=USERNAME");
$form_data = $q->query_string;
$headers = new HTTP::Headers(
Accept => "*/*",
Referer => "что тут писать конкретно???",
Content-Type => "что тут писать конкретно???"
);
$request = new HTTP::Request(
"POST",
"http://666.test.ru/",
$headers
);
$request->content($form_data);
$agent = new LWP::UserAgent;
$agent->agent("Mozilla/4.5");
$response = $agent->request($request);
print $response->content;
результат:
полная задница... где ошибка почему не работает???? ((((((
Сообщить модератору об этом сообщении | Предупреждение | IP: определен
|
Форум сетевых администраторов » Программирование » Другие » передача данных...
29-07-2002 16:46
