IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

Problème Script Perl : Proxy Authentication Required


Sujet :

Langage Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    93
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 93
    Par défaut 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

  2. #2
    Expert confirmé

    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Avril 2009
    Messages
    3 577
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Avril 2009
    Messages : 3 577
    Par défaut
    Il te faut sans doute utilise le module de BooK : HTTP::Proxy.

  3. #3
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    93
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 93
    Par défaut
    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

  4. #4
    Expert confirmé

    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Avril 2009
    Messages
    3 577
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Avril 2009
    Messages : 3 577
    Par défaut
    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

  5. #5
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    93
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 93
    Par défaut
    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

  6. #6
    Expert confirmé

    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Avril 2009
    Messages
    3 577
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Avril 2009
    Messages : 3 577
    Par défaut
    Désolé, je suis sec... et je n'ai pas vraiment les moyens de tester...

Discussions similaires

  1. Réponses: 18
    Dernier message: 03/04/2014, 16h50
  2. 407 Proxy Authentication Required
    Par devdev2003 dans le forum Entrée/Sortie
    Réponses: 5
    Dernier message: 28/05/2010, 16h34
  3. problème script Perl
    Par scrathi dans le forum Programmation et administration système
    Réponses: 15
    Dernier message: 17/03/2010, 11h48
  4. Problème script perl avec STDIN
    Par deimosfr dans le forum Langage
    Réponses: 2
    Dernier message: 23/07/2009, 10h22
  5. 407 Proxy Authentication Required
    Par devdev2003 dans le forum Services Web
    Réponses: 1
    Dernier message: 28/06/2007, 14h35

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo