Discussion :

[kesiahlex]

Bonjour,

je recherche une solution pour m'authentifier auprès d'un serveur au démarrage de mon ordi pour me connecter à internet.

Je m'explique, pour surfer sur internet, je dois d'abord me rendre à une adresse http://10.x.x.x et ensuite m'authentifier (classique).

Pour clarifier, voila la solution actuelle :
J'ai mis mon browser dans le dossier démarrage de windows puis la page de démarrage est http://login:passwd@10.x.x.x

Ca marche bien mais si la technique etait plus un truc du genre script qui se lance au démarrage ça me plairai plus.

Donc vous avez compris que je voudrais faire simplement la meme chose avec perl mais je ne connais pas grand chose.

J'ai cherché un peu et j'ai regardé les modules sur cpan mais il y a tellement de truc je suis un peu perdu. J'ai trouvé le module WWW::Authenticate mais apparement c'est pour une authentification via mysql...

Si vous pouviez m'aiguiller ce serait très aimable de votre part.

Merci d'avance


kesiah

[ramislebob]

ça ressemble à une simple authentification via du http, t'as pas trop cherché... y a deux topics récents là-dessus...
package LWP::UserAgent (cf Here and Here )

[kesiahlex]

Ah oui merci, en fait j'avais trouve quelques trucs dans le style mais pas sur le forum... Le truc que moi je pensait pas à un formulaire de page web mais à une authentification simple qui pourrait même se faire via des headers.

D'ou l'adresse de type "http://login:passwd@10.x.x.x"

Bon est ce que vous croyez qu'un truc du style...

use LWP::Simple;

$mydocument=get(http://login:passwd@10.x.x.x);

...fera l'affaire ?

merci

[kesiahlex]

Bon en fait ca ne fait pas l'affaire...

Je ne connait pas très bien comment fonctionne le module (d'ailleurs j'y connais rien du tout en perl, c'est la première fois que j'y ai recours... ) mais ça ne marche pas tout le temps.

Peut etre vous auriez une explication ou une autre solution.

Vraiment je ne sais pas ce qui est effectue comme operations derriere donc je ne sais pas si cela correspond à mon probleme.

Je rappelle : Je veux automatiser la procédure suivante.
- connexion à l'adresse http://10.2.0.4
- remplir les champs de la fenetre d'authentification avec login et passwd.

je pensais qu'un simple get suffisait mais apparement pas. J'ai beau relancer le script plusieurs fois... rien n'y fait.

Merci du soutien quand meme

[kesiahlex]

merci

[Jedai]

Essaie ça :

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
24
25
26
 
#! /usr/bin/perl
use strict;
use warnings;
 
package MyAgent;
require LWP::UserAgent;
our @ISA = qw/LWP::UserAgent/;
 
sub get_basic_credentials {
    my ($self, $realm, $uri, $isproxy) = @_;
    if( $uri =~ /10\.2\.0\.4/ ) { 
        return "login", "password";
    }
    return;
}
 
package main;
 
my $ua = MyAgent->new();
 
my $res = $ua->get('http://10.2.0.4');
 
print $res->content();
 
__END__

--
Jedaï