Discussion :

[rteuteu55]

Bonjour,

j'utilise perl pour faire des requêtes html. mon probléme est que je dois récupérer les informations d'un cookie est les envoyer dans la requette suivante et la je ne sais pas du tout faire!

donc si quelqu'un peut m'aider?!
Merci d'avance.

mon code actuel est le suivant :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
# 21/06/06 essai
 
 
print "
	****************************************************
	*                                                  *
	* script de consultation LogIntern via http        *
	*                                                  *
	****************************************************
";
 
print "\nLOGIN : ";
chomp($login=<>);
print "\nMot de passe : ";
chomp($motp=<>);
 
	#-------Connexion (login) au serveur ------#
 
 
require HTTP::Request;
use LWP::UserAgent;
 
 
use HTTP::Request::Common;
$ua = LWP::UserAgent->new;
 
#name="formident" method="POST" >
#name="provenance" value="CTLIDT">
#name="environnement" value=expsv >
#name="codaplredirect" value= >
#name="paramredirect" value= >
#name="CODLOOK" value=0>
#name="CODLANG" value=0>
#name="nom"
#name="password"
 
$r=$ua->request(POST 'http://10.1.5.8/binaci/accint.dll', 
[provenance => CTLIDT,environnement => expsv,CODLOOK => 0,CODLANG => 0,nom => $login,password => $motp,submit => formident]);
 
$resultat=$r->content;
 
open (FICOUT,'>c:/tmp/pg1.htm');
print FICOUT "\n$resultat";
 
#<a href="javascript:lancerApplication('http://10.17.7.10/bin/default.asp?tks=%48%35%33%38%73%76&CODLOOK=0','Log','menubar=0,resizable=1,scrollbars=1,toolbar=0,status=0')"> Log </a>
 
 
	#---- Récupération de l'indentifiant de la connexion----#
 
@Log1=split('\n',$resultat);
foreach(@Log1){
	if(/> Log </){
		if(/(http.*CODLOOK=0)/){
			print $1;
			$httpLog=$1;
		}
	}
}
 
 
	#---- Connexion à l'application Log -----#
 
$request = HTTP::Request->new(GET => "$httpLog");
 
$ua = LWP::UserAgent->new;
$r = $ua->request($request);
$resultat=$r->content;
 
open (FICOUT,'>c:/tmp/pg2.htm');
print FICOUT "\n$resultat";
 
#print "\n$resultat";
 
 
print "\nFIN SCRIPT voir fichiers c:/tmp/pg1 et 2 .htm"; 
<>;

[pospos]

regarde dans le cookbook de lwp:
http://search.cpan.org/~gaas/libwww-...ok.pod#COOKIES

et aussi la doc du module:
http://search.cpan.org/~gaas/libwww-...TTP/Cookies.pm

[rteuteu55]

merci bien pour ces liens.

J'ai une autre question!
Quand j'exécute le script ci-dessus, le serveur me retourne une page me disant que je dois utiliser Internet explorer. (car le script contenu dans les pages suivante ne fonctionne que sous IE)

savez vous comment définir le navigateur qui doit être simulé par la requête?!

merci d'avance.

[rteuteu55]

autant pour moi j'ai trouvé dans le lien donné si-dessus!!