require LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
push @{ $ua->requests_redirectable }, 'POST';
#email;wachtwoord;voorachternaam;telefoonnummer;adres;nummer;postcode;plaats
open(FILE,"<gebruikers.txt");

while($line = <FILE>)
{
	$ua->agent(useragent());
	@gebruikers = ();
	@gebruikers = split(/;/,$line);
	$rs = $ua->get("https://www.just-eat.be/member/signup");
	if($rs->is_success)
	{
		$c = $rs->content;
		if($c =~ /<input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="(.*)" \/>/)
		{
			$viewstate = $1;
		}
		if($c =~ /<input type="hidden" name="__EVENTVALIDATION" id="__EVENTVALIDATION" value="(.*)" \/>/)
		{
			$eventvalidation = $1;
		}
	}
		print "@gebruikers";
		$rss = $ua->post("https://www.just-eat.be/member/signup",
		{
			'ctl00_ToolkitScriptManager1_HiddenField' => '', 		#Leeg
			'__EVENTTARGET' => '', 		#Leeg
			'__EVENTARGUMENT' => '', 	#Leeg
			'__VIEWSTATE' => $viewstate,
			'&ctl00$ContentPlaceHolder1$ctl00$passwordConfirm' => '',		#Leeg
			'&ctl00$ContentPlaceHolder1$ctl00$txtEmail' => $gebruikers[0],
			'&ctl00$ContentPlaceHolder1$ctl00$txtPassword' => $gebruikers[1],
			'&ctl00$ContentPlaceHolder1$ctl00$txtRepeatPass' => $gebruikers[1],
			'&ctl00$ContentPlaceHolder1$ctl00$txtFirstname' => $gebruikers[2],
			'&ctl00$ContentPlaceHolder1$ctl00$txtPhoneno' => $gebruikers[3],
			'&ctl00$ContentPlaceHolder1$ctl00$AgreeToTermsAndConditionsCheckBox' => 'on',
			'&ctl00$ContentPlaceHolder1$ctl00$txtStreet' => $gebruikers[4],
			'&ctl00$ContentPlaceHolder1$ctl00$txtHouseno' => $gebruikers[5],
			'&ctl00$ContentPlaceHolder1$ctl00$txtFloor' => '',
			'&ctl00$ContentPlaceHolder1$ctl00$txtPostCodedk' => $gebruikers[6],
			'&ctl00$ContentPlaceHolder1$ctl00$txtCityDk' => $gebruikers[7],
			'&ctl00$ContentPlaceHolder1$ctl00$btnCreate' => 'Account Aanmaken',
			'__EVENTVALIDATION' => $eventvalidation
		});
		if($rss->is_success)
		{
			open(HTML,">error.html");
			print HTML $rss->content;
			close(HTML);
		}
}

sub useragent
{
	my @useragent = ("Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.8.1.12) Gecko/20080207 Ubuntu/7.10 (gutsy) Firefox/2.0.0.12","Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)","Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/124 (KHTML, like Gecko) Safari/125","Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 1.1.4322; .NET CLR 3.0.04506.30; .NET CLR 3.0.04506.648)","Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.4; en-US; rv:1.9b5) Gecko/2008032619 Firefox/3.0b5","Mozilla/5.0 (Windows NT 5.1) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/14.0.815.0 Safari/535.1","Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/14.0.813.0 Safari/535.1","Mozilla/5.0 (Windows NT 6.1) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/14.0.801.0 Safari/535.1","Mozilla/5.0 (Windows NT 6.1; WOW64; rv:6.0a2) Gecko/20110613 Firefox/6.0a2","Mozilla/5.0 (X11; U; Linux i586; de; rv:5.0) Gecko/20100101 Firefox/5.0","Mozilla/5.0 (X11; U; Linux amd64; rv:5.0) Gecko/20100101 Firefox/5.0 (Debian)","Mozilla/5.0 (Windows NT 6.2; WOW64; rv:5.0) Gecko/20100101 Firefox/5.0","Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:5.0) Gecko/20110619 Firefox/5.0","Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:5.0) Gecko/20100101 Firefox/5.0","Mozilla/5.0 (Windows NT 6.1.1; rv:5.0) Gecko/20100101 Firefox/5.0","Mozilla/5.0 (Windows NT 5.2; WOW64; rv:5.0) Gecko/20100101 Firefox/5.0","Mozilla/5.0 (Windows NT 5.1; U; rv:5.0) Gecko/20100101 Firefox/5.0","Mozilla/5.0 (Windows NT 5.1; rv:2.0.1) Gecko/20100101 Firefox/5.0","Mozilla/5.0 (Windows NT 5.0; WOW64; rv:5.0) Gecko/20100101 Firefox/5.0","Mozilla/5.0 (Windows NT 5.0; rv:5.0) Gecko/20100101 Firefox/5.0");
	return $useragent[int rand($#useragent)]
}