Connexion sur site distant avec un client écrit en PERL ??

Version imprimable

J’essai de réaliser un petite application perl qui émet des requêtes http. J’arrive a récupérer le contenu d’une page web mais je n’arrive pas à transmettre des arguments à cette page: Je voudrais que mon script puisse se connecter sur mon site en donnant mes identifiant ( Login + mot de passe ).

Ca bug mais je ne sais pas pourquoi.

Voic le code:

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
25
$username       = 'MonLogin';
$password       = 'motdepasse';
$server         = 'http://www.monsite.com';
$page_connexion = '/connexion.php' ;
 
 
use LWP::UserAgent;
 $ua = new LWP::UserAgent;
 $ua->agent("AgentName/0.1 " . $ua->agent);
 
 # Creation d'une requete
 my $req = new HTTP::Request POST => $server.$page_connexion."HTTP/1.0\nHost: \nAccept: */*\nCookie:username=%s; password=%s\nConnection: close\n\n",$username,$password;
 
 
 $req->content_type('application/x-www-form-urlencoded');
 $req->content('match=www&errors=0');
 
 # On passe la requete à l'agent et on attend le résultat
 my $res = $ua->request($req);
 
 # Si le resultat est un succes (code HTTP 200) on affiche son contenu
 if ($res->is_success) {print $res->content;}
 
 # Sinon previent que URL defectueuse
 else {print "Cette URL ne répond pas\n";}

Voici l'erreur :

Code:

Bad header argument at C:\automatique.pl line 20

La ligne 20:

Code:

1
2
 # Creation d'une requete
 my $req = new HTTP::Request POST => $server.$page_connexion."HTTP/1.0\nHost: \nAccept: */*\nCookie:username=%s; password=%s\nConnection: close\n\n",$username,$password;

J'ai corrigé:

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
25
26
$username       = 'Login';
$password       = 'motdepasse';
$server         = 'http://www.monsite.com';
$page_connexion = '/connexion.php' ;
 
use LWP::UserAgent;
 $ua = new LWP::UserAgent;
 $ua->agent("AgentName/0.1 " . $ua->agent);
 
 # Creation d'une requete
 
my $req = new HTTP::Request GET => $server.$page_connexion."HTTP/1.0\nHost: \nAccept: */*\nCookie:".$username.$password."\nConnection: close\n\n";
my $req = new HTTP::Request POST => $server."/admin.html";
 
 
 $req->content_type('application/x-www-form-urlencoded');
 $req->content('match=www&errors=0');
 
 # On passe la requete à l'agent et on attend le résultat
 my $res = $ua->request($req);
 
 # Si le resultat est un succes (code HTTP 200) on affiche son contenu
 if ($res->is_success) {print $res->content;}
 
 # Sinon previent que URL defectueuse
 else {print "Cette URL ne répond pas\n";}

Je n’ai plus d’erreur mais la connexion sur mon compte (Avec Login + MDP) n’a pas l’air de se faire, pourquoi ?

Ce que tu fais est étrange : tu mélanges du haut niveau LWP et du niveau assez bas (tu écris ta requête à la main avec HTTP::Request)...
LWP offre un support de haut niveau pour l'identification et les cookies, pourquoi ne pas l'utiliser ?

Par ailleurs ici tu as une erreur :
Code:

1 2 3 my $req = new HTTP::Request GET => $server.$page_connexion."HTTP/1.0\nHost: \nAccept: */*\nCookie:".$username.$password."\nConnection: close\n\n"; my $req = new HTTP::Request POST => $server."/admin.html";
$req est déclaré deux fois, et tu n'utilises pas la première déclaration, elle ne sert donc à rien... Tu devrais essayer d'utiliser 'use strict;' pour éviter de telles erreurs.

--
Jedaï