Discussion :

[Tuco]

Bonjour
Je dois envoyer une url https sur un serveur et traiter le header en retour.
Le code fonctionne si je n'utilise pas un proxy.
J'ai un code retour d'erreur :"501 Not implemented"
Si j'utilise l'url directement dans un navigateur, cela fonctionne correctement.
Voici le code.
Si vous avez une idée.
Merci d'avance

my $URL = "https://www.monsite";

# Execution de la requete
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->proxy(['https'], "http://${PROXY_IP}:$PROXY_PORT");

my $header = new HTTP::Headers;
$header->header("Accept" => "text/plain");

my $request = HTTP::Request->new(GET => $URL, $header, "");
$request->proxy_authorization_basic("", "");

my $response = $ua->request($request);

if ($response->is_success) {
if($errCode eq "0") {
return "0000 OK";
}
else {
return "$errCode $errText";
}
}
else {
print $response->status_line;
return "0500 Erreur de proxy/serveur In visto Pushmail API : $errText";
}

[dmitry_ovsianko]

As-tu installé Crypt::SSLeay? (http://search.cpan.org/~chamas/Crypt...0.51/SSLeay.pm)

[Tuco]

oui, c'est vrai que j'avais oublié de le préciser.
D'ailleurs si çà interresse quelqu'un, l'install est expliqué sur ce lien
http://johnbokma.com/perl/https.html
J'ai donc bien installé package et dll, et mis à jour la variable d'environnement path.

J'ai executé le code posté chez moi, et çà fonctionne, mais la seule différence est que je n'ai pas de proxy, contrairement à mon lieu de travail. Le pb vient donc du code configurant le proxy dans perl.
J'ai regardé et essayé les différentes config que j'ai trouvé sur le net, mais jusque là çà ne marche toujours pas.

Je nage un peu là.
Si quelqu'un a une idée.

[Tuco]

OK, j'ai trouvé la réponse dans un autre forum.
Je poste pour que çà puisse servir à d'autres

my $ProxyUrl = "http://${PROXY_IP}:$PROXY_PORT";

# Use a proxy server if configured for normal HTTP
$ua->proxy (['http'], $ProxyUrl) if $ProxyUrl;

# Add Env var for Crypt::SSLeay
($ENV{HTTPS_PROXY} = $ProxyUrl) if $ProxyUrl;