|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Denis Urasov 2:5020/400 02 Dec 2002 19:05:24
To : All
Subject : Использование LWP
--------------------------------------------------------------------------------
Здравствуйте, All.
Есть Перл скрипт:
#!/usr/bin/perl
use LWP::UserAgent;
$url=$ENV{'QUERY_STRING'};
$ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "$url");
$res = $ua->request($req, "file.zip");
print "Content-type: text/html\n\n";
if ($res->is_success) { print "ok\n"; }
else {print $res->status_line, "\n"; }
Вызываю его с параметром скачиваемого на сервер ресурса
(http://mailweb.r2.ru/doc/abbrev.zip), получаю в
ответ ошибку 500 Can't connect to mailweb.r2.ru:80 (Permission
denied).
Подскажите плиз в чём грабли?
--
С уважением, Denis
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Utopia (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
