Discussion :

[Flipmode]

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

[Philou67430]

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

[Flipmode]

Merci pour votre réponse

Voici mon script Perl:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philou67430]

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

[Flipmode]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philou67430]

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