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

[Invité]

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"

Salut,

Les variables d'environnomment sous linux sont en majuscule et non en minuscule.

HTTP_PROXY="...."

Sinon tu as ce lien qui donne des exemples d'utilisation d'un script perl avec un proxy.

http://www.pervasive-network.org/SPI...ion-d-un-proxy

[Flipmode]

Merci pour votre réponse

J'ai défini la variable d'environnement en majuscule :

Code :

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

export HTTP_PROXY="http://domaine/login:passwd@proxy:port"

Mais ça ne fonctionne toujours pas.
Merci pour votre lien avec les exemples d'utilisation d'un script Perl avec un proxy mais ce n'est pas vraiment ce que je souhaite faire.

Voici mon script Perl :

Code Perl :

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
#!/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 Web
$browser->get("http://Adresse_Web.com/");

#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();

Merci pour votre aide

Flipmode

[Invité]

Avec Mechanize, tu peux essayer ceci:

http://www.perlmonks.org/?node_id=269358

[Flipmode]

Je ne comprends pas le lien que vous avez donné. Je débute en script Perl

At work, I have set $ENV{HTTP_PROXY} to http://login:password@proxyserver, and it magically works :

use strict;
use WWW::Mechanize;
my $agent = WWW::Mechanize->new();
$agent->env_proxy();
$agent->get('http://www.google.com');
print $agent->content;

perl -MHTTP :: Daemon -MHTTP::Response -MLWP::Simple -e ' ; # The
$d = new HTTP :: Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' # web

Il faut que je fasse :
export $ENV{HTTP_PROXY} ="http://domaine/login:passwd@proxy:port" ou
export $ENV{HTTP_PROXY} ="http://login:passwd@proxy"

Je ne sais pas si je dois indiquer le domaine et le port ?

Merci pour vos précisions et votre aide

Flipmode

[Invité]

Re,

la syntaxe pour le proxy est la suivante:

Code :

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

1
2
"http://login:passwd@proxy:port"

[lc90176]

Puis j'ai configuré le proxy en ligne de commande ainsi : http_proxy="http://domaine/login:passwd@proxy:port"

La syntaxe de l'URL semble incorrecte, j'aurais plutôt mis quelque chose comme ça :

Code :

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

http_proxy="http://login:passwd@domaine:port/proxy"