|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andy Andreanov 2:5020/52 03 Nov 2000 18:22:14
To : All
Subject : LWP и Timeout
--------------------------------------------------------------------------------
Hа Win95 установлен ActivePerl 5.6.0.613[1]
Выход в инет через Proxy сервер.
Есть также локальный интранет сайт. (расположенный до Proxy)
Используется несколько модифицированный пример из Programming Perl
для получения характеристик файла из инета.
#!/usr/bin/perl -w
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use URI::Heuristic;
my $raw_url = 'http://www.site.ru/directory/file.htm';
my $url = URI::Heuristic::uf_urlstr($raw_url);
$| = 1;
printf "%s =>\n\t", $url;
my $ua = LWP::UserAgent->new();
$ua->agent('Nikto');
$ua->timeout([300000]);
$ua->proxy('http://', 'ftp://', '111.111.1.11:8080');
my $reg = HTTP::Request->new(GET => $url);
$reg->referer("http://www.nikto.ru");
my $response = $ua->request($reg);
if ($response->is_error()) {
printf " %s\n", $response->status_line;
} else {
my $count;
my $bytes;
my $content = $response->content();
$bytes = length $content;
$count = ($content =~ tr/\n/\n/);
printf "%s (%d lines, %d bytes)\n", $response->title(), $count, $bytes;
}
Файлы расположенные на интранет сайте скачиваются без проблем.
При обращении к файлам в инете возвращается
500 Can't connect to www.site.ru:80 (Timeout)
Как легко догадаться игры с $ua->timeout([]); ни к чему не привели.
Кто-нибудь сталкивался с подобным?
--
%%%%%%%%%%%
Andrew Andrianov
--- Microsoft Outlook Express 5.00.2919.6600
* Origin: Mr. Postman (2:5020/52.0)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
