hier is het scripts:
Code: Selecteer alles
#!/usr/bin/perl -w
$uid="username";
$pwd="passwd";
system("curl -c .koekjes -sLe ';auto' -d 'login=$uid' -d 'password=$pwd' -d 'submit=aanmelden' 'http://customercare.scarlet.be/logon.do?language=nl' &>/dev/null");
$sossis=`grep JSESSIONID .koekjes | cut -f 7`;
chomp($sossis);
$url="http://customercare.scarlet.be/usage/dispatch.do?command=detail\&usercode=$sossis\&language=nl";
print $url;
open(SCARLET, "curl -sLe ';auto' '$url' |");
foreach $line(<SCARLET>){ print $line;}
$down=(grep "GB",<SCARLET>);
$up=(grep "GB", <SCARLET>);
print "Downloaded: $down GB\nUploaded: $up\n";
system("rm .koekjes");
print $sossis
dit is nog maar een testversie en zoals je kan zien print ik $url en de inhoud van de pagina ook p het scherm (om te debuggen).
nu is het probleem dat als ik op de url klik de juiste pagina wordt geladen, maar de pagina is een hele andere pagina
Code: Selecteer alles
./test-scarlet.pl
http://customercare.scarlet.be/usage/dispatch.do?command=detail&usercode=0315012B6CD0F943EBC9FD47B7ED3D7A&language=nl
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<title>mijn.scarlet.be - Beheer uw abonnement</title>
<style type="text/css" media="all"> @import url("/_css/myscarlet.css"); </style><link rel="stylesheet" href="/_css/nav.css" type="text/css" media="all" /> <link rel="stylesheet" href="/_css/nav.css" type="text/css" media="all" />
</head>
<body id="home" class="dutch">
<div id="container">
<div id="content">
<h1 id="top"></h1>
<div id="header">
</div>
<br class="cr">
<br class="cr">
<br class="cr">
<br class="cr">
<br class="cr">
<center>
<a href="index.jsp?language=nl">Nederlands</a>
<a href="index.jsp?language=fr">Fran\uffffais</a>
</center>
</div>
</div>
</div>
</body>
</html>
Downloaded: 0 GB
Uploaded: 0
0315012B6CD0F943EBC9FD47B7ED3D7A
heeft dit te maken met een cookie die eerst nog de taal moet instellen? ik heb er echt geen idee van.
hopelijk kan iemand mij helpen!