Simuler une identification HTTP

**AnkyFive** · 21/07/2006, 17h32

Bonjour,

J'ai pour tache de faire un script perl qui permette de simuler la connection d'une personne sur une page web PHP / Mysql. (et oracle...mais je verrai plus tard pour ça)

Donc le script doit entrer un login et un mot de passe dans un formulaire puis retourner le résultat, en particulier le contenu de la page.

Ceci et pour pouvoir automatiser des controles de site intranet PHP/Mysql ou oracle de façon automatisée.

En cherchant sur ce forum et le net j'ai fini avec le script suivant :

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTML::Form;

# les paramètres personnels
my ( $user, $pass ) = qw( toto tata );
my $base = 'http://webdbqual/phpadmin/';

# initialisation de l'agent
my $ua =
LWP::UserAgent->new(
agent => 'Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav)' );

# création de la requête
my $req = HTTP::Request->new( GET => "${base}index.php" );

# exécute la requête et reçoit la réponse
my $res = $ua->request($req);
die $res->status_line if not $res->is_success;

# le formulaire de login est le second formulaire de la page
my $form = ( HTML::Form->parse( $res->content, $base ) )[1];

# remplit les champs
$form->find_input('pma_username')->value($user);
$form->find_input('pma_password')->value($pass);

# valide et renvoie le formulaire
$res = $ua->request( $form->click );

my $code = $res->code();
print "Code:".$code."\n";

if ($res->is_success){
print "Connection OK. Contenu :\n".$res->content;
}
else{
print "Connection refusée.\n".$res->status_line;
}

En l'occurence ici je tente de me connecter à PHPMyAdmin.
Le code retour est 200, normal, meme je ne m'identifie pas puisque le login et mot de passe sont bidons, le serveur HTTP lui répond OK.
Donc pour pouvoir savoir si j'ai j'ai bien été authentifié avec le formulaire, je voudrais récupérer le contenu de la page après la validation est l'envoit du formulaire, sauf que ici le contenu est vide !

Est ce que quelqu'un pourrait m'expliquer pourquoi ?
et aussi que pensez vous de cette façon de faire, y a t il d'autres façon plus propres ??

D'avance merci et Bon WE

**Jedai** · 21/07/2006, 18h31

La page est-elle du https ? Dans ce cas, il faut que Net::SSLeay soit installé pour que LWP puisse y accéder.

--
Jedaï

**AnkyFive** · 21/07/2006, 19h08

merci pour ta réponse

non c'est du http.

**Jedai** · 21/07/2006, 19h30

Peut-être l'identification utilise-t-elle un cookie quelque part... Essaie de rajouter un objet HTTP::Cookie à ton LWP::UserAgent (dans sa "cookie_jar").

--
Jedaï

**AnkyFive** · 22/07/2006, 14h17

ah oui effectivement c'est bien possible

je m'y met dès lundi -> cette fois c'est pour le boulot !

**AnkyFive** · 24/07/2006, 10h10

Salut

J'ai changé les caractéristiques de mon agent, mais c'est toujour pareil :

# initialisation de l'agent
my $ua =
LWP::UserAgent->new(
agent => 'Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav)',
cookie_jar => HTTP::Cookies->new(
file => '/apps/O_TOOLS/exe/cookie.txt',
autosave => 1,
ignore_discard => 1, # le cookie devrait être effacé à la fin
)
);

le contenu de la page = rien...