|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Paul Kulchenko 2:5020/400 18 Aug 2000 18:20:46
To : All
Subject : Re: multipart/from-data LWP FAQ(1/3) 1.10
--------------------------------------------------------------------------------
Hi, Dimka!
dimka kuvshinov wrote:
> <form action="http://www.kuku.ru/account/addimage.html" method=post
> enctype="multipart/form-data">
> <input type=hidden name="user" value="vovka">
> <input type=hidden name="password" value="123321">
> <input type=file name=image size=30>
> <input name=href value="http://www.kuku.ru" size=30>
> <select name=profile>
> <option value="1"> 1
> <option value="2"> 2
> <option value="3"> 3
> <input name=ratio value="123456" size=6>
> <input name=alt value="submit" size=30>
> <input type=submit value="Добавить">
>
> К ней, согласно LWP FAQ, прилагается такой код:
>
> #!/usr/bin/perl -w
> $test = "http://www.kuku.ru/account/addimage.html";
> $file = "test.gif";
> use HTTP::Request::Common qw(POST);
> use LWP::UserAgent;
> use CGI qw(header -no_debug);
>
> my $req = POST $test,
> Content_Type => 'form-data',
> Content => [
> user => 'vovka',
> password => '123321',
> image => [$file],
> href => 'http://www.kuku.ru',
> profile => '1',
> ratio => '222222',
> alt => 'LaLa fa, eti zvuki...'
> ];
> my $res = LWP::UserAgent->new->request($req);
> print header, $res->is_success ? $res->content : $res->status_line;
>
> Пишет(точнее возвращает) что у меня неверный логин/пароль.
Так может действительно неверный?
> Если страничка незапаролена, то все ОК. Скорее всего ошибка в формировании
> POST запроса, в rfc1867 написано такое:
Запрос формируется как раз согласно rfc1867. В этом легко убедиться
добавив
print $req->as_string.
Работа при отсутствии пароля подтверждает то, что запрос формируется
правильно. Попробуй передать ТОЛЬКО user/password методом POST и GET.
Если на той стороне тоже твой скрипт, посмотри, что принимается в виде
user/password.
Best wishes, Paul.
--- ifmail v.2.15dev5
* Origin: Trans World Airlines (TWA) (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: multipart/from-data LWP FAQ(1/3) 1.10 
