[web] Requetes HTTP en perl
Bonjour, j'aimerais simuler les requetes http de mon naviguateur en perl afin qu'il m'automatise certaines taches.
Mais je bloque au formulaire de login :?
J'ai sniffer mes paquets pour essayer de voir d'ou venait le problème :
Requete de mon naviguateur
Citation:
POST /login_redirige.php HTTP/1.1
Host: *****.fr
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.8.1) Gecko/20061010 Firefox/2.0
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: fr,fr-fr;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Content-Type: application/x-www-form-urlencoded
Content-Length: 113
Variable=http://*****.fr/***/&login=*****&password=******&Submit=Login&mail=cacheHTTP/1.1 200 OK
Date: Mon, 13 Nov 2006 06:15:45 GMT
Server: Apache/2.0.54 (Debian GNU/Linux) mod_fastcgi/2.4.2 PHP/4.3.10-16
X-Powered-By: PHP/4.3.10-16
Content-Length: 393
Keep-Alive: timeout=15, max=100
Connection: Keep-Alive
Content-Type: text/html
<body bgcolor="#25333D">
<form name="mulogin" method="post" action="http://*****.net/***/login_action.php" target="_parent">
<input name="login" id="login" type="hidden" value="*****">
<input name="passs" id="passs" type="hidden" value="***">
<input name="mail" id="mail" type="hidden" value="cache">
</form>
<body onload="javascript:document.forms.mulogin.submit();">
etc...(connexion réussi)
Requete de mon script perl :
Citation:
POST /login_redirige.php HTTP/1.1
Host: *******.fr
Accept: */*
Connection: keep-alive
Variable=http://*****.fr/***/&login=*****&password=******&Submit=Login&mail=cache
HTTP/1.1 200 OK
Date: Mon, 13 Nov 2006 06:14:51 GMT
Server: Apache/2.0.54 (Debian GNU/Linux) mod_fastcgi/2.4.2 PHP/4.3.10-16
X-Powered-By: PHP/4.3.10-16
Content-Length: 221
Keep-Alive: timeout=15, max=100
Connection: Keep-Alive
Content-Type: text/html
<body bgcolor="#25333D">
<script language=javascript> alert ("Vous avez oubli. de remplir un champ.");</script><script language="javascript" type="text/javascript">
<!--
window.location.replace("index.php");
-->
</script><html>
etc... (redirection page d'acceuil sans être loger)
Je ne comprends pas pourquoi je n'obtient pas le mème resultat pour deux requetes semblables.
Pour infos voici mon script perl:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| use IO::Socket;
$socket = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "******.fr", PeerPort => "80") || die "\n+ Connection failed...\n";
print $socket "POST /login_redirige.php HTTP/1.1\r\n";
print $socket "Host: ******r\n";
print $socket "Accept: */*\n";
print $socket "Connection: keep-alive\n\n";
print $socket "
Variable=http://*****.fr/***/&login=*****&password=******&Submit=Login&mail=cache\n\n";
print "+ Connected!...\n";
#Getting
while($answer = <$socket>) {
printf $answer;
} |
Merci
