Problème Script Perl : Proxy Authentication Required

Bonjour,

Je ne sais pas si je suis sur le bon forum, je travaille sous Red hat EL 5 et j'ai un problème avec mon proxy.

Je l'ai configuré dans Firefox donc j'ai accès à Internet. Puis j'ai configuré le proxy en ligne de commande ainsi : http_proxy="http://domaine/login:passwd@proxy:port"

J'arrive à faire des ping et à faire des wget (par exemple: wget http://google.com)

Mais voici le problème que j'ai lorsque je lance mon script Perl:
Error GETing http://Adresse_Web.com/: Proxy Authentication Required ( Le serveur ISA requiert l'autorisation d'exécuter la demande. L'accès au service du proxy Web est refusé. ) at ./sender.pl line 14

La ligne 14 de mon script Perl correspond à : $url->get("http://Adresse_Web.com/");

Le get ne fonctionne pas, je ne sais pas comment résoudre ce problème :(

Merci pour votre aide

Flipmode

Il te faut sans doute utilise le module de BooK : HTTP::Proxy.

Merci pour votre réponse

Voici mon script Perl:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/bin/perl   use strict; use warnings;   my $phone_number = $ARGV[0]; my $text_to_send = $ARGV[1];   #Crée un nouveau navigateur virtuel use WWW::Mechanize; my $browser = WWW::Mechanize->new();   #On va sur la page de portail sms $browser->env_proxy(); $browser->get('http://google.com'); print $browser->content;   #Le get ne fait que télécharger la page, maintenant on va la remplir et appuyer sur le bouton submit #$browser->form(1); $browser->form_number(1); $browser->field("DEST", $phone_number); $browser->field("SHORT_MESSAGE", $text_to_send); $browser->click();

---

Mais quand j'éxécute mon script Perl avec les options qui vont bien, j'obtiens:
Error GETing http://google.com Proxy Authentication Required ( Le serveur ISA requiert l'autorisation d'exécuter la demande. L'accès au service du proxy Web est refusé. ) at ./SMS_sender.pl line 15

Pourtant j'ai bien défini la variable d'environnement linux HTTP_PROXY:
echo $HTTP_PROXY => http://domaine\login:passwd@proxy:port

J'ai aussi essayé avec HTTP_PROXY=http://login:passwd@proxy:port mais ça ne fonctionne pas non plus, j'ai la meme erreur :(

Merci pour votre aide

Flipmode

As-tu essayé en définissant les variables d'environnement en minuscule ?

Sinon, tu peux essayer en utilisant la méthode "proxy", voir ici : http://search.cpan.org/~gaas/libwww-...ok.pod#COOKIES

Merci pour votre réponse.

J'avais déja essayer de définir la variable d'environnement en minuscule :
export http_proxy="http://domaine\login:password@proxy:port"
Mais j'ai toujours la meme erreur :(

J'ai essayé d'utiliser la méthode "proxy" dans mon script Perl mais ça ne fonctionne pas, j'ai des erreurs... :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/usr/bin/perl use strict; use warnings;   my $phone_number = $ARGV[0]; my $text_to_send = $ARGV[1];   use WWW::Mechanize; my $browser = WWW::Mechanize->new(GET => 'http://www.labsfr.net/relance/'); $browser->env_proxy();   #Le get ne fait que télécharger la page #$browser->form(1); $browser->form_number(1); $browser->field("DEST", $phone_number); $browser->field("SHORT_MESSAGE", $text_to_send); $browser->click();

---

J'obtiens l'erreur : TThere is no form numbered 1 at ./SMS_sender.pl line 14. Can't call method "value" on an undefined value at /usr/lib/perl5/site_perl/5.8.8/WWW/Mechanize.pm line 1346.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

#!/usr/bin/perl use strict; use warnings;   my $phone_number = $ARGV[0]; my $text_to_send = $ARGV[1];   use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $browser = HTTP::Request->new(GET => 'http://www.labsfr.net/relance/');   #Crée un nouveau navigateur virtuel use WWW::Mechanize; print $browser->content;   #Le get ne fait que télécharger la page #$browser->form(1); $browser->form_number(1); $browser->field("DEST", $phone_number); $browser->field("SHORT_MESSAGE", $text_to_send); $browser->click();

---

J'obtiens l'erreur : Can't locate object method "form_number" via package "HTTP::Headers" at /usr/lib/perl5/site_perl/5.8.8/HTTP/Message.pm line 542.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/bin/perl use strict; use warnings;   my $phone_number = $ARGV[0]; my $text_to_send = $ARGV[1];   use HTTP::Headers; use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->env_proxy(); # initialize from environment variables my $browser = HTTP::Request->new(GET => 'http://www.labsfr.net/relance');   #On va sur la page de portail sms $browser->env_proxy(); print $browser->content;   #Le get ne fait que télécharger la page #$browser->form(1); $browser->form_number(1); $browser->field("DEST", $phone_number); $browser->field("SHORT_MESSAGE", $text_to_send); $browser->click();

---

J'ai l'erreur :
Can't locate object method "env_proxy" via package "HTTP::Headers" at /usr/lib/perl5/site_perl/5.8.8/HTTP/Message.pm line 542

Merci pour votre aide

Flipmode

Désolé, je suis sec... et je n'ai pas vraiment les moyens de tester...