Mechanize Cookie authentification
Bonjour,
j'ai codé un script perl pour me loguer à un site. Avec un navigateur normal (comprendre firefox ou ie) il faut accepter les cookies pour pouvoir se loguer.
Je ne vois pas comment ajouter la gestion de cookie à mon code perl. (télécharger les cookie automatiquement)
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
#!/usr/bin/perl -w
use WWW::Mechanize;
my $user = "mon_utilisateur";
my $pass = "mon_motdepasse";
my $url_login = "http://monurl/";
my $mech = WWW::Mechanize->new (
autocheck => 2,
agent => 'Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav)'
);
$mech->get( $url_login );
$mech->submit_form(
form_number => 1,
fields => { login => $user,
passwd => $pass
}
);
print $mech->content;
open(FH, ">index.log");
print FH $mech->content;
close(FH); |
Merci de votre aide.
Cordialement,
Nicolas.