1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
|
sub OpenDoc {
my ($url, $mode, $proxy, $timeout, $protocole, $apparence,
$authentify, $login, $password, $nb_try) = @_;
my $base;
my $content;
my $header;
my $browser = LWP::UserAgent->new();
$browser->agent($apparence);
$browser->timeout($timeout);
if ($mode==1) {
$browser->proxy($protocole,$proxy);
}
my $request = HTTP::Request->new(GET => $url);
if ($authentify==1) {
$request->authorization_basic ("$login","$password");
}
my $response= $browser->request($request);
while ($response->is_error()) {
$nb_try--;
unless( $nb_try ) {
print FILELOG "Error with $url: " . $response->status_line . "\n";
print "ETL Error with $url\n" . $response->status_line . "\n";
$content= "ETL Error with $url\n" . $response->status_line . "\n";
$base= "";
$header="";
return ($base, $content, $header);
}
$response= $browser->request($request);
}
$content=$response->content();
$base=$response->base;
$header=$response->header('content_type');
return ($base, $content, $header);
} |
Partager