#~#~# defaults2 #~#~#
sub show_pool {
  $rp = $check10;
  if ($done1{$pool_code1} < 1) {
	$show1code{$rp} = $pool_code1;
	$show1name{$rp} = $pool_name1;
	
	$done1{$pool_code1} = $rp;
  }
  elsif ($done1{$pool_code2} < 1) {
	$show1code{$rp} = $pool_code2;
	$show1name{$rp} = $pool_name2;
	
	$done1{$pool_code2} = $rp;
  }
  elsif ($done1{$pool_code3} < 1) {
	$show1code{$rp} = $pool_code3;
	$show1name{$rp} = $pool_name3;
	
	$done1{$pool_code3} = $rp;
  }
  elsif ($done1{$pool_code4} < 1) {
	$show1code{$rp} = $pool_code4;
	$show1name{$rp} = $pool_name4;
	
	$done1{$pool_code4} = $rp;
  }
  elsif ($done1{$pool_code5} < 1) {
	$show1code{$rp} = $pool_code5;
	$show1name{$rp} = $pool_name5;
	
	$done1{$pool_code5} = $rp;
  }
  elsif ($done1{$pool_code6} < 1) {
	$show1code{$rp} = $pool_code6;
	$show1name{$rp} = $pool_name6;
	
	$done1{$pool_code6} = $rp;
  }
  elsif ($done1{$pool_code7} < 1) {
	$show1code{$rp} = $pool_code7;
	$show1name{$rp} = $pool_name7;
	
	$done1{$pool_code7} = $rp;
  }
  elsif ($done1{$pool_code8} < 1) {
	$show1code{$rp} = $pool_code8;
	$show1name{$rp} = $pool_name8;
	
	$done1{$pool_code8} = $rp;
  }
  elsif ($done1{$pool_code9} < 1) {
	$show1code{$rp} = $pool_code9;
	$show1name{$rp} = $pool_name9;
	
	$done1{$pool_code9} = $rp;
  }
  elsif ($done1{$pool_code10} < 1) {
	$show1code{$rp} = $pool_code10;
	$show1name{$rp} = $pool_name10;
	
	$done1{$pool_code10} = $rp;
  }
  elsif ($done1{$pool_code11} < 1) {
	$show1code{$rp} = $pool_code11;
	$show1name{$rp} = $pool_name11;
	
	$done1{$pool_code11} = $rp;
  }
  elsif ($done1{$pool_code12} < 1) {
	$show1code{$rp} = $pool_code12;
	$show1name{$rp} = $pool_name12;
	
	$done1{$pool_code12} = $rp;
  }
  elsif ($done1{$pool_code13} < 1) {
	$show1code{$rp} = $pool_code13;
	$show1name{$rp} = $pool_name13;
	
	$done1{$pool_code13} = $rp;
  }
  elsif ($done1{$pool_code14} < 1) {
	$show1code{$rp} = $pool_code14;
	$show1name{$rp} = $pool_name14;
	
	$done1{$pool_code14} = $rp;
  }
  elsif ($done1{$pool_code15} < 1) {
	$show1code{$rp} = $pool_code15;
	$show1name{$rp} = $pool_name15;
	
	$done1{$pool_code15} = $rp;
  }
  elsif ($done1{$pool_code16} < 1) {
	$show1code{$rp} = $pool_code16;
	$show1name{$rp} = $pool_name16;
	
	$done1{$pool_code16} = $rp;
  }
  elsif ($done1{$pool_code17} < 1) {
	$show1code{$rp} = $pool_code17;
	$show1name{$rp} = $pool_name17;
	
	$done1{$pool_code17} = $rp;
  }
  elsif ($done1{$pool_code18} < 1) {
	$show1code{$rp} = $pool_code18;
	$show1name{$rp} = $pool_name18;
	
	$done1{$pool_code18} = $rp;
  }
  elsif ($done1{$pool_code19} < 1) {
	$show1code{$rp} = $pool_code19;
	$show1name{$rp} = $pool_name19;
	
	$done1{$pool_code19} = $rp;
  }
  elsif ($done1{$pool_code20} < 1) {
	$show1code{$rp} = $pool_code20;
	$show1name{$rp} = $pool_name20;
	
	$done1{$pool_code20} = $rp;
  }
  elsif ($done1{$pool_code21} < 1) {
	$show1code{$rp} = $pool_code21;
	$show1name{$rp} = $pool_name21;
	
	$done1{$pool_code21} = $rp;
  }
  elsif ($done1{$pool_code22} < 1) {
	$show1code{$rp} = $pool_code22;
	$show1name{$rp} = $pool_name22;
	
	$done1{$pool_code22} = $rp;
  }
  elsif ($done1{$pool_code23} < 1) {
	$show1code{$rp} = $pool_code23;
	$show1name{$rp} = $pool_name23;
	
	$done1{$pool_code23} = $rp;
  }
  elsif ($done1{$pool_code24} < 1) {
	$show1code{$rp} = $pool_code24;
	$show1name{$rp} = $pool_name24;
	
	$done1{$pool_code24} = $rp;
  }
  elsif ($done1{$pool_code25} < 1) {
	$show1code{$rp} = $pool_code25;
	$show1name{$rp} = $pool_name25;
	
	$done1{$pool_code25} = $rp;
  }
  elsif ($done1{$pool_code26} < 1) {
	$show1code{$rp} = $pool_code26;
	$show1name{$rp} = $pool_name26;
	
	$done1{$pool_code26} = $rp;
  }
  elsif ($done1{$pool_code27} < 1) {
	$show1code{$rp} = $pool_code27;
	$show1name{$rp} = $pool_name27;
	
	$done1{$pool_code27} = $rp;
  }
  elsif ($done1{$pool_code28} < 1) {
	$show1code{$rp} = $pool_code28;
	$show1name{$rp} = $pool_name28;
	
	$done1{$pool_code28} = $rp;
  }
  elsif ($done1{$pool_code29} < 1) {
	$show1code{$rp} = $pool_code29;
	$show1name{$rp} = $pool_name29;
	
	$done1{$pool_code29} = $rp;
  }
  elsif ($done1{$pool_code30} < 1) {
	$show1code{$rp} = $pool_code30;
	$show1name{$rp} = $pool_name30;
	
	$done1{$pool_code30} = $rp;
  }
  elsif ($done1{$pool_code31} < 1) {
	$show1code{$rp} = $pool_code31;
	$show1name{$rp} = $pool_name31;
	
	$done1{$pool_code31} = $rp;
  }
  elsif ($done1{$pool_code32} < 1) {
	$show1code{$rp} = $pool_code32;
	$show1name{$rp} = $pool_name32;
	
	$done1{$pool_code32} = $rp;
  }
  elsif ($done1{$pool_code33} < 1) {
	$show1code{$rp} = $pool_code33;
	$show1name{$rp} = $pool_name33;
	
	$done1{$pool_code33} = $rp;
  }
  elsif ($done1{$pool_code34} < 1) {
	$show1code{$rp} = $pool_code34;
	$show1name{$rp} = $pool_name34;
	
	$done1{$pool_code34} = $rp;
  }
  elsif ($done1{$pool_code35} < 1) {
	$show1code{$rp} = $pool_code35;
	$show1name{$rp} = $pool_name35;
	
	$done1{$pool_code35} = $rp;
  }
  elsif ($done1{$pool_code36} < 1) {
	$show1code{$rp} = $pool_code36;
	$show1name{$rp} = $pool_name36;
	
	$done1{$pool_code36} = $rp;
  }
  else {
	$show1code{$rp} = "N/A";
	$show1name{$rp} = "n/a";
  }
  
  $attr = $show1code{$rp};
  if ($attr) {
	$attr1{$attr} = $show1name{$rp};
  }
}

sub cdata {
	$originalscore = $rank1score{$rp};
	unless ($skiplocal eq "true") {
		&check_local("$rank1code{$rp}");
	}

	@filtersex=("");
	$filterfound = "no";
	$passover = "good";
	if (length($rank1code{$rp})<1) {
		$passover = "jew";
	}
	if ($filterman) {
	  if ($checks_style == 2) {
		if ($filterman eq $checkpoint1) {
			&filterman_extra("$rank1forex{$rp}","$checkpoint1");
		}
		if ($filterman eq $checkpoint2) {
			&filterman_extra("$rank1binary{$rp}","$checkpoint2");
		}
		if ($filterman eq $checkpoint3) {
			&filterman_extra("$rank1metatrader{$rp}","$checkpoint3");
		}
		if ($filterman eq $checkpoint4) {
			&filterman_extra("$rank1cfds{$rp}","$checkpoint4");
		}
		if ($filterman eq $checkpoint5) {
			&filterman_extra("$rank1robots{$rp}","$checkpoint5");
		}
		if ($filterman eq $checkpoint6) {
			&filterman_extra("$rank1signals{$rp}","$checkpoint6");
		}
		if ($filterman eq $checkpoint7) {
			&filterman_extra("$rank1vps{$rp}","$checkpoint7");
		}
		if ($filterman eq $checkpoint8) {
			&filterman_extra("$rank1jackpot{$rp}","$checkpoint8");
		}
		if ($fspecial{$checkpoint8} eq "yes") {
			@filtersex_split = split(/\~/, $rank1jackpot{$rp});
			foreach $filtersex_split (@filtersex_split) {
				if ($filterman eq $filtersex_split) {
					$filterfound = "yes";
				}
			}
		}
		unless ($filterfound eq "yes") {
			$passover = "jew";
		}
	  }
	  else {
		if ($filterman eq $checkpoint1) {
			unless ($rank1forex{$rp}>=1) { $passover = "jew"; }
		}
		if ($filterman eq $checkpoint2) {
			unless ($rank1binary{$rp}>=1) { $passover = "jew"; }
		}
		if ($filterman eq $checkpoint3) {
			unless ($rank1metatrader{$rp}>=1) { $passover = "jew"; }
		}
		if ($filterman eq $checkpoint4) {
			unless ($rank1cfds{$rp}>=1) { $passover = "jew"; }
		}
		if ($filterman eq $checkpoint5) {
			unless ($rank1robots{$rp}>=1) { $passover = "jew"; }
		}
		if ($filterman eq $checkpoint6) {
			unless ($rank1signals{$rp}>=1) { $passover = "jew"; }
		}
		if ($filterman eq $checkpoint7) {
			unless ($rank1vps{$rp}>=1) { $passover = "jew"; }
		}
		if ($filterman eq $checkpoint8) {
			unless ($rank1jackpot{$rp}>=1) { $passover = "jew"; }
		}
		if ($rank1blocked{$rp} eq "true") {
			$passover = "jew";
		}
	  }
	}
	if ($demo_required eq "true") {
		unless ($rank1demolink{$rp}) {
			$passover = "jew";
		}
	}
	if ($custom_filterman eq "yes") {
		&extra_passover;
	}
	
	#overwrite score with overwritescore if it exists#
	if ($rank1overwritescore{$rp}) {
		$originalscore = $rank1overwritescore{$rp};
		$rank1score{$rp} = $rank1overwritescore{$rp};
		&nullify_scores("$rank1overwritescore{$rp}");
	}
	#score to 0 if it's offline#
	if ($rank1blocked{$rp} eq "offline") {
		$originalscore = $rank1score{$rp};
		$rank1score{$rp} = "0";
		&nullify_scores("0");
	}
	
	if ($passover eq "good") {
		if ($rank1blocked{$rp} eq "null") {
			push(@review_list,"$rank1code{$rp}");
			$passover{$rp} = "good";
		}
		else {
			push(@review_list,"$rank1code{$rp}\|$rank1name{$rp}\|$rank1link{$rp}\|$rank1demolink{$rp}\|$rank1point1{$rp}\|$rank1point2{$rp}\|$rank1point3{$rp}\|$rank1point4{$rp}\|$rank1offer{$rp}\|$rank1score{$rp}\|$rank1fullreview{$rp}\|$rank1boxcolor{$rp}\|$rank1textcolor{$rp}\|$rank1type{$rp}\|$rank1www{$rp}\|$rank1metatrader{$rp}\|$rank1binary{$rp}\|$rank1forex{$rp}\|$rank1blocked{$rp}\|$rank1square{$rp}\|$rank1cfds{$rp}\|$rank1robots{$rp}\|$rank1signals{$rp}\|$rank1vps{$rp}\|$rank1jackpot{$rp}\|$rank1instruct{$rp}\|$rank1extoffer{$rp}\|$rank1extofferfp{$rp}\|$rank1hq{$rp}\|$rank1reg{$rp}\|$rank1plat{$rp}\|$rank1phone{$rp}\|$rank1email{$rp}\|$rank1intro{$rp}\|$rank1conclusion{$rp}\|$rank1pm1{$rp}\|$rank1pm2{$rp}\|$rank1pm3{$rp}\|$rank1pm4{$rp}\|$rank1pm5{$rp}\|$rank1rsect_score1{$rp}\|$rank1rsect_desc1{$rp}\|$rank1rsect_paragraph_desc1{$rp}\|$rank1rsect_score2{$rp}\|$rank1rsect_desc2{$rp}\|$rank1rsect_paragraph_desc2{$rp}\|$rank1rsect_score3{$rp}\|$rank1rsect_desc3{$rp}\|$rank1rsect_paragraph_desc3{$rp}\|$rank1rsect_score4{$rp}\|$rank1rsect_desc4{$rp}\|$rank1rsect_paragraph_desc4{$rp}\|$rank1rsect_score5{$rp}\|$rank1rsect_desc5{$rp}\|$rank1rsect_paragraph_desc5{$rp}\|$rank1customtitle{$rp}\|$rank1customdescription{$rp}\|$rank1translated{$rp}\|$originalscore\|$rank1pm6{$rp}\|$rank1pm7{$rp}\|$rank1pm8{$rp}\|$rank1pm9{$rp}\|$rank1pm10{$rp}\|$rank1pm11{$rp}\|$rank1anal{$rp}\|$rank1pub{$rp}\|$rank1region{$rp}\|$rank1city{$rp}\|$rank1address{$rp}\|$rank1analms{$rp}\|$rank1analml{$rp}\|$rank1forexlink{$rp}\|$rank1signalslink{$rp}\|$rank1cp1{$rp}\|$rank1cp2{$rp}\|$rank1cp3{$rp}\|$rank1cp4{$rp}\|$rank1cp5{$rp}\|$rank1cp6{$rp}\|$rank1cp7{$rp}\|$rank1cp8{$rp}\|$rank1est{$rp}\|$rank1logocode{$rp}\|$rank1screencode{$rp}\|$rank1overwritescore{$rp}\|");
			$passover{$rp} = "good";
		}
	}
}

sub nullify_scores {
	$rank1square{$rp} = "xx";
	$rank1metatrader{$rp} = $_[0];
	$rank1binary{$rp} = $_[0];
	$rank1forex{$rp} = $_[0];
	$rank1cfds{$rp} = $_[0];
	$rank1robots{$rp} = $_[0];
	$rank1signals{$rp} = $_[0];
	$rank1vps{$rp} = $_[0];
	$rank1jackpot{$rp} = $_[0];
}

sub filterman_extra {
	$fme_rp = $_[0];
	$fme_checkpoint = $_[1];
	unless ($fme_rp eq "yes") {
		if ($fspecial{$fme_checkpoint} eq "yes") {
			if ($fme_rp =~ /\~/) {
			
			}
			else {
				$passover = "jew";
			}
		}
		else {
			$passover = "jew";
		}
	}
	$filterfound = "yes";
}

1;
#~#~# stats-package #~#~#
sub stats_package {
	open(proxcodes,"$basedir/data/proxcodes.txt");
	flock proxcodes, 2;
	@proxcodes = <proxcodes>;
	close(proxcodes);
	
	$every10=9;
	
	print qq?
	<div id="tieren1" style="font-size:11px">
	<a href="javascript:void(0)" onclick="document.getElementById('tieren2').style.display='block';document.getElementById('tieren1').style.display='none';">Show English Countries [+]</a>
	</div>
	<div id="tieren2" style="display:none; font-size:11px">
	<a href="javascript:void(0)" onclick="document.getElementById('tieren1').style.display='block';document.getElementById('tieren2').style.display='none';">Hide [-]</a><p />
	<table style="color:white" cellpadding=3>?;
	
	foreach $proxcodes (@proxcodes) {
	  $count10++;
	  if ($count10<=300) {
	   @pcsplit = split(/\|/, $proxcodes);
	   unless ((@pcsplit[6] =~ /http:/) or (@pcsplit[6] eq "blocked")) {
		$pcode = @pcsplit[0];
		$pcountry = @pcsplit[1];
		
		$countrycode = $pcountry;
		$countrycode =~ tr/A-Z/a-z/;
		$countrycode =~ s/\W//g;
		$language="en";
		if ($pcountry eq "Austria") {
			print qq?
	</table>
	</div>
	
	<div id="tier1" style="font-size:11px">
	<a href="javascript:void(0)" onclick="document.getElementById('tier2').style.display='block';document.getElementById('tier1').style.display='none';">Show Europe Countries [+]</a>
	</div>
	<div id="tier2" style="display:none; font-size:11px">
	<a href="javascript:void(0)" onclick="document.getElementById('tier1').style.display='block';document.getElementById('tier2').style.display='none';">Hide [-]</a><p />
	<table style="color:white" cellpadding=3>
	?;
		}
		if ($pcountry eq "Brazil") {
			print qq?
	</table>
	</div>
	
	<div id="tierr1" style="font-size:11px">
	<a href="javascript:void(0)" onclick="document.getElementById('tierr2').style.display='block';document.getElementById('tierr1').style.display='none';">Show All Other Countries [+]</a>
	</div>
	<div id="tierr2" style="display:none; font-size:11px">
	<a href="javascript:void(0)" onclick="document.getElementById('tierr1').style.display='block';document.getElementById('tierr2').style.display='none';">Hide [-]</a><p />
	<table style="color:white" cellpadding=3>
	?;
		}
		&build_line("$pcountry");
		
		open(proxlangs,"$basedir/data/langs/$pcode\.txt");
		flock proxlangs, 2;
		$proxlang = <proxlangs>;
		close(proxlangs);
		
		if ($proxlang) {
			@pxlang = split(/\,/, $proxlang);
			foreach $language (@pxlang) {
				unless ($language eq "en") {
					&build_line("$pcountry ($language)");
				}
			}
		}
	   }
	  }
	}
	
	print qq?
	</table>
	</div>
	
	<p />
	
	<table cellpadding=5 style="text-align:center">
	<tr bgcolor=#DDDDDD>
	<td>ave rank</td>
	<td>brand</td>
	<td>listings</td>
	<td>ave score</td>
	<td>#1s</td>
	<td>#2s</td>
	<td>#3s</td>
	<td>4-5s</td>
	<td>6-10s</td>
	<td>blocked</td>
	<td>errors</td>
	</tr>?;
	foreach $relivantlistings (sort somesort @relivantlistings) {
		$rlno++;
		$avgrank = $rankings{$relivantlistings} / $listings{$relivantlistings};
		$avgrank = sprintf("%.1f", $avgrank);
		
		$avgpos = $positions{$relivantlistings} / $listings{$relivantlistings};
		$avgpos = sprintf("%.1f", $avgpos);
		unless ($revtxt{$relivantlistings}) {
			$revtxt{$relivantlistings} = "white";
		}
		print qq?
	<tr>
	<td>\#$avgpos</td>
	<td bgcolor="$revbox{$relivantlistings}"><div style="color:$revtxt{$relivantlistings}">$revtit{$relivantlistings}</div></td>
	<td>$listings{$relivantlistings}</td>
	<td>$avgrank</td>?;
	
		&no1s("filterworda1$rlno","filterwordb1$rlno","$number1s{$relivantlistings}");
		&no1s("filterworda2$rlno","filterwordb2$rlno","$number2s{$relivantlistings}");
		&no1s("filterworda3$rlno","filterwordb3$rlno","$number3s{$relivantlistings}");
		&no1s("filterworda5$rlno","filterwordb5$rlno","$number5s{$relivantlistings}");
		&no1s("filterworda10$rlno","filterwordb10$rlno","$number10s{$relivantlistings}");
	
		&filterwords_tab("filterwordab","filterwordbb","$blocked1s{$relivantlistings}","total");
		&filterwords_tab("filterwordcd","filterwordcc","$errors1s{$relivantlistings}","<span style='color:red'>errors</span> <a href='$admin_link&page=defaults&a_area=en&b_area=dfall&filterman=$relivantlistings'>fix!</a>");
		print qq?
	</tr>
?;
	}
	print qq?
	</table>?;
}

sub filterwords_tab {
	print qq?
	<td valign="top">
	<div id="$_[0]$rlno" style="font-size:11px">
	<a href="javascript:void(0)" onclick="document.getElementById('$_[1]$rlno').style.display='block';document.getElementById('$_[0]$rlno').style.display='none';">Show [+]</a>
	</div>
	
	<div id="$_[1]$rlno" style="display:none; font-size:11px">
	<a href="javascript:void(0)" onclick="document.getElementById('$_[0]$rlno').style.display='block';document.getElementById('$_[1]$rlno').style.display='none';">Hide [-]</a><p />?;
	$ns11=0;
	if ($_[2]) {
		@number1s = split(/\|/, $_[2]);
		foreach $number1s (reverse @number1s) {
			$ns11++;
			unless ($ns11 == 1) {
				print "<br />";
			}
			if ($focuscs =~ /$number1s/) {
				print "<b>$number1s</b>";
			}
			else {
				print "$number1s";
			}
		}
	}
	else {
		print "none";
	}
	print qq?</div>
?;
	if ($ns11>=1) {
		print "<p /><i>$ns11 $_[3]</i>\n";
	}
	print qq?</td>?;
}
	
sub no1s {
	print qq?
	<td valign=top>
	<div id="$_[0]" style="font-size:11px">
	<a href="javascript:void(0)" onclick="document.getElementById('$_[1]').style.display='block';document.getElementById('$_[0]').style.display='none';">Show [+]</a>
	</div>
	<div id="$_[1]" style="display:none; font-size:11px">
	<a href="javascript:void(0)" onclick="document.getElementById('$_[0]').style.display='block';document.getElementById('$_[1]').style.display='none';">Hide [-]</a><p />?;
	  
	$ns1=0;
	$ns1a=0;
	$currentno1 = "xxx";
	
	if ($_[2]) {
		@number1s = split(/\|/, $_[2]);
		foreach $number1s (reverse @number1s) {
			$ns1++;
			
			if ($number1s =~ /$currentno1/) {
			  if ($number1s =~ /(.*) \((.*)\)/) {
				print " \[$2\]";
			  }
			  else {
				print " (error)";
			  }
			}
			else {
			  unless ($ns1 == 1) {
				print "<br />";
			  }
			  if ($focuscs =~ /$number1s/) {
				print "<b>$number1s</b>";
				$ns1a++;
			  }
			  else {
				print "$number1s";
			  }
			}
			
			if ($number1s =~ /(.*) \((.*)\)/) {
				$currentno1 = $1;
			}
			else {
				$currentno1 = $number1s;
			}
		}
	}
	else {
		print "none";
	}
	print qq?</div><p /><i>$ns1?;
	if ($ns1a) { print " <b>($ns1a)</b>"; }
	print qq?</i></td>?;
}

sub build_line {
	@review_list=("");
	&build_database;
	$boxess = 0;
	
	$every10++;
	if ($every10 == 10) {
		print qq?
	<tr bgcolor=silver>
	<td> </td>
	<td>1</td><td>2</td><td>3</td><td>4</td><td>5</td>
	<td>6</td><td>7</td><td>8</td><td>9</td><td>10</td>
	</tr>
?;
		$every10 = 0;
	}
		
	print qq?
	<tr>
	<td><span style="color:black; font-weight:bold">$_[0]</span></td>?;
	foreach $review_list (@review_list) {
		$boxess++;
		$dacode = $rank1code{$boxess};
		if ($boxess<=10) {
			print qq?<td bgcolor="$rank1boxcolor{$boxess}"><div style="color:$rank1textcolor{$boxess}">$rank1name{$boxess} <span style="font-size:10px">$rank1score{$boxess}</span></div></td>?;
			unless ($dacodedone{$dacode} eq "yes") {
				push(@relivantlistings, $dacode);
				$revtit{$dacode} = $rank1name{$boxess};
				$revbox{$dacode} = $rank1boxcolor{$boxess};
				$revtxt{$dacode} = $rank1textcolor{$boxess};
			}
			$dacodedone{$dacode} = "yes";
			$listings{$dacode}++;
			$rankings{$dacode} = $rankings{$dacode} + $rank1score{$boxess};
			$positions{$dacode} = $positions{$dacode} + $boxess;
		}
		
		#errors check all#
		if ($rank1fullreview{$boxess}) {
			unless ( ($rank1intro{$boxess}) && ($rank1conclusion{$boxess}) ) {
				&errors_check("full review broken","$language");
				if ($rank1translated{$boxess} eq "yes") {
					&errors_check("full review broken","$language");
				}
			}
		}
		$rank1fullreview{$boxess} = "";
		$rank1intro{$boxess} = "";
		$rank1conclusion{$boxess} = "";
		$rank1translated{$boxess} = "";
		
		unless ($rank1offer{$boxess}) {
			if ($language eq "en") {
				&errors_check("offer not added","$language");
			}
			else {
				&errors_check("offer not translated","$language");
			}
		}
		$rank1offer{$boxess} = "";
		
		unless ($rank1point1{$boxess}) {
			if ($language eq "en") {
				&errors_check("point1 not added","$language");
			}
			else {
				&errors_check("point1 not translated","$language");
			}
		}
		$rank1point1{$boxess} = "";
		
		unless ($rank1point2{$boxess}) {
			if ($language eq "en") {
				&errors_check("point2 not added","$language");
			}
			else {
				&errors_check("point2 not translated","$language");
			}
		}
		$rank1point2{$boxess} = "";
		
		unless ($rank1point3{$boxess}) {
			if ($language eq "en") {
				&errors_check("point3 not added","$language");
			}
			else {
				&errors_check("point3 not translated","$language");
			}
		}
		$rank1point3{$boxess} = "";
		
		unless ($rank1point4{$boxess}) {
			if ($language eq "en") {
				&errors_check("point4 not added","$language");
			}
			else {
				&errors_check("point4 not translated","$language");
			}
		}
		$rank1point4{$boxess} = "";
		
		#group by rank#
		if ($boxess == 1) {
			$number1s{$dacode} = "$_[0]\|$number1s{$dacode}";
			unless ($rank1fullreview{$boxess}) {
				&errors_check("top 3 and no full review","$language");
			}
		}
		if ($boxess == 2) {
			$number2s{$dacode} = "$_[0]\|$number2s{$dacode}";
			unless ($rank1fullreview{$boxess}) {
				&errors_check("top 3 and no full review","$language");
			}
		}
		if ($boxess == 3) {
			$number3s{$dacode} = "$_[0]\|$number3s{$dacode}";
			unless ($rank1fullreview{$boxess}) {
				&errors_check("top 3 and no full review","$language");
			}
		}
		if (($boxess > 3) && ($boxess <= 5)) {
			$number5s{$dacode} = "$_[0]\|$number5s{$dacode}";
		}
		if (($boxess > 5) && ($boxess <= 10)) {
			$number10s{$dacode} = "$_[0]\|$number10s{$dacode}";
		}
		if ($rank1boxcolor{$boxess} =~ "DDDDDD") {
		  unless ($_[0] =~ /\(/) {
			$blocked1s{$dacode} = "$_[0]\|$blocked1s{$dacode}";
		  }
		}
		$done{$dacode} = "";
		$rank1code{$boxess} = "";
		$rank1blocked{$boxess} = "";
		$rank1textcolor{$boxess} = "";
	}
	print qq?
	</tr>?;
}

sub errors_check {
	$e_c = "$_[0] $_[1]";
	unless ($error_done{$e_c} eq "done") {
		$errors1s{$dacode} = "$_[0] - $_[1]\|$errors1s{$dacode}";
		$error_done{$e_c} = "done";
	}
}

sub somesort {
    ($positions{$a}/$listings{$a}) <=> ($positions{$b}/$listings{$b});
}

1;
#~#~# parser #~#~#
sub parse_form {
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
   @pairs = split(/&/, $buffer);
   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      if (length($value) > 500000) { &fatal_error(too_long); }
      $FORM{$name} = $value;
   }
}

1;
#~#~# user_cookie #~#~#
sub set_usercookie {
   local($chip, $val);
   foreach (split(/; /, $ENV{'HTTP_COOKIE'})) {
      s/\+/ /g;
      ($chip, $val) = split(/=/,$_,2);
      $chip =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
      $val =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
      $cookie{$chip} .= "\1" if (defined($cookie{$chip}));
      $cookie{$chip} .= $val;
      if ($chip =~ "$cook_name") {
         $cu_settings = $cookie{$chip};
      }
      $cusets ="$cusets $cookie{$chip}";
   }
   if ($_[0] eq "newuser") { $cu_settings = ""; }
   $cu_settings =~ s/
//g;
   ($key,@cu_settings) = split(/\|/, $cu_settings);
   foreach $cu_settings2 (@cu_settings) {
      if ($cu_settings2 =~ /(.*)\*(.*)/) {
         $stand = $1; $vari = $2;
         if ($stand eq "username") {
            unless ($cu_usr2 eq "found") {
               if ($cu_usr eq "yes") { $fnpassword = "$fnpassword|username\*$username"; }
               else                  { $fnpassword = "$fnpassword|$cu_settings2"; $username = $vari; }
               $cu_usr2 = "found";
            }
         }
         elsif ($stand eq "password") {
            unless ($cu_pwd2 eq "found") {
               if ($cu_pwd eq "yes") { $fnpassword = "$fnpassword|password\*$password"; }
               else                  { $fnpassword = "$fnpassword|$cu_settings2"; $password = $vari; }
               $cu_pwd2 = "found";
            }
         }
         elsif ($stand eq "email") {
            unless ($cu_eml2 eq "found") {
               if ($cu_eml eq "yes") { $fnpassword = "$fnpassword|email\*$email"; }
               else                  { $fnpassword = "$fnpassword|$cu_settings2"; $email = $vari; }
               $cu_eml2 = "found";
            }
         }
         else {
            unless ($fnpassword =~ "$stand") {
               $fnpassword = "$fnpassword|$cu_settings2";
            }
         }
      }
   }
   unless ($cu_usr2 eq "found") {
      unless ($fnpassword =~ "username\*") {
         $fnpassword = "$fnpassword|username\*$username";
      }
   }
   unless ($cu_pwd2 eq "found") {
      unless ($fnpassword =~ "password\*") {
         $fnpassword = "$fnpassword|password\*$password";
      }
   }
   unless ($cu_eml2 eq "found") {
      unless ($fnpassword =~ "email\*") {
         $fnpassword = "$fnpassword|email\*$email";
      }
   }
   $path    = "/";
   if ($page eq "logout") {
      $fnpassword="";
   }
   print "Set-Cookie: $cook_name=$fnpassword; path=$path; domain=$domain\n";
}

sub set_vals {
   $username = $FORM{username};
   $password = crypt($FORM{password}, 2);
   $cu_usr = "yes";
   $cu_pwd = "yes";
}
sub check_login {
   unless (($username eq "master") && ($password eq "225edDf0esgrg")) {
      $username = "";
   }
}

1;
#~#~# user_cookie1 #~#~#
sub set_usercookie {
   local($chip, $val);
   foreach (split(/; /, $ENV{'HTTP_COOKIE'})) {
      s/\+/ /g;
      ($chip, $val) = split(/=/,$_,2);
      $chip =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
      $val =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
      $cookie{$chip} .= "\1" if (defined($cookie{$chip}));
      $cookie{$chip} .= $val;
      if ($chip =~ "$cook_name") {
         $cu_settings = $cookie{$chip};
      }
      $cusets ="$cusets $cookie{$chip}";
   }
   if ($_[0] eq "newuser") { $cu_settings = ""; }
   $cu_settings =~ s/
//g;
   ($key,@cu_settings) = split(/\|/, $cu_settings);
   foreach $cu_settings2 (@cu_settings) {
      if ($cu_settings2 =~ /(.*)\*(.*)/) {
         $stand = $1; $vari = $2;
         if ($stand eq "username") {
            unless ($cu_usr2 eq "found") {
               if ($cu_usr eq "yes") { $fnpassword = "$fnpassword|username\*$username"; }
               else                  { $fnpassword = "$fnpassword|$cu_settings2"; $username = $vari; }
               $cu_usr2 = "found";
            }
         }
         elsif ($stand eq "password") {
            unless ($cu_pwd2 eq "found") {
               if ($cu_pwd eq "yes") { $fnpassword = "$fnpassword|password\*$password"; }
               else                  { $fnpassword = "$fnpassword|$cu_settings2"; $password = $vari; }
               $cu_pwd2 = "found";
            }
         }
         elsif ($stand eq "email") {
            unless ($cu_eml2 eq "found") {
               if ($cu_eml eq "yes") { $fnpassword = "$fnpassword|email\*$email"; }
               else                  { $fnpassword = "$fnpassword|$cu_settings2"; $email = $vari; }
               $cu_eml2 = "found";
            }
         }
         else {
            unless ($fnpassword =~ "$stand") {
               $fnpassword = "$fnpassword|$cu_settings2";
            }
         }
      }
   }
   unless ($cu_usr2 eq "found") {
      unless ($fnpassword =~ "username\*") {
         $fnpassword = "$fnpassword|username\*$username";
      }
   }
   unless ($cu_pwd2 eq "found") {
      unless ($fnpassword =~ "password\*") {
         $fnpassword = "$fnpassword|password\*$password";
      }
   }
   unless ($cu_eml2 eq "found") {
      unless ($fnpassword =~ "email\*") {
         $fnpassword = "$fnpassword|email\*$email";
      }
   }
   $path    = "/";
   if ($page eq "logout") {
      $fnpassword="";
   }
   print "Set-Cookie: $cook_name=$fnpassword; path=$path; domain=$domain\n";
}

sub set_vals {
   $username = $FORM{username};
   $password = $FORM{password};
   $cu_usr = "yes";
   $cu_pwd = "yes";
}
sub check_login {
   unless (($username eq "master") && ($password eq "Yuneec99")) {
      $username = "";
   }
}

1;
#~#~# gosubs #~#~#
sub go_order {
#####

$t_robots = "";

&parse_form(register);
if ($FORM{saver}) {
	&save_changes;
}

&param_top;

if ($redirecter eq "true") {
	&geo_check;
	if (($noredirectmain ne "true") && ($geocode1) && ($geocodeblck ne "blocked")) {
		print "Location: $the_url/go/$geocode1\-$deftlang/\n\n";
	}
	else {
		print "Location: $the_url/go/\n\n";
	}
	exit;
}
if ($redirecter eq "geo") {
	&geo_check;
	$countrycode = $geocode1;
}

use LWP::Simple;

unless ($language) {
	$language = "en";
}

unless ($starsz_type) {
	$starsz_type = "starsz";
}

$cldcustom = "yes";
unless ($cookielessdomain) {
	$cookielessdomain = "/cm/images";
	$cldcustom = "";
}
unless ($cookielessdomainfull) {
	$cookielessdomainfull = "$the_url/cm/images";
}
unless ($src_custom) {
	$src_custom = "src";
}

if ($custom_filterman eq "yes") {
  &custom_filterman;
}
else {
  if ($filterman) {
	$filterlink = "filter\-$filterman/";
	
	if ($checks_style == 2) {
		$filtasort = "scoresort";
	}
	else {
		$fst=$fst{$filterman};
		$filtasort = "filtersort";
	}
  }
  else {
	$filtasort = "scoresort";
  }
}

if ($aos_on eq "true") {
	@extra_header=("
   <link rel=\"stylesheet\" href=\"$cookielessroot/font-awesome-animation.min.css\">
   <link rel=\"stylesheet\" href=\"$cookielessroot/aos.css\">");
   
	@extra_footer=("
<script src=\"$cookielessroot/aos.js\"></script>
<script>
    AOS.init();
</script>");

	#animate in#
	$floatin_left = " data-aos=\"zoom-in-left\"";
	$floatin_right = " data-aos=\"zoom-in-right\"";
	$floatin_up = " data-aos=\"fade-up\"";
	$floatin_down = " data-aos=\"fade-down\"";
}

###############################################################################

&language_vars;
##admin override#
if (($readthis eq "sitemap") or ($page eq "sitemap")) {
	&make_sitemap;
}
if ($readthis eq "admin") {
	&admin_area;
}

#disable site#
if ($disablesite eq "true") {
 unless ($page eq "clickspecial") {
	print "Content-type: text/html\n\n";
	exit;
 }
}

if ($language ne "en") {
  unless (-f "$basedir/data/proxcodes\-$language\.txt") {
	&not_found("no such language: $language a_area: $a_area b_area: $b_area");
  }
}
&check_countryinfo;
&corlinks;
&geo_check;
if (($a_area eq "full-reviews") or ($a_area eq "review") or ($a_area eq "reviews") or ($a_area eq "articles") or ($a_area eq "promos") or ($a_area eq "index")) {
	&build_database;
}
elsif ($a_area eq "usaresult") {
	$skiplocal = "true";
	&build_database;
}


if ($b_area) {
	&basic_info($b_area);
}
if ($readthis) {
	&readthis_info($readthis);
}
&find_defaults;
if (($a_area) or ($b_area)) {
	&language_words;
}

# quick link special #
if ($page eq "clickspecial") {
	unless ($countryname) {
		$countryname = "unitedkingdom";
	}
	unless ($language{$language}) {
		$language{$language} = "en";
	}
	
	if ($b_area) {
		$rtt = $thisrank;
	}
	else {
		$rtt = 1;
	}
	&report_click;
	if (($filterman eq $checkpoint1) && ($rank1forexlink{$rtt})) {
		$finishlink = $rank1forexlink{$rtt};
	}
	elsif (($filterman eq $checkpoint6) && ($rank1signalslink{$rtt})) {
		$finishlink = $rank1signalslink{$rtt};
	}
	else {
		$finishlink = $rank1link{$rtt};
	}
	$finishlink =~ s/{referloger}/$referloger/g;
	
	unless ($finishlink) {
		if ($rank1code{$rtt}) {
			$finishlink = "$corlink/review/$rank1code{$rtt}/$addto_links";
		}
		else {
			$finishlink = "$corlink/$addto_links";
		}
	}
	print "Location: $finishlink\n\n";
	exit;
}


####### Make Meta #######

if ($regulator eq "blocked") {
	&not_found("Sorry, you cannot access this website in your country");
}
if ($b_area) {
	unless ($rank1name{$thisrank}) {
		&not_found("89");
	}
	if ($rank1blocked{$thisrank} eq "null") {
		&not_found("90");
	}
	if ($a_area eq "reviews") {
		$t_title = "$w_review_title";
		$t_summary = "$w_review_desc1 $w_review_desc2 $w_review_desc3";
		
		&get_sgrab;
		if ($schemalevel eq "true") {
			&review_schema;
		}

		$a_title = "$w_reviewsX";
		$a_area = "review";
	
		$t_layout = "listing";
		$langlink = "$cor2link/$a_area/$b_area/$addto_links";
		$langlink2 = "$cor3link/$a_area/$b_area/$addto_links";
	}
	elsif ($a_area eq "usaresult") {
		$t_title = "$w_recommenda_title";
		$t_summary = "$w_recommenda_desc";

		$t_layout = "usaresult";
		
		$a_title = "$w_recommend_atitle";
		#$langlink = "$cor1link/recommend/%lang%/$addto_links";#
		$langlink = "$cor1link/$addto_links";
		
		$t_robots = "";
	}
	else {
		#full reviews#
		if ($rank1rsect_customtitle{$thisrank}) {
			$t_title = $rank1rsect_customtitle{$thisrank};
		}
		else {
			$t_title = $w_fullreview_default_title;
			
		}
		if ($rank1rsect_customdescription{$thisrank}) {
			$t_summary = $rank1rsect_customdescription{$thisrank};
		}
		else {
			$t_summary = $w_fullreview_default_description;
		}
		&get_sgrab;
		&review_schema;

		$a_title = "$w_full_reviews";
		$a_area = "full-reviews";
	
		$t_layout = "review";
		$langlink = "$cor1link/reviews/%lang%/$b_area/$addto_links";
		
		$t_robots = "";
	}
}
elsif ($readthis) {
  if ($a_area eq "promos") {
	$promosdir = "$basedir/data/promos";
	&getpromo("$readthis");

	$a_title = "$w_promosX";
	$a_area = "promos";
	$t_layout = "promos";
  }
  else {
	if ($readthis eq "legal-info") {
		$t_title = "$w_legal_title";
		$t_summary = "$w_legal_desc1 $w_legal_desc2";

		$b_title = $w_legal_barea;
		
		if (-f "$basedir/data/articles/legal-info\-$countrycode\-$language\.txt") {
			$articlefound = "yes";
			$articledir = "$basedir/data/articles/legal-info\-$countrycode\-$language\.txt";
		}
		elsif (-f "$basedir/data/articles/legal-info\-$countrycode\-en\.txt") {
			$articlefound = "yes";
			$articledir = "$basedir/data/articles/legal-info\-$countrycode\-en\.txt";
		}
	}
	elsif ($readthis =~ /(.*)\-(.*)/) {
		$t_combined = "$1$2";
		$t_title = $w_arty{$t_combined};
		$t_summary = "$w_artsum1{$t_combined} $w_artsum2{$t_combined}";

		$b_title = $w_artb{$t_combined};
		
		if (-f "$basedir/data/articles/$1\-$2\-$countrycode\-$language\.txt") {
			$articlefound = "yes";
			$articledir = "$basedir/data/articles/$1\-$2\-$countrycode\-$language\.txt";
		}
		elsif (-f "$basedir/data/articles/$1\-$2\-$countrycode\-en\.txt") {
			$articlefound = "yes";
			$articledir = "$basedir/data/articles/$1\-$2\-$countrycode\-en\.txt";
		}
		else {
			$articlefound = "no";
		}
	}

	$t_layout = "article";

	$a_title = "$w_articlesX";
	$a_area = "article";
  }
  
  if ($articledir) {
	open(articlefound,"$articledir");
	flock articlefound, 2;
	@articlefound = <articlefound>;
	close(articlefound);
  }
  
  unless ($b_title) {
	&not_found("243 make btitie: w_artb{$t_combined}");
  }
  $langlink = "$cor2link/$a_area/$readthis/$addto_links";
  $langlink2 = "$cor3link/$a_area/$readthis/$addto_links";
}
elsif ($a_area) {
	#full reviews#
	if ($a_area eq "full-reviews") {
		&not_found("full reviews");
	}
	elsif ($a_area eq "review") {
		if ($filterman) {
			$t_title = "$w_review_list_title{$filterman}";
			
			#find defaults if necessary#
			unless ($w_searchingfor{$filterman}) {
				&checkfor_def("$w_searchingfor{default}");
				$w_searchingfor{$filterman} = $checkfor_def;
			}
			unless ($w_review_list_desc2{$filterman}) {
				&checkfor_def("$w_review_list_desc2{default}");
				$w_review_list_desc2{$filterman} = $checkfor_def;
			}
			unless ($w_reviewlist_h1{$filterman}) {
				&checkfor_def("$w_reviewlist_h1{default}");
				$w_reviewlist_h1{$filterman} = $checkfor_def;
			}
			unless ($w_reviewlist_top_h1{$filterman}) {
				&checkfor_def("$w_reviewlist_top_h1{default}");
				$w_reviewlist_top_h1{$filterman} = $checkfor_def;
			}
			unless ($w_searchingfor1{$filterman}) {
				&checkfor_def("$w_searchingfor1{default}");
				$w_searchingfor1{$filterman} = $checkfor_def;
			}
			unless ($w_review_list_desc2a{$filterman}) {
				&checkfor_def("$w_review_list_desc2a{default}");
				$w_review_list_desc2a{$filterman} = $checkfor_def;
			}
			
			
			$t_summary = "$w_searchingfor{$filterman} $w_review_list_desc2{$filterman} $w_review_list_desc3";

			$t_layout = "list";
			if ($page>1) {
				$t_robots = "<meta name=\"robots\" content=\"NOINDEX,FOLLOW\" >";
			}
			$a_title = $w_reviews{$filterman};
			$langlink = "$cor2link/$a_area/page-1/filter\-$filterman/$addto_links";
			$langlink2 = "$cor3link/$a_area/page-1/filter\-$filterman/$addto_links";

			$rl_h1 = $w_reviewlist_h1{$filterman};
			$rl_h1_top = $w_reviewlist_top_h1{$filterman};
			
			if (($page == 1) && ($w_explainer_h1{$filterman})) {
			  if ($imggrab{$filterman}) {
				$rl_sen_extend = "
				<div class=\"filter-content1\">
				<h3>$w_explainer_h1{$filterman}</h3>
				$w_explainer_para1{$filterman} $w_explainer_para2{$filterman}<p />
				$w_explainer_para3{$filterman} $w_explainer_para4{$filterman}
				</div>
				<div class=\"filter-content2\">
				<img $src_custom\=\"$imggrab{$filterman}\" alt=\"$filterman\">
				$w_reviews{$filterman}
				</div>
				<div class=\"chromehack\"></div>";
			  }
			  else {
				$rl_sen_extend = "
				<h3>$w_explainer_h1{$filterman}</h3>
				$w_explainer_para1{$filterman} $w_explainer_para2{$filterman}<p />
				$w_explainer_para3{$filterman} $w_explainer_para4{$filterman}<p />";
			  }
			}
			
			&checkpush("$checkpoint1");
			&checkpush("$checkpoint2");
			&checkpush("$checkpoint3");
			&checkpush("$checkpoint4");
			&checkpush("$checkpoint5");
			&checkpush("$checkpoint6");
			&checkpush("$checkpoint7");
			&checkpush("$checkpoint8");
			
			$rl_sen = "$rl_sen_extend<i>$w_searchingfor1{$filterman} $w_review_list_desc2a{$filterman} $w_review_list_desc3</i><p />
			$rl_sen_add
			&nbsp;/&nbsp; <a href='$corlink/review/$addto_links' title='$country_name $w_forex'>$w_fulllist</a>";
			$extrakeyword = "$w_{$filterman} ";
			
			unless ($w_review_list_title{$filterman}) {
				&not_found("160 $filterman");
			}
		}
		else {
			if ($w_review_list_titleT) {
				$t_title = "$w_review_list_titleT";
			}
			else {
				$t_title = "$w_review_list_title";
			}
			$t_summary = "$w_searchingforA $w_review_list_desc2X $w_review_list_desc3";

			$t_layout = "list";
			if ($page>1) {
				$t_robots = "<meta name=\"robots\" content=\"NOINDEX,FOLLOW\" >";
			}
			$a_title = "$w_reviewsX";
			$langlink = "$cor2link/$a_area/$addto_links";
			$langlink2 = "$cor3link/$a_area/$addto_links";
			
			$rl_h1 = $w_reviewlist_h1A;
			$rl_h1_top = $w_countrynamebroker;
			
			&checkpush("$checkpoint1");
			&checkpush("$checkpoint2");
			&checkpush("$checkpoint3");
			&checkpush("$checkpoint4");
			&checkpush("$checkpoint5");
			&checkpush("$checkpoint6");
			&checkpush("$checkpoint7");
			&checkpush("$checkpoint8");
			
			$rl_sen = "$w_searchingfor1A $w_reviewlist_sen1 $w_reviewlist_sen2<p /><i>$w_wedisplayall</i><p />$rl_sen_add &nbsp;/&nbsp; <b>$w_fulllist</b>";
		}
	}
	elsif ($a_area eq "articles") {
		$t_title = "$w_articles_title";
		$t_summary = "$w_articles_desc";

		$t_layout = "article";
		
		$a_title = "$w_articlesX";
		$langlink = "$cor2link/article/$addto_links";
		$langlink2 = "$cor3link/article/$addto_links";
	}
	elsif ($a_area eq "promos") {
		$t_title = "$w_promos_title";
		$t_summary = "$w_promos_desc";

		$t_layout = "article";
		
		$a_title = "$w_promosX";
		$langlink = "$cor2link/promo/$addto_links";
		$langlink2 = "$cor3link/promo/$addto_links";
	}
	elsif ($a_area eq "about") {
		$t_title = "$w_about_title";
		$t_summary = "$w_about_desc";

		$t_layout = "about";
		
		$a_title = "$w_about_us";
		$langlink = "$cor1link/about/%lang%/$addto_links";
		
		$t_robots = "";
	}
	elsif ($a_area eq "contact") {
		$t_title = "$w_contact_title";
		$t_summary = "$w_contact_desc";

		$t_layout = "about";
		
		$a_title = "$w_contact_us";
		$langlink = "$cor1link/contact/%lang%/$addto_links";
		
		$t_robots = "";
	}
	elsif ($a_area eq "privacy") {
		$t_title = "$w_privacy_title";
		$t_summary = "$w_privacy_desc";

		$t_layout = "about";
		
		$a_title = "$w_privacy";
		$langlink = "$cor1link/privacy/%lang%/$addto_links";
		
		$t_robots = "";
	}
	elsif ($a_area eq "responsible") {
		$t_title = "$w_responsible_title";
		$t_summary = "$w_responsible_desc";

		$t_layout = "about";
		
		$a_title = "$w_responsibleg";
		$langlink = "$cor1link/responsible/%lang%/$addto_links";
		
		$t_robots = "";
	}
	elsif ($a_area eq "recommenda") {
		$t_title = "$w_recommenda_title";
		$t_summary = "$w_recommenda_desc";

		$t_layout = "recommenda";
		
		$a_title = "$w_recommend_atitle";
		#$langlink = "$cor1link/recommend/%lang%/$addto_links";#
		$langlink = "$cor1link/$addto_links";
		
		$t_robots = "";
	}
	elsif ($a_area eq "index") {
		$t_title = "$w_index_title";
		$t_summary = "$w_index_desc1 $w_index_desc2";

		$t_layout = "main";
		$langlink = "$cor2link/$addto_links";
		$langlink2 = "$cor3link/$addto_links";
		
		$a_title = "";
	}
	else {
		&not_found("199");
	}
}
else {
	&build_database;
	&language_words;
	$t_title = "$w_main_title";
	$t_summary = "$w_main_desc";

	$langlink = "$cor1link/$addto_links";

	$t_layout = "blank";
	$langlink = "$cor1link/main/%lang%/$addto_links";
}


###############################################################################

unless ($t_layout) {
	&not_found("255");
}

if (($country_name) && ($language{$language})) {
 unless (($t_layout eq "list") or ($t_layout eq "listing") or ($t_layout eq "article") or ($t_layout eq "review") or ($t_layout eq "main") or ($t_layout eq "recommenda") or ($t_layout eq "usaresult")) {
	&not_found("260");
 }
 
 if ($custom_page_order eq "true") {
	&custom_page_order;
 }
 else {
  print "Content-type: text/html\n\n";
  ## reviews list ##
  if ($t_layout eq "list") {
	&print_head;
	&print_body;
	&print_header;
	print qq?
<div class="wrapper" style="">?;
	&print_nav;
	&print_no1_box("1","reviewlist");
	&print_review_list;
	&print_compare_box;
	&print_bottom10_box;
	&print_newslettercatch;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## listing - short review ##
  elsif ($t_layout eq "listing") {
	&print_head;
	&print_body;
	&print_header;
	print qq?
<div class="wrapper" style="">?;
	&print_nav;
	&print_listing;
	&print_promo_listbox("$rank1code{$thisrank}");
	&print_charter;
	
	#extend the short review page#
	if ($review_splash eq "true") {
		if ($thisrank <= 2) {
			&print_no1_box("3","reviewstyle");
		}
		else {
			&print_no1_box("2","reviewstyle");
		}
		&print_legal_box("index");
		&print_compare_box;
	}
	&print_promo_listbox;
	&print_bottom10_box;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## article or promo list ##
  elsif ($t_layout eq "article") {
	&print_head;
	&print_body;
	&print_header;
	&print_articlearea;
	&print_no1_box("1","");
	&print_no1_box("2","");
	&print_no1_box("3","");
	&print_compare_box;
	&print_bottom10_box;
	&print_newslettercatch;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## main page ##
  elsif ($t_layout eq "main") {
	&print_head;
	&print_body;
	&print_header;
	print qq?
<div class="wrapper" style="">
  <div class="wrapper1" style="">?;
	&print_nav;
	&print_main_intro;
	&print_top5_box;
	print qq?
  </div>?;

	if ($include_mainblerb eq "true") {
	  if (-f "$basedir/data/articles/mainblerb\-$language\.txt") {
		open(mainblerb,"$basedir/data/articles/mainblerb\-$language\.txt");
		flock mainblerb, 2;
		$mbsentence = <mainblerb>;
		close(mainblerb);
		
		$mbsentence =~ s/{referloger}/$referloger/g;
	  }
	  else {
		$mbsentence = "$w_forexmainsen1 $w_forexmainsen2<p />$w_forexmainsen3 $w_forexmainsen4";
	  }
	  
	  unless ($oblerb_img) {
		$oblerb_img = "$the_url/images/$countrycodebg\-bg\.jpg";
	  }
	  &print_custom_box("$w_forextitlemain","$mbsentence","$w_forexmaincta1","$w_forexmaincta2","$corlink\/review/","$oblerb_img","$countrycodebg $rank1type","contentorange","legal-desc","legal-desc");
	}
	if ($include_chart eq "true") {
		print qq?
	<div class="contentchart">
	  <div class="content3-contain">
		<h2 class="h2fix">$w_comparison_chart_h1</h2>?;
		&print_chart_block;
		print qq?
		<div class="chromehack"> </div>
	  </div>
	</div>?;
	}
	&print_steps3_box;
	&print_legal_box("index");
	&print_no1_box("1","mainpage");
	&print_no1_box("2","mainpage");
	&print_no1_box("3","mainpage");
	if (-f "$basedir/data/articles/custombox1\-$language\.txt") {
		&cust_box("$basedir/data/articles/custombox1\-$language\.txt","$custombox1image","contentgreen","content6-right","content6-left");
	}
	if (-f "$basedir/data/articles/custombox2\-$language\.txt") {
		&cust_box("$basedir/data/articles/custombox2\-$language\.txt","$custombox2image","contentorange","content5-left","content5-right");
	}
	if (-f "$basedir/data/articles/custombox3\-$language\.txt") {
		&cust_box("$basedir/data/articles/custombox3\-$language\.txt","$custombox3image","contentgreen1","content6-right","content6-left");
	}
	if (-f "$basedir/data/articles/custombox4\-$language\.txt") {
		&cust_box("$basedir/data/articles/custombox4\-$language\.txt","$custombox4image","contentorange1","content5-left","content5-right");
	}
	&print_compare_box;
	&print_bottom10_box;
	&print_newslettercatch;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  else {
	&not_found("317");
  }
 }
}
else {
  unless (($t_layout eq "review") or ($t_layout eq "about") or ($t_layout eq "blank") or ($t_layout eq "promos")) {
	unless ($country_name) {
		if ($othercountries) {
			print "location: $othercountries\n\n";
		}
		else {
			print "location: $cor1link/\n\n";
		}
	}
	&not_found("364 $t_layout and no country or language");
  }
  if ($t_layout eq "review") {
	unless ($rank1intro{$thisrank}) {
		&not_found("375");
	}
  }
  print "Content-type: text/html\n\n";
  &set_loc_as;
  ## review - full review ##
  if ($t_layout eq "review") {
	unless ($language eq "en") {
		unless ($rank1translated{$thisrank} eq "yes") {
			$t_robots = "<meta name=\"robots\" content=\"NOINDEX,FOLLOW\"  />";
		}
	}
	&print_head;
	&print_body;
	&print_header;
	print qq?
<div class="wrapper" style="">?;
	&print_nav;
	&print_review;
	if ($thisrank == 1) {
		&print_no1_box("2","reviewstyle");
	}
	else {
		&print_no1_box("1","reviewstyle");
	}
	&print_compare_box;
	&print_bottom10_box;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## promo post ##
  elsif ($t_layout eq "promos") {
	&print_head;
	&print_body;
	&print_header;
	&print_articlearea;
	&print_no1_box("$donerank","");
	&print_compare_box;
	&print_bottom10_box;
	&print_newslettercatch;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## about page ##
  elsif ($t_layout eq "about") {
	&print_head;
	&print_body1;
	&print_header;
	print qq?
<div class="wrapper" style="">?;
	&print_nav;
	if ($a_area eq "about") {
		&about_page;
	}
	elsif ($a_area eq "contact") {
		&contact_page;
	}
	elsif ($a_area eq "privacy") {
		&privacy_page;
	}
	elsif ($a_area eq "responsible") {
		&responsible_page;
	}
	&print_compare_box;
	&print_newslettercatch;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## countryselect ##
  elsif ($t_layout eq "blank") {
	&print_head;
	&print_body1;
	&print_header;
	print qq?
<div class="wrapper" style="">
  <div class="country-wrapper" style="">?;
	&print_country_select;
	print qq?
	<div class="chromehack"> </div>?;
	if ($othercountries) {
		print qq?
	<div class="othercountries">
<a href="$othercountries">$w_inothercountry</a>
	</div>?;
	}
	print qq?
  </div>?;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  else {
	&not_found("363");
  }
}
#####
}


###################################################################################
###################################################################################

sub param_top {
	$the_uri = $ENV{'HTTP_HOST'};
	$the_uri_string = $ENV{'QUERY_STRING'};
	$getip = $ENV{'REMOTE_ADDR'};

	use CGI qw (:standard);
	use CGI::Carp qw(fatalsToBrowser);

	$q = new CGI;

	$countrycode = $q->param(countrycode);
	$language = $q->param(language);
	$a_area = $q->param(a_area);
	$b_area = $q->param(b_area);
	$readthis = $q->param(readthis);
	$filterman = $q->param(filterman);
	$geooverwrite = $q->param(geooverwrite);
	$page = $q->param(page);
	$changemade = $q->param(changemade);
	$redirecter = $q->param(redirecter);
	$getvertical = $q->param(getvertical);

	&date_finder;
}

sub date_finder {
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	$mon_num = $mon+1;
	$sec = "0$sec" if ($min < sec);
	$min = "0$min" if ($min < 10);
	$hour = "0$hour" if ($hour < 10);
	$mon_num = "0$mon_num" if ($mon_num < 10);
	$mday = "0$mday" if ($mday < 10);
	$year = 1900 + $year;

	$date  = "/$wday/$mon_num/$mday/$year/$hour:$min";
	$admindate = "$year$mon_num$mday$hour$min$sec";
	$admindate2 = "$year$mon_num$mday";
}

sub cust_box {
	open(mainblerb,"$_[0]");
	flock mainblerb, 2;
	@mbsentence = <mainblerb>;
	close(mainblerb);
	&print_custom_box("@mbsentence[0]","@mbsentence[1]","@mbsentence[2]","@mbsentence[3]","@mbsentence[4]","$_[1]","custom image","$_[2]","$_[3]","$_[4]");
}

sub report_click {
	if ($rank1code{$rtt}) {
		$coderank1 = $rank1code{$rtt};
	}
	else {
		$coderank1 = "unknown";
	}
	
	if ($filterman) {
		$filterman1 = $filterman;
	}
	else {
		$filterman1 = "unknown";
	}
	
	$report_this = "$coderank1\-$filterman1";
	
	unless ($redirecter) {
		open(reportclick,"$basedir/data/report-click/num.txt");
		flock reportclick, 2;
		$redirecter = <reportclick>;
		close(reportclick);
	}

	open(reportclick,"$basedir/data/report-click/$report_this\.txt");
	flock reportclick, 2;
	$reportclick = <reportclick>;
	close(reportclick);
	
	$reportclick++;
	
	open(reportclick,">$basedir/data/report-click/$report_this\.txt");
	flock reportclick, 2;
	print reportclick "$reportclick";
	close(reportclick);
}

sub review_schema {
	if ($rank1fullreview{$thisrank}) {
		$schemaurl = "$rank1fullreview{$thisrank}";
	}
	else {
		$schemaurl = "$corlink/review/$rank1code{$thisrank}/";
	}
	$t_schema = "<script type=\"application/ld+json\">
{
  \"\@context\":\"http://schema.org\",
  \"\@type\":\"Review\",
  \"author\": {
    \"\@type\":\"Person\",
    \"name\":\"$website_author\",
    \"sameAs\":\"$website_social\"
  },
  \"url\": \"$schemaurl\",
  \"datePublished\":\"$rank1pub{$thisrank}\",
  \"publisher\": {
      \"\@type\":\"WebSite\",
      \"name\":\"$website_title\",
      \"sameAs\":\"$the_url\"
  },
  \"description\":\"$t_summary\",
  \"inLanguage\":\"$language\",
  \"itemReviewed\": {
    \"\@type\":\"Organization\",
    \"name\": \"$rank1name{$thisrank}\",
    \"sameAs\": \"$rank1www{$thisrank}\",
    \"image\": \"$sgrab1/$sgrab\.jpeg\",
    \"address\": {
      \"\@type\": \"PostalAddress\",
      \"streetAddress\": \"$rank1address{$thisrank}\",
      \"addressLocality\": \"$rank1city{$thisrank}\",
      \"addressRegion\": \"$rank1region{$thisrank}\",
      \"postalCode\": \"\",
      \"addressCountry\": \"$rank1hq{$thisrank}\"
    },
    \"telephone\": \"$rank1phone{$thisrank}\"
  },
  \"reviewRating\": {
     \"\@type\":\"Rating\",
     \"worstRating\":1,
     \"bestRating\":10,
     \"ratingValue\":$rank1score{$thisrank}
  }
}
  </script>";
}

sub checkpush {
	if ($_[0]) {
	  $cp1 = $_[0];
	  if ($w_{$cp1}) {
		$cp1a++;
		if ($cp1a>1) {
			$addcp1 = " &nbsp;\/&nbsp; ";
		}
		if ($filterman eq $cp1) {
			$rl_sen_add = "$rl_sen_add\n			$addcp1<b>$w_{$cp1}</b>";
		}
		else {
			$rl_sen_add = "$rl_sen_add\n			$addcp1<a href='$corlink/review/page-1/filter\-$cp1/$addto_links' title='$country_name $w_{$cp1}'>$w_{$cp1}</a>";
		}
	  }
	}
}

sub checkfor_def {
	$checkfor_def = $_[0];
	$checkfor_def =~ s/%lottotype%/$w_reviews{$filterman}/g;
}

sub check_countryinfo {
	if ($countrycode) {
		&geo_list("finding");
	}
	unless ($country_rep) {
		$country_rep = $default_rep;
	}
	unless ($countrycodebg) {
		$countrycodebg = $default_bg;
	}
	unless ($country_people) {
		$country_people = $country_name;
	}
}

sub find_defaults {
	&find_squaread;
	$square_ad = $square_ad_finder;
	&find_squaread;
	$square_ad2 = $square_ad_finder;
	
	$square_ad =~ s/{referloger}/$referloger/g;
	$square_ad2 =~ s/{referloger}/$referloger/g;
	
	unless ($regulator) {
		$regulator = $default_reg;
	}
}

sub find_squaread {
	if (($rank1square{$thisrank} =~ /</) && ($rank1score{$thisrank}>7.5) && ($rank1blocked{$thisrank} ne "true") && ($square_ad_finder ne $rank1square{$thisrank})) {
		$square_ad_finder = $rank1square{$thisrank};
	}
	elsif ((length($rank1square{1})>4) && ($square_ad_finder ne $rank1square{1})) {
		$square_ad_finder = $rank1square{1};
	}
	elsif ((length($rank1square{2})>4) && ($square_ad_finder ne $rank1square{2})) {
		$square_ad_finder = $rank1square{2};
	}
	elsif ((length($rank1square{3})>4) && ($square_ad_finder ne $rank1square{3})) {
		$square_ad_finder = $rank1square{3};
	}
	elsif ((length($rank1square{4})>4) && ($square_ad_finder ne $rank1square{4})) {
		$square_ad_finder = $rank1square{4};
	}
	elsif ((length($rank1square{5})>4) && ($square_ad_finder ne $rank1square{5})) {
		$square_ad_finder = $rank1square{5};
	}
	else {
		$square_ad_finder = "N/A";
	}
}


sub set_loc_as {
	$geoflagcode = $geoflag1;
	$country_name = $geoname1;
	$country_name_full = $geoname1;
	$countrycode = $geocode1;
	
	&corlinks;
}

sub corlinks {
	if ($singlecountrysite) {
		if ($language eq "en") {
			$domainlink = "$othercountries/go/";
		}
		else {
			$domainlink = "$othercountries/go/main/$language/";
		}
		$cor1link = "$the_url";
		$corlink = "$cor1link/lang\-$language";
		$cor2link = "$cor1link/lang\-%lang%";
	}
	else {
		if ($language eq "en") {
			$domainlink = "$the_url/go/";
		}
		else {
			$domainlink = "$the_url/go/main/$language/";
		}
		$cor1link = "$the_url/go";
		$corlink = "$cor1link/$countrycode\-$language";
		$cor2link = "$cor1link/$countrycode\-%lang%";
		$cor3link = "$cor1link/%country%\-%lang%";
	}
	
	$v{2} = "0";
	$v{3} = "0";
	$v{4} = "0";
	$v{5} = "0";
	if ($geoflagcode) {
		my @a = ("aa".."zz");
		foreach $a (@a) {
			$cornum++;
			if ($a[$cornum] eq $geoflagcode) {
				$v{2} = $cornum % 2;
				$v{3} = $cornum % 3;
				$v{4} = $cornum % 4;
				$v{5} = $cornum % 5;
				
				$dcornum = $cornum;
			}
		}
	}
}

sub compile_list {
	for ($check5=1; $check5<=$totalchecks; $check5++) {
		unless ($rank1code{$check5}) {
			&rank_pool;
		}
	}
}

sub build_database {
  &compile_list;

  $totalrank = @review_list;
  $rp=0;
  foreach $review_list (sort $filtasort @review_list) {
	$rp++;
	@rl_split = split(/\|/, $review_list);
	$rank1code{$rp} = @rl_split[0];
	$rank1name{$rp} = @rl_split[1];
	$rank1link{$rp} = @rl_split[2];
	$rank1demolink{$rp} = @rl_split[3];
	$rank1point1{$rp} = @rl_split[4];
	$rank1point2{$rp} = @rl_split[5];
	$rank1point3{$rp} = @rl_split[6];
	$rank1point4{$rp} = @rl_split[7];
	$rank1offer{$rp} = @rl_split[8];
	if ($fst>=1) {
		$rank1score{$rp} = @rl_split[$fst];
	}
	else {
		$rank1score{$rp} = @rl_split[9];
	}
	$rank1fullreview{$rp} = @rl_split[10];
	$rank1boxcolor{$rp} = @rl_split[11];
	$rank1textcolor{$rp} = @rl_split[12];
	if (@rl_split[13]) {
		$rank1type{$rp} = @rl_split[13];
	}
	else {
		$rank1type{$rp} = $rank1type;
	}
	$rank1www{$rp} = @rl_split[14];
	
	$rank1metatrader{$rp} = @rl_split[15];
	$rank1binary{$rp} = @rl_split[16];
	$rank1forex{$rp} = @rl_split[17];
	$rank1cfds{$rp} = @rl_split[20];
	$rank1robots{$rp} = @rl_split[21];
	$rank1signals{$rp} = @rl_split[22];
	$rank1vps{$rp} = @rl_split[23];
	$rank1jackpot{$rp} = @rl_split[24];
	$rank1instruct{$rp} = @rl_split[25];
	
	$rank1blocked{$rp} = @rl_split[18];
	$rank1square{$rp} = @rl_split[19];
	
	#ext review#
	$rank1extoffer{$rp} = @rl_split[26];
	$rank1extofferfp{$rp} = @rl_split[27];
	$rank1hq{$rp} = @rl_split[28];
	$rank1reg{$rp} = @rl_split[29];
	$rank1plat{$rp} = @rl_split[30];
	$rank1phone{$rp} = @rl_split[31];
	$rank1email{$rp} = @rl_split[32];
	$rank1anal{$rp} = @rl_split[65];
	$rank1analms{$rp} = @rl_split[70];
	$rank1analml{$rp} = @rl_split[71];
	$rank1pub{$rp} = @rl_split[66];
	$rank1region{$rp} = @rl_split[67];
	$rank1city{$rp} = @rl_split[68];
	$rank1address{$rp} = @rl_split[69];
	$rank1intro{$rp} = @rl_split[33];
	$rank1conclusion{$rp} = @rl_split[34];
	$rank1pm1{$rp} = @rl_split[35];
	$rank1pm2{$rp} = @rl_split[36];
	$rank1pm3{$rp} = @rl_split[37];
	$rank1pm4{$rp} = @rl_split[38];
	$rank1pm5{$rp} = @rl_split[39];
	$rank1pm6{$rp} = @rl_split[59];
	$rank1pm7{$rp} = @rl_split[60];
	$rank1pm8{$rp} = @rl_split[61];
	$rank1pm9{$rp} = @rl_split[62];
	$rank1pm10{$rp} = @rl_split[63];
	$rank1pm11{$rp} = @rl_split[64];
	$rank1rsect_score1{$rp} = @rl_split[40];
	$rank1rsect_desc1{$rp} = @rl_split[41];
	$rank1rsect_paragraph_desc1{$rp} = @rl_split[42];
	$rank1rsect_score2{$rp} = @rl_split[43];
	$rank1rsect_desc2{$rp} = @rl_split[44];
	$rank1rsect_paragraph_desc2{$rp} = @rl_split[45];
	$rank1rsect_score3{$rp} = @rl_split[46];
	$rank1rsect_desc3{$rp} = @rl_split[47];
	$rank1rsect_paragraph_desc3{$rp} = @rl_split[48];
	$rank1rsect_score4{$rp} = @rl_split[49];
	$rank1rsect_desc4{$rp} = @rl_split[50];
	$rank1rsect_paragraph_desc4{$rp} = @rl_split[51];
	$rank1rsect_score5{$rp} = @rl_split[52];
	$rank1rsect_desc5{$rp} = @rl_split[53];
	$rank1rsect_paragraph_desc5{$rp} = @rl_split[54];
	$rank1rsect_customtitle{$rp} = @rl_split[55];
	$rank1rsect_customdescription{$rp} = @rl_split[56];
	$rank1translated{$rp} = @rl_split[57];
	$rank1originalscore{$rp} = @rl_split[58];
	$rank1forexlink{$rp} = @rl_split[72];
	$rank1signalslink{$rp} = @rl_split[73];
	$rank1cp1{$rp} = @rl_split[74];
	$rank1cp2{$rp} = @rl_split[75];
	$rank1cp3{$rp} = @rl_split[76];
	$rank1cp4{$rp} = @rl_split[77];
	$rank1cp5{$rp} = @rl_split[78];
	$rank1cp6{$rp} = @rl_split[79];
	$rank1cp7{$rp} = @rl_split[80];
	$rank1cp8{$rp} = @rl_split[81];
	$rank1est{$rp} = @rl_split[82];
	if (length(@rl_split[83])>=3) {
		$rank1logocode{$rp} = @rl_split[83];
	}
	else {
		$rank1logocode{$rp} = @rl_split[0];
	}
	$rank1screencode{$rp} = @rl_split[84];
	$rank1overwritescore{$rp} = @rl_split[85];
	
	$b1rea = @rl_split[0];
	
	#overwrite blocked#
	if ($rank1blocked{$rp} eq "true") {
		$rank1boxcolor{$rp} = "#DDDDDD";
		$rank1textcolor{$rp} = "#A5A5A5";
		$rank1link2{$rp} = $rank1link{$rp};
		$rank1link{$rp} = "$corlink/review/$rank1code{$rp}/$addto_links";
		$rank1demolink{$rp} = "$corlink/review/$rank1code{$rp}/$addto_links";
	}
	$done{$b1rea} = $rp;
  }

  for ($check10=1; $check10<=48; $check10++) {
	unless ($show1code{$check10}) {
		&show_pool;
	}
  }
}

##############################


sub not_found {
	print "Status: 404 Not Found\r\n";
	print "Content-type: text/html\n\n";
	print qq?<!DOCTYPE html>
	$ttp
<html>
<head>
<title>$t_title</title>
<meta name="description" content="$t_summary">
<meta name="robots" content="NOINDEX,FOLLOW">
</head>

<body style="background-color:white; color:black; padding:30px; text-align:center">

<a href="$domainlink$addto_links" title="$logo_titl"><img $src_custom\="$the_url/$the_logo" alt="logo"></a>

<h2>404 Not Found</h2>
($_[0])

</body>
</html>?;
	exit;
}


###############################################################################

sub print_charter {
	if (($rank1score{$thisrank}>=7.5) && ($include_chart eq "true")) {
		if ($thisrank) {
			$wch1 = $w_comparison_chart_inner_h1;
		}
		else {
			$wch1 = $w_comparison_chart_h1;
		}
		print qq?
	<div class="contentchart">
	  <div class="content3-contain">
		<h2 class="h2fix">$wch1</h2>?;
		&print_chart_block;
		print qq?
		<div class="chromehack"> </div>
	  </div>
	</div>?;
	}
	elsif ($thisrank == 1) {
		&print_no1_box("2","reviewstyle");
	}
	else {
		&print_no1_box("1","reviewstyle");
	}
}

sub print_articlearea {
	print qq?
<div class="wrapper" style="">?;
	&print_nav;
	if ($articlefound eq "yes") {
		print qq?
	<div class="content5" style="">
	  <div class="content5-contain">
		<div class="legal-desc">?;
		$articleheader =~ s/<!--countryname-->/$cndefault /g;
		$articleheader =~ s/<!--countrypeople-->/$cpdefault /g;
		print "$articleheader\n";
		$t_codelink =~ s/%corlink%/$corlink/g;
		$t_linklink =~ s/%corlink%/$corlink/g;
		foreach $articlefound_line (@articlefound) {
			$articlefound_line =~ s/<!--code-->/$t_codelink/g;
			$articlefound_line =~ s/<!--link-->/$t_linklink/g;
			unless ($t_nolinks eq "true") {
				$articlefound_line =~ s/<!--countryname-->/$cndefault /g;
				$articlefound_line =~ s/<!--countrypeople-->/$cpdefault /g;
			}
			print "$articlefound_line";
		}
		if ($posted_sentence) {
			print "<br/ >$posted_sentence";
		}
		print qq?
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>?;
		$boxlimit = "5";
		if ($readthis eq "legal-info") {
			#null#
		}
		elsif ($a_area eq "promos") {
			&print_promo_listbox;
		}
		else {
			&print_article_listbox;
		}
	}
	elsif ($articlefound eq "no") {
		print "$articledir not found";
	}
	elsif ($readthis eq "legal-info") {
		&print_legal_box;
	}
	else {
		if ($a_area eq "promos") {
			&print_promo_listbox;
		}
		else {
			&print_article_listbox;
		}
	}
}

sub print_head {

### match language iso ###
foreach $languages (@all_languages) {
	if ($languages eq "ne") {
		$isolanguage{$languages} = "nl";
	}
	elsif ($languages eq "mg") {
		$isolanguage{$languages} = "hu";
	}
	elsif ($languages eq "my") {
		$isolanguage{$languages} = "ms";
	}
	elsif ($languages eq "tu") {
		$isolanguage{$languages} = "tr";
	}
	elsif ($languages eq "ma") {
		$isolanguage{$languages} = "zh";
	}
	elsif ($languages eq "jp") {
		$isolanguage{$languages} = "ja";
	}
	elsif ($languages eq "cz") {
		$isolanguage{$languages} = "cs";
	}
	elsif ($languages eq "gr") {
		$isolanguage{$languages} = "el";
	}
	elsif ($languages eq "dk") {
		$isolanguage{$languages} = "da";
	}
	elsif ($languages eq "hb") {
		$isolanguage{$languages} = "he";
	}
	else {
		$isolanguage{$languages} = $languages;
	}
}
######
	if ($update_mode eq "on") {
		$add_to_css = "?$admindate";
	}

	unless ($fa_location) {
		$fa_location = "/cm/css/font-awesome.min.css";
	}
	if ($the_uri_string =~ /filterman=/) {
		unless (($w_review_list_title{$filterman}) && ($filterman)) {
			$t_robots = "<meta name=\"robots\" content=\"NOINDEX,FOLLOW\" />";
		}
	}
	if ($noindex_site eq "true") {
		$t_robots = "<meta name=\"robots\" content=\"NOINDEX,NOFOLLOW\" />";
	}
	print qq?<!DOCTYPE html>

<html>
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
  <title>$t_title</title>
  <meta name="description" content="$t_summary">
  <meta name="viewport" content="width=device-width,initial-scale=1,maximum-scale=1">
  $t_robots
  $t_schema
  <link href="$the_favicon" rel="shortcut icon" type="image/x-icon" />?;

	foreach $languages (@languages) {
		&lang_display("hreflang");
	}

	print qq?
  <link rel="stylesheet" href="$fa_location$add_to_css">?;
	if ($the_css) {
		print qq?
  <link rel="stylesheet" href="$the_css$add_to_css">?;
	}
	if ($the_css_chart) {
		print qq?
  <link rel="stylesheet" href="$the_css_chart$add_to_css">?;
	}
	if ($the_css_custom) {
		print qq?
  <link rel="stylesheet" href="$the_css_custom$add_to_css">?;
	}
	if ($the_css_mobile) {
		print qq?
  <link rel="stylesheet" href="$the_css_mobile$add_to_css">?;
	}
	if ($the_css_mobile_custom) {
		print qq?
  <link rel="stylesheet" href="$the_css_mobile_custom$add_to_css">?;
	}
	print qq?
  <style>
	.button-flag:before {
		background:url($cookielessdomain/flags/$geoflagcode\.png) no-repeat left center transparent !important;
	}
?;
	if (($language eq "ar") or ($language eq "hb")) {
		print qq?

	ul {
		list-style:none !important;
	}
	.navcontain {
		width:650px;
		float:left;
	}?;
	}
	print qq?
  </style>
@extra_header
@extra_header2
</head>?;
}

sub print_body {
	print qq?
<body style="background-image:url(/images/$countrycodebg\-bg\.jpg)?;
	if (($language eq "ar") or ($language eq "hb")) {
		print "; text-align:right !important";
	}
	print qq?">?;
	print @disclaimer_code;
}

sub print_body1 {
	print qq?
<body>?;
}

sub print_header {
	if ($singlecountrysite) {
		$countrycode = $singlecountrysite;
	}
	unless ($topbold) { $topbold = "#DDDDDD"; }
	print qq?
<header style=""$floatin_down>
  <div id="header">
	<div class="xlogocontain" style="">?;
	if ($countrycode) {
		print qq?
	<a href="$corlink/$addto_links" title="$w_corkeyword $country_name"><img $src_custom\="$the_url/$the_logo" alt="logo"></a>?;
	}
	else {
		print qq?
	<img $src_custom\="$the_url/$the_logo" alt="logo">?;
	}
	print qq?
	</div>
	<div class="mobile-button-contain">
	<a id="menubars" class="fa fa-bars" aria-hidden="true" href="javascript:void(0)" onclick="document.getElementById('xbannercontain').style.display='block';document.getElementById('menubars').style.display='none';document.getElementById('menubars1').style.display='block';"></a>
	<a id="menubars1" class="fa fa-bars" aria-hidden="true" href="javascript:void(0)" onclick="document.getElementById('xbannercontain').style.display='none';document.getElementById('menubars').style.display='block';document.getElementById('menubars1').style.display='none';"></a>
	</div>
	<div id="xbannercontain" class="xbannercontain" style="">?;
	if ( ($countrycode) or ($singlecountrysite) ) {
	  unless (($geoblck eq "blocked") && ($countrycode eq $geocode1)) {
	   if ($custom_topmenu eq "true") {
		&custom_topmenu;
	   }
	   else {
		print qq?
		<div class="topmenu-contain">?;
		if ($fst1overwrite eq "yes") {
			&top_menu("review/","$w_forex $country_name","$w_forex","all");
		}
		else {
			&top_menu("review/page-1/filter-$checkpoint1/","$w_{$checkpoint1} $country_name","$w_{$checkpoint1}","$checkpoint1");
		}
		&top_menu("review/page-1/filter-$checkpoint2/","$w_{$checkpoint2} $country_name","$w_{$checkpoint2}","$checkpoint2");
		&top_menu("review/page-1/filter-$checkpoint3/","$checkpoint3 $country_name","$w_{$checkpoint3}","$checkpoint3");
		&top_menu("review/page-1/filter-$checkpoint4/","$w_{$checkpoint4} $country_name","$w_{$checkpoint4}","$checkpoint4");
		&top_menu("review/page-1/filter-$checkpoint5/","$w_{$checkpoint5} $country_name","$w_{$checkpoint5}","$checkpoint5");
		&top_menu("review/page-1/filter-$checkpoint6/","$w_{$checkpoint6} $country_name","$w_{$checkpoint6}","$checkpoint6");
		&top_menu("review/page-1/filter-$checkpoint7/","$w_{$checkpoint7} $country_name","$w_{$checkpoint7}","$checkpoint7");
		&top_menu("review/page-1/filter-$checkpoint8/","$w_{$checkpoint8} $country_name","$w_{$checkpoint8}","$checkpoint8");
		print qq?
			<div class="chromehack"> </div>
		</div>?;
	   }
	  }
	}

	if ($xcountryversion_over eq "true") {
		&xcountryversion_over;
	}
	else {
	  if ($countrycode) {
		print qq?
		<div class="xcountryversion">
			<div class="xcv-flag">
			<img $src_custom\="$cookielessdomain/flags/$geoflagcode\.png">
			</div>
			<div class="xcv-text">
			$country_name_full
			</div>
			<div class="xcv-change">
			<a href="$domainlink$addto_links">$w_change_country</a>
			</div>
		</div>?;
	  }
	}
	print qq?
	</div>
	<div class="chromehack"> </div>
  </div>
</header>?;
}

sub top_menu {
  if ($top_menu_custom eq "yes") {
	&top_menu_custom;
  }
  else {
	if ($_[3]) {
	  print qq?
			<div class="topmenu">
			<a href="$corlink/$_[0]$addto_links" title="$_[1]"?;
	  unless ($b_area) {
		if ($a_area eq "review") {
			if ($filterman) {
				if ($filterman eq $_[3]) {
					print " style=\"font-weight:bold; color:$topbold\"";
				}
			}
			else {
				if ($_[3] eq "all") {
					print " style=\"font-weight:bold; color:$topbold\"";
				}
			}
		}
	  }
	  print qq?>$_[2]</a>
			</div>?;
	}
  }
}

sub lang_check {
	if (($t_layout eq "about") or ($t_layout eq "blank")) {
	  print qq?
		<div class="xlanguageversion">?;
	  foreach $languages (@all_languages) {
		&lang_display;
	  }
	  print qq?
		</div>?;
	}
	elsif ($lgcount1>1) {
	  print qq?
		<div class="xlanguageversion">?;
	  foreach $languages (@languages) {
		&lang_display;
	  }
	  print qq?
		</div>?;
	}
}
sub lang_display {
  &lang_link_insert("","$languages");
  
  if ($_[0] eq "hreflang") {
	if ($langlink1 eq $langlink1a) {
		print qq?
  <link rel="alternate" href="$langlink1" hreflang="$isolanguage{$languages}\-$geoflagcode">?;
	}
	elsif ($langlink2) {
		print qq?
  <link rel="alternate" href="$langlink1" hreflang="$isolanguage{$languages}\-$geoflagcode">?;
		if (@langaw[1]) {
			print qq?
  <link rel="alternate" href="$langlink1a" hreflang="$isolanguage{$languages}\-@langaw[1]">?;
		}
	}
	else {
		print qq?
  <link rel="alternate" href="$langlink1" hreflang="$isolanguage{$languages}">?;
	}
  }
  else {
	$lpcount++;
	if ($lpcount>1) {
		print " &nbsp; &nbsp; ";
	}
	if ($languages eq $language) {
		print "<b";
		$lend = "b";
	}
	else {
		print "<a href=\"$langlink1\" title=\"$ld_titl $country_name $language{$languages}\"";
		$lend = "a";
	}
	print ">$language{$languages}</$lend>";
  }
}
sub lang_link_insert {	
	$langlink1 = $langlink;
	$langlink1 =~ s/%lang%/$_[1]/g;
	if ($langlink2) {
		$langaw = $_[1];
		$langaw = $defaultv{$langaw};
		@langaw = split(/\|/, $langaw);
	
		$langlink1a = $langlink2;
		$langlink1a =~ s/%lang%/$_[1]/g;
		$langlink1a =~ s/%country%/@langaw[0]/g;
	}
}

sub print_nav {
	print qq?
<div class="header1" style="">
	<div class="navcontain" style="">
	<a href="$domainlink$addto_links" style="color:white">$w_main</a>?;
	if ($country_name) {
		print qq? <span style="font-size:11px">&gt;</span> <a href="$corlink/$addto_links" style="color:white">$country_name</a>?;
	}
	if ($a_area eq "full-reviews") {
		print qq? <span style="font-size:11px">&gt;</span>
  <a href="$corlink/review/$addto_links" style="color:white">$w_reviewsX</a>
  <span style="font-size:11px">&gt;</span>
  <a href="$corlink/review/$b_area/$addto_links" style="color:white">$b_title</a>
  <span style="font-size:11px">&gt;</span>
  $w_full_reviews?;
	}
	else {
	  if ($a_title) {
		print qq? <span style="font-size:11px">&gt;</span> ?;
			if ($b_title) { print qq?<a href="$corlink/$a_area/$addto_links" style="color:white">?; }
			print "$a_title";
			if ($b_title) { print qq?</a>?; }
	  }
	  if ($b_title) {
		print qq? <span style="font-size:11px">&gt;</span> $b_title?;
	  }
	}
	print qq?
	</div>
</div>?;
	unless ($t_layout eq "main") {
		print @extra_topbar;
	}
}

sub print_country_select {
	if (length($rank1instruct{1})>5) {
		&impopen("$w_geoguess3","$rank1instruct{1}","$rank1link{1}","$rank1offer{1}");
		$dezelink = "javascript:void(0)\" onclick=\"document.getElementById('importantmessage$impi').style.display='block';document.getElementById('fade').style.display='block'";
	}
	else {
		$dezelink = "$rank1link{1}\" rel=\"nofollow\" target=\"_blank";
		$dezelink =~ s/{referloger}/$referloger/g;
	}
	print qq?
	<div class="contentx" style="">
	<h1>$w_choosecountry</h1>?;
	if ($geofound eq "true") {
	  unless ($geoblck eq "blocked") {
		if ($proxcodes_default eq "true") {
			$guess_link = "$othercountries/go/$geocode1\-$language/$addto_links";
		}
		else {
			$guess_link = "$cor1link/$geocode1\-$language/$addto_links";
		}		
		print qq?
		<div class="geoguess">
		$w_geoguess1 $w_geoguess2 <a href="$dezelink">$w_geoguess3</a>\!
		$w_geoguess4
		</div>
		<div class="geoguess-cta">
		<a class="button-cta button-cta1" href="$guess_link">$w_areyouin <img $src_custom\="$cookielessdomain/flags/$geoflag1\.png"> $w_geoname\? $w_geoguess_cta</a>
		</div>?;
	  }
	}
	print qq?
		<div class="geolist-contain">?;
		&geo_list;
	print qq?
		</div>
	</div>
?;
}

sub print_main_intro {
	if ($usa_version eq "true") {
		$dezelink = $usa_link;
		$dezelink =~ s/%brand%/$rank1code{1}/g;
	}
	elsif (length($rank1instruct{1})>5) {
		&impopen("$w_startnowwith_link","$rank1instruct{1}","$rank1link{1}","$rank1offer{1}");
		$dezelink = "javascript:void(0)\" onclick=\"document.getElementById('importantmessage$impi').style.display='block';document.getElementById('fade').style.display='block'";
	}
	else {
		$dezelink = "$rank1link{1}\" rel=\"nofollow\" target=\"_blank";
		$dezelink =~ s/{referloger}/$referloger/g;
	}
	print qq?
	<div class="content" style=""$floatin_right>
		<div class="calltoaction" style="">
		<h1 class="h1title" style="">
		$w_h1_title
		</h1>
		<p class="desc" style="">
		$w_searchingforA $w_wehave $w_startnowwithA 
		<a href="$dezelink">$w_startnowwith_link</a>
		</p>
		</div>
		<div class="rep" style="background:transparent url('$cookielessdomain/$country_rep\.png') no-repeat scroll 0% 0%">
		
		</div>
	</div>?;
}

sub get_starscore {
	$starscore = sprintf("%.0f", $_[0]);
	if ($_[0]>=8) {
		$starscore_c = "green";
	}
	elsif ($_[0]>=6) {
		$starscore_c = "blue";
	}
	elsif ($_[0]>=4) {
		$starscore_c = "orange";
	}
	elsif ($_[0]>=1) {
		$starscore_c = "red";
	}
	else {
		$starscore_c = "#888888";
	}
}

sub print_top5_box {
	print qq?
	<div class="content1" style="">
		<div class="top5table" style="">
			<div class="boxheader" style="">
				<h2 class="compare" style="">
				$w_top5title
				</h2>
			</div>
			<div class="boxes" style="">?;
			
	for ($boxess=1; $boxess<=5; $boxess++) {
		&get_starscore("$rank1score{$boxess}");
		&get_boxeslink;
		
		if ($boxess == 1) {
			$floata = $floatin_right;
		}
		elsif ($boxess == 5) {
			$floata = $floatin_left;
		}
		else {
			$floata = $floatin_up;
		}
		unless ($rank1blocked{$boxess} eq "nullx") {
			print qq?
				<div class="box" style="" align="center"$floata>
					<div class="boxlogo" style="background-color:$rank1boxcolor{$boxess}">
					<a href="$corlink\/review/$rank1code{$boxess}/$addto_links" title="$country_name $rank1name{$boxess}"><img $src_custom\="$cookielessdomain/$rank1type{$boxess}/logo/$rank1logocode{$boxess}\.png" alt="$rank1name{$boxess}"></a>
					</div>
					<div class="boxscore" style="">
					<a href="$corlink\/review/$rank1code{$boxess}/$addto_links" title="$rank1name{$boxess} review $country_name">$rank1score{$boxess}</a><span class="of10">/10</span>
					</div>
					<div class="boxscore1" style="">
					<a href="$deztop5" class='readreview' style=''><b>$rank1name{$boxess}</b><br />$deztop5l</a>
					</div>
					<div class="boxstars" style="">
					<a href='$corlink\/review/$rank1code{$boxess}/$addto_links' title="$rank1name{$boxess} $country_name"><img $src_custom\="$cookielessdomain/new-stars/$starsz_type\-$starscore.png" alt="stars" style="" class="starstyle"></a>
					</div>
					<div class="boxblue" style="">
					<a class="boxbutton" href="$deztop5" style="">$rank1offer{$boxess}</a>
					</div>
				</div>?;
		}
	}
	print qq?
			</div>
			<div class="top5close">
			<a href="$corlink/review/$addto_links">$w_fulllist</a>
			</div>
		</div>
	</div>?;
}

sub get_boxeslink {
		if ($usa_version eq "true") {
			$dezelink = $usa_link;
			$dezelink =~ s/%brand%/$rank1code{$boxess}/g;
		}
		elsif (length($rank1instruct{$boxess})>5) {
			&impopen("$rank1name{$boxess}\: $rank1offer{$boxess}","$rank1instruct{$boxess}","$rank1link{$boxess}","$rank1offer{$boxess}");
			$dezelink = "javascript:void(0)\" onclick=\"document.getElementById('importantmessage$impi').style.display='block';document.getElementById('fade').style.display='block'";
		}
		else {
			$dezelink = "$rank1link{$boxess}\" rel=\"nofollow\" target=\"_blank";
			$dezelink =~ s/{referloger}/$referloger/g;
		}
		
		if ($rank1anal{$boxess} eq "true") {
			$deztop5 = "$corlink\/review/$rank1code{$boxess}/$addto_links";
			$deztop5l = $w_readthereview;
		}
		else {
			$deztop5 = $dezelink;
			$deztop5l = $w_visit_website;
		}
		
		if (($ppc_version eq "true") && (($rank1city{$boxess}) && ($rank1hq{$boxess}))) {
			$deztop5l = "$rank1city{$boxess}\, $rank1hq{$boxess}";
		}
}

sub find_games_box {
	$dcor1 = $_[0] % 3;
	
	$dcor2 = $_[0] % 4;
	$dcor2 = $dcor2 + 3;
	$dcor2 = $dcor2 % 3;
	
	$dcor3 = $_[0] % 6;
	$dcor3 = $dcor3 + 3;
	$dcor3 = $dcor3 % 3;
	
	$dcor4 = $_[0] % 5;
	$dcor4 = $dcor4 + 3;
	$dcor4 = $dcor4 % 3;
	
	$dcor5 = $_[0] % 7;
	$dcor5 = $dcor5 + 3;
	$dcor5 = $dcor5 % 3;
	
	$dcor6 = $_[0] % 9;
	$dcor6 = $dcor6 + 3;
	$dcor6 = $dcor6 % 3;
	
	@nset1 = ("1","2","3");
	@nset2 = ("4","5","6");
	@nset3 = ("7","8","9");
	@nset4 = ("10","11","12");
	@nset5 = ("13","14","15");
	@nset6 = ("16","17","18");
	
	$nsett1 = @nset1[$dcor1];
	$nsett2 = @nset2[$dcor2];
	$nsett3 = @nset3[$dcor3];
	$nsett4 = @nset4[$dcor4];
	$nsett5 = @nset5[$dcor5];
	$nsett6 = @nset6[$dcor6];
}

sub print_games_box {
	if ($_[3]) {
		$ttlgames = $_[3];
	}
	else {
		$ttlgames = 3;
	}
	print qq?
	<div class="$_[4]">
	  <div class="content3-contain">
		<h2>$_[0]</h2>?;

	&gb_line("$gamecode{$nsett1}","$gamename{$nsett1}","$floatin_left");
	&gb_line("$gamecode{$nsett2}","$gamename{$nsett2}","$floatin_up");
	&gb_line("$gamecode{$nsett3}","$gamename{$nsett3}","$floatin_right");
	if ($_[3] == 6) {
		&gb_line("$gamecode{$nsett4}","$gamename{$nsett4}","$floatin_left");
		&gb_line("$gamecode{$nsett5}","$gamename{$nsett5}","$floatin_up");
		&gb_line("$gamecode{$nsett6}","$gamename{$nsett6}","$floatin_right");
	}
	
	print qq?
		<div class="chromehack"> </div>
		
		<div class="moredemogames">
		<a href="$_[1]" target="_blank">$_[2]</a>
		</div>
	  </div>
	</div>?;
}
sub gb_line {
	print qq?
		<div class="signup3"$_[2]>
			<div class="signup3-text"><a href="http://casinogamesdemo.com/game\/$_[0]\/" target="_blank"><img $src_custom\="$cookielessdomain/newgames/$_[0]\.jpg"></a></div>
			<i>$_[1]</i>
		</div>?;
}

sub print_steps3_box {
	print qq?
	<div class="content3">
	  <div class="content3-contain">
		<h2>$w_howto_h1</h2>
		<div class="signup3"$floatin_right>
			<i class="fa $faw_logo1" aria-hidden="true"></i>
			<div class="signup3-text">$w_howto1</div>
		</div>
		<div class="signup3"$floatin_up>
			<i class="fa $faw_logo2" aria-hidden="true"></i>
			<div class="signup3-text">$w_howto2</div>
		</div>
		<div class="signup3"$floatin_left>
			<i class="fa $faw_logo3" aria-hidden="true"></i>
			<div class="signup3-text">$w_howto3</div>
		</div>
		<div class="chromehack"> </div>
	  </div>
	</div>?;
}

sub print_no1_box {
  $no1code = $_[0];
  $no1style = $_[1];
  if ($no1code>3) {
	$no1code = 1;
  }
  unless ($rank1blocked{$no1code} eq "true") {
	if ($no1style eq "reviewstyle") {
		$h1_listing = "<span class=\"no1\">$w_bestalternative1</span> $w_bestalternative2";
	}
	elsif ($no1style eq "reviewlist") {
		$h1_listing = "<span class=\"no1\">#$no1code $w_rated</span> $rl_h1_top";
	}
	else {
		$h1_listing = "<span class=\"no1\">#$no1code $w_rated</span> $w_countrynamebroker";
	}
	unless ($rank1boxcolor{$no1code}) {
		$rank1boxcolor{$no1code} = "#000000";
	}
	&get_starscore("$rank1score{$no1code}");
	
	if ($usa_version eq "true") {
		$dezelink = $usa_link;
		$dezelink =~ s/%brand%/$rank1code{$no1code}/g;
	}
	elsif (length($rank1instruct{$no1code})>5) {
		&impopen("$rank1name{$no1code}\: $rank1offer{$no1code}","$rank1instruct{$no1code}","$rank1link{$no1code}","$rank1offer{$no1code}");
		$dezelink = "javascript:void(0)\" onclick=\"document.getElementById('importantmessage$impi').style.display='block';document.getElementById('fade').style.display='block'";
	}
	else {
		$dezelink = "$rank1link{$no1code}\" rel=\"nofollow\" target=\"_blank";
	}
	$dezelink =~ s/{referloger}/$referloger/g;
	
	if (($filterman eq $checkpoint1) && ($rank1forexlink{$no1code})) {
		$finishlink = "$rank1forexlink{$no1code}\" rel=\"nofollow\" target=\"_blank";
	}
	elsif (($filterman eq $checkpoint6) && ($rank1signalslink{$no1code})) {
		$finishlink = "$rank1signalslink{$no1code}\" rel=\"nofollow\" target=\"_blank";
	}
	else {
		$finishlink = $dezelink;
	}
	$finishlink =~ s/{referloger}/$referloger/g;
	
	print qq?
	<div class="content4 no1$no1code" style="">
	  <div class="content4-contain">
		<h2 class="compare4" style="$_[3]">
		$h1_listing
		</h2>?;
	if ($_[2]) {
		print qq?
		<div class="no1-top" style="">
			<span class="no1-bottom-link first">
			<a href="$finishlink">$_[2]</a>
			</span>
		</div>
		<div class="chromehack"> </div>?;
	}
	print qq?
		<div class="no1-left" style=""$floatin_right>
			<div class="no1-logo" style="background-color:$rank1boxcolor{$no1code}">
			<a href="$finishlink"><img $src_custom\="$cookielessdomain/$rank1type{$no1code}/logo/$rank1logocode{$no1code}\.png" alt="$rank1code{$no1code}"></a>
			</div>
		</div>
		<div class="no1-right" style=""$floatin_down>
			<ul class="no1-ul" style="">?;
	
	&fourpoints("$no1code");
	
	print qq?
			</ul>
		</div>
		<div class="no1-buttons-contain"$floatin_left>?;
	if ($rank1demolink{$no1code}) {
		$demoreplink = $rank1demolink{$no1code};
		$demoreplink =~ s/{referloger}/$referloger/g;
		print qq?
		 <div class="no1-button-contain" style="">
		  <div class="button-containl">
			<div style="">
			<a class="realbutton" href="$dezelink" style="">$w_openreal</a>
			</div>
		  </div>
		 </div>
		 <div class="no1-button-contain1" style="">
		  <div class="button-containr">
			<div style="">
			<a class="boxbutton2" href="$demoreplink" target='_blank' rel='nofollow' style="">$w_trydemo</a>
			</div>
		  </div>
		 </div>
		 <div class="chromehack"> </div>?;
	}
	else {
		print qq?
		 <div class="no1-button-center" style="">
			<div style="" align="center">
			<a class="realbutton" href="$dezelink" style="">$w_openreal</a>
			</div>
			<div class="no1-getstarted">
			<a href="$dezelink" style="">$rank1offer{$no1code} \- $rank1name{$no1code}</a>
			</div>
		 </div>?;
	}
	print qq?
	    </div>
		<div class="no1-bottom" style=""$floatin_up>
			<span class="no1-bottom-link first">
			<a href="$corlink/review/$rank1code{$no1code}/$addto_links" title="$rank1name{$no1code} $country_name">$rank1name{$no1code}\: $w_readthereview</a>
			</span>
			<div class="respoclear"> </div>
			<span class="no1-bottom-link">
			<a href="$dezelink"><b>$rank1offer{$no1code} \- $rank1name{$no1code}\!</b></a>?;
	unless (($no1style eq "reviewlist") or ($no1style eq "mainpage")) {
		print qq?
			</span>
			<div class="respoclear"> </div>
			<span class="no1-bottom-link">
			<a href="$corlink/review/$addto_links" title="casino $country_name">$w_allbrokerrevs</a>?;
	}
	print qq?
			</span>
			<div class="chromehack"> </div>
		</div>?;
	if ($rank1anal{$no1code} eq "true") {
		if ($rank1analml{$no1code}) {
			$analmhere = $rank1analml{$no1code};
		}
		else {
			$analmhere = $w_disclaimer4;
		}
		print qq?
		  <div class="riskwarn">
		  $analmhere
		  </div>?;
		}
	print qq?
		<div class="chromehack"> </div>
	  </div>
	</div>?;
  }
}

sub fourpoints {
	$fourpts = $_[0];
	if ($rank1point1{$fourpts})	{	print "<li>$rank1point1{$fourpts}</li>\n";	}
	else 						{	print "<li>$w_goodrating1</li>\n";	}
		
	if ($rank1point2{$fourpts})	{	print "<li>$rank1point2{$fourpts}</li>\n";	}
	else 						{	print "<li>$w_goodrating2</li>\n";	}
		
	if ($rank1point3{$fourpts})	{	print "<li>$rank1point3{$fourpts}</li>\n";	}
	else 						{	print "<li>$w_goodrating3</li>\n";	}
		
	if ($rank1point4{$fourpts})	{	print "<li>$rank1point4{$fourpts}</li>\n";	}
	else 						{	print "<li>$w_goodrating4</li>\n";	}
	
	if ($ppc_version eq "true") {
		print "<li>$w_headquarters\: $rank1city{$fourpts}\, $rank1hq{$fourpts}</li>\n";
	}
}

sub print_chart_block {
	if ($thisrank == 2) {
		@lol = ("2","1","3","4");
	}
	elsif ($thisrank == 3) {
		@lol = ("3","1","2","4");
	}
	elsif ($thisrank == 4) {
		@lol = ("4","1","2","3");
	}
	elsif (($rank1score{$thisrank}>=7.5) && ($thisrank>4)) {
		@lol = ("$thisrank","1","2","3");
	}
	else {
		@lol = ("1","2","3","4");
	}
	$lol1 = @lol[0];
	$lol2 = @lol[1];
	$lol3 = @lol[2];
	$lol4 = @lol[3];
	print qq?
		<div class="comparison">

  <table>
    <thead>
      <tr>
        <th class="tl"></th>?;
	foreach $lol (@lol) {
		&chart_headers;
	}
	print qq?
      </tr>
      <tr>
        <th></th>?;
	foreach $lol (@lol) {
		&chart_price;
	}
	print qq?
      </tr>
    </thead>
    <tbody>
?;
	if ($w_score) {
		&chart_liner("$w_score","$rank1score{$lol1}","$rank1score{$lol2}","$rank1score{$lol3}","$rank1score{$lol4}");
	}
	if ($w_headquarters) {
		&chart_liner("$w_headquarters","$rank1hq{$lol1}","$rank1hq{$lol2}","$rank1hq{$lol3}","$rank1hq{$lol4}");
	}
	if ($w_regulation) {
		&chart_liner("$w_regulation","$rank1reg{$lol1}","$rank1reg{$lol2}","$rank1reg{$lol3}","$rank1reg{$lol4}");
	}
	if ($w_established) {
		&chart_liner("$w_established","$rank1est{$lol1}","$rank1est{$lol2}","$rank1est{$lol3}","$rank1est{$lol4}");
	}
	if ($chartpoint3) {
		&chart_liner("$w_{$chartpoint3}","$rank1cp3{$lol1}","$rank1cp3{$lol2}","$rank1cp3{$lol3}","$rank1cp3{$lol4}");
	}
	if ($chartpoint4) {
		&chart_liner("$w_{$chartpoint4}","$rank1cp4{$lol1}","$rank1cp4{$lol2}","$rank1cp4{$lol3}","$rank1cp4{$lol4}");
	}
	if ($chartpoint5) {
		&chart_liner("$w_{$chartpoint5}","$rank1cp5{$lol1}","$rank1cp5{$lol2}","$rank1cp5{$lol3}","$rank1cp5{$lol4}");
	}
	if ($chartpoint7) {
		&chart_liner("$w_{$chartpoint7}","$rank1cp7{$lol1}","$rank1cp7{$lol2}","$rank1cp7{$lol3}","$rank1cp7{$lol4}");
	}
	if ($chartpoint8) {
		&chart_liner("$w_{$chartpoint8}","$rank1cp8{$lol1}","$rank1cp8{$lol2}","$rank1cp8{$lol3}","$rank1cp8{$lol4}");
	}
	if ($chartpoint6) {
		&chart_liner("$w_{$chartpoint6}","$rank1cp6{$lol1}","$rank1cp6{$lol2}","$rank1cp6{$lol3}","$rank1cp6{$lol4}");
	}
	print qq?
    </tbody>
    <tfoot>
      <tr>
        <th></th>?;
	foreach $lol (@lol) {
		&chart_foot;
	}
	print qq?
      </tr>
    </tfoot>
  </table>

		</div>?;
}

sub chart_headers {
	print qq?
        <th class="compare-heading" style="background-color:$rank1boxcolor{$lol}; color:$rank1textcolor{$lol}">
          $rank1name{$lol}
        </th>?;
}

sub chart_foot {
	$chprice1++;
	$boxess = $lol;
	&get_boxeslink;
	if ($custom_chart_foot eq "true") {
		&custom_chart_foot;
	}
	else {
		print qq?
        <th class="price-info1 chprice$chprice1">
          <div><a href="$dezelink" class="price-buy">$vtw1 <span class="hide-mobile">$vtw2</span></a></div>
        </th>?;
	}
}

sub chart_liner {
	if ($_[1] eq "yes") {
		$result11 = "<span class=\"tickblue\">&#10004;</span>";
	}
	else { $result11 = $_[1]; }
	if ($_[2] eq "yes") {
		$result12 = "<span class=\"tickblue\">&#10004;</span>";
	}
	else { $result12 = $_[2]; }
	if ($_[3] eq "yes") {
		$result13 = "<span class=\"tickblue\">&#10004;</span>";
	}
	else { $result13 = $_[3]; }
	if ($_[4] eq "yes") {
		$result14 = "<span class=\"tickblue\">&#10004;</span>";
	}
	else { $result14 = $_[4]; }
	
	if ($crr eq "crr1") {
		$crr = "crr2";
		$crx = "a";
	}
	else {
		$crr = "crr1";
		$crx = "b";
	}
	
	print qq?
      <tr>
        <td></td>
        <td colspan="4"><div class="trmobileclass">$_[0]</div></td>
      </tr>
      <tr class="compare-row $crr">
        <td>$_[0]</td>
        <td class="clprice$crx">$result11</td>
        <td>$result12</td>
        <td>$result13</td>
        <td>$result14</td>
      </tr>?;
}

sub chart_price {
	$boxess = $lol;
	&get_boxeslink;
	@cp1 = split(/\./, $rank1cp1{$lol});
	@cp2 = split(/\./, $rank1cp2{$lol});
	if ($w_readthereview =~ /(.*) (.*)/) {
		$rtr1 = $1;
		$rtr2 = $2;
	}
	else {
		$rtr1 = $w_readthereview;
	}
	if ($w_visit_website =~ /(.*) (.*)/) {
		$vtw1 = $1;
		$vtw2 = $2;
	}
	else {
		$vtw1 = $w_visit_website;
	}
	$chprice++;
	if ($custom_chart_price eq "true") {
		&custom_chart_price;
	}
	else {
		print qq?
        <th class="price-info chprice$chprice">
          <div class="price-was">$rank1cp2{$lol} $w_peryear</div>
          <div class="price-now"><span>@cp1[0]?;
		if (@cp1[1]) {
			print qq?<span class="price-small">\.@cp1[1]</span>?;
		}
		print qq?</span> $w_permonth</div>
          <div><a href="$dezelink" class="price-buy">$rank1offer{$lol}</a></div>
          <div class="price-try"><a href="$corlink\/review/$rank1code{$lol}/$addto_links">$rtr1 <span class="hide-mobile">$rtr2</span></a></div>
        </th>?;
	}
}

sub print_custom_box {
	print qq?
	<div class="$_[7]">
	  <div class="content5-contain">
		<div class="$_[8]"$floatin_right>
			<h2>$_[0]</h2>
			<div class="legal-desc">
			$_[1]
			<p />$_[2] <a href="$_[4]">$_[3]</a>
			</div>
		</div>?;
	if ($_[5] =~ /http/) {
		print qq?
		<div class="$_[9]"$floatin_left>
		<a href="$_[4]"><img $src_custom\="$_[5]" alt="$_[6]"></a>
		</div>?;
	}
	print qq?
		<div class="chromehack" style=""> </div>
	  </div>
	</div>?;
}

sub print_legal_box {
	print qq?
	<div class="content5" style="">
	  <div class="content5-contain">
		<div class="content5-left"$floatin_right>
			<h2>$w_islegal_h1</h2>
			<div class="legal-desc">
			<span style="color:blue">$w_legalsen1</span> $w_legalsen2 $w_legalsen3?;
	if ($_[0] eq "index") {
		print qq?
			<p />$w_formoreinfo <a href="$corlink\/article/$legal_code/$addto_links">$w_islegallink</a>?;
	}
	else {
		print qq?
			<p class="contactattorney">
$w_contactattorney
			</p>?;
	}
	print qq?
			</div>
		</div>
		<div class="content5-right"$floatin_left>
		<a href="$corlink\/article/$legal_code/$addto_links"><img $src_custom\="$legalimg" alt="$w_legal_title $country_name"></a>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>?;
}

sub print_compare_box {
  if ($custom_comparebox eq "true") {
	&custom_comparebox;
  }
  else {
	$country_name_orig = $country_name;
	unless ($country_name) {
		$country_name = $geoname1;
	}
	print qq?
	<div class="content6" style="">
	  <div class="content6-contain">
		<div class="content6-left"$floatin_right>
		<img $src_custom\="/$the_image" alt="$country_name $ld_titl">
		</div>
		<div class="content6-right"$floatin_left>
			<h2>$w_wecompare_h1</h2>
			<div class="far-desc">
			$w_wecompare_sen1 $w_wecompare_sen2 $w_wecompare_sen3
			<p /><span style="font-size:14px">$w_noteif $country_name
			<a href="$domainlink$addto_links">$w_changeversion</a>.</span>
			</div>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>?;
	$country_name = $country_name_orig;
  }
}

sub print_newslettercatch {
	if ($w_newslettercatch) {
		print qq?
	<div class="content3">
	  <div class="content3-contain">
		<h2>$w_newslettercatch</h2>
		<div class="nlcenter">
<form method="post" action="https://www.buildaffiliatewebsites.com/cgi-bin/emailsave.pl">
<input type="hidden" name="boardnum" value="$cashmirrors_number" >
<input type="hidden" name="acct" value="php" >
<input type="hidden" name="area" value="$cashmirrors_type" >
<input type="hidden" name="sn" value="$cashmirrors_sn" >
<input type="hidden" name="language" value="english" >
<input type="hidden" name="a_area" value="letter" >
<input type="hidden" name="name" value="$country_name Subscriber">

<div class="notify">
	<input type="email" id="emailer" name="emailer" value="your\@email.com" onclick="if(this.value=='your\@email.com'){this.value=''}" onblur="if(this.value==''){this.value='your\@email.com'}">
	<div class="addon">
		<input type="submit" value="$w_notifyme">
	</div>
	<input type="hidden" name="verifytext" value="text" >
</div>
</form>
<div class="chromehack"> </div>
		
			<div class="signup3-text">
$w_newsletterfine
			</div>
		
			<div class="chromehack"> </div>
		</div>
	  </div>
	</div>?;
	}
}

sub print_bottom10_box {
	print qq?
	<div class="content2" style="">
	  <div class="content2-contain">
		<div class="compare2" style=""$floatin_up>?;
		
	if ($disall_style == 2) {
	  if ($w_disall2title) {
		print qq?
			<div class="disall2title">$w_disall2title</div>?;
	  }
	  for ($boxess=1; $boxess<=48; $boxess++) {
	   if (($show1code{$boxess}) && ($show1name{$boxess} ne "n/a")) {
		print qq?
			<div class="disall_style2">
			?;
			if ($filterman eq $show1code{$boxess}) {
				print qq?<b>$show1name{$boxess}</b>?;
			}
			else {
				print qq?<a href="$corlink/review/page-1/filter\-$show1code{$boxess}/$addto_links" title="$show1name{$boxess} tickets $country_name">$show1name{$boxess}</a>?;
			}
			print qq?
			</div>?;
	   }
	  }
	  print qq?
			<div class="chromehack" style=""> </div>
		</div>?;
	}
	else {
	  for ($boxess=1; $boxess<=12; $boxess++) {
		if ($show1type{$boxess}) {
			$showtype = $show1type{$boxess};
		}
		else {
			$showtype = $rank1type;
		}
		print qq?
			<div class="graybuttons" style="">
			<a href="$corlink/review/$show1code{$boxess}/$addto_links" title="$show1name{$boxess} $country_name review"><img $src_custom\="$cookielessdomain/buttons/$showtype/$show1code{$boxess}.png" alt="$show1name{$boxess} $country_name" height="30" class="grayscale"></a>
			</div>?;
	  }
	
	  print qq?
			<div class="chromehack" style=""> </div>
		</div>
		<div class="closetitle" style="">
		<a href="$corlink/review/$addto_links">$w_listofall</a>
		</div>?;
	}
	if ($extra_bbar eq "true") {
		print @extra_bbar;
	}
	print qq?
	  </div>
	</div>?;
	
	### bottom banners ###
	if ($bottom_banners eq "on") {
		print qq?
	<div class="wrapper1" style="">
	  <div class="">
		<div class="bottom-banners" style="">
			<div class="addisclaimer" style="float:none; width:auto">
			$w_advertisement
			</div>
			$square_ad
		</div>
		
		<div class="bottom-banners" style="">
			<div class="addisclaimer" style="float:none; width:auto">
			$w_advertisement
			</div>
			$square_ad2
		</div>
		
		<div class="chromehack" style=""> </div>
	  </div>
	</div>?;
	}
}

sub open_text {
	if (-f "$basedir/data/$_[0]/$_[1]\-$language\.txt") {
		$opn = "$basedir/data/$_[0]/$_[1]\-$language\.txt";
	}
	else {
		$opn = "$basedir/data/$_[0]/$_[1]\-en\.txt";
	}
	open(textout,"$opn");
	flock textout, 2;
	@textout = <textout>;
	close(textout);
}

sub about_page {
	&open_text("articles","about");
	print qq?
	<div class="content5-contain">
		<div class="legal-desc">
		<h1>$w_aboutus_h1</h1>?;
	print @textout;
	print qq?
		</div>
	</div>?;
}

sub privacy_page {
	&open_text("articles","privacy");
	print qq?
	<div class="content5-contain">
		<div class="legal-desc">
		<h1 id="privacy">$w_privacy_h1</h1>?;
	print @textout;
	print qq?
		</div>
	</div>?;
}

sub responsible_page {
	&open_text("articles","responsible");
	print qq?
	<div class="content5-contain">
		<div class="legal-desc">
		<h1 id="privacy">$w_responsible_h1</h1>?;
	print @textout;
	print qq?
		</div>
	</div>?;
}

sub contact_page {
	&open_text("articles","contact");
	print qq?
	<div class="review">
		<div class="review-contain">
			<h1 id="contact">$w_contact_h1</h1>?;
	print @textout;
	print qq?
		</div>
	</div>?;
}

sub fisher_yates_shuffle {
    my $array = shift;
    my $i;
    for ($i = @$array; --$i; ) {
        my $j = int rand ($i+1);
        next if $i == $j;
        @$array[$i,$j] = @$array[$j,$i];
    }
}

sub getpromo {
	if ((-f "$promosdir/$_[0]\-$language\.txt") && (-f "$promosdir/$_[0]\-$language\-data.txt")) {
		$articlefound = "yes";
		$promodata = "$promosdir/$_[0]\-$language\-data.txt";
		$articledir = "$promosdir/$_[0]\-$language\.txt";
	}
	else {
		$articlefound = "no";
	}
	
	open(promodata,"$promodata");
	flock promodata, 2;
	$promodataline = <promodata>;
	close(promodata);
	
	@promodatasplit = split(/\|/, $promodataline);
	
	$t_postdate = @promodatasplit[1];
	$t_expiredate = @promodatasplit[2];
	$t_code = @promodatasplit[3];
	$t_title = @promodatasplit[4];
	$t_summary = @promodatasplit[6];
	$t_link = @promodatasplit[8];
	
	$donerank = $done{$t_code};
	$t_name = $rank1name{$donerank};
	$t_blocked = $rank1blocked{$donerank};
	$t_score = $rank1score{$donerank};
	
	if (($t_blocked =~ "true") or ($t_score < 7.5)) {
		$t_linklink = "%corlink%/review/$t_code/";
		$t_nolinks = "true";
	}
	else {
		if ($t_link) {
			$t_linklink = $t_link;
		}
		else {
			$t_linklink = $rank1link{$donerank};
		}
		$t_nolinks = "false";
	}
	
	$t_codelink = "<a href='%corlink%/review/$t_code/' alt='$t_code'>$t_name [$t_score\/10]</a>";
	$t_expsentence = $w_availablepromo;
	
	if (length($t_title)>=25) {
		$b_title = substr($t_title, 0, 25);
		$b_title = "$b_title\..";
	}
	else {
		$b_title = $t_title;
	}
	
	$t_numexpiredate = "";
	$t_expired = "false";
	if ($t_expiredate =~ /(.*)\/(.*)\/(.*)/) {
		$t_numexpiredate = "$3$1$2";
	}
	if ($t_numexpiredate) {
		if ($admindate2 > $t_numexpiredate) {
			$t_expired = "true";
			$t_expsentence = $w_expiredpromo;
		}
	}
	
	if ($t_expired eq "true") {
		$gscale = " style='filter: grayscale(100%);'";
		$promotxt1 = " style='color:gray'";
		$promotxt2 = " style='color:#a6a6a6'";
		$expmark = "&nbsp; $w_expired";
	}
	else {
		$gscale = "";
		$expmark = "";
		$promotxt1 = "";
		$promotxt2 = "";
		$expmark = "";
	}
	
	$posted_sentence = "
		<div style='font-size:12px'>
		$w_postedby @promodatasplit[5] &nbsp; <b>[$t_expsentence]</b>
		</div>";
	$articleheader = ("
		<h1>$t_title$expmark</h1>");
		
	if ($promos_focus) {
		unless ($promos_focus eq $t_code) {
			$articlefound = "no";
		}
	}
	if (($showexpired eq "false") && ($t_expired eq "true")) {
		$articlefound = "no";
	}
	if ($articlefound eq "yes") {
	  if ($promo_already{$promodata} eq "true") {
		$articlefound = "no";
	  }
	  else {
		$promo_already{$promodata} = "true";
	  }
	}
}

sub print_promo_listbox {
  unless ($parryrun eq "true") {
	if ($_[0]) {
		$promos_focus = $_[0];
	}
	else {
		$promos_focus = "";
	}
	
	if ($promos_focus) {
		$boxlimit = "5";
		$showexpired = "true";
	}
	elsif ($readthis) {
		$promoslist_title = "<h2>$w_promos_more</h2>";
		$boxlimit = "10";
		$showexpired = "true";
	}
	elsif ($a_area eq "promos") {
		$promoslist_title = "<h1>$w_promos_h1_title</h1>";
		$boxlimit = "20";
		$showexpired = "true";
	}
	else {
		if ($_[1]) {
			$promoslist_title = "<h1>$_[1]</h1>";
		}
		else {
			$promoslist_title = "<h1>$w_promos_h1_title</h1>";
		}
		$boxlimit = "5";
		$showexpired = "false";
	}
	
	#run promos#
	$promosdir = "$basedir/data/promos";

	open(sortorder,"$promosdir/sortorder-data.txt");
	flock sortorder, 2;
	$sortorder1 = <sortorder>;
	close(sortorder);
	
	@sortorder1 = split(/\|/,$sortorder1);
	
	foreach $pdir (@sortorder1) {
	  if ($limitcount <= $boxlimit) {
		if ($pdir =~ /(.*)\-$language/) {
		  $pcoder = $1;
		  &getpromo("$pcoder");
		  if ($articlefound eq "yes") {
			$limitcount++;
			push(@promosarray,"
		<p>");
			if (@promodatasplit[7]) {
				push(@promosarray,"
		<div class='arti-img'>
		<a href='$cor1link/promos/$language/$pcoder/' title='$b_title'><img src='@promodatasplit[7]' alt='$pcoder'$gscale></a>
		</div>
		<div class='arti-txt'$promotxt2>");
			}
			else {
				push(@promosarray,"
		<div$promotxt2>");
			}
			$t_title =~ s/<!--countryname-->/$cndefault /g;
			$t_title =~ s/<!--countrypeople-->/$cpdefault /g;
			$t_summary =~ s/<!--countryname-->/$cndefault /g;
			$t_summary =~ s/<!--countrypeople-->/$cpdefault /g;
			push(@promosarray,"
		<a href='$cor1link/promos/$language/$pcoder/' class='promolisttitle'$promotxt1>$t_title</a>$expmark
		<br />$t_summary <a href='$cor1link/promos/$language/$pcoder/'$promotxt1>[$w_readmore]</a>
		</div>
		<div class='chromehack'> </div>
		</p>");
		  }
		}
	  }
	}
	if ($promos_focus) {
		$promoslist_title = "<h2>$rank1name{$thisrank} $w_promosX</h2>";;
	}
	
	$parrycount = @promosarray;
	
	if ($parrycount>=2) {
		$parryrun = "true";
		print qq?
	<div class="contentorange" style="">
	  <div class="content5-contain">
	    $promoslist_title
		<div class="legal-desc">?;
		
		print @promosarray;
		
		print qq?
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>?;
	}
  }
}

sub print_article_listbox {
	opendir pDIR, "$basedir/data/articles";
	@array = grep /\.txt$/, readdir pDIR;
	closedir pDIR;
	
	$count_articles = @array;
	
	if ($boxlimit) {
		if ($readthis eq "legal-info") {
			#no articles exist#
		}
		else {
			fisher_yates_shuffle( \@array );
			$articleslist_title = "<h2>$w_articles_more</h2>";
		}
	}
	else {
		$boxlimit = "9999";
		$articleslist_title = "<h1>$w_articles_h1_title</h1>";
	}
	print qq?
	<div class="content5" style="">
	  <div class="content5-contain">
	    $articleslist_title
		<div class="legal-desc">?;
		
	foreach $pdir (@array) {
	  if ($limitcount <= $boxlimit) {
		if ($pdir =~ /(.*)\-$countrycode\-$language\.txt/) {
			$pcoder = $1;
			$pcoder2 = $1;
			$pcoder =~ s/\-//g;
			if ($w_artb{$pcoder}) {
				$limitcount++;
				print qq?
		<p>?;
				if ($w_artimg{$pcoder}) {
					print qq?
		<div class="arti-img">
		<a href="$corlink/article/$pcoder2/" title="$w_artb{$pcoder}"><img src="$w_artimg{$pcoder}" alt="$pcoder2"></a>
		</div>
		<div class="arti-txt">?;
				}
				else {
					print qq?
		<div>?;
				}
				print qq?
		<a href="$corlink/article/$pcoder2/"><b>$w_artb{$pcoder}</b></a>
		<br />$w_artsum1{$pcoder} $w_artsum2{$pcoder}
		</div>
		<div class="chromehack"> </div>
		</p>?;
			}
		}
	  }
	}
	print qq?
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>?;
}

sub print_review_list {
	print qq?
	<div class="review">
		<div class="review-contain">
		<h1>$rl_h1</h1>
		$rl_sen
		</div>
		<div class="review-list-contain">?;
		
	unless ($page) {
		$page = 1;
	}
	$boxend = $page * $perpage;
	$boxstart = $boxend - $perpage + 1;
	
	$boxbefore = $boxstart - 1;
	$boxafter = $boxend + 1;
	
	if ($boxbefore>0) {
		$prevpage = $page - 1;
	}
	if ($boxafter<=$totalrank) {
		$nextpage = $page + 1;
	}
	foreach $review_list (@review_list) {
	  $boxess++;
	  if (($boxess>=$boxstart) && ($boxess<=$boxend)) {
		if ($stagger eq "stagger1") {
			$stagger = "stagger2";
		}
		else {
			$stagger = "stagger1";
		}
		unless ($rank1boxcolor{$boxess}) {
			$rank1boxcolor{$boxess} = "#000000";
		}
		
		if ($rank1score{$boxess}>=7.5) {
			&get_starscore("$rank1score{$boxess}");
			
			if ($usa_version eq "true") {
				$dezelink = $usa_link;
				$dezelink =~ s/%brand%/$rank1code{$boxess}/g;
			}
			elsif (length($rank1instruct{$boxess})>5) {
				&impopen("$rank1name{$boxess}\: $rank1offer{$boxess}","$rank1instruct{$boxess}","$rank1link{$boxess}","$rank1offer{$boxess}");
				$dezelink = "javascript:void(0)\" onclick=\"document.getElementById('importantmessage$impi').style.display='block';document.getElementById('fade').style.display='block'";
			}
			elsif ($rank1score{$boxess}<8.2) {
				&impopen("<b>$rank1name{1}</b> ($w_bestalternative1)","$w_bada_sen1 <b>$rank1name{1}</b>","$rank1link{1}","$rank1name{1}\: $rank1offer{1}","$rank1name{$boxess}","$rank1link{$boxess}");
				$dezelink = "javascript:void(0)\" onclick=\"document.getElementById('importantmessage$impi').style.display='block';document.getElementById('fade').style.display='block'";
			}
			else {
				$dezelink = "$rank1link{$boxess}\" rel=\"nofollow\" target=\"_blank";
			}
			$dezelink =~ s/{referloger}/$referloger/g;
			
			if ($rank1anal{$boxess} eq "true") {
				$extlink = "$corlink/review/$rank1code{$boxess}/$addto_links";
				$extbut = $w_readthereview;
			}
			else {
				$extlink = $dezelink;
				$extbut = $w_registeraccount;
			}
			
			#overwrite links special#
			if (($filterman eq $checkpoint1) && ($rank1forexlink{$boxess})) {
				$finishlink = "$rank1forexlink{$boxess}\" rel=\"nofollow\" target=\"_blank";
			}
			elsif (($filterman eq $checkpoint6) && ($rank1signalslink{$boxess})) {
				$finishlink = "$rank1signalslink{$boxess}\" rel=\"nofollow\" target=\"_blank";
			}
			else {
				$finishlink = $extlink;
			}
			$finishlink =~ s/{referloger}/$referloger/g;
			
			if (($ppc_version eq "true") && (($rank1city{$boxess}) && ($rank1hq{$boxess}))) {
				$black_review_link = "$rank1city{$boxess}\, $rank1hq{$boxess}";
			}
			else {
				$black_review_link = "$rank1name{$boxess} $extrakeyword$country_name";
			}
	
		  unless ($rank1blocked{$boxess} eq "nullx") {
			print qq?
			<div class="review-listing $stagger"$floatin_right>
				<div class="review-listing1" style="">
					<div class="review-listing-box" style="background-color:$rank1boxcolor{$boxess}?;
			if ($boxess<=5) {
				print qq?; background-image: url($cookielessdomain/newdigits/$boxess\.png)?;
			}
			print qq?">
						<div class="review-listing-box1" style="">?;
			if ($rank1blocked{$boxess} eq "true") {
				print qq?
						<img class="grayscale" src="$cookielessdomain/$rank1type{$boxess}/logo/$rank1logocode{$boxess}.png" alt="$rank1name{$boxess} $country_name">?;
			}
			else {
				print qq?
						<a href="$finishlink" title="$rank1name{$boxess} $country_name review"><img $src_custom\="$cookielessdomain/$rank1type{$boxess}/logo/$rank1logocode{$boxess}.png" alt="$rank1name{$boxess} $country_name"></a>?;
			}
			print qq?
						</div>
					</div>
				</div>
				<div class="review-listing-score" style="background-color:$rank1boxcolor{$boxess}?;
			if ($rank1textcolor{$boxess}) {
				print "; color:$rank1textcolor{$boxess}";
			}
			print qq?">
?;
				if ($custom_filterman eq "yes") {
					&custom_specialman1;
				}
				else {
					print qq?
					<a?;
					if ($rank1textcolor{$boxess}) {
						print " style=\"color:$rank1textcolor{$boxess}\"";
					}
					print qq? href="$corlink/review/$rank1code{$boxess}/$addto_links" title="$rank1name{$boxess} $country_name">$rank1score{$boxess}</a><span class="of10">/10</span>?;
				}
				print qq?
				</div>
				<div class="review-listing-title" style="">
					<div class="review-listing-rate-contain">
						<div class="review-listing-stars">
						<a href='$corlink\/review/$rank1code{$boxess}/$addto_links' title="$rank1name{$boxess} $extrakeyword$country_name"><img $src_custom\="$cookielessdomain/new-stars/$starsz_type\-$starscore.png" alt="stars" class="boxstars1?;
			if ($rank1blocked{$boxess} eq "true") {
				print " grayscale";
			}
			print qq?" style=""></a>
						</div>
					</div>
				</div>
				<div class="review-listing-call" style="">?;

			if ($rank1blocked{$boxess} eq "true") {
				print qq?
					<a href="javascript:void(0)" class="realbutton realblockedbutton?;
			}
			else {
				print qq?
					<a href="$extlink" class="realbutton?;
			}

			print qq?">$extbut</a>
					<div class="below-button2">
					<a href="$corlink/review/$rank1code{$boxess}/$addto_links" title="$rank1name{$boxess} $country_name">$black_review_link</a>
					</div>
				</div>
				<div class="below-button-contain" style="">?;
			if (($rank1offer{$boxess}) && ($rank1blocked{$boxess} ne "true")) {
				if ($custom_filterman eq "yes") {
					&custom_specialman;
				}
				else {
					print qq?
						<div class="below-button">
							<div class="specialoffer">$w_specialoffer</div>
							<div class="specialoffer1"><a href="$finishlink">$rank1offer{$boxess} \- $rank1name{$boxess}</a></div>
						</div>?;
				}
			}
			print qq?
				</div>
				<div class="chromehack"> </div>
			</div>?;
		  }
		}
		else {
			&get_starscore("$rank1score{$boxess}");
			print qq?
			<div class="review-listb $stagger">
				<div class="review-listing1b">
					<h4><a href='$corlink\/review/$rank1code{$boxess}/$addto_links' title="$country_name $rank1name{$boxess}">$rank1name{$boxess}</a></h4>
				</div>
				<div class="review-listingb-score">
				$rank1score{$boxess}<span class="of10">/10</span>
				</div>
				<div class="review-listingb-title" style="">
					<div class="review-listing-rate-contain">
						<div class="review-listing-stars">
						<a href='$corlink\/review/$rank1code{$boxess}/$addto_links' title="$rank1name{$boxess}"><img $src_custom\="$cookielessdomain/new-stars/$starsz_type\-$starscore.png" alt="stars" height="24" style=""></a>
						</div>
					</div>
				</div>
				<div class="review-listingb-call" style="">
					<div class="below-button3">
					<a href="$corlink/review/$rank1code{$boxess}/$addto_links" title="$rank1name{$boxess} $country_name">$rank1name{$boxess} $country_name</a>
					</div>
				</div>
				<div class="chromehack"> </div>
			</div>?;
		}
	  }
	}
	print qq?
			<div class="nextprev-contain">?;
	if ($prevpage) {
		print qq?
				<div class="prev-contain">
 <a href="$corlink/review/?;
		if ($prevpage > 1) {
			print "page\-$prevpage/$filterlink";
		}
		print qq?$addto_links">&larr; $w_prevw</a> &nbsp; 
				</div>?;
	}
	if ($nextpage) {
		print qq?
				<div class="next-contain">
 &nbsp; <a href="$corlink/review/page\-$nextpage/$filterlink$addto_links">$w_nextw &rarr;</a>
				</div>?;
	}
	print qq?
				<div class="chromehack"> </div>
			</div>
		</div>
	</div>?;
}

sub below82 {
	&impopen("<b>$rank1name{1}</b> ($w_bestalternative1)","$w_bada_sen1 <b>$rank1name{1}</b>","$rank1link{1}","$rank1name{1}\: $rank1offer{1}","$w_scriptwords","$rank1link{$thisrank}");
	$dezelink = "javascript:void(0)\" onclick=\"document.getElementById('importantmessage$impi').style.display='block';document.getElementById('fade').style.display='block'";
}

sub get_sgrab {
	$sgrab = $rank1www{$thisrank};
	
	$sgrab =~ tr/A-Z/a-z/;
	$sgrab =~ s/www//g;
	$sgrab =~ s/\.//g;
	$sgrab =~ s/\///g;
	$sgrab = "$sgrab" . "2";
	
	$sgraba = $sgrab;
	
	#overwrite with screen code if it exists#
	if ($rank1screencode{$thisrank}) {
		$sgrab = $rank1screencode{$thisrank};
	}
	
	if ($cldcustom eq "yes") {
		$sgrab1 = "$cookielessdomain/$rank1type/screens";
	}
	else {
		my $filesize = -s "$basedir/images/screens/$sgrab\.jpeg";
	
		unless ((-f "$basedir/images/screens/$sgrab\.jpeg") && ($filesize >= 1)) {
			$sgrab = "noimage";
		}
		$sgrab1 = "/images/screens";
	}
}

sub print_listing {
	&get_starscore("$rank1score{$thisrank}");
	
	if ($usa_version eq "true") {
		$dezelink = $usa_link;
		$dezelink =~ s/%brand%/$rank1code{$thisrank}/g;
	}
	elsif (length($rank1instruct{$thisrank})>5) {
		&impopen("$w_bofferfor","$rank1instruct{$thisrank}","$rank1link{$thisrank}","$rank1offer{$thisrank}");
		$dezelink = "javascript:void(0)\" onclick=\"document.getElementById('importantmessage$impi').style.display='block';document.getElementById('fade').style.display='block'";
	}
	elsif ($rank1score{$thisrank}<8.2) {
		&below82;
	}
	else {
		$dezelink = "$rank1link{$thisrank}\" rel=\"nofollow\" target=\"_blank";
		$dezelink =~ s/{referloger}/$referloger/g;
	}
	
	if ($rank1blocked{$thisrank} eq "null") {
	
	}
	else {
	print qq?
	<div class="review">
		<div class="review-contain">?;
	if (($rank1score{$thisrank}>=7.5) && ($rank1blocked{$thisrank} ne "true")) {
		print qq?
		  <div class="review-head-contain" style="">
		   <div class="review-head-left">
			<div class="review-head-box" style="background-color:$rank1boxcolor{$thisrank}">
			<a href="$dezelink"><img $src_custom\="$cookielessdomain/$rank1type{$thisrank}/logo/$rank1logocode{$thisrank}.png" alt="$rank1name{$thisrank} $country_name"></a>
			</div>
			<div class="listing-scorex" style="background-color:$rank1boxcolor{$thisrank}?;
			if ($rank1textcolor{$thisrank}) {
				print "; color:$rank1textcolor{$thisrank}";
			}
			print qq?">
			$rank1score{$thisrank}<span class="of10">/10</span>
			</div>
		   </div>
		   <div class="review-head-right">
			<div class="review-head-rating">
				<div class="listing-score2x" style="">
				<a class="button-cta button-flag" href="$dezelink">$w_bofferfor</a>
				</div>?;
		if ($rank1anal{$thisrank} eq "true") {
			if ($rank1analms{$thisrank}) {
				$analmhere1 = $rank1analms{$thisrank};
			}
			else {
				$analmhere1 = $w_shortwarn;
			}
			print qq?
		  <div class="riskwarn">
		  $analmhere1
		  </div>?;
		}
		print qq?
			</div>
		   </div>
		   <div class="chromehack"> </div>
		  </div>?;
	}
	print qq?
		  <div class="review-content">
			<div class="review-head1">
				<div class="screen-grab" style="">?;
	if ($square_ad) {
		print qq?
					<div class="addisclaimer">
					$w_advertisement
					</div>?;
	}
	print qq?
				$square_ad
				</div>
				<div class="listing-h1">
				<h1>?;
	if ($rank1blocked{$thisrank} eq "nocountry") {
		print "$rank1name{$thisrank}";
	}
	else {
		print "$w_review_h1";
	}
	print qq?</h1>
				</div>
				<div class="listing-button" style="">?;
	if (($rank1fullreview{$thisrank}) && (($rank1translated{$thisrank} eq "yes") or ($language eq "en"))) {
		$showfullsen = "true";
		print qq?
					<a href="$rank1fullreview{$thisrank}" title="$w_reviewof"><img $src_custom\="$cookielessdomain/new-stars/$starsz_type\-$starscore.png" alt="stars" class="reviewstars"></a>
					<div class="full-review-link">
					<a href="$rank1fullreview{$thisrank}">$rank1name{$thisrank} $w_full_reviews</a>
					</div>?;
	}
	else {
		if ($rank1blocked{$thisrank} eq "offline") {
			print qq?
					<img $src_custom\="$cookielessdomain/offline-site.png" alt="offline" class="reviewstars">?;
		}
		else {
			print qq?
					<img $src_custom\="$cookielessdomain/new-stars/$starsz_type\-$starscore.png" alt="stars" class="reviewstars">?;
		}
	}
	print qq?
				</div>
				<div class="listing-rank" style="">?;
	
	if (($w_isofflinein) && ($rank1blocked{$thisrank} eq "offline")) {
		print "$w_isofflinein";
	}
	else {
		print "$w_isranked";
		if ($howratings_link) {
			print qq?
					<div class="full-review-link">
					<a href="$howratings_link"$howratings_external>$w_howratings</a>
					</div>?;
		}
	}
	print qq?
				</div>
			</div>
			
			<div class="review-content2">				
			  <div class="square-ad">
?;
	if (($rank1score{$thisrank}>=7.5) && ($rank1blocked{$thisrank} ne "true")) {
		print qq?<a href="$dezelink">?;
	}
	
	unless (($w_isofflinein) && ($rank1blocked{$thisrank} eq "offline")) {
		print qq?<img $src_custom\="$sgrab1/$sgrab\.jpeg$reloadscreens" alt="$sgraba" title="$rank1code{$thisrank} screen shot" class="screengrab">?;
		if (($rank1score{$thisrank}>=7.5) && ($rank1blocked{$thisrank} ne "true")) {
			print qq?</a>?;
		}
	
		print qq?
				<div class="addisclaimer">
				<i>$rank1name{$thisrank} $w_screenshot</i>
				</div>?;
	}
	print qq?
			  </div>
			</div>
			
			<div class="review-content1">?;
	
	if ($rank1link2{$thisrank}) {
		$continuelink = $rank1link2{$thisrank};
	}
	else {
		$continuelink = "http://$rank1www{$thisrank}";
	}
	$continuelink =~ s/{referloger}/$referloger/g;
	
	if (($rank1score{$thisrank}>=7.5) && ($rank1blocked{$thisrank} ne "true")) {
		&list_checks_sub;
	}
	if ($rank1blocked{$thisrank} eq "true") {
		print qq?
$w_blocked_sen1 $w_blocked_sen2 $w_blocked_sen3 $w_blocked_sen4
<p />
$w_alt_sen1 $w_alt_sen2 <a href="$corlink/review/$rank1code{1}/$addto_links" title="$rank1name{1} $country_name"><b>$rank1name{1}</b></a>$w_alt_sen3
<p />
- <a href="$continuelink" rel="nofollow" target="_blank">$w_continueanyway</a>
<br />- <a href="$corlink/review/$addto_links" title="$country_name $logo_titl">$w_listofall</a>
<br />- <a href="$domainlink$addto_links" title="$country_name $logo_titl">$w_change_country</a>?;
	}
	elsif ($rank1score{$thisrank}>=7.5) {
		print qq?
$w_goodr_sen1?;
		unless ($rank1anal{$thisrank} eq "true") {
			print qq? <a href="$corlink/article/$legal_code/$addto_links" title="$legal_img_alt $country_name">$w_goodr_sen2</a>?;
		}
		print qq? $w_goodr_sen3 $w_goodr_sen4?;
		if ($rank1point1{$thisrank}) {
			print qq? $w_standout?;
		}
		else {
			print qq? $w_agoodrating?;
		}
		print qq?
<ul>?;

		&fourpoints("$thisrank");
		
		print qq?
</ul>
$w_goodc_sen1 $w_goodc_sen2 <a href="$dezelink"><b>$w_bofferfor</b></a>?;
		if ($showfullsen eq "true") {
			print qq? $w_goodc_sen3 <i><a href="$rank1fullreview{$thisrank}">$w_reviewof</a></i>.?;
		}
	}
	else {
		if (($w_isofflinein) && ($rank1blocked{$thisrank} eq "offline")) {
			$w_bada_sen4 = "";
		}
		#bestchange var for crypto#
		elsif ($rank1blocked{$thisrank} eq "bestchange") {
			$w_bestchange1 =~ s/%bestchange%/$bestchangelink/g;
			$w_bestchange2 =~ s/%bestchange%/$bestchangelink/g;
			print qq?
<b>$w_bestchange1 $w_bestchange2</b>?;
		}
		else {
			print qq?
$w_badc_sen1 $w_badc_sen2 $w_badc_sen3?;
		}
		print qq?
<p />
$w_bada_sen1 <a href="$corlink/review/$rank1code{1}/$addto_links" title="$rank1name{1} $country_name"><b>$rank1name{1}</b></a>$w_bada_sen2 $w_bada_sen3 <a href="$corlink/review/$addto_links">$w_forextradingc</a>$w_bada_sen4?;
	}
	print qq?
			</div>			
			<div class="chromehack"> </div>
		  </div>?;
	if (($rank1score{$thisrank}>=7.5) && ($rank1blocked{$thisrank} ne "true")) {
		print qq?
		  <div class="review-closer">
			<div class="review-closer-reg" style="">
			<a class="realbutton" href="$dezelink">$w_openreal</a>
			</div>?;
		if ($rank1demolink{$thisrank}) {
			$demoreplink = $rank1demolink{$thisrank};
			$demoreplink =~ s/{referloger}/$referloger/g;
			print qq?
			<div class="review-closer-demo" style="">
			<a class="boxbutton2" href="$demoreplink" target="_blank" rel="nofollow">$w_trydemo</a>
			</div>?;
		}
		print qq?
			<div class="review-closer-script" style="">
			<span class="hiderespo">&larr; </span>$w_scriptwords
			</div>
			<div class="chromehack"> </div>
		  </div>?;
		
		if ($rank1anal{$thisrank} eq "true") {
			if ($rank1analml{$thisrank}) {
				$analmhere = $rank1analml{$thisrank};
			}
			else {
				$analmhere = $w_disclaimer4;
			}
			print qq?
		  <div class="riskwarn">
		  $analmhere
		  </div>?;
		}
	}
	print qq?
		</div>
	</div>?;
	}
}

sub impopen {
	$impi++;
	$wclose = "document.getElementById('importantmessage$impi').style.display='none';document.getElementById('fade').style.display='none'";
	if ($_[4]) {
		$graywords = $_[4];
	}
	else {
		$graywords = $w_registeraccount;
	}
	if ($_[5]) {
		$graylink = $_[5];
	}
	else {
		$graylink = $_[2];
	}
	$braylink = $_[2];
	$braylink =~ s/{referloger}/$referloger/g;
	$graylink =~ s/{referloger}/$referloger/g;
	print qq?
	<div id="importantmessage$impi" class="importantmessage" align="center" style="display:none">
		<a href="javascript:void(0)" onclick="$wclose" class="fa fa-times-circle-o closei" aria-hidden="true"></a>
		<h3>$_[0]</h3>
		<div>
$_[1]
<p>
<a class="button-cta" href="$braylink" target="_blank" rel="nofollow">$_[3]</a>
</p>
<a href="$graylink" class="regi" target="_blank" rel="nofollow">$graywords</a>
		</div>
	</div>
?;
	$fadeit = "yes";
}

sub list_checks {
  if ($_[2]) {
	if ($checks_style == 2) {
		if ($_[2] eq "forex") {
			$padme = "";
			if ($_[0] eq "no") {
				$checkyes = "no";
			}
			else {
				$checkyes = "yes";
			}
			$lc_wordd = $w_forex;
		}
		else {
			$padme = "page\-1/filter\-$_[2]/";
			$checkyes = $_[0];
			$lc_wordd = $_[1];
			$padword = $_[2];
			if ($fspecial{$padword} eq "yes") {
				if ($checkyes =~ /\~/) {
					$checkyes = "yes";
				}
			}
		}
		print qq?
					<div class="list-checks?;
		if ($checkyes eq "yes") {
			print qq? green"><b class="fa fa-check-circle" aria-hidden="true"></b>?;
		}
		else {
			print qq?"><b class="fa fa-times-circle" aria-hidden="true"></b>?;
		}
		print qq?<br /><a href="$corlink/review/$padme$addto_links" title="$_[1] $country_name">$lc_wordd</a>
					</div>?;
	}
	else {
		$padme = "page\-1/filter\-$_[2]/";
		$checkyes = $_[0];
		$checkyes_desc = "<b>$checkyes</b> /10";
		if ($checkyes>=8) {
			$checkcolor = "green";
		}
		elsif ($checkyes>=6) {
			$checkcolor = "blue";
		}
		elsif ($checkyes>=4) {
			$checkcolor = "orange";
		}
		elsif ($checkyes>=1) {
			$checkcolor = "red";
		}
		else {
			$checkcolor = "";
			$checkyes_desc = "N/A";
		}
	
		print qq?
					<div class="list-checks">
						<div class="lc-left" style="">?;
		if ($checkyes >= 1) {
					print qq?<b class="fa fa-check-circle" style="color:$checkcolor !important" aria-hidden="true"></b>?;
		}
		else {
					print qq?<b class="fa fa-times-circle" aria-hidden="true"></b>?;
		}
		print qq?
						</div>
						<div class="lc-right" style="">
	<a href="$corlink/review/$padme$addto_links" title="$_[1] $country_name" style="color:$checkcolor">$_[1]</a>
<br /><span class="out10" style="color:$checkcolor">$checkyes_desc</span>
						</div>
					</div>?;
	}
  }
}

sub list_checks_sub {
	print qq?
				<div class="review-checks-contain">?;
	if ($list_checks_custom eq "yes") {
		&list_checks_custom;
	}
	else {
		&list_checks("$rank1forex{$thisrank}","$w_{$checkpoint1}","$checkpoint1");
		&list_checks("$rank1binary{$thisrank}","$w_{$checkpoint2}","$checkpoint2");
		&list_checks("$rank1metatrader{$thisrank}","$w_{$checkpoint3}","$checkpoint3");
		&list_checks("$rank1cfds{$thisrank}","$w_{$checkpoint4}","$checkpoint4");
		&list_checks("$rank1robots{$thisrank}","$w_{$checkpoint5}","$checkpoint5");
		&list_checks("$rank1signals{$thisrank}","$w_{$checkpoint6}","$checkpoint6");
		&list_checks("$rank1vps{$thisrank}","$w_{$checkpoint7}","$checkpoint7");
		&list_checks("$rank1jackpot{$thisrank}","$w_{$checkpoint8}","$checkpoint8");
	}
	print qq?
					<div class="chromehack"> </div>
				</div>?;
}

sub print_footer {
	$wcloseonclick = " onclick = \"document.getElementById('light').style.display='none';document.getElementById('fade').style.display='none'\"";
	$wclose = "href=\"javascript:void(0)\"$wcloseonclick";
	unless (($geoip_forced eq $geoip) or ($geoip eq "fresh") or ($t_layout eq "recommenda") or ($t_layout eq "review") or ($t_layout eq "promos") or ($t_layout eq "blank") or ($t_layout eq "about") or ($geoblck eq "blocked")) {
	  if (($geoflag1) && ($geocode1)) {
		if (($singlecountrysite) or ($proxcodes_default eq "true")) {
			$yeslink = "$othercountries/go/$geocode1\-$language/overwrite/$addto_links";
		}
		else {
			$yeslink = "$cor1link/$geocode1\-$language/overwrite/$addto_links";
		}
		print qq?
<div style="width:100%; margin:0 auto">
	<div id="light">
		<u class="fa fa-cog fa-spin" aria-hidden="true" style=""></u>
		<h2>$w_rightplace</h2>
		$w_detected_sen
		<div class="pad30">
		<img $src_custom\="$cookielessdomain/flags/$geoflag1\.png" alt="flag">&nbsp; <a href="$yeslink">$w_detectedyes</a>
		<p />
		<img $src_custom\="$cookielessdomain/flags/$geoflagcode\.png" alt="flag">&nbsp; <a $wclose>$w_detectedno</a>
		<p />
		<a href="$domainlink$addto_links">$w_detectedneither</a>
		</div>
	</div>
</div>?;
		$fadeit = "yesblock";
	  }
	  else {
		#print "country not found";#
	  }
	}
	unless (($fadeit eq "yesblock") or ($newgeo eq "false")) {
	   if ($onepopup) {
	    $onepopup =~ s/{referloger}/$referloger/g;
		print qq?
	<div id="light" class="importantmessage" align="center" style="display:block; $popupstyle">
		<a $wclose class="fa fa-times-circle-o closei" aria-hidden="true"></a>
		<div>
$onepopup
</p>
<a $wclose class="regi">$w_top5title</a>
		</div>
	</div>
?;
		$fadeit = "yesblock";
		$fadeitonclick = $wcloseonclick;
	   }
	}
	if ($fadeit =~ "yes") {
		print qq?
<div id="fade" class="black_overlay"?;
		if ($fadeit =~ "block") {
			print " style=\"display:block\"";
		}
		print qq?$fadeitonclick></div>?;
	}
	print qq?
	<footer style="">?;
	&lang_check;
	print qq?
		<div class="copyright" style="">
			<div class="copyrightr">?;
	if ($awardlink) {
		print qq?
			<a href="$awardlink" target="_blank"><img $src_custom\="$golden_award_img" alt="$golden_award_alt" height="80"></a>?;
	}
	else {
		print qq?
			<img $src_custom\="$golden_award_img" alt="$golden_award_alt" height="80">?;
	}
	print qq?
			</div>
			<div class="copyrightl">
			<a href="?;
			if ($countrycode) { print "$corlink/$addto_links"; }
			else              { print "$domainlink$addto_links"; }
			print qq?" title="$logo_titl"><img $src_custom\="$the_url/$the_logo2" height="50"></a>
			</div>
			<div class="copyrightc">?;
		print qq?
			<a href="$cor1link/about/$language/$addto_links">$w_about_us</a>
			&nbsp;
			<a href="$cor1link/contact/$language/$addto_links">$w_contact_us</a>
			&nbsp;
			<a href="$cor1link/privacy/$language/$addto_links">$w_privacy</a>?;
		if ($w_responsibleg) {
			print qq?
			&nbsp;
			<a href="$cor1link/responsible/$language/$addto_links">$w_responsibleg</a>?;
		}
		if (($w_legalbotm) && ($countrycode)) {
			print qq?
			&nbsp;
			<a href="$corlink/article/legal-info/$addto_links">$w_legalbotm</a>?;
		}
		print qq?
			&nbsp;
			<a href="/sitemap?;
			if ($countrycode) { print "s/sitemap\-$countrycode"; }
			print qq?.xml">$w_sitemap</a>
			<p />?;
	print qq?
			$w_copyright
			</div>
			<div class="chromehack"> </div>
			<p />
			$w_disclaimer1 $w_disclaimer2 $w_disclaimer3 $w_disclaimer4?;
	if ($w_verifiedrevamp) {
		print qq? <a href="https://network.revampscripts.com/$website_url/" target="_blank">$w_verifiedrevamp</a>?;
	}
	if ($custom_footer eq "true") {
		&custom_footer;
	}
	print qq?
		</div>
	</footer>?;
}

sub print_endbody {
	print @statcounter_code;
	print @extra_footer;
	print qq?
	
</body>
</html>?;
	if ($maxmind_disable eq "troubleshoot") {
		print "maxmindip: $mmURL<br>url: $mmSTR";
	}
}


###################################### FULL REVIEWS #########################################

sub print_review {
	&get_starscore("$rank1score{$thisrank}");
	
	if ($usa_version eq "true") {
		$dezelink = $usa_link;
		$dezelink =~ s/%brand%/$rank1code{$thisrank}/g;
	}
	elsif (length($rank1instruct{$thisrank})>5) {
		&impopen("$w_bofferfor","$rank1instruct{$thisrank}","$rank1link{$thisrank}","$rank1offer{$thisrank}");
		$dezelink = "javascript:void(0)\" onclick=\"document.getElementById('importantmessage$impi').style.display='block';document.getElementById('fade').style.display='block'";
	}
	elsif ($rank1score{$thisrank}<8.2) {
		&below82;
	}
	else {
		$dezelink = "$rank1link{$thisrank}\" rel=\"nofollow\" target=\"_blank";
		$dezelink =~ s/{referloger}/$referloger/g;
	}
	
	print qq?
	<div class="review">
		<div class="review-contain">
		  <div class="review-head-contain" style="">
		   <div class="review-head-right">
			<div class="review-head-boxr" style="background-color:$rank1boxcolor{$thisrank}">?;
	if ($rank1blocked{$thisrank} eq "true") {
		print qq?
			<img $src_custom\="$cookielessdomain/$rank1type{$thisrank}/logo/$rank1logocode{$thisrank}.png" class="grayscale" alt="$rank1name{$thisrank}">?;
	}
	elsif ($rank1anal{$thisrank} eq "true") {
		print qq?
			<img $src_custom\="$cookielessdomain/$rank1type{$thisrank}/logo/$rank1logocode{$thisrank}.png" alt="$rank1name{$thisrank}">?;
	}
	else {
		print qq?
			<a href="$dezelink"><img $src_custom\="$cookielessdomain/$rank1type{$thisrank}/logo/$rank1logocode{$thisrank}.png" alt="$rank1name{$thisrank} $country_name"></a>?;
	}
	print qq?
			</div>
		   </div>
		   <div class="review-head-left">?;
	if ($rank1blocked{$thisrank} eq "true") {
		print qq?
			<div class="cta-topX">
				<div class="fa fa-exclamation-triangle cta-icon" aria-hidden="true"></div>
				<div class="cta-top1">$w_sorry $w_isntavailable</div>
				<div class="of10 center"><a href="$corlink/review/$addto_links">$w_fulllist</a></div>
			</div>?;
	}
	elsif ($rank1blocked{$thisrank} eq "offline") {
		print qq?
			<div class="cta-topX">
				<div class="fa fa-exclamation-triangle cta-icon" aria-hidden="true"></div>
				<div class="cta-top1">$w_isofflinein</div>
				<div class="of10 center"><a href="$corlink/review/$addto_links">$w_fulllist</a></div>
			</div>?;
	}
	elsif ($rank1extoffer{$thisrank}) {
		print qq?
			<div class="cta-top">
				<div class="fa fa-gift cta-icon" aria-hidden="true"></div>
				<div class="cta-top1"><a href="$dezelink">$rank1extoffer{$thisrank}</a></div>
				<div class="?;
		if ($rank1anal{$thisrank} eq "true") {
			print "riskwarn";
		}
		else {
			print "of10 center";
		}
		print qq?">$rank1extofferfp{$thisrank}</div>
			</div>?;
	}
	print qq?
		   </div>
		   <div class="chromehack"> </div>
		  </div>
		  <div class="review-content">
			<div class="review-head1">
				<h1>$b_title Review</h1>
			</div>
			
			<div class="review-content2">
			  <div class="ratings-contain">?;
	print qq?
				<div class="rating-contain1">
					<div class="rating-score1">
					$rank1originalscore{$thisrank}<span class="of101">/10</span>
					</div>
					
					<div class="rating-stars">
					<img $src_custom\="$cookielessdomain/new-stars/$starsz_type\-$starscore\.png" alt="stars" height="40">
					</div>

					<div class="rating-explained1 explained-?;
	if (($rank1blocked{$thisrank} eq "true") or ($rank1blocked{$thisrank} eq "offline")) {
		print qq?bad">
					<b>$w_isntavailable</b>?;
	}
	else {
		print qq?good">
					<b>$w_rankedfor</b>?;
	}
	print qq?
					</div>
				</div>?;

	&get_starscore("$rank1rsect_score1{$thisrank}");
	if (($rank1rsect_desc1{$thisrank}) && ($rank1rsect_score1{$thisrank})) {  
		print qq?
				<div class="rating-contain">
					<div class="rating-left">
					$w_rev_section{1}\: &nbsp;
					</div>
					<div class="rating-score">
					$rank1rsect_score1{$thisrank}<span class="of10">/10</span>
					</div>
					<div class="rating-right">
					<img $src_custom\="$cookielessdomain/new-stars/$starsz_type\-$starscore\.png" alt="stars" height="18">
					</div>

					<div class="rating-explained" style="color:$starscore_c">
					<b class="fa $rev_section_icon1" aria-hidden="true"></b>
					$rank1rsect_desc1{$thisrank}
					</div>
				</div>?;
	}
	&get_starscore("$rank1rsect_score2{$thisrank}");
	if (($rank1rsect_desc2{$thisrank}) && ($rank1rsect_score2{$thisrank})) {
		print qq?
				<div class="rating-contain">
					<div class="rating-left">
					$w_rev_section{2}\: &nbsp;
					</div>
					<div class="rating-score">
					$rank1rsect_score2{$thisrank}<span class="of10">/10</span>
					</div>
					<div class="rating-right">
					<img $src_custom\="$cookielessdomain/new-stars/$starsz_type\-$starscore\.png" alt="stars" height="18">
					</div>

					<div class="rating-explained" style="color:$starscore_c">
					<b class="fa $rev_section_icon2" aria-hidden="true"></b>
					$rank1rsect_desc2{$thisrank}
					</div>
				</div>?;
	}
	&get_starscore("$rank1rsect_score3{$thisrank}");
	if (($rank1rsect_desc3{$thisrank}) && ($rank1rsect_score3{$thisrank})) {
		print qq?
				<div class="rating-contain">
					<div class="rating-left">
					$w_rev_section{3}\: &nbsp;
					</div>
					<div class="rating-score">
					$rank1rsect_score3{$thisrank}<span class="of10">/10</span>
					</div>
					<div class="rating-right">
					<img $src_custom\="$cookielessdomain/new-stars/$starsz_type\-$starscore\.png" alt="stars" height="18">
					</div>

					<div class="rating-explained" style="color:$starscore_c">
					<b class="fa $rev_section_icon3" aria-hidden="true"></b>
					$rank1rsect_desc3{$thisrank}
					</div>
				</div>?;
	}
	&get_starscore("$rank1rsect_score4{$thisrank}");
	if (($rank1rsect_desc4{$thisrank}) && ($rank1rsect_score4{$thisrank})) {
		print qq?
				<div class="rating-contain">
					<div class="rating-left">
					$w_rev_section{4}\: &nbsp;
					</div>
					<div class="rating-score">
					$rank1rsect_score4{$thisrank}<span class="of10">/10</span>
					</div>
					<div class="rating-right">
					<img $src_custom\="$cookielessdomain/new-stars/$starsz_type\-$starscore\.png" alt="stars" height="18">
					</div>

					<div class="rating-explained" style="color:$starscore_c">
					<b class="fa $rev_section_icon4" aria-hidden="true"></b>
					$rank1rsect_desc4{$thisrank}
					</div>
				</div>?;
	}
	&get_starscore("$rank1rsect_score5{$thisrank}");
	if (($rank1rsect_desc5{$thisrank}) && ($rank1rsect_score5{$thisrank})) {
		print qq?
				<div class="rating-contain">
					<div class="rating-left">
					$w_rev_section{5}\: &nbsp;
					</div>
					<div class="rating-score">
					$rank1rsect_score5{$thisrank}<span class="of10">/10</span>
					</div>
					<div class="rating-right">
					<img $src_custom\="$cookielessdomain/new-stars/$starsz_type\-$starscore\.png" alt="stars" height="18">
					</div>

					<div class="rating-explained" style="color:$starscore_c">
					<b class="fa $rev_section_icon5" aria-hidden="true"></b>
					$rank1rsect_desc5{$thisrank}
					</div>
				</div>?;
	}
	if ($howratings_link) {
		print qq?
				<div class="full-review-link">
				<a href="$howratings_link"$howratings_external>$w_howratings</a>
				</div>?;
	}
	print qq?
			  </div>?;
	unless (($rank1blocked{$thisrank} eq "offline") or ($rank1blocked{$thisrank} eq "true")) {
		$square_ad_finder1 = $rank1square{$thisrank};
		$square_ad_finder1 =~ s/{referloger}/$referloger/g;
		print qq?
				
			  <div class="square-ad square-ad-space">
				<div class="addisclaimer">
				$w_advertisement
				</div>
				$square_ad_finder1
			  </div>?;
	}
	print qq?
			</div>
			
			<div class="review-content1">?;
	if ($rank1intro{$thisrank}) {
		print qq?$rank1intro{$thisrank}
<p />?;
	}
	if ($rank1rsect_paragraph_desc1{$thisrank}) {
		print qq?
<h2>$w_rev_section{1}</h2>
$rank1rsect_paragraph_desc1{$thisrank}
<p />
?;
	}
	print qq?
		  <div class="review-images">
			<div class="review-image1">
			<img $src_custom\="$cookielessdomain/$rank1type{$thisrank}/ss1/$b_area\.png" alt="$b_title screen shot">
			</div>
			<div class="review-image2">
			<img $src_custom\="$cookielessdomain/$rank1type{$thisrank}/ss2/$b_area\.png" alt="$b_title screen shot">
			</div>
			<div class="chromehack"> </div>
		  </div>?;
		
	if ($rank1rsect_paragraph_desc2{$thisrank}) {
		print qq?
<h2>$w_rev_section{2}</h2>
$rank1rsect_paragraph_desc2{$thisrank}
<p />
?;
	}
	unless (($rank1blocked{$thisrank} eq "offline") or ($rank1blocked{$thisrank} eq "true")) {
		print qq?
		  <div class="review-closer">
			<a class="button-cta" href="$dezelink">$w_bofferfor</a>
		  </div>?;
		if ($rank1anal{$thisrank} eq "true") {
			if ($rank1analms{$thisrank}) {
				$analmhere1 = $rank1analms{$thisrank};
			}
			else {
				$analmhere1 = $w_shortwarn;
			}
			print qq?
		  <div class="riskwarn">
		  $analmhere1
		  </div>?;
		}
		print qq?
<p />?;
	}
	
	if ($rank1rsect_paragraph_desc3{$thisrank}) {
		print qq?
<h2>$w_rev_section{3}</h2>
$rank1rsect_paragraph_desc3{$thisrank}
<p />
?;
	}
	if ($rank1pm1{$thisrank} eq "yes") {
		print qq?
 <img $src_custom\="$cookielessdomain/deposits/@payment_methods[1]\.png" alt="@payment_methods[1]">?;
	}
	if ($rank1pm2{$thisrank} eq "yes") {
		print qq?
 <img $src_custom\="$cookielessdomain/deposits/@payment_methods[2]\.png" alt="@payment_methods[2]">?;
	}
	if ($rank1pm3{$thisrank} eq "yes") {
		print qq?
 <img $src_custom\="$cookielessdomain/deposits/@payment_methods[3]\.png" alt="@payment_methods[3]">?;
	}
	if ($rank1pm4{$thisrank} eq "yes") {
		print qq?
 <img $src_custom\="$cookielessdomain/deposits/@payment_methods[4]\.png" alt="@payment_methods[4]">?;
	}
	if ($rank1pm5{$thisrank} eq "yes") {
		print qq?
 <img $src_custom\="$cookielessdomain/deposits/@payment_methods[5]\.png" alt="@payment_methods[5]">?;
	}
	if ($rank1pm6{$thisrank} eq "yes") {
		print qq?
 <img $src_custom\="$cookielessdomain/deposits/@payment_methods[6]\.png" alt="@payment_methods[6]">?;
	}
	if ($rank1pm7{$thisrank} eq "yes") {
		print qq?
 <img $src_custom\="$cookielessdomain/deposits/@payment_methods[7]\.png" alt="@payment_methods[7]">?;
	}
	if ($rank1pm8{$thisrank} eq "yes") {
		print qq?
 <img $src_custom\="$cookielessdomain/deposits/@payment_methods[8]\.png" alt="@payment_methods[8]">?;
	}
	if ($rank1pm9{$thisrank} eq "yes") {
		print qq?
 <img $src_custom\="$cookielessdomain/deposits/@payment_methods[9]\.png" alt="@payment_methods[9]">?;
	}
	if ($rank1pm10{$thisrank} eq "yes") {
		print qq?
 <img $src_custom\="$cookielessdomain/deposits/@payment_methods[10]\.png" alt="@payment_methods[10]">?;
	}
	if ($rank1pm11{$thisrank} eq "yes") {
		print qq?
 <img $src_custom\="$cookielessdomain/deposits/@payment_methods[11]\.png" alt="@payment_methods[11]">?;
	}
	print "<p />\n";
	if ($rank1rsect_paragraph_desc4{$thisrank}) {
		print qq?
<h2>$w_rev_section{4}</h2>
$rank1rsect_paragraph_desc4{$thisrank}
<p />
?;
	}
	&list_checks_sub;
	if ($rank1rsect_paragraph_desc5{$thisrank}) {
		print qq?
<h2>$w_rev_section{5}</h2>
$rank1rsect_paragraph_desc5{$thisrank}
<p />
?;
	}

	if ($rank1conclusion{$thisrank}) {
		print qq?
&nbsp;<p />
<i>$rank1conclusion{$thisrank}</i>
<p />?;
	}

	print qq?
			</div>
			
			<div class="info-content">
			  <div class="info-content-contain">
				<div class="info-content-title">
				$w_casino_info <b class="fa fa-info-circle" aria-hidden="true"></b>
				</div>?;
	if ($tablestyle eq "true") {
	  print qq?
				<table id="review-info" width="100%" cellpadding="4">?;
	  if ($rank1hq{$thisrank}) {
		if ($rank1address{$thisrank}) {
			$thishq = "$rank1address{$thisrank}\, ";
		}
		if ($rank1city{$thisrank}) {
			$thishq = "$thishq$rank1city{$thisrank}\, ";
		}
		if ($rank1region{$thisrank}) {
			$thishq = "$thishq$rank1region{$thisrank}\, ";
		}
		$thishq = "$thishq$rank1hq{$thisrank}";
		print qq?
				<tr>
					<td valign="top">
					<span class="info-content1lx">$w_headquarters\:</span>
					</td>
					<td valign="top">
					<span class="info-contentrx">$thishq</span>
					</td>
				</tr>?;
	  }
	  if ($rank1reg{$thisrank}) {
		print qq?
				<tr>
					<td valign="top">
					<span class="info-content1lx">$w_regulation\:</span>
					</td>
					<td valign="top">
					<span class="info-contentrx">$rank1reg{$thisrank}</span>
					</td>
				</tr>?;
	  }
	  if ($rank1plat{$thisrank}) {
		print qq?
				<tr>
					<td valign="top">
					<span class="info-content1lx">$w_platform\:</span>
					</td>
					<td valign="top">
					<span class="info-contentrx">$rank1plat{$thisrank}</span>
					</td>
				</tr>?;
	  }
	  print qq?
				</table>?;
	}
	else {
	  if ($rank1hq{$thisrank}) {
		print qq?
				<div class="info-content1">
					<div class="info-content1l">
					$w_headquarters\:
					</div>
					<div class="info-contentr">
					$rank1hq{$thisrank}
					</div>
				</div>?;
	  }
	  if ($rank1reg{$thisrank}) {
		print qq?
				<div class="info-content1">
					<div class="info-content1l">
					$w_regulation\:
					</div>
					<div class="info-contentr">
					$rank1reg{$thisrank}
					</div>
				</div>?;
	  }
	  if ($rank1plat{$thisrank}) {
		print qq?
				<div class="info-content1">
					<div class="info-content1l">
					$w_platform\:
					</div>
					<div class="info-contentr">
					$rank1plat{$thisrank}
					</div>
				</div>?;
	  }
	}
	print qq?
				<div class="chromehack" style="height:15px"> </div>
				
				<div class="info-content-title">
				$w_contact_info <b class="fa fa-envelope" aria-hidden="true"></b>
				</div>?;
	if ($tablestyle eq "true") {
	  print qq?
				<table id="review-info" width="100%" cellpadding="4">?;
	  if ($rank1phone{$thisrank}) {
		print qq?
				<tr>
					<td valign="top">
					<span class="info-content1lx">$w_phone\:</span>
					</td>
					<td valign="top">
					<span class="info-contentrx">$rank1phone{$thisrank}</span>
					</td>
				</tr>?;
	  }
	  if ($rank1email{$thisrank}) {
		print qq?
				<tr>
					<td valign="top">
					<span class="info-content1lx">$w_email\:</span>
					</td>
					<td valign="top">
					<span class="info-contentrx">$rank1email{$thisrank}</span>
					</td>
				</tr>?;
	  }
	  if ($rank1www{$thisrank}) {
		print qq?
				<tr>
					<td valign="top">
					<span class="info-content1lx">$w_link\:</span>
					</td>
					<td valign="top">
					<span class="info-contentrx">$rank1www{$thisrank}</span>
					</td>
				</tr>?;
	  }
	  print qq?
				</table>?;
	}
	else {
	  if ($rank1phone{$thisrank}) {
		print qq?
				<div class="info-content1">
					<div class="info-content1l">
					$w_phone\:
					</div>
					<div class="info-contentr">
					$rank1phone{$thisrank}
					</div>
				</div>?;
	  }
	  if ($rank1email{$thisrank}) {
		print qq?
				<div class="info-content1">
					<div class="info-content1l">
					$w_email\:
					</div>
					<div class="info-contentr">
					$rank1email{$thisrank}
					</div>
				</div>?;
	  }
	  if ($rank1www{$thisrank}) {
		print qq?
				<div class="info-content1">
					<div class="info-content1l">
					$w_link\:
					</div>
					<div class="info-contentr">
					$rank1www{$thisrank}
					</div>
				</div>?;
	  }
	}
	print qq?
			  </div>
			</div>
			
			<div class="chromehack"> </div>
		  </div>?;
	if (($rank1score{$thisrank}>=7.5) && ($rank1blocked{$thisrank} ne "true")) {
		print qq?
		  <div class="review-closer">
			<div class="review-closer-reg" style="">
			<a class="realbutton" href="$dezelink">$w_openreal</a>
			</div>?;
		if ($rank1demolink{$thisrank}) {
			$demoreplink = $rank1demolink{$thisrank};
			$demoreplink =~ s/{referloger}/$referloger/g;
			print qq?
			<div class="review-closer-demo" style="">
			<a class="boxbutton2" href="$demoreplink" target="_blank" rel="nofollow">$w_trydemo</a>
			</div>?;
		}
		print qq?
			<div class="review-closer-script" style="">
			<span class="hiderespo">&larr; </span>$w_scriptwords
			</div>
			<div class="chromehack"> </div>
		  </div>?;
		  
		if ($rank1anal{$thisrank} eq "true") {
			if ($rank1analml{$thisrank}) {
				$analmhere = $rank1analml{$thisrank};
			}
			else {
				$analmhere = $w_disclaimer4;
			}
			print qq?
		  <div class="riskwarn">
		  $analmhere
		  </div>?;
		}
	}
	print qq?
		</div>
	</div>?;
}


###############################################################################

sub basic_info {
	$thisrank = $done{$b_area};
	$b_title = $rank1name{$thisrank};
	$b_code = $rank1code{$thisrank};
	$b_link = $rank1link{$thisrank};
	$b_link =~ s/{referloger}/$referloger/g;
	if ($rank1city{$thisrank}) {
		$b_hq = "$rank1city{$thisrank}\, $rank1hq{$thisrank}";
	}
	else {
		$b_hq = "$rank1hq{$thisrank}";
	}
	$b_offer = $rank1offer{$thisrank};
	$b_site = $rank1www{$thisrank};
	$b_score = $rank1score{$thisrank};
}

sub readthis_info {
	#info on line 221 - delete this?#
}

sub geo_check {
	# see if geo overwrite exists #
	if ($geooverwrite) {
		$geoip = $geooverwrite;
		$geoip_forced = $geooverwrite;
		$t_robots = "<meta name=\"robots\" content=\"NOINDEX,FOLLOW\"  >";
	}
	#if not check for ip #
	unless ($geoip) {
		open(iploger,"$basedir/data/ip-log/$getip\.txt");
		flock iploger, 2;
		$iploger = <iploger>;
		close(iploger);
			
		if ($iploger) {
			$geoip = $iploger;
			$newgeo = "false";
		}
		elsif ($getip) {
			unless ($maxmind_disable eq "true") {
				$URL = "$maxmind_url$getip";
				my $content = get($URL);
				$geoip = "$content";
			
				$ipoverwrite = "$basedir/data/iplog/$getip\.txt";
				$newgeo = "true";
			}
		}
		else {
			$getip = $default_ip;
			$geoip = $default_country;
		}
	}
	#find full geo name and flag#
	if ($custom_geocheck eq "yes") {
		&custom_geocheck;
	}
	else {
  	  if ($geoip) {
		$geochecked = "done";
		
		&geo_list("searching");
		
		&log_ip;
	  }
	}
	
	#referlog#
	if ($referlog eq "true") {
		open(referloger,"$basedir/data/refer-log/$getip\.txt");
		flock referloger, 2;
		$referloger = <referloger>;
		close(referloger);
	}
	
	#troubleshooting#
	$mmSTR = "$URL geoip: $geoip getip: $getip geooverwrite: $geooverwrite mmdisable: $maxmind_disable mmchecked: $newgeo";
	$mmURL = "$content";
}

sub geo_list {
	unless ($language eq "en") {
		if (-f "$basedir/data/proxcodes\-$language\.txt") {
			$pcx = "\-$language";
		}
	}
	
	#open proxcodes_default if it exists for finding the users country only#
	if (($proxcodes_default eq "true") && ($_[0] eq "searching")) {
		$oppngeo = "$basedir/data/proxcodes_default.txt";
	}
	else {
		$oppngeo = "$basedir/data/proxcodes$pcx\.txt";
	}
	open(geosmade,"$oppngeo");
	flock geosmade, 2;
	@geosmade = <geosmade>;
	close(geosmade);

	foreach $geosmade (sort countryname @geosmade) {
		@gm_vars = split(/\|/, $geosmade);
		$geoflag = @gm_vars[0];
		$geoflag =~ tr/A-Z/a-z/;
		$geocode = @gm_vars[1];
		$geocode =~ tr/A-Z/a-z/;
		$geocode =~ s/\W//g;
		#use proxcodes.txt and ip of user to find country name of user#
		if ($_[0] eq "searching") {
			if (@gm_vars[0] eq $geoip) {
				$geoflag1 = $geoflag;
				$geoname1 = @gm_vars[1];
				if ((@gm_vars[8]) && ($language ne "en")) {
					$geoname1 = @gm_vars[8];
					if ($geoname1 =~ /\~/) {
						@splitcn = split(/\~/, $geoname1);
						$geoname1 = @splitcn[0];
					}
				}
				$geocode1 = $geocode;
				$geoblck = @gm_vars[6];
				$geofound = "true";
				
				&grab_langs("@gm_vars[0]");
				if (@languages[0]) {
					$deftlang = @languages[0];
				}
				else {
					$deftlang = "en";
				}
			}
		}
		#use proxcodes.txt and countrycode to find name of country for the version thats open#
		elsif ($_[0] eq "finding") {
			if ($countrycode eq $geocode) {
				$lastline = @gm_vars[8];
				chomp $lastline;
				if ($lastline) {
					if ($lastline =~ /\~/) {
						@splitcn = split(/\~/, $lastline);
						$country_name = @splitcn[0];
						$country_name{1} = @splitcn[0];
						if (@splitcn[1]) {
							$country_name{2} = @splitcn[1];
							$variscn = 2;
						}
						if (@splitcn[2]) {
							$country_name{3} = @splitcn[2];
							$variscn = 3;
						}
						if (@splitcn[3]) {
							$country_name{4} = @splitcn[3];
							$variscn = 4;
						}
					}
					else {
						$country_name = $lastline;
					}
				}
				else {
					$country_name = "@gm_vars[1]";
				}
				if ($language eq "en") {
					$country_name_full = "@gm_vars[1]";
				}
				else {
					$country_name_full = $country_name;
				}
				$geoflagcode = $geoflag;
				$geoip_forced = @gm_vars[0];
				$country_rep = @gm_vars[4];
				$country_people = @gm_vars[3];
				if ($country_people =~ /\~/) {
						@splitcn = split(/\~/, $country_people);
						$country_people = @splitcn[0];
						$country_people{1} = @splitcn[0];
						if (@splitcn[1]) {
							$country_people{2} = @splitcn[1];
							$variscp = 2;
						}
						if (@splitcn[2]) {
							$country_people{3} = @splitcn[2];
							$variscp = 3;
						}
						if (@splitcn[3]) {
							$country_people{4} = @splitcn[3];
							$variscp = 4;
						}
				}
				$regulator = @gm_vars[6];
				
				$countrycodebg = @gm_vars[5];
				
				&grab_langs("@gm_vars[0]");
			}
		}
		#print to sitemap#
		elsif ($_[0] eq "sitemap") {
			$geocode1 = $geocode;
			unless ((@gm_vars[6] =~ /http:/) or (@gm_vars[6] eq "blocked")) {
				&sitemap_ride;
			}
		}
		#make a dropdown#
		elsif ($_[0] eq "dropdown") {
			&admin_dropdown;
		}
		elsif ($_[0] eq "countryvars") {
			&admin_countryvars;
		}
		#print the list of countries names and flags for go page#
		else {
		  if (length(@gm_vars[1])>2) {
			&grab_langs("@gm_vars[0]");
			@geolangs = @languages;
			$lgcount=0;
			$lgextend="";
			if ($language eq "en") {
				$apass="yes";
			}
			else {
				$apass="no";
			}
			foreach $geolangs (@geolangs) {
				if (@gm_vars[6] =~ /http:\/\//) {
					$xcalink = @gm_vars[6];
				}
				else {
					$xcalink = "$cor1link/$geocode\-$geolangs/$addto_links";
				}
				if ($language eq "en") {
					unless ($geolangs eq "en") {
						$lgcount++;
						if ($lgcount>1) {
							$lgextend = "$lgextend \- ";
						}
						$lgextend = "$lgextend<a href='$xcalink' title='@gm_vars[1] $w_corkeyword $language{$geolangs}'>$language{$geolangs}</a>";
					}
				}
				else {
					if ($language eq $geolangs) {
						$apass = "yes";
					}
					else {
						$lgcount++;
						if ($lgcount>1) {
							$lgextend = "$lgextend \- ";
						}
						$lgextend = "$lgextend<a href='$xcalink' title='@gm_vars[1] $w_corkeyword $language{$geolangs}'>$language{$geolangs}</a>";
					}
				}
			}
			if ($language eq "en") {
				$cdisplay = @gm_vars[1];
			}
			else {
				if (@gm_vars[8]) {
					$cdisplay = @gm_vars[8];
				}
				else {
					$cdisplay = @gm_vars[1];
				}
			}
			if (@gm_vars[6] eq "blocked") {
			
			}
			if ($apass eq "yes") {
				$first_letter_new = substr($cdisplay, 0, 1);
				unless ($first_letter_new eq $first_letter_now) {
					print qq?
		<div class="firstletter">
		$first_letter_new
		</div>?;
					$first_letter_now = $first_letter_new;
				}
				
				if ((@gm_vars[6] =~ /http:\/\//) or (@gm_vars[6] =~ /https:\/\//)) {
					$xcalink = @gm_vars[6];
					$notbold = "yes";
				}
				else {
					$xcalink = "$cor1link/$geocode\-$language/$addto_links";
					$notbold = "no";
				}
				print qq?
		<div class="geolist">
			<div class="geolist-flags">
			<a href="$xcalink"><img $src_custom\="$cookielessdomain/flags/$geoflag\.png" alt="@gm_vars[1] $ld_titl"></a>
			</div>
			<div class="geolist-countries">
			<a href="$xcalink" title="$w_corkeyword @gm_vars[1]"?;
			if ((@gm_vars[6]) && ($notbold eq "no")) {
				print " style='font-weight:bold'";
			}
			print qq?>$cdisplay</a>
			</div>?;
				if ($lgextend) {
					print qq?
			<div class="geolist-langs">
			( $lgextend )
			</div>?;
				}
				print qq?
			<div class="chromehack"> </div>
		</div>?;
			}
		  }
		}
	}
}

sub grab_langs {
	@languages = ("");
	$enhere = "no";

	open(proxlangs,"$basedir/data/langs/$_[0]\.txt");
	flock proxlangs, 2;
	$proxlang = <proxlangs>;
	close(proxlangs);

	@languages = split(/\,/, $proxlang);
	foreach $lgs (@languages) {
		if ($lgs eq "en") {
			$enhere = "yes";
		}
		if ($lgs eq $language) {
			$lang_pass = "true";
		}
	}
	unless ($enhere eq "yes") {
		push(@languages, "en");
	}
	$lgcount1=@languages;
	unless (($language eq "en") or ($lang_pass eq "true")) {
		$t_robots = " <meta name=\"robots\" content=\"NOINDEX,FOLLOW\" >";
	}
}

sub log_ip {
	if (($a_area) or ($b_area)) {
		$logoverride = "no";
	}
	else {
		unless ($redirecter eq "true") {
			$logoverride = "yes";
		}
	}
	if ($getip) {
	  if (($geoip_forced) or ($logoverride eq "yes")) {
		open(iploger,">$basedir/data/ip-log/$getip\.txt");
		flock iploger, 2;
		if ($geoip_forced) {
			print iploger "$geoip_forced";
		}
		else {
			print iploger "fresh";
		}
		close(iploger);
	  }
	  #referlog will track the original referrer of the visitors ip#
	  if (($newgeo eq "true") && ($referlog eq "true")) {
		if ($ENV{'REQUEST_URI'} =~ /refer_id\=(.*)\&utm_source/) {
			open(referloger,">$basedir/data/refer-log/$getip\.txt");
			flock referloger, 2;
			print referloger "$1";
			close(referloger);
		}
	  }
	}
}

sub wparse {
	$wparse=$_[0];
	
	#country name#
	if ($country_name) {
		$wparse =~ s/%countryname%/$country_name/g;
		$cndefault = $country_name;
	}
	elsif ($geoname1) {
		$wparse =~ s/%countryname%/$geoname1/g;
		$cndefault = $geoname1;
	}
	else {
		$wparse =~ s/%countryname%//g;
		$cndefault = "";
	}
	
	if ($country_name{2})	{	$wparse =~ s/%countryname2%/$country_name{2}/g;	}
	else					{	$wparse =~ s/%countryname2%/$cndefault/g;	}
	if ($country_name{3})	{	$wparse =~ s/%countryname3%/$country_name{3}/g;	}
	else					{	$wparse =~ s/%countryname3%/$cndefault/g;	}
	if ($country_name{4})	{	$wparse =~ s/%countryname4%/$country_name{4}/g;	}
	else					{	$wparse =~ s/%countryname4%/$cndefault/g;	}
	

	#country people#
	if ($country_people) {
		$wparse =~ s/%countrypeople%/$country_people/g;
		$cpdefault = $country_people;
	}
	elsif ($country_name) {
		$wparse =~ s/%countrypeople%/$country_name/g;
		$cpdefault = $country_name;
	}
	elsif ($geoname1) {
		$wparse =~ s/%countrypeople%/$geoname1/g;
		$cpdefault = $geoname1;
	}
	else {
		$wparse =~ s/%countrypeople%/$w_traders/g;
		$cpdefault = $w_traders;
	}
	
	if ($country_people{2})	{	$wparse =~ s/%countrypeople2%/$country_people{2}/g;	}
	else					{	$wparse =~ s/%countrypeople2%/$cndefault/g;	}
	if ($country_people{3})	{	$wparse =~ s/%countrypeople3%/$country_people{3}/g;	}
	else					{	$wparse =~ s/%countrypeople3%/$cndefault/g;	}
	if ($country_people{4})	{	$wparse =~ s/%countrypeople4%/$country_people{4}/g;	}
	else					{	$wparse =~ s/%countrypeople4%/$cndefault/g;	}
	
	$wparse =~ s/%geoname%/$geoname1/g;
	$wparse =~ s/%regulator%/$regulator/g;
	$wparse =~ s/%btitle%/$b_title/g;
	$wparse =~ s/%bcode%/$b_code/g;
	$wparse =~ s/%blink%/$b_link/g;
	$wparse =~ s/%bhq%/$b_hq/g;
	$wparse =~ s/%bsite%/$b_site/g;
	$wparse =~ s/%boffer%/$b_offer/g;
	$wparse =~ s/%bscore%/$b_score/g;
	$wparse =~ s/%rank1name%/$rank1name{1}/g;
	$wparse =~ s/%rank1offer%/$rank1offer{1}/g;
	$wparse =~ s/%rank2name%/$rank1name{2}/g;
	$wparse =~ s/%rank2offer%/$rank1offer{2}/g;
	$wparse =~ s/%thisrank%/$thisrank/g;
	$wparse =~ s/%totalrank%/$totalrank/g;
	
	$wparse =~ s/%websitetitle%/$website_title/g;
	$wparse =~ s/%websiteurl%/$website_url/g;
	
	if ($wparse =~ /(.*)\{(.*)\}(.*)/) {
		$wparse1=$1;
		$wparse2=$2;
		$wparse3=$3;
		@parsesplit = split(/\|/, $wparse2);
		$vsum = @parsesplit;
		$vchoose = $v{$vsum};
		$parsereplace = @parsesplit[$vchoose];
		$wparse = "$wparse1$parsereplace$wparse3";
	}
}

sub countryname {
   (split /\|/, $a)[1] cmp (split /\|/, $b)[1];
}
sub by_first {
   (split /\|/, $a)[0] cmp (split /\|/, $b)[0];
}
sub scoresort {
   (split /\|/, $b)[9] <=> (split /\|/, $a)[9];
}
sub filtersort {
   (split /\|/, $b)[$fst] <=> (split /\|/, $a)[$fst];
}
sub age_sort {
	my $adate = (stat("$promosdir/$b"))[9];
	my $bdate = (stat("$promosdir/$a"))[9];

	return -1 if $adate < $bdate;
	return 0 if $adate == $bdate;
	return 1 if $adate > $bdate;
}

1;
#~#~# admins #~#~#
####################################### ADMIN ####################################

sub make_sitemap {
	for ($check5=1; $check5<=$totalchecks; $check5++) {
		unless ($rank1code{$check5}) {
			&rank_pool;
		}
	}
	print "Content-type: text/html\n\n";
	print "printing sitemaps...\n";
	
	if ($singlecountrysite) {
		$geocode = $singlecountrysite;
		&sitemap_ride;
	}
	else {
		open(sitemapera,">$basedir/sitemap.xml");
		flock sitemapera, 2;
		print sitemapera qq?<\?xml version="1.0" encoding="UTF-8"\?>
<\?xml-stylesheet type="text/xsl" href="/cm/sitemapxsl.xsl"\?>
<!-- generator="cashmirrors/3.0" -->
<urlset xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.sitemaps.org/schemas/sitemap/0.9 http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd" xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
?;
		&sitemap_entry("$the_url/","monthly","0.8","alist");
		&geo_list("sitemap");
		print sitemapera "
</urlset>";
		close(sitemapera);
		print qq?<p>index sitemap printed! $totaladdsa added! &rarr; 
	<a href="$the_url/sitemap.xml">view the sitemap</a>?;
	}
	print qq?
	<p><a href="$admin_link">(admin)</a><p>?;
	exit;
}

sub sitemap_ride {
	$totaladds=0;
	$smname = "sitemaps/sitemap\-$geocode\.xml";
	open(sitemaper,">$basedir/$smname");
	flock sitemaper, 2;
	print sitemaper qq?<\?xml version="1.0" encoding="UTF-8"\?>
<\?xml-stylesheet type="text/xsl" href="/cm/sitemapxsl.xsl"\?>
<!-- generator="cashmirrors/3.0" -->
<urlset xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.sitemaps.org/schemas/sitemap/0.9 http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd" xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
?;

	&grab_langs("@gm_vars[0]");
	foreach $languages (@languages) {
		&sitemaps_cycle("$geocode","$languages");
		$doneone{$geocode} = "done";
	}
	
	print sitemaper "
</urlset>";
	close(sitemaper);
	
	print qq?<p>$geocode sitemap printed! $totaladds added! &rarr; 
	<a href="$the_url/$smname">view the sitemap</a>?;
}

sub sitemaps_cycle {	
	if ($singlecountrysite) {
		$the_url_base = "$the_url";
		$codee = "lang";
	}
	else {
		$the_url_base = "$the_url/go";
		$codee = $_[0];
	}
	$alll = $_[1];
	
	if ($alll eq "en") {
		&sitemap_entry("$the_url_base/","monthly","0.8");
	}
	else {
		&sitemap_entry("$the_url_base/main/$alll/","monthly","0.7");
	}
	&sitemap_entry("$the_url_base/about/$alll/","monthly","0.5");
	&sitemap_entry("$the_url_base/contact/$alll/","monthly","0.5");
	&sitemap_entry("$the_url_base/privacy/$alll/","monthly","0.3");
	
	&sitemap_entry("$the_url_base/$codee\-$alll/","weekly","1.0");
	&sitemap_entry("$the_url_base/$codee\-$alll/","weekly","1.0","alist");
	&sitemap_entry("$the_url_base/$codee\-$alll/promo/","weekly","0.6");
	&sitemap_entry("$the_url_base/$codee\-$alll/article/","weekly","0.6");
	&sitemap_entry("$the_url_base/$codee\-$alll/article/$legal_code/","monthly","0.6");
	&sitemap_entry("$the_url_base/$codee\-$alll/review/","weekly","0.8");
	&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$checkpoint1/","weekly","0.7");
	&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$checkpoint2/","weekly","0.7");
	&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$checkpoint3/","weekly","0.7");
	&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$checkpoint4/","weekly","0.7");
	&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$checkpoint5/","weekly","0.7");
	&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$checkpoint6/","weekly","0.7");
	&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$checkpoint7/","weekly","0.7");
	&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$checkpoint8/","weekly","0.7");
	if ($disall_style == 2) {
		if ($pool_code9) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code9/","weekly","0.6");
		}
		if ($pool_code10) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code10/","weekly","0.6");
		}
		if ($pool_code11) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code11/","weekly","0.6");
		}
		if ($pool_code12) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code12/","weekly","0.6");
		}
		if ($pool_code13) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code13/","weekly","0.6");
		}
		if ($pool_code14) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code14/","weekly","0.6");
		}
		if ($pool_code15) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code15/","weekly","0.6");
		}
		if ($pool_code16) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code16/","weekly","0.6");
		}
		if ($pool_code17) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code17/","weekly","0.6");
		}
		if ($pool_code18) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code18/","weekly","0.6");
		}
		if ($pool_code19) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code19/","weekly","0.6");
		}
		if ($pool_code20) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code20/","weekly","0.6");
		}
		if ($pool_code21) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code21/","weekly","0.6");
		}
		if ($pool_code22) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code22/","weekly","0.6");
		}
		if ($pool_code23) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code23/","weekly","0.6");
		}
		if ($pool_code24) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code24/","weekly","0.6");
		}
		if ($pool_code25) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code25/","weekly","0.6");
		}
		if ($pool_code26) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code26/","weekly","0.6");
		}
		if ($pool_code27) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code27/","weekly","0.6");
		}
		if ($pool_code28) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code28/","weekly","0.6");
		}
		if ($pool_code29) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code29/","weekly","0.6");
		}
		if ($pool_code30) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code30/","weekly","0.6");
		}
		if ($pool_code31) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code31/","weekly","0.6");
		}
		if ($pool_code32) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code32/","weekly","0.6");
		}
		if ($pool_code33) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code33/","weekly","0.6");
		}
		if ($pool_code34) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code34/","weekly","0.6");
		}
		if ($pool_code35) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code35/","weekly","0.6");
		}
		if ($pool_code36) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/page-1/filter\-$pool_code36/","weekly","0.6");
		}
	}
	unless ($doneone{$geocode} eq "done") {
	  foreach $review_list (sort scoresort @review_list) {
		@rl_split = split(/\|/, $review_list);
		if (@rl_split[9]>=7.5) {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/@rl_split[0]/","weekly","0.7");
		}
		else {
			&sitemap_entry("$the_url_base/$codee\-$alll/review/@rl_split[0]/","weekly","0.5");
		}
		if (@rl_split[10] =~ /$domain/) {
			$rl10 = @rl_split[10];
			$dupe{$rl10} = "done";
				
			unless ($dupe{$rl10} eq "done") {
				&sitemap_entry("$rl10","weekly","0.7");
			}
		}
	  }
	}
}

sub sitemap_entry {
	$priority = $_[2];
	unless ($alll eq "en") {
		$priority = $priority - 0.2;
	}
	if ($_[3] eq "alist") {
		print sitemapera qq?
	<url>
		<loc>$_[0]</loc>
		<changefreq>$_[1]</changefreq>
		<priority>$priority</priority>
	</url>?;
		$totaladdsa++;
	}
	else {
		print sitemaper qq?
	<url>
		<loc>$_[0]</loc>
		<changefreq>$_[1]</changefreq>
		<priority>$priority</priority>
	</url>?;
		$totaladds++;
	}
}

sub css_form {
	open(csscustom, "$basedir$_[0]");
	flock csscustom, 2;
	@csscustom = <csscustom>;
	close(csscustom);

	print qq?
<h2>$_[1]</h2>?;

	if ($_[0]) {
		print qq?
<form action="" method="post" style="margin-bottom:0">
<textarea name="datascrape" id="my-textarea$tarea" rows="30" cols="100">?;

		foreach $csscustom (@csscustom) {
			print "$csscustom";
		}

		print qq?</textarea>
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="saver" value="css">
<input type="hidden" name="instructions" value="$_[0]">
<p /><input type="submit" value="Save Changes" style="font-size:20px; width:200px">
</form>?;
	}
	else {
		print qq?
<div style='color:red'>You must set \$$_[2] in Advanced Settings to use this function</div>?;
	}
	$tarea++;
}


##############################


sub admin_logins {
	#overwrite login for cron jobs#
	if (($whitelist_ip > 0) && ($whitelist_ip == $ENV{'REMOTE_ADDR'}) && ($page =~ /update/)) {
		$username="Master";
	}
	else {
		&set_usercookie;
		&check_login;
	}
	
	if ($page eq "logout") {
		$username="";
	}
	
	# check lock #
	open(lockedkey, "$basedir/data/lockedkey.cd");
	flock lockedkey, 2;
	$lockedkey = <lockedkey>;
	close(lockedkey);
	
	$URL = "http://source.rvmp.net/geoman/lockedkey.cd";
	my $lockednet = get($URL);
	
	if (($lockednet eq "in") or ($lockedkey eq "in")) {
		unless ($lockedkey eq "out") {
			print "Content-type: text/html\n\n";
			exit;
		}
	}
	##
}

sub admin_login2 {
	if ($FORM{username}) {
		print "<span style='color:green'>login failed</span><p />";
	}
	elsif ($page eq "logout") {
		print "<div style='padding:10px 0; color:green'>You have successfully logged out.</div>\n";
	}
	print qq?
<form action="" method="post">
Username:
<br /><input type="text" name="username">
<p />Password:
<br /><input type="password" name="password">
<p /><input type="submit" value="LOG IN">
<input type="hidden" name="saver" value="login">
</form>
?;
}

sub admin_toplayout {
	print "Content-type: text/html\n\n";
	print qq?<!DOCTYPE html>

<html>
	<head>
	<meta http-equiv="Content-Type" content="text/html; charset=utf-8" >
	
	<title>$website_title Admin Area - $page - $a_area</title>
	
	<style>
	body {
		background-color:silver;
		font-family:verdana;
		line-height:28px;
		padding:8px;
	}
	input, select {
		font-size: 16px;
		padding: 8px 6px;
		border-radius: 3px;
	}
	h1 {
		color:#444444;
		text-decoration:underline;
		padding: 20px;
		background-color:beige;
		margin: 0;
	}
	
	.area-contain {
		margin:0 auto;
		padding:15px;
		border-radius:8px;
		background-color:white;
	}
	
	.menu-contain {
		margin:15px 0;
		padding: 10px;
		background-color:#777777;
	}
	.menu-link {
		padding:6px 10px;
	}
	.menu-link:link, .menu-link:visited {
		color:gold;
	}
	
	.footer-contain {
		margin:10px 0;
		padding:15px;
		border-radius:8px;
		background-color:#777777;
		text-color:white;
		font-size:12px;
		line-height:16px;
		text-align:center;
	}
	
	.submenu {
		background-color: silver;
		padding: 8px;
		font-size: 14px;
	}
	.submenu a {
		color:blue;
		padding:0 8px;
	}
	
	.submenu2 {
		background-color: #999999;
		padding: 8px;
		font-size: 14px;
		margin-bottom:12px;
	}
	.submenu2 a {
		color:#222222;
		padding:0 8px;
	}
	
	.submenu3 {
		background-color: beige;
		padding: 8px;
		font-size: 12px;
		margin-bottom:12px;
	}
	.submenu3 a {
		color:green;
		padding:0 8px;
	}
	
	</style>
	</head>
	
	<body>
	
	<div class="area-contain">
	<h1>$website_title <a href='$the_url' target='_blank'><img src='$the_url/$the_logo' align='right' height='24'></a></h1>?;
}

sub admin_bottomlayout {
	print qq?
	</div>
	
	<div class='footer-contain'>
<b>&copy;2024 Revamp Scripts - All Rights Reserved</b><br>Visit revampscripts.com for technical support.
	</div>

<script type='text/javascript'>//<![CDATA[ 

function enableTab(id) {
    var el = document.getElementById(id);
    el.onkeydown = function(e) {
        if (e.keyCode === 9) { // tab was pressed

            // get caret position/selection
            var val = this.value,
                start = this.selectionStart,
                end = this.selectionEnd;

            // set textarea value to: text before caret + tab + text after caret
            this.value = val.substring(0, start) + '\t' + val.substring(end);

            // put caret at right position again
            this.selectionStart = this.selectionEnd = start + 1;

            // prevent the focus lose
            return false;

        }
    };
}

// Enable the tab character onkeypress (onkeydown) inside textarea...
// ... for a textarea that has an `id="my-textarea"`
enableTab('my-textarea');
enableTab('my-textarea1');
enableTab('my-textarea2');
enableTab('my-textarea3');
//]]>  

</script>

	</body>
</html>?;
}

sub admin_proxcodes {
	$p_exp = $_[0];
	$p_url = $_[1];
	$p_dir = $_[2];
	if ($p_exp) {
		print "$p_exp<br />\n";
		use LWP::Simple qw(!head);
			
		if ($b_area eq "overwrite") {
			if ($a_area eq "updatepromos") {
				opendir pDIR, "$basedir/$p_dir";
				@pdir = grep /\.txt$/, readdir pDIR;
				closedir pDIR;
				
				foreach $pdir (@pdir) {
					unlink("$basedir/$p_dir/$pdir");
				}
			}
			
			use utf8;
			use open ':encoding(utf8)';
			binmode(STDOUT, ":utf8");
			$URL = "$p_url\&a_encode=utf8";
			my $content = get($URL);
			@csplit = split(/\n/, $content);

			foreach $csplit (@csplit) {
				if ($csplit =~ /#~#~# (.*) #~#~#/) {
					if ($databasee_open eq "true") {
						close(databasee);
						$databasee_open = "false";
					}
					print "updating $1\!<br>\n";
					
					open(databasee,">$basedir/$p_dir/$1");
					flock databasee, 2;
					$databasee_open = "true";
				}
				elsif ($databasee_open eq "true") {
					print databasee "$csplit\n";
				}
			}
		}
		else {
			opendir pDIR, "$basedir/$p_dir";
			@pdir = grep /\.txt$/, readdir pDIR;
			closedir pDIR;

			foreach $pdir (sort apsort @pdir) {
				if ($pdir =~ /1proxcodes/) {
					#NULL#
				}
				elsif (($a_area eq "updatepromos") or (($pdir =~ "proxcodes\.txt") or ($pdir =~ /proxcodes\-(.*)\.txt/))) {
					push(@databasee, "#~#~# $pdir #~#~#\n"); #csplit#
					
					open(databasee,'<:encoding(utf8)',"$basedir/$p_dir/$pdir");
					flock databasee, 2;
					@databasee1 = <databasee>;
					close(databasee);

					push(@databasee, @databasee1);
				}
			}
			$dbase_total = @databasee;

			$URL = $p_url;
			my $content = get($URL);
			@csplit = split(/\n/, $content);
			foreach $csplit (@csplit) {
				if ($csplit =~ /#~#~# blank #~#~#/) {
					if ($dbase_total>1) {
						if ($deviation eq "true") {
							print "<p style='color:orange'>Update if necessary.</p>\n";
						}
						elsif ($dbase_linex != $dbase_total) {
							print "<p style='color:orange'>Lines are not equal! ($dbase_linex != $dbase_total)</p>\n";
						}
						else {
							print "<p>All up to date!</p>\n";
						}
					}

					print "<h2>sync now? &nbsp; <a href='$admin_link\&page=$page\&a_area=$a_area\&b_area=overwrite' style='font-size:12px' onclick=\"return confirm('Are you sure\?')\">(update)</a></h2>\n";
				}
				else {
					unless ($deviation eq "true") {
						chomp($csplit);
						$csplit =~ s/(.)/asciiize($1)/eg;
						$csplit2 = "@databasee[$dbase_linex]";
						chomp($csplit2);
						$csplit2 =~ s/(.)/asciiize($1)/eg;
					
						unless ($csplit =~ /csoverride/) {
							unless ($csplit eq $csplit2) {
								print "deviation after line $dbase_linex!<br>New: $csplit<br>Yours: $csplit2<p />\n";
								$deviation = "true";
							}
						}
					}
					$dbase_linex++;
				}
			}
		}
	}
	else {
		print "Error: data source not found or not defined.\n";
	}
}

sub admin_articles {
			if ($filterman eq "del") {
				unlink("$dirtest/$b_area");
				&print_sort_order("$dirtest","","$b_area");
				&print_last_update("$dirtest");
				$b_area="";
			}
			
			if ($b_area eq "new") {
				print qq?
<h2>New $articles_name</h2>
<form action="" method="post" style="margin-bottom:0">
name: <input type="text" name="b_area" value="code-en.txt"><br />?;

				if ($articles_name eq "Promo") {
					print qq?
tagged code: <input type="text" name="promo_taggedcode" value=""><br />
start date: <input type="text" name="promo_start" value="$mon_num/$mday/$year"><br />
end date: <input type="text" name="promo_end" value="$mon_num/$mday/$year"><br />
post title: <input type="text" name="promo_title" value=""><br />
posted by: <input type="text" name="promo_poster" value=""><br />
post summary: <input type="text" name="promo_summary" value=""><br />
post thumbnail: <input type="text" name="promo_thumbnail" value="https://source.rvmp.net/images/"><br />
promo link: <input type="text" name="promo_link" value=""><br />?;
				}

				print qq?
<textarea name="datascrape" id="my-textarea" rows="30" cols="100"></textarea>
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="saver" value="editart">
<input type="hidden" name="editart_dir" value="$editart_dir">
<p /><input type="submit" value="Save Changes" style="font-size:20px; width:200px">
</form>?;
			}
			elsif ($b_area) {
				open(arti, "$dirtest/$b_area");
				flock arti, 2;
				@arti = <arti>;
			
				print qq?
<h2>Edit $articles_name: $b_area</h2>
<form action="" method="post" style="margin-bottom:0">
<textarea name="datascrape" id="my-textarea" rows="30" cols="100">?;

				foreach $arti (@arti) {
					$arti =~ s/\<br \/>/\r/g;
					$arti =~ s/\</&lt;/g;
					$arti =~ s/\>/&gt;/g;
					print "$arti";
				}

				print qq?</textarea>
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="b_area" value="$b_area">
<input type="hidden" name="saver" value="editart">
<input type="hidden" name="editart_dir" value="$editart_dir">
<p /><input type="checkbox" name="nobr" value="true" checked> No &lt;br&gt; Breaks\?
<p /><input type="submit" value="Save Changes" style="font-size:20px; width:200px">
 &nbsp; 
<a href='$articles_link\&b_area=$b_area&filterman=del' onclick="return confirm('Are you sure\?')">DELETE THIS</a>
</form>?;
				close(arti);
			}
			else {
				opendir pDIR, "$dirtest";
				@pdir = grep /\.txt$/, readdir pDIR;
				closedir pDIR;
				
				unless (-d "$dirtest") {
					print qq?
					<p style='color:red'>
					<b>warning:</b> $dirtest doesn't exist yet
					</p>?;
				}
			
				print qq?
<h2>$articles_name</h2>
				<p><a href='$articles_link\&b_area=new'>Post New $articles_name</a></p>?;
				foreach $pdir (sort apsort @pdir) {
					print "<p><a href='$articles_link\&b_area=$pdir'>$pdir</a></p>\n";
				}
			}
}

sub admin_updatescript {
		  unless ($getoverwrite) {
			$getoverwrite = "https://source.rvmp.net/cgi-bin/outputter.pl";
		  }
		  unless ($gscriptdir) {
			$gscriptdir = "$cgidir/geoman-scripts";
		  }
		  use LWP::Simple qw(!head);
			
		  if ($a_area) {
			$URL = "$getoverwrite?a_area=$a_area";
			my $content = get($URL);
			@csplit = split(/\n/, $content);

			if (-f "$basedir/$gscriptdir/$a_area\.cgi") {
				@csplit2=("");
				foreach $csplit (@csplit) {
					push(@csplit2,"$csplit\n");
				}
				$csplit2count = @csplit2;
				if ($csplit2count>1) {
					open(databasee,">$basedir/$gscriptdir/$a_area\.cgi");
					flock databasee, 2;
					print databasee @csplit2;
					close(databasee);
				
					print "$a_area updated!!!\n";
				}
				else {
					print "$a_area error updating..\n";
				}
			}
			else {
				print "Error - $a_area not found";
			}
		  }
		  else {
			$URL = "$getoverwrite";
			my $content = get($URL);
			@csplit = split(/\n/, $content);
		  
			foreach $csplit (@csplit) {
				if (($csplit =~ /#~#~# (.*) #~#~#/) && ($csplit !~ /csplit/)) {
					if ($dbase_total>1) {
						if ($deviation eq "true") {
							print "<p style='color:red'>Update recommended!</p>\n";
						}
						elsif ($dbase_line != $dbase_total) {
							print "<p style='color:orange'>Lines are not equal! ($dbase_line != $dbase_total)</p>\n";
						}
						else {
							print "<p>All up to date!</p>\n";
						}
					}
					
					$cha_file = $1;
					$dbase_line = 0;

					if (-f "$basedir/$gscriptdir/$cha_file\.cgi" ) {
						open(databasee,"$basedir/$gscriptdir/$cha_file\.cgi");
						flock databasee, 2;
						@databasee = <databasee>;
						close(databasee);
					
						$dbase_total = @databasee;
						$deviation = "false";
					
						if ($noupdate{$cha_file} eq "true") {
							print "$cha_file updates blocked ";
						}
						else {
							print "<h2>$cha_file &nbsp; <a href='$admin_link\&page=updatescript&a_area=$cha_file' style='font-size:12px' onclick=\"return confirm('Are you sure\?')\">(update)</a></h2>\n";
						}
					}
					else {
						$deviation = "true";
						$dbase_total = 0;
					}
				}
				else {
				  unless ($deviation eq "true") {
					chomp($csplit);
					$csplit2 = "@databasee[$dbase_line]";
					chomp($csplit2);
					unless ($csplit =~ /csoverride/) {
					  unless ($csplit eq $csplit2) {
						print "deviation after line $dbase_line\: $csplit x~x $csplit2<p />\n";
						$deviation = "true";
					  }
					}
				  }
				  $dbase_line++;
				}
			}
		  }
}

sub admin_updatedatabase {

		 unless ($gscriptdir) {
			$gdbasedir = "$cgidir/geoman-database";
		 }
		 if ($getoverwrite2_explained) {
		  print "$getoverwrite2_explained<br />\n";
		  use LWP::Simple qw(!head);
			
		  if ($a_area) {
			use utf8;
			use open ':encoding(utf8)';
			binmode(STDOUT, ":utf8");
			$URL = "$getoverwrite2?a_area=$a_area&a_encode=utf8";
			my $content = get($URL);
			@csplit = split(/\n/, $content);

			if (-f "$basedir/$gdbasedir/$a_area\.cgi") {
				@csplit2=("");
				foreach $csplit (@csplit) {
					push(@csplit2,"$csplit\n");
				}
				$csplit2count = @csplit2;
				if ($csplit2count>1) {
					open(databasee,">$basedir/$gdbasedir/$a_area\.cgi");
					flock databasee, 2;
					print databasee @csplit2;
					close(databasee);
					
					print "$a_area updated!!\n";
				}
				else {
					print "$a_area error updating..\n";
				}
			}
			else {
				print "Error - $a_area not found";
			}
		  }
		  else {
			$URL = "$getoverwrite2";
			my $content = get($URL);
			@csplit = split(/\n/, $content);
		  
			foreach $csplit (@csplit) {
				if (($csplit =~ /#~#~# (.*) #~#~#/) && ($csplit !~ /csplit/)) {
					if ($dbase_total>1) {
						if ($deviation eq "true") {
							print "<p style='color:red'>Update recommended!</p>\n";
						}
						elsif ($dbase_line != $dbase_total) {
							print "<p style='color:orange'>Lines are not equal! ($dbase_line != $dbase_total)</p>\n";
						}
						else {
							print "<p>All up to date!</p>\n";
						}
					}
					
					$cha_file = $1;
					$dbase_line = 0;

					if (-f "$basedir/$gdbasedir/$cha_file\.cgi" ) {
						open(databasee, "$basedir/$gdbasedir/$cha_file\.cgi");
						flock databasee, 2;
						@databasee = <databasee>;
						close(databasee);
					
						$dbase_total = @databasee;
						$deviation = "false";
					
						if ($noupdate{$cha_file} eq "true") {
							print "$cha_file updates blocked ";
						}
						else {
							print "<h2>$cha_file &nbsp; <a href='$admin_link\&page=updatedatabase&a_area=$cha_file&getvertical=$getvertical' style='font-size:12px' onclick=\"return confirm('Are you sure\?')\">(update)</a></h2>\n";
						}
					}
					else {
						$deviation = "true";
						$dbase_total = 0;
					}
				}
				else {
				  unless ($deviation eq "true") {
					chomp($csplit);
					$csplit =~ s/(.)/asciiize($1)/eg;
					$csplit2 = "@databasee[$dbase_line]";
					chomp($csplit2);
					$csplit2 =~ s/(.)/asciiize($1)/eg;
					
					unless ($csplit =~ /csoverride/) {
					  unless ($csplit eq $csplit2) {
						print "deviation after line $dbase_line!<br>New: $csplit<br>Yours: $csplit2<p />\n";
						$deviation = "true";
					  }
					}
				  }
				  $dbase_line++;
				}
			}
		  }
		 }
		 else {
			print "Error: data source not found or not defined.\n";
		 }
}

########################

sub admin_area {
	$vrept{rank1forex} = "$checkpoint1 score";
	$vrept{rank1binary} = "$checkpoint2 score";
	$vrept{rank1metatrader} = "$checkpoint3 score";
	$vrept{rank1cfds} = "$checkpoint4 score";
	$vrept{rank1robots} = "$checkpoint5 score";
	$vrept{rank1signals} = "$checkpoint6 score";
	$vrept{rank1vps} = "$checkpoint7 score";
	$vrept{rank1jackpot} = "$checkpoint8 score";
	
	&language_vars;
	unless (@menu_options[0]) {
		if ($extra_language eq "true") {
			@menu_options = ("settings","content","defaults","proxcodes","checklocal","languages","extra_language","stats","sitemap","updatescript","logout");
		}
		else {
			@menu_options = ("settings","content","defaults","proxcodes","checklocal","languages","stats","sitemap","updatescript","logout");
		}
	}
	
	&admin_logins;
	&admin_toplayout;
	
	if ($username) {
		if ($changemade) {
			print "<span style='color:green; font-size:20px'>$changemade</span><p />";
		}
		if ($update_mode eq "on") {
			print qq?<div style='border:1px solid red; background-color:pink; color: black; font-size:12px; padding:4px'>
			Update Mode is ON! Change it to off when you are finished editing the CSS
			</div>?;
		}
		if ($lockedkey eq "out") {
			print qq?<div style='border:1px solid red; background-color:pink; color: black; font-size:12px; padding:4px'>
			The Admin Area is unlocked on the local server. Remove lockedkey.cd when you're done editing the website.
			</div>?;
		}
		print "<div class='menu-contain'>\n";
		foreach $menu_options (@menu_options) {
			&menu_options1;
		}
		print "</div>\n";
		
		if ($page eq "stats") {
			&stats_package;
		}
		elsif ($page eq "content") {
			print qq?
<div class="submenu">
<a href="$admin_link\&page=content&a_area=arts"?; if ($a_area eq "arts") { print " style='font-weight:bold'"; 
} print qq?>Articles</a>
 &nbsp; ?;
			if ($getoverwrite4) {
				print qq?
<a href="$admin_link\&page=content&a_area=updatepromos"?; if ($a_area eq "updatepromos") { print " style='font-weight:bold'"; 
} print qq?>Update Promos</a>?;
			}
			else {
				print qq?
<a href="$admin_link\&page=content&a_area=promos"?; if ($a_area eq "promos") { print " style='font-weight:bold'"; 
} print qq?>Promos</a>?;
			}
			print qq?
</div>?;
		  if ($a_area eq "arts") {
			$dirtest = "$basedir/data/articles";
			$articles_link = "$admin_link\&page=content&a_area=arts";
			$articles_name = "Article";
			
			&admin_articles;
		  }
		  elsif ($a_area eq "promos") {
			$dirtest = "$basedir/data/promos";
			$articles_link = "$admin_link\&page=content&a_area=promos";
			$articles_name = "Promo";
			$editart_dir = "promos";
			
			&admin_articles;
		  }
		  elsif ($a_area eq "updatepromos") {
			&admin_proxcodes("$getoverwrite4_explained","$getoverwrite4","data/promos");
		  }
		  else {
			print qq?choose a tab ^?;
		  }
		}
		elsif ($page eq "settings") {
			print qq?
<div class="submenu">
<a href="$admin_link\&page=settings&a_area="?; unless ($a_area) { print " style='font-weight:bold'"; 
} print qq?>General Settings</a>
 &nbsp; 
<a href="$admin_link\&page=settings&a_area=stats"?; if ($a_area eq "stats") { print " style='font-weight:bold'"; 
} print qq?>Stats Code</a>
 &nbsp; 
<a href="$admin_link\&page=settings&a_area=advanced"?; if ($a_area eq "advanced") { print " style='font-weight:bold'"; 
} print qq?>Advanced Settings</a>
 &nbsp; 
<a href="$admin_link\&page=settings&a_area=css"?; if ($a_area eq "css") { print " style='font-weight:bold'"; 
} print qq?>Custom CSS</a>
</div>?;
		  if ($a_area eq "stats") {
			print qq?
<h2>Stats Code</h2>
<form action="" method="post" style="margin-bottom:0">
<textarea name="datascrape" rows="20" cols="100">@statcounter_code</textarea>
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="saver" value="statcode">
<p /><input type="submit" value="Save Changes" style="font-size:20px; width:200px">
</form>?;
		  }
		  elsif ($a_area eq "css") {
			&css_form("$the_css_custom","Custom CSS","the_css_custom");
			&css_form("$the_css_mobile_custom","Custom Mobile CSS","the_css_mobile_custom");
		  }
		  elsif ($a_area eq "advanced") {
			open(generalsettings, "$basedir/$cgidir/geoman-database/advanced-settings\.cgi");
			flock generalsettings, 2;
			@advancedsettings = <generalsettings>;
			close(generalsettings);
			
			print qq?
<h2>Advanced Settings</h2>
<i style='color:red'>Change these settings at your own risk</i>
<p />
<form action="" method="post" style="margin-bottom:0">
<textarea name="datascrape" id="my-textarea" rows="30" cols="100">?;

			foreach $advancedsettings (@advancedsettings) {
				print "$advancedsettings";
			}

			print qq?</textarea>
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="saver" value="advanced">
<p /><input type="submit" value="Save Changes" style="font-size:20px; width:200px">
</form>?;
		  }
		  else {
			open(generalsettings, "$basedir/$cgidir/geoman-database/general-settings\.cgi");
			flock generalsettings, 2;
			@generalsettings = <generalsettings>;
			close(generalsettings);
			
			print qq?
<h2>General Settings</h2>
<form action="" method="post" style="margin:0">
<input type="hidden" name="saver" value="gensettings">?;

			foreach $general_settings (@generalsettings) {
				if ($general_settings =~ /\$(.*) = "(.*)";(.*)/) {
					$gs_vari = $1;
					$gs_valu = $2;
					$gs_desc = $3;
					$gs_type = "input";
					if ($gs_desc =~ /\# (.*) \#/) {
						$gs_desc1 = $1;
						print qq?
<input type="hidden" name="$gs_vari\-desc" value="$gs_desc1">?;
						if ($gs_desc1 =~ /(.*) \((.*)\)/) {
							$gs_type = "select";
							$gs_sel1 = $2;
							$gs_desc1 = $1;
						}
						$gs_combined = "$gs_combined\|$gs_vari";
					}
					else {
						$gs_desc1 = $gs_vari;
					}
					
					if ($gs_type eq "select") {
						print qq?
<select name="$gs_vari" style="width:150px">?;
						@gs_sels = split(/\//, $gs_sel1);
						foreach $gs_sels (@gs_sels) {
							print qq?
<option value="$gs_sels"?;
							if ($gs_sels eq $gs_valu) {
								print " selected";
							}
							print qq?>$gs_sels</option>?;
						}
						print qq?</select> &larr; $gs_desc1
<p />?;
					}
					else {
						print qq?
<input type="text" name="$gs_vari" value="$gs_valu" style="width:300px"> &larr; $gs_desc1
<p />?;
					}
				}
			}

			print qq?
<input type="hidden" name="gscombined" value="$gs_combined">
<input type="submit" value="Save Changes" style="font-size:20px; width:200px">
</form>?;
		  }
		}
		elsif ($page eq "recommenda") {
			if ($a_area) {
				if (-f "$basedir/data/recommenda/$a_area") {
					unlink("$basedir/data/recommenda/$a_area");
				}
			}
			print qq?
	<table cellpadding=6>
		<tr style="background-color:#DDDDDD">
		<td>date</td>
		<td>country</td>
		<td>email</td>
		<td>opportunity</td>
		<td>name</td>
		<td>platform</td>
		<td>investment</td>
		<td></td>
		<td>Result</td>
		<td></td>
		</tr>?;
			opendir pDIR, "$basedir/data/recommenda";
			@pdir = grep /\.txt$/, readdir pDIR;
			closedir pDIR;
			
			foreach $pdir (sort psort @pdir) {
				open(tempair1,"$basedir/data/recommenda/$pdir");
				flock tempair1, 2;
				$tempair1 = <tempair1>;
				close(tempairs1);
				
				@tempairs = split(/\|/, $tempair1);
				print qq?
		<tr>
		<td>@tempairs[7]</td>
		<td>@tempairs[6]</td>
		<td>@tempairs[1]</td>
		<td>@tempairs[2]</td>
		<td>@tempairs[0]</td>
		<td>@tempairs[3]</td>
		<td>@tempairs[4]</td>
		<td><img src="https://www.buildaffiliatewebsites.com/images/icons/affsetup.png" title="@tempairs[8] / @tempairs[9]" alt="@tempairs[8] / @tempairs[9]" height="20"></td>
		<td>@tempairs[10]</td>
		<td><a href="$the_url/cgi-bin/geoman.pl\?readthis=admin&page=recommenda&a_area=$pdir" onclick=\"return confirm('Are you sure\?')\">delete</a></td>
		</tr>?;
			}
			
			print qq?
		</table>?;
		}
		elsif ($page eq "updateproxcodes") {
			&admin_proxcodes("$getoverwrite3_explained","$getoverwrite3","data");
		}
		elsif ($page eq "updatescript") {
			&admin_updatescript;
		}
		elsif ($page eq "updatedatabase") {
			&admin_updatedatabase;
		}
		elsif ($page eq "defaults") {
			&language_deft;

			unless ($filterman) {
				print qq?
<div class="submenu">?;
				foreach $all_languages (@all_languages) {
					print qq? <a href="$admin_link\&page=defaults&a_area=$all_languages"?;
					if ($all_languages eq $a_area) {
						print " style='font-weight:bold'";
					}
					print qq?>$language{$all_languages}</a> ?;
				}
				print qq?
</div>?;
			}

			unless ($a_area) {
				$a_area = "en";
			}
			if ($a_area) {
			  print "<h2>$language{$a_area} - $a_area</h2>\n";
			  
			  print qq?<div class="submenu2">?;
			  unless ($b_area) {
				$b_area = "toprated";
			  }
			  print qq?
					<a href="$admin_link\&page=defaults&a_area=$a_area&b_area=addbrand"?; if ($b_area eq "addbrand") { print " style='font-weight:bold'"; } print qq?>Add New Brand</a>
					<a href="$admin_link\&page=defaults&a_area=$a_area&b_area=toprated"?; if ($b_area eq "toprated") { print " style='font-weight:bold'"; } print qq?>Top Rated Brands</a>
					<a href="$admin_link\&page=defaults&a_area=$a_area&b_area=listbrands"?; if ($b_area eq "listbrands") { print " style='font-weight:bold'"; } print qq?>All Brands</a>
					<a href="$admin_link\&page=defaults&a_area=$a_area&b_area=listdomains"?; if ($b_area eq "listdomains") { print " style='font-weight:bold'"; } print qq?>All Domains</a>?;

			  if ($a_area eq "en") {
					print qq?
					<a href="$admin_link\&page=defaults&a_area=$a_area&b_area=flatten"?; if ($b_area eq "flatten") { print " style='font-weight:bold'"; } print qq?>Flatten All</a>
					<a href="$admin_link\&page=defaults&a_area=$a_area&b_area=format"?; if ($b_area eq "format") { print " style='font-weight:bold'"; } print qq?>Format a Translation</a>?;
			  }
			  print qq?
					</div>?;
					

				#depreciated display options#
				if ($undepreciate) {
					print qq?<div class="submenu2">
				<a href="$admin_link\&page=defaults&a_area=$a_area&b_area=dfall">Show All Brands</a>
				<a href="$admin_link\&page=defaults&a_area=$a_area&b_area=">Show First Added</a>
				<a href="$admin_link\&page=defaults&a_area=$a_area&b_area=dfreverse">Show Newest Added</a>
					</div>?;
				}
				#depreciated display options#
				

			  if ($b_area eq "addbrand") {
				&addbrand_new;
			  }
			  elsif ($b_area eq "format") {
				open(tempair1,"$basedir/data/tempair.txt");
				flock tempair1, 2;
				@tempair1 = <tempair1>;
				close(tempairs1);
				
				print qq?
<div style='padding:4px'>
<form action="" method="post" style="margin-bottom:0">
Add the translation\: 
<br><textarea name="datascrape" id="my-textarea" rows="20" cols="100"></textarea>
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="b_area" value="format">
<input type="hidden" name="saver" value="nulldeft">
<input type="hidden" name="instructions" value="null">
<br>langcode: <input size=5 name=langcode type=text> \* <input type="submit" value="Crunch It!">

<p><select name=stype><option>normal</option><option>resort</option></select></p>

<p><textarea name="null" rows=20 cols=100>?;
				print @tempair1;
				print qq?</textarea>
</form>
</div>?;
			  }
			  else {
				if ($b_area eq "dfall") {
					$dfallowed = "999";
				}
				else {
					$dfallowed = "30";
				}
				
				if ($b_area eq "dfreverse") {
					$dfbegin = "$dfrev";
					$dfallowed = "999"
				}
				else {
					$dfbegin = "0";
				}
				
				open(defaults1,"$basedir/$cgidir/geoman-database/defaults.cgi") || &dienotopen;
				flock defaults1, 2;
				@defaults1 = <defaults1>;
				close(defaults1);
				
				$tartit = "on";
				
				foreach $defaults1 (@defaults1) {
				 #list domains#
				 if ($b_area eq "listdomains") {
				  if ($defaults1 =~ /  elsif \(\$done\{(.*)\} \< 1\) \{/) {
						$nextname = $1;
				  }
				  if ($defaults1 =~ /\$rank1www\{\$rp\} = "(.*)";/) {
						print "<br>$1,$nextname,\n";
						
						$nextname = "n/a";
				  }
				 }
				 #listing brands#
				 elsif (($b_area eq "toprated") or ($b_area eq "listbrands")) {
					if ($defaults1 =~ /\$done\{(.*)\} = \$rp;/) {
						$current = $1;
						if (($current) && ($current_name) && ($current_score)) {
							push(@secondrun, "$current|$current_name|$current_score|$current_overwrite");
						}
						$current_name = "";
						$current_score = "";
						$current_overwrite = "false";
						$toung = "";
						$openlock = "true";
					}
					else {
					  if ($defaults1 =~ /if \(\$language eq "(.*)"\) \{/) {
						$toung = $1;
						if ($toung eq $a_area) {
							$openlock = "true";
						}
						else {
							$openlock = "false";
						}
					  }
					  unless ($toung) {
						if ($a_area eq "en") {
							$openlock = "true";
						}
					  }
					  
					  unless ($openlock eq "false") {
						if ($defaults1 =~ /\$rank1name\{\$rp\} = "(.*)";/) {
							$current_name = $1;
						}
						if ($defaults1 =~ /\$rank1score\{\$rp\} = "(.*)";/) {
						  unless ($current_overwrite eq "true") {
							$current_score = $1;
						  }
						}
						if ($defaults1 =~ /\$rank1overwritescore\{\$rp\} = "(.*)";/) {
							$current_score = $1;
							$current_overwrite = "true";
						}
					  }
					}
				 }
				 else {
				  if ($defaults1 =~ /\$done\{(.*)\} = \$rp;/) {
					$df++;
				  }
				  if ($b_area eq "flatten") {
					$dfallowed = 1000;
				  }
				  if (($df>=$dfbegin) && ($df<=$dfallowed)) {
					if ($defaults1 =~ /if \(\$language eq "(.*)"\) \{/) {
						$toung = $1;
						if ($toung eq $a_area) {
							$openlock = "true";
						}
						else {
							$openlock = "false";
						}
					}
					unless ($toung) {
						if ($a_area eq "en") {
							$openlock = "true";
						}
					}
					if ($defaults1 =~ /if \(\$done\{(.*)\} \< 1\) \{/) {
						$toung = "";
						$openlock = "false";
						$current = $1;
						unless (($b_area eq "flatten") or (length($filterman)>1)) {
							&add_vari("defaults","");
						}
						$opendoor = "true";
					}
					if ($defaults1 =~ /##start here##/) {
						$opendoor = "false";
					}
					
					#show just the focus brand#
					if (length($filterman)>1) {
						if ($filterman eq $current) {
							$onetime++;
							if ($onetime==1) {
								&add_vari("defaults","");
							}
						}
						else {
							$opendoor = "false";
						}
					}
					
					if ($defaults1 =~ /\$(.*)\{\$rp\} = "(.*)";/) {
						$dvari = $1;
						$dvalu = $2;
						$fourx = "4";
						if (($opendoor eq "true") && ($openlock eq "true")) {
							if ($b_area eq "flatten") {
								if ($defaults1 =~ /\$rank1code\{\$rp\} = "(.*)";/) {
									print "<p />~~$fourx$1$fourx\~~\n";
								}
								if ($defaults1 =~ /\$rank1offer\{\$rp\} = "(.*)";/) {
									$pfftt = $1;
									$pfftt =~ s/\\//g;
									print "<br>#rank1offer#<br>$pfftt\n";
								}
								if ($defaults1 =~ /\$rank1instruct\{\$rp\} = "(.*)";/) {
									$pfftt = $1;
									$pfftt =~ s/\\//g;
									print "<br>#rank1instruct#<br>$pfftt\n";
								}
								if ($defaults1 =~ /\$rank1point1\{\$rp\} = "(.*)";/) {
									$pfftt = $1;
									$pfftt =~ s/\\//g;
									print "<br>#rank1point1#<br>$pfftt\n";
								}
								if ($defaults1 =~ /\$rank1point2\{\$rp\} = "(.*)";/) {
									$pfftt = $1;
									$pfftt =~ s/\\//g;
									print "<br>#rank1point2#<br>$pfftt\n";
								}
								if ($defaults1 =~ /\$rank1point3\{\$rp\} = "(.*)";/) {
									$pfftt = $1;
									$pfftt =~ s/\\//g;
									print "<br>#rank1point3#<br>$pfftt\n";
								}
								if ($defaults1 =~ /\$rank1point4\{\$rp\} = "(.*)";/) {
									$pfftt = $1;
									$pfftt =~ s/\\//g;
									print "<br>#rank1point4#<br>$pfftt\n";
								}
								if ($defaults1 =~ /\$rank1forex\{\$rp\} = "(.*)";/) {
									$pfftt = $1;
									$pfftt =~ s/\\//g;
									print "<br>#rank1forex#<br>$pfftt\n";
								}
								if ($defaults1 =~ /\$rank1signals\{\$rp\} = "(.*)";/) {
									$pfftt = $1;
									$pfftt =~ s/\\//g;
									print "<br>#rank1signals#<br>$pfftt\n";
								}
							}
							else {
								&edit_vari("defaults");
							}
						}
					}
				  }
				 }
				}
			  }
			}
			else {
			
			}
			
			#for top rated, list all#
			if (@secondrun[1]) {
				if ($b_area eq "toprated") {
					$fst = 2;
					$filtersort = "filtersort";
				}
				else {
					#countryname is brand name in this case#
					$filtersort = "countryname";
				}
				
				foreach $secondrun (sort $filtersort @secondrun) {
					$df++;
					@secondrun_split = split(/\|/, $secondrun);
					print qq?
<div class="brandlist-contain">
<a href='$admin_link\&page=defaults&a_area=$a_area&b_area=dfall&filterman=@secondrun_split[0]'?;
					if (@secondrun_split[3] eq "true") {
						print " style='color:red'";
					}
					print qq?>@secondrun_split[1]</a> - @secondrun_split[2]
</div>?;
				}
				print "<p />Total- $df";
			}
		}
		elsif ($page eq "checklocal") {
			&language_deft;

			open(checklocal,"$basedir/$cgidir/geoman-database/checklocal.cgi");
			flock checklocal, 2;
			@checklocal = <checklocal>;
			close(checklocal);
			
			if (($b_area) && ($a_area)) {
			
			}
			elsif ($a_area) {
			 print qq?<h2>$a_area</h2>
<div class="submenu2">
<a href='$admin_link\&page=checklocal'>List Blocks/Countries</a> 
<a href='$admin_link\&page=checklocal&a_area=$a_area'?; unless ($filterman) { print " style='font-weight:bold'"; } print qq?>Add Brands and Variables</a> 
<a href="$admin_link\&page=checklocal&filterman=?;
			 
			 if ($a_area =~ /\-block/) {
				print qq?
blocks">Add Languages</a> 
<a href='$admin_link\&page=checklocal&a_area=$a_area&filterman=add_country'?; if ($filterman) { print " style='font-weight:bold'"; } print qq?>Add/Remove Countries</a> ?;
			 }
			 else {
				print qq?
countries">Add Languages</a> ?;
			 }
			 print qq?
</div>?;

			 foreach $checklocal (@checklocal) {
				if ($a_area =~ /\-block/) {
				  if ($checklocal =~ /\$bbblock eq "$a_area"/) {
					@blocks1 = split(/or/, $checklocal);
					foreach $blocks1 (@blocks1) {
						if ($blocks1 =~ /\(\$cccheck eq "(.*)"\)/) {
							push(@blocks, $1);
						}
					}
				  }
				}
			 }

			 if (($filterman ne "add_country") && (@blocks[0])) {
				print "<div style='color:blue; margin-bottom:20px'><b>Countries:</b>";
				foreach $blocks (@blocks) {
					print "&nbsp; $blocks";
				}
				print " &nbsp; <a href='$admin_link\&page=checklocal&a_area=$a_area&filterman=add_country' style='font-weight:bold'>(Add/Remove)</a> </div>\n";
			 }
			 
			 if ($filterman eq "add_country") {
			  &remove_block;
			  print "\n<p />\n";
			  &add_countries_to_block;
			 }
			 else {
			  &add_brand;
			  foreach $checklocal (@checklocal) {
				if ($a_area =~ /\-block/) {
				  if ($checklocal =~ /\$bbblock eq "$a_area"/) {
					$opengate = "true";
					$splitblocks = $checklocal;
				  }
				  elsif (($checklocal =~ /\$cccheck eq "(.*)"/) or ($checklocal =~ /\$bbblock/)) {
					$opengate = "false";
				  }
				}
				else {
				  if ($checklocal =~ /\$bbblock/) {
					$opengate = "false";
				  }
				  elsif ($checklocal =~ /\$cccheck eq "$a_area"/) {
					$opengate = "true";
				  }
				  elsif ($checklocal =~ /\$cccheck eq "(.*)"/) {
					$opengate = "false";
				  }
				}
				
				if (($checklocal =~ /\$language eq "(.*)"/) && ($opengate eq "true")) {
					$openlock{$toung} = "false";
					$toung = $1;
					$openlock{$toung} = "true";
					print "<h2 style='color:red' id='$toung'>$language{$toung} - $a_area</h2>\n";
					&add_brand("checklocal","$toung");
				}
				
				if (($checklocal =~ /\$_\[0\] eq "(.*)"/) && ($opengate eq "true")) {
					$opendoor{$current} = "false";
					$current = $1;
					$opendoor{$current} = "true";
					&add_vari("checklocal","$toung");
				}
				
				if (($checklocal =~ /\$(.*)\{\$rp\} = "(.*)";/) && ($opengate eq "true")) {
					&edit_vari("checklocal");
				}
			  }
			 }
			}
			else {
			 print qq?
<div class="submenu2">
<a href="$admin_link\&page=checklocal&filterman="?; unless ($filterman) { print " style='font-weight:bold'"; } print qq?>List Blocks/Countries</a> 
<a href="$admin_link\&page=checklocal&filterman=blocks"?; if ($filterman eq "blocks") { print " style='font-weight:bold'"; } print qq?>Add/Edit Blocks</a> 
<a href="$admin_link\&page=checklocal&filterman=countries"?; if ($filterman eq "countries") { print " style='font-weight:bold'"; } print qq?>Add/Edit Countries</a> 
</div>?;

			 unless ($filterman) {
				print "<h3>Blocks / Countries</h3>\n";
			 }
			 foreach $checklocal (@checklocal) {
				if ($checklocal =~ /\$bbblock eq "(.*)\-block"/) {
					push(@blocksfound, $1);
					$currentlocal = $1;
					$done{$currentlocal} = "true";
					unless ($filterman) {
						print qq?<p /><a href="$admin_link\&page=checklocal&a_area=$currentlocal\-block">block: <b>$currentlocal</b></a> - ?;
					}
				}
				elsif ($checklocal =~ /\$cccheck eq "(.*)"/) {
					$currentlocal = $1;
					$done{$currentlocal} = "true";
					unless ($filterman) {
						print qq?<p /><a href="$admin_link\&page=checklocal&a_area=$currentlocal">country: <b>$currentlocal</b></a> - ?;
					}
				}
				if ($checklocal =~ /\$language eq "(.*)"/) {
					$currentlang = $1;
					unless ($filterman) {
						print qq? &nbsp; <i>$language{$currentlang}</i>?;
					}
				}
				if ($checklocal =~ /##(.*)##/) {
					print "<p>********** $1 **********</p>\n";
				}
			 }

			 if ($filterman eq "blocks") {
			  print "<h3>Custom Blocks</h3>\n";
			  &add_block;			 
			 }
			 elsif ($filterman eq "countries") {
			  print "<h3>Countries</h3>\n";
			  &add_country;
			  &add_language;
			 }
			 else {
				print qq?
<div class="submenu">
Add More: 
<a href="$admin_link\&page=checklocal&filterman=blocks">Add Blocks</a> 
<a href="$admin_link\&page=checklocal&filterman=countries">Add Countries</a> 
</div>?;
			 }
			}
		}
		elsif ($page eq "proxcodes") {
			open(proxcodes,"$basedir/data/proxcodes.txt");
			flock proxcodes, 2;
			@proxcodes = <proxcodes>;
			close(proxcodes);
			
			if (($a_area) && ($a_area ne "en")) {
				if (-f "$basedir/data/proxcodes\-$a_area\.txt") {
					$pcx = "\-$a_area";
				}
				$disdis = "style='background-color:#999999' readonly";
				
				foreach $proxcodes (@proxcodes) {
					@pcsplit = split(/\|/, $proxcodes);
					$pcode = @pcsplit[0];
					
					$pcountry{$pcode} = @pcsplit[1];
					$pflag{$pcode} = @pcsplit[0];
					$paltname{$pcode} = @pcsplit[8];
					$ppeoples{$pcode} = @pcsplit[3];
					$pmascot{$pcode} = @pcsplit[4];
					$pbgcode{$pcode} = @pcsplit[5];
					$pregulator{$pcode} = @pcsplit[6];
				}
				
				open(proxcodes,"$basedir/data/proxcodes$pcx\.txt");
				flock proxcodes, 2;
				@proxcodes = <proxcodes>;
				close(proxcodes);
			}
			else {
				$a_area = "en";
			}
			
			print qq?
<div class="submenu">?;
			foreach $all_languages (@all_languages) {
				print qq? <a href="$admin_link\&page=proxcodes&a_area=$all_languages"?;
				if ($all_languages eq $a_area) {
					print " style='font-weight:bold'";
				}
				print qq?>$language{$all_languages}</a> ?;
			}
			print qq?
</div>
<h2>$language{$a_area} Proxcode Settings</h2>
<div class="submenu2">
<a href="$admin_link\&page=proxcodes&b_area=">Normal</a> 
<a href="$admin_link\&page=proxcodes&a_area=$a_area&b_area=overwrite">Overwrite</a> 
<a href="$admin_link\&page=proxcodes&b_area=keyworddisplay">Keyword Display</a> 
</div>
<form action="" method="post" style="margin:0">
<input type="submit" value="save changes" style="font-size:20px">
<table cellpadding=3 cellspacing=0>?;
			foreach $proxcodes (@proxcodes) {
			  chomp $proxcodes;
			  $totaler++;
			  @pcsplit = split(/\|/, $proxcodes);
			  $pdcode = @pcsplit[0];
			  $pccode = @pcsplit[1];
			  $pccode =~ tr/A-Z/a-z/;
			  $pccode =~ s/\W//g;
			  
			  if ($b_area eq "keyworddisplay") {
				if (@pcsplit[3]) {
					$kpeoples = @pcsplit[3];
				}
				else {
					$kpeoples = @pcsplit[1];
				}
				if (@pcsplit[8]) {
					$kcountry = @pcsplit[1];
					$kcountry1 = @pcsplit[8];
				}
				else {
					$kcountry = @pcsplit[1];
					$kcountry1 = @pcsplit[1];
				}
				&kkeywordz;
			  }
			  else {
				open(proxlangs,"$basedir/data/langs/@pcsplit[0]\.txt");
				flock proxlangs, 2;
				$proxlang = <proxlangs>;
				close(proxlangs);
				
				unless ($a_area eq "en") {
					$disdis2 = "style='background-color:#999999' readonly";
					@pxlang = split(/\,/, $proxlang);
					foreach $pxlang (@pxlang) {
						if ($pxlang eq $a_area) {
							$disdis2 = "";
						}
					}
				}
				if ($disdis eq "readonly") {
					$icountry = $ptotal{$pdcode};
					$iflag = $pflag{$pdcode};
					$imascot = $pmascot{$pdcode};
					$ibgcode = $pbgcode{$pdcode};
				}
				else {
					$icountry = @pcsplit[1];
					$iflag = @pcsplit[0];
					if ($b_area eq "overwrite") {
						$imascot = $pmascot{$pdcode};
						$ibgcode = $pbgcode{$pdcode};
					}
					else {
						$imascot = @pcsplit[4];
						$ibgcode = @pcsplit[5];
					}
				}
				
				if ($disdis2 eq "readonly") {
					$ialtname = $paltname{$pdcode};
					$ipeoples = $ppeoples{$pdcode};
					$iregulator = $pregulator{$pdcode};
				}
				else {
				  if (@pcsplit[8]) { $ialtname = @pcsplit[8]; }
				  else { $ialtname = $paltname{$pdcode}; }
				  if (@pcsplit[3]) { $ipeoples = @pcsplit[3]; }
				  else { $ipeoples = $ppeoples{$pdcode}; }
				  
				  if ($b_area eq "overwrite") {
					$iregulator = $pregulator{$pdcode};
				  }
				  else {
					if (@pcsplit[6]) { $iregulator = @pcsplit[6]; }
					else { $iregulator = $pregulator{$pdcode}; }
				  }
				}
				
				print qq?
<tr>
	<td><input type="text" name="country\-$totaler" value="$icountry" size=15 $disdis></td>
	<td><input type="text" name="flagcode\-$totaler" value="$iflag" size=5 $disdis></td>
	<td><input type="text" name="clanguages\-$totaler" value="$proxlang" size=10 $disdis></td>
	<td><input type="text" name="altname\-$totaler" value="$ialtname" size=10 $disdis2></td>
	<td><input type="text" name="cpeoples\-$totaler" value="$ipeoples" size=10 $disdis2></td>
	<td><input type="text" name="cmascot\-$totaler" value="$imascot" size=10 $disdis></td>
	<td><input type="text" name="cbgcode\-$totaler" value="$ibgcode" size=10 $disdis></td>
	<td><input type="text" name="cregulator\-$totaler" value="$iregulator" size=20 $disdis2></td>?;
				if ($undepreciated) {
					#open variable#
					print qq?
	<td><textarea name="cad\-$totaler" rows="1" cols="20">@pcsplit[7]</textarea></td>?;
				}
				print qq?
</tr>?;
			  }
			}
			print qq?</table>?;
			unless ($b_area eq "keyworddisplay") {
				print qq?
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="saver" value="proxcodes">
<input type="hidden" name="totaler" value="$totaler">
<input type="submit" value="save changes" style="font-size:20px">?;
				print qq?
</form>?;
			}
		}
		elsif ($page eq "extra_language") {
			open(extralanguage, "$basedir/cgi-bin/geoman-database/extra_language.cgi");
			flock extralanguage, 2;
			@extralanguage = <extralanguage>;
			close(extralanguage);
				
			print qq?
<form action="" method="post" style="margin-bottom:0">
<textarea name="datascrape" id="my-textarea$tarea" rows="30" cols="100">?;

			foreach $extra_language1 (@extralanguage) {
				print "$extra_language1";
				$el++;
			}
			if ($el<1) {
				print qq?# extra_language not created! to create it: delete this line and save the file. then add the var \$extra_language eq true to advanced_settings. then require extra_language.cgi in the geoman.pl file #
sub extra_language \{

\}

1;?;
			}

			print qq?</textarea>
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="saver" value="extra_language">
<input type="hidden" name="instructions" value="overwriteall">
<p /><input type="submit" value="Save Changes" style="font-size:20px; width:200px">
</form>?;
		}
		elsif ($page eq "languages") {
			open(languagedeft,"$basedir/$cgidir/geoman-database/languagedeft.cgi");
			flock languagedeft, 2;
			@languagedeft = <languagedeft>;
			close(languagedeft);
			
			foreach $languagedeft (@languagedeft) {
				if ($languagedeft =~ /\{ \$w\_(.*) = "(.*)"; \}/) {
					$deftcode = $1;
					$deftval = $2;
					$deftval =~ s/"/&quot;/g;
					
					$deftfull{$deftcode} = $deftval;
					
					if (length($deftval)>50) {
						$deftval = substr($deftval, 0, 50);
						$deftval = "$deftval\...";
					}
					push(@defts, "$deftcode\|$deftval");
				}
			}
			
			open(language,"$basedir/$cgidir/geoman-database/language.cgi");
			flock language, 2;
			@language = <language>;
			close(language);
			
			if ($a_area eq "en") {
				print "<h2>English (Defaults)</h2>\n";
				print qq?
<div class="submenu2">
<a href="$admin_link\&page=languages&a_area=$a_area&b_area=flat">Flatten</a>
 - 
<a href="$admin_link\&page=languages&a_area=$a_area&b_area=source">Edit Source</a>
 - 
<a href="$admin_link\&page=languages&a_area=$a_area&b_area=">Original</a>
</div>?;
				if ($b_area eq "source") {
					open(langdeft, "$basedir/cgi-bin/geoman-database/languagedeft.cgi");
					flock langdeft, 2;
					@langdeft = <langdeft>;
					close(langdeft);
				
					print qq?
<form action="" method="post" style="margin-bottom:0">
<textarea name="datascrape" id="my-textarea$tarea" rows="30" cols="100">?;

					foreach $langdeft (@langdeft) {
						print "$langdeft";
					}

					print qq?</textarea>
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="saver" value="languagedeft">
<input type="hidden" name="instructions" value="overwriteall">
<p /><input type="submit" value="Save Changes" style="font-size:20px; width:200px">
</form>?;
				}
				else {
				  print qq?
<div style='padding:8px 0'>
<form action="" method="post" style="margin-bottom:0">
<p style='color:blue'>to delete a variable, enter 'xdeletex' and edit
</p>
add \$w variable
<br>\$w_<input type="text" name="wvariable" size=40>
 * <input type="submit" value="add">
<br><input type="text" name="translation" size=80>
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="saver" value="languagedeft">
<input type="hidden" name="instructions" value="addvariable">
</form>
</div>?;
				  foreach $defts (@defts) {
					@defts_split = split(/\|/, $defts);
					$deftcode = @defts_split[0];
					if ($b_area eq "flat") {
						$describe = @defts_split[0];
						$flatten = $deftfull{$deftcode};
						&flatten;
					}
					else {
						print qq?
<div style='padding:4px 0'>
<form action="" method="post" style="margin-bottom:0">
<div id="w\_@defts_split[0]">\$w\_@defts_split[0]</div>
<input type="text" name="translation" value="$deftfull{$deftcode}" size=80>
<br><input type="submit" value="edit">
<input type="hidden" name="wvariable" value="@defts_split[0]">
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="saver" value="languagedeft">
<input type="hidden" name="instructions" value="editvariable">
</form>
</div>?;
					}
				  }
				}
			}
			elsif ($a_area) {
				print qq?
<div class="submenu">?;
				foreach $all_languages (@all_languages) {
					print qq? <a href="$admin_link\&page=languages&a_area=$all_languages"?;
					if ($all_languages eq $a_area) {
						print " style='font-weight:bold'";
					}
					print qq?>$language{$all_languages}</a> ?;
				}
				print qq?
</div>
<h2>$language{$a_area}</h2>

<div class="submenu2">
<a href="$admin_link\&page=languages&a_area=$a_area&b_area=flat"?; if ($b_area eq "flat") { print " style='font-weight:bold'"; } print qq?>Flatten</a> 
<a href="$admin_link\&page=languages&a_area=$a_area&b_area=bulk"?; if ($b_area eq "bulk") { print " style='font-weight:bold'"; } print qq?>Bulk Translate</a> 
<a href="$admin_link\&page=languages&a_area=$a_area&b_area=checka"?; if ($b_area eq "checka") { print " style='font-weight:bold'"; } print qq?>Check Translation</a> 
<a href="$admin_link\&page=languages&a_area=$a_area&b_area=checkb"?; if ($b_area eq "checkb") { print " style='font-weight:bold'"; } print qq?>Missing Translation</a> 
<a href="$admin_link\&page=languages&a_area=$a_area&b_area=checkd"?; if ($b_area eq "checkd") { print " style='font-weight:bold'"; } print qq?>Missing Bulk</a> 
</div>?;

			  if (($b_area eq "bulk") or ($changemade =~ /gotobulk/)) {
				print qq?
<div style='padding:4px'>
<form action="" method="post" style="margin-bottom:0">
Add the words\: 
<br><textarea name="datascrape" rows=20 cols=100>?;

				if ($changemade =~ /gotobulk/) {
					open(langfill,"$basedir/data/langfill.txt");
					flock langfill, 2;
					@langfill = <langfill>;
					print @langfill;
					close(langfill);
				}

				print qq?</textarea>
<input type="hidden" name="langvari" value="$1">
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="b_area" value="bulk">
<input type="hidden" name="saver" value="nulllang">
<input type="hidden" name="instructions" value="null">
<br><input type="submit" value="Crunch It!"> \* <input type="submit" name="tryadd" value="Add It!">
</form>
</div>?;
			  }
			  elsif ($b_area =~ "check") {
				foreach $language (@language) {
					if ($language =~ /\$language eq "$a_area"/) {
						$inthezone = "true";
					}
					elsif (($language =~ /\$language eq "(.*)"/) or ($language =~ /\#end langs\#/)) {
						$inthezone = "false";
					}
					
					if (($language =~ /\$w\_(.*) = "(.*)";/) && ($inthezone eq "true")) {
						$defttrans{$1} = $2;
					}
				}
				foreach $defts (@defts) {
					@defts_split = split(/\|/, $defts);
					$deftcode = @defts_split[0];
					$flatten = $deftfull{$deftcode};
					if ($flatten =~ /(.*)\{(.*)\}(.*)/) {
						$b4 = $1;
						$s4 = $2;
						$a4 = $3;
						@a4s = split(/\|/, $s4);
						$flatten = "$b4@a4s[0]$a4";
					}
					
					if ($defttrans{$deftcode}) {
					  if ($b_area =~ "a") {
						print qq?
<p>
<i>$flatten</i>
<br>
<b>$defttrans{$deftcode}</b>
</p>?;
					  }
					}
					else {
					  if ($b_area =~ "b") {
						print qq?
<div style='padding:4px 0; color:red'>
<form action="" method="post" style="margin-bottom:0">
<div id="w\_@defts_split[0]">$flatten</div>
<input type="text" name="translation" value="" size=80>
<br><input type="submit" value="edit">
<input type="hidden" name="langvari" value="@defts_split[0]">
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="b_area" value="$b_area">
<input type="hidden" name="saver" value="language">
<input type="hidden" name="instructions" value="edittranslation">
</form>
</div>?;
					  }
					  if ($b_area =~ "d") {
						&flat_one;
						$describe = $deftcode;
						$describe =~ s/pool_code/sVCxTPp/g;
						$describe =~ s/checkpoint/sHxTTp/g;
						push(@afterthought, "\~\~\~ \$w\_$describe \~\~\~<br>$flatten");
					  }
					}
				}
				if ($b_area =~ "d") {
					print qq?
<p style='padding:20px 0; color:blue'>
<b>Instructions:</b> To bulk translate, first copy these below. Then place them into Google translate. Remove any spaces between the \$ or \{ to make valid variables. There should be 3 ~~~ on either side of the variable name, then the value exactly one space below. Once the result is formatted properly, click the Bulk Translate link above. Paste the content in the textbox and 'Crunch It!'. When the result appears, click 'Add It!'. You should see how many valid or invalid vars that there were. Repeat until below is empty.
</p>?;
					foreach $afterthought (@afterthought) {
						print qq?
<div style='padding:4px'>
$afterthought
</div>?;
					}
				}
			  }
			  else {
			    print qq?
<div style='padding:8px 0'>
<form action="" method="post" style="margin-bottom:0">
Add Translation<br>
<select name="langvari">?;
				foreach $defts (@defts) {
					@defts_split = split(/\|/, $defts);
					print "<option value=\"@defts_split[0]\"";
					if ($onebefore eq "true") {
						print " selected";
					}
					if ($changemade eq @defts_split[0]) {
						$onebefore = "true";
					}
					else {
						$onebefore = "false";
					}
					print ">@defts_split[0] - @defts_split[1]</option>\n";
				}
				print qq?</select>
<br><input type="text" name="translation" size=80>
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="saver" value="language">
<input type="hidden" name="instructions" value="addtranslation">
 * <input type="submit" value="add">
</form>
</div>?;
				foreach $language (@language) {
					if ($language =~ /\$language eq "$a_area"/) {
						$inthezone = "true";
					}
					elsif (($language =~ /\$language eq "(.*)"/) or ($language =~ /\#end langs\#/)) {
						$inthezone = "false";
					}
					
					if (($language =~ /\$w\_(.*) = "(.*)";/) && ($inthezone eq "true")) {
					  if ($b_area eq "flat") {
						$describe = $1;
						$flatten = $2;
						&flatten;
					  }
					  else {
						$dutchbs = $2;
						$dutchbs =~ s/"/&quot;/g;
						print qq?
<div style='padding:4px'>
<form action="" method="post" style="margin-bottom:0">
$1\: 
<br><input type="text" name="translation" value="$dutchbs" size=80>
<input type="hidden" name="langvari" value="$1">
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="saver" value="language">
<input type="hidden" name="instructions" value="edittranslation">
 * <input type="submit" value="edit">
</form>
</div>?;
					  }
					}
				}
			  }
			}
			else {
			  print qq?
<div style='padding:4px; line-height:50px'>
<form action="" method="post" style="margin-bottom:0">
<b>Add Language</b><br>
Code: <input type="text" name="langcode" size=10> * <input type="submit" value="add">
<br>Name: <input type="text" name="langname" size=40>
<br>English: <input type="text" name="langtrans" size=40>
<input type="hidden" name="saver" value="language">
<input type="hidden" name="instructions" value="addlanguage">
</form>
</div>?;

			  foreach $language (@language) {
				if ($language =~ /\$language\{(.*)\} = "(.*)"\;(.*)/) {
					$lcode = $1;
					$lname = $2;
					$lengl = $3;
					if ($lengl =~ /\#(.*)\#/) {
						$lengl = $1;
					}
					else {
						$lengl = $lcode;
					}
					
					print qq?<p /><a href="$admin_link\&page=languages&a_area=$lcode">$lname</a> ($lengl)?;
				}
			  }
			}
		}
		else {
			print "select an option ^\n";
		}
	}
	else {
		&admin_login2;
	}
	
	&admin_bottomlayout;
	exit;
}

sub flatten {
	&flat_one;
	$describe =~ s/pool_code/sVCxTPp/g;
	$describe =~ s/checkpoint/sHxTTp/g;
	$flatten =~ s/\\//g;
	if ($flatten =~ /(.*)\{(.*)\}(.*)/) {
		$b4 = $1;
		$s4 = $2;
		$a4 = $3;
		@a4s = split(/\|/, $s4);
		$flatten = "$b4@a4s[0]$a4";
	}
	print qq?
<div style='padding:4px'>\~\~\~ \$w\_$describe \~\~\~
<br>$flatten
</div>?;
}

sub flat_one {
	$flatten =~ s/%countryname%/USxSSR/g;
	$flatten =~ s/%countryname2%/URcsSSR/g;
	$flatten =~ s/%btitle%/ETxTX/g;
	$flatten =~ s/%bsite%/www.etfx.com/g;
	$flatten =~ s/%bscore%/BSxcore/g;
	$flatten =~ s/%boffer%/GG20/g;
	$flatten =~ s/%rank1offer%/GG40/g;
	$flatten =~ s/%geoname%/SOxCALI/g;
	$flatten =~ s/%rank1name%/XXCxXM/g;
	$flatten =~ s/%regulator%/FFxFIC/g;
	$flatten =~ s/%thisrank%/ThisRank/g;
	$flatten =~ s/%totalrank%/TotalRank/g;
	$flatten =~ s/%countrypeople%/USSSersR/g;
	$flatten =~ s/%countrypeople2%/UxxTSersR/g;
	$flatten =~ s/%websitetitle%/FICxFF/g;
	$flatten =~ s/%websiteurl%/RdICwdF/g;
	$flatten =~ s/%lottotype%/QwdFRdIC/g;
	$flatten =~ s/pool_name/sVTxTYp/g;
}

sub addbrand_new {
	print qq?<div style='padding:6px; background-color:gold; margin-top:30px'>
<form action="" method="post" style="margin-bottom:0">
code * <input type="text" name="newbrand" value="" size="20">
 * 
<input type="submit" value="add brand">
</div>?;

	&vari_options("new");

	print qq?
<input type="hidden" name="a_area" value="en">
<input type="hidden" name="saver" value="defaults">
<input type="hidden" name="instructions" value="addbrand">
</form>
</div>?;
}

sub edit_vari {
	$vrept = $1;
	if ($vrept{$vrept}) {
		$vrept = $vrept{$vrept};
	}
	print qq?<div style='padding:4px'>
<form action="" method="post" style="margin-bottom:0">
$vrept<br><input type="text" name="replacevalue" value="$2" size="60">
 * 
<input type="submit" value="edit">
<input type="hidden" name="varid" value="$1">
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="toung" value="$toung">
<input type="hidden" name="current" value="$current">
<input type="hidden" name="b_area" value="$b_area">
<input type="hidden" name="current" value="$current">
<input type="hidden" name="filterman" value="$filterman">
<input type="hidden" name="saver" value="$_[0]">
</form>
</div>?;
}

sub add_vari_option {
	if ($vari_display eq "new") {
		if ($_[0]) {
		  print qq?
<div style="padding:4px">
$_[1]\:<br />?;

		  if ($_[2] eq "truefalse") {
			print qq?
<select name="$_[0]" style="width:200px">
<option value="">- choose -</option>
<option>true</option>
<option>false</option>
<option>nocountry</option>
<option>null</option>
</select>?;
		  }
		  elsif ($_[2] eq "yesno") {
			print qq?
<select name="$_[0]" style="width:200px">
<option value="">- choose -</option>
<option>yes</option>
<option>no</option>
</select>?;
		  }
		  elsif ($_[2] eq "of10") {
			print qq?
<select name="$_[0]" style="width:200px">
    <option value="">choose</option>
	<option>10</option>
	<option>9.5</option>
	<option>9.0</option>
	<option>8.5</option>
	<option>8.0</option>
	<option>7.5</option>
	<option>7.0</option>
	<option>6.5</option>
	<option>6.0</option>
	<option>5.5</option>
	<option>5.0</option>
	<option>4.5</option>
	<option>4.0</option>
	<option>3.5</option>
	<option>3.0</option>
	<option>2.5</option>
	<option>2.0</option>
	<option>1.5</option>
	<option>1.0</option>
	<option>0.5</option>
	<option>0.0</option>
</select>?;
		  }
		  elsif ($_[2] eq "of100") {
			print qq?
<select name="$_[0]" style="width:200px">
	<option>10</option>
	<option>9.9</option>
	<option>9.8</option>
	<option>9.7</option>
	<option>9.6</option>
	<option>9.5</option>
	<option>9.4</option>
	<option>9.3</option>
	<option>9.2</option>
	<option>9.1</option>
	<option selected>9.0</option>
	<option>8.9</option>
	<option>8.8</option>
	<option>8.7</option>
	<option>8.6</option>
	<option>8.5</option>
	<option>8.4</option>
	<option>8.3</option>
	<option>8.2</option>
	<option>8.1</option>
	<option>8.0</option>
	<option>7.9</option>
	<option>7.8</option>
	<option>7.7</option>
	<option>7.6</option>
	<option>7.5</option>
	<option>7.4</option>
	<option>7.3</option>
	<option>7.2</option>
	<option>7.1</option>
	<option>7.0</option>
	<option>6.5</option>
	<option>6.0</option>
	<option>5.5</option>
	<option>5.0</option>
	<option>4.5</option>
	<option>4.0</option>
	<option>3.5</option>
	<option>3.0</option>
	<option>2.5</option>
	<option>2.0</option>
	<option>1.5</option>
	<option>1.0</option>
	<option>0.5</option>
	<option>0.0</option>
</select>?;
		  }
		  else {
			print qq?
<input type="text" name="$_[0]" style="width:400px">?;
		  }
		  print qq?
</div>?;
		}
		else {
			print "<h3 style='padding-top:15px'><b>$_[1]</b></h3>\n";
		}
	}
	elsif ($vari_display eq "printnew") {
		$pn_value = $_[0];
		if ($FORM{$pn_value}) {
			$FORM{$pn_value} =~ s/"/'/g;
			$FORM{$pn_value} =~ s/\$/\\\$/g;
			print defaults1 "	\$$pn_value\{\$rp\} = \"$FORM{$pn_value}\";\n";
		}
	}
	else {
		print qq?
	<option value="$_[0]"?;
		if ($selectnext eq "true") {
			print " selected";
			$selectnext = "false";
		}
		print qq?>$_[1]</option>?;
		if ($changem eq $_[0]) {
			if (length($changem)>0) {
				$selectnext = "true";
			}
		}
	}
}

sub add_vari {
	$savah = $_[0];
	if ($checks_style == 2) {
		$yesitno = "(yes or no)";
	}
	else {
		$yesitno = "(score /10)";
	}
	if ($changemade =~ /(.*) (.*)/) {
		$changem = $1;
	}
	
	print qq?
	<h4 id='$_[1]$current'>$current - $language{$toung}</h4>
	<div style='padding:8px; background-color:#DDDDDD'>
<form action="" method="post" style="margin-bottom:0">
Add Variable 
<select name="varid">?;

   if ($current eq "featuredgames") {
	&add_vari_option("","- Featured Games -");
	&add_vari_option("rank1link","Game 1 Name");
	&add_vari_option("rank1demolink","Game 1 Code");
	&add_vari_option("rank1score","Game 2 Name");
	&add_vari_option("rank1offer","Game 2 Code");
	&add_vari_option("rank1instruct","Game 3 Name");
	&add_vari_option("rank1blocked","Game 3 Code");
	&add_vari_option("rank1point1","Game 4 Name");
	&add_vari_option("rank1point2","Game 4 Code");
	&add_vari_option("rank1point3","Game 5 Name");
	&add_vari_option("rank1point4","Game 5 Code");
	&add_vari_option("rank1fullreview","Game 6 Name");
	&add_vari_option("rank1www","Game 6 Code");
   }
   else {
	&vari_options("dropdown");
	
	print qq?
</select>
<br><input type="text" name="addvalue" value="" size="60">
<br><select name="addvalue1">
	<option value="">- /10 -</option>
	<option>10</option>
	<option>9.5</option>
	<option>9.0</option>
	<option>8.5</option>
	<option>8.0</option>
	<option>7.5</option>
	<option>7.0</option>
	<option>6.5</option>
	<option>6.0</option>
	<option>5.5</option>
	<option>5.0</option>
	<option>4.5</option>
	<option>4.0</option>
	<option>3.5</option>
	<option>3.0</option>
	<option>2.5</option>
	<option>2.0</option>
	<option>1.5</option>
	<option>1.0</option>
	<option>0.5</option>
	<option>0.0</option>
</select>
 &nbsp; <select name="addvalue2">
	<option value="">- yes/no -</option>
	<option>yes</option>
	<option>no</option>
	<option>true</option>
	<option>false</option>
	<option>null</option>
</select>
 * 
<input type="submit" value="add" style="font-size:20px">
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="toung" value="$toung">
<input type="hidden" name="current" value="$current">
<input type="hidden" name="filterman" value="$filterman">
<input type="hidden" name="b_area" value="$b_area">
<input type="hidden" name="saver" value="$savah">
</form>
</div>?;
	if ($filterman) {
		print qq?
<h3>Edit Variables</h3>
<div class="submenu3">?;
		foreach $all_languages (@all_languages) {
			print qq? <a href="$admin_link\&page=defaults&a_area=$all_languages&b_area=dfall&filterman=$filterman"?;
			if ($all_languages eq $a_area) {
				print " style='font-weight:bold'";
			}
			print qq?>$language{$all_languages}</a> ?;
		}
		print qq?
</div>?;
	}
	}
}

sub vari_options {
	$vari_display = $_[0];
	&add_vari_option("","- Basic Review -");
	&add_vari_option("rank1link","Aff Link (http://)");
	&add_vari_option("rank1demolink","Aff Demo Link (http://)");
	&add_vari_option("rank1score","Overall Score","of100");
	&add_vari_option("rank1overwritescore","Overwrite Score (not needed to start)");
	&add_vari_option("rank1blocked","Is blocked?","truefalse");
	&add_vari_option("rank1point1","Point 1");
	&add_vari_option("rank1point2","Point 2");
	&add_vari_option("rank1point3","Point 3");
	&add_vari_option("rank1point4","Point 4");
	&add_vari_option("rank1offer","Button Offer");
	&add_vari_option("rank1instruct","Button Instructions (optional)");
	&add_vari_option("rank1fullreview","Full Review Link");
	&add_vari_option("rank1www","Websites (www.site.com)");
	&add_vari_option("rank1name","Brand Name");
	&add_vari_option("rank1square","Square Ad Code (300x250)");
	&add_vari_option("rank1anal","Anal Account Manager? (Plus500)","truefalse");
	&add_vari_option("rank1analms","Anal Short Message","");
	&add_vari_option("rank1analml","Anal Longer Message","");
	&add_vari_option("","- Checkpoints -");
	&add_vari_option("rank1forex","$checkpoint1 score","$checktype1");
	&add_vari_option("rank1forexlink","$checkpoint1 link (http://)");
	&add_vari_option("rank1binary","$checkpoint2 score","$checktype2");
	&add_vari_option("rank1metatrader","$checkpoint3 score","$checktype3");
	&add_vari_option("rank1cfds","$checkpoint4 score","$checktype4");
	&add_vari_option("rank1robots","$checkpoint5 score","$checktype5");
	&add_vari_option("rank1signals","$checkpoint6 score","$checktype6");
	&add_vari_option("rank1signalslink","$checkpoint6 link (http://)");
	&add_vari_option("rank1vps","$checkpoint7 score","$checktype7");
	&add_vari_option("rank1jackpot","$checkpoint8 score","$checktype8");
	if ($chartpoint1) {
		&add_vari_option("","- Chart points -");
		&add_vari_option("rank1cp1","$chartpoint1","$charttype1");
	}
	if ($chartpoint2) { &add_vari_option("rank1cp2","$chartpoint2","$charttype2"); }
	if ($chartpoint3) { &add_vari_option("rank1cp3","$chartpoint3","$charttype3"); }
	if ($chartpoint4) { &add_vari_option("rank1cp4","$chartpoint4","$charttype4"); }
	if ($chartpoint5) { &add_vari_option("rank1cp5","$chartpoint5","$charttype5"); }
	if ($chartpoint6) { &add_vari_option("rank1cp6","$chartpoint6","$charttype6"); }
	if ($chartpoint7) { &add_vari_option("rank1cp7","$chartpoint7","$charttype7"); }
	if ($chartpoint8) { &add_vari_option("rank1cp8","$chartpoint8","$charttype8"); }
	&add_vari_option("","- Display Options -");
	&add_vari_option("rank1boxcolor","Box BG Color");
	&add_vari_option("rank1textcolor","Box Text Color");
	&add_vari_option("rank1type","Type (probably not needed)");
	&add_vari_option("rank1logocode","Logo Code (probably not needed)");
	&add_vari_option("rank1screencode","Screen Grab Code (probably not needed)");
	&add_vari_option("","- Extended Review (optional) -");
	&add_vari_option("rank1pub","Published (2014-03-13T20:00)");
	&add_vari_option("rank1translated","Translated\? (if non-English)","yesno");
	&add_vari_option("rank1customtitle","Custom Title");
	&add_vari_option("rank1customdescription","Custom Description");
	&add_vari_option("rank1extoffer","Extended Offer");
	&add_vari_option("rank1extofferfp","Extended Offer Fine Print");
	&add_vari_option("rank1hq","Country");
	&add_vari_option("rank1region","Region");
	&add_vari_option("rank1city","City");
	&add_vari_option("rank1address","Address");
	&add_vari_option("rank1reg","Regulation");
	&add_vari_option("rank1plat","Platform");
	&add_vari_option("rank1phone","Phone");
	&add_vari_option("rank1email","Email");
	&add_vari_option("rank1est","Established");
	&add_vari_option("rank1intro","Introduction Paragraph");
	&add_vari_option("rank1conclusion","Conclusion Paragraph");
	&add_vari_option("","- Payment Methods -");

	$pmcount=0;
	foreach $payment_methods (@payment_methods) {
		if ($payment_methods) {
			&add_vari_option("rank1pm$pmcount","$payment_methods","truefalse");
		}
		$pmcount++;
	}
	&add_vari_option("","- Review Sections -");
	for ($rsect=1;$rsect<=5;$rsect++) {
		&add_vari_option("rank1rsect_score$rsect","$w_rev_section{$rsect} Score","of10");
		&add_vari_option("rank1rsect_desc$rsect","$w_rev_section{$rsect} Description");
		&add_vari_option("rank1rsect_paragraph_desc$rsect","$w_rev_section{$rsect} Paragraph");
	}
}

sub add_brand {
	&compile_list;

	$totalrank = @review_list;
	print qq?<div style='padding:4px; background-color:yellow'>
<form action="" method="post" style="margin-bottom:0">
add brand 
<select name="addbrand">?;
	$rp=0;
	foreach $review_list (sort scoresort @review_list) {
		$rp++;
		@rl_split = split(/\|/, $review_list);
		print "<option value=\"@rl_split[0]\">@rl_split[1]</option>\n";
	}
	print qq?
</select>
 * 
<input type="submit" value="add">
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="toung" value="$toung">
<input type="hidden" name="saver" value="checklocal">
<input type="hidden" name="instructions" value="addbrand">
</form>
</div>?;
}

sub remove_block {
	print qq?<div style='margin-top:24px; background-color:orange; padding:4px'>
<form action="" method="post" style="margin-bottom:0">
Remove Country * 
<select name="block">?;
	foreach $blocks (sort @blocks) {
		print "<option value=\"$blocks\">$blocks</option>\n";
		$blx{$blocks} = "found";
		$done{$blocks} = "true";
	}
	print qq?
</select>
 * 
<input type="submit" value="remove">
<input type="hidden" name="a_area" value="$a_area">
<input type="hidden" name="filterman" value="$filterman">
<input type="hidden" name="saver" value="checklocal">
<input type="hidden" name="instructions" value="removeblock">
</form>
</div>?;
}

sub add_countries_to_block {
	if ($a_area =~ /(.*)\-block/) {
		$ablock = $1;
	}
	print qq?
					<div style="margin-top:24px; background-color:yellow; padding:4px">
					<form action="" method="post">
Add Country * 		<select name="country">?;
	&geo_list("dropdown");
	print qq?
					</select>
					<input type="submit" value="add country to block">
					<input type="hidden" name="block" value="$ablock">
					<input type="hidden" name="saver" value="checklocal">
					<input type="hidden" name="instructions" value="addtoblock">
					<input type="hidden" name="filterman" value="$filterman">
					<input type="hidden" name="a_area" value="$a_area">
					</form>
					</div>	

					<div style="padding:10px 0">
					<form action="" method="post">
					<b>Add Countries to a Block</b><br />?;
	$onlythere = "checkboxes";
	&geo_list("dropdown");
	print qq?
					<br />
					<input type="submit" value="Add Countries" style='width:200px'>
					<input type="hidden" name="a_area" value="$a_area">
					<input type="hidden" name="block" value="$a_area">
					<input type="hidden" name="filterman" value="$filterman">
					<input type="hidden" name="totalcountries" value="$cbx">
					<input type="hidden" name="saver" value="checklocal">
					<input type="hidden" name="instructions" value="addtoblock2">
					</form>
					</div>?;
}

sub add_block {
	$onlythere = "all";
	print qq?
					<div style="padding:10px; background-color:gold">
					<form action="" method="post">					
					<input type="text" name="newblock">
					<select name="cloca">
					<option value="start here" selected>Start - Groups of Countries</option>
					<option value="middle here">Middle - Brands Level</option>
					<option value="end here">End - Individual Countries</option>
					</select> * 
					<input type="submit" value="Add Block">
					<input type="hidden" name="saver" value="checklocal">
					<input type="hidden" name="instructions" value="addblock">
					</form>
					</div>
					
					<div style="padding:30px 0">
					<form action="" method="post">
					Block: <select name="block">?;
	foreach $blockfound (@blocksfound) {
		print "<option>$blockfound</option>\n";
	}
	print qq?
					</select>
					<p />
					<select name="addlanguage">?;
					foreach $all_languages (@all_languages) {
						print "<option value=\"$all_languages\">$language{$all_languages}</option>\n";
					}
					print qq?
					</select> * 
					<input type="submit" value="Add Language to Block">
					<input type="hidden" name="saver" value="checklocal">
					<input type="hidden" name="instructions" value="addlanguagetoblock">
					</form>
					</div>?;
}

sub add_country {
	print qq?
					<div style="padding:10px; background-color:gold">
					<form action="" method="post">
					<select name="country">?;
	&geo_list("dropdown");
	print qq?
					</select>
					<select name="cloca">
					<option value="start here">Start - Groups of Countries</option>
					<option value="middle here">Middle - Brands Level</option>
					<option value="end here" selected>End - Individual Countries</option>
					</select> * 
					<input type="submit" value="add country">
					<input type="hidden" name="saver" value="checklocal">
					<input type="hidden" name="instructions" value="addcountry">
					</form>
					</div>?;
}

sub add_language {
	$onlythere = "true";
	print qq?
					<div style="padding:30px 0 10px">
					<form action="" method="post">
					Country: <select name="country">?;
	&geo_list("dropdown");
	print qq?
					</select>
					<p />
					<select name="addlanguage">?;
					foreach $all_languages (@all_languages) {
						print "<option value=\"$all_languages\">$language{$all_languages}</option>\n";
					}
					print qq?
					</select> * 
					<input type="submit" value="Add Language">
					<input type="hidden" name="saver" value="checklocal">
					<input type="hidden" name="instructions" value="addlanguage">
					</form>
					</div>?;
}

sub admin_dropdown {
	if ($onlythere eq "checkboxes") {
		$cbx++;
		print qq?
	<label><input type="checkbox" name="cbx$cbx" value="$geocode"?;
		if ($blx{$geocode} eq "found") {
			print " checked";
		}
		print qq?> @gm_vars[1]</label><br />?;
	}
	elsif ($onlythere eq "true") {
		if ($done{$geocode} eq "true") {
			print qq?;
	<option value="$geocode">@gm_vars[1]</option>?;
		}
	}
	elsif ($onlythere eq "all") {
		print qq?;
	<option value="$geocode">@gm_vars[1]</option>?;
	}
	else {
		unless ($done{$geocode} eq "true") {
			print qq?;
	<option value="$geocode">@gm_vars[1]</option>?;
		}
	}
}

sub menu_options1 {
	if ($page eq $menu_options) {
		print "<b>";
	}
	print qq?<a href="$admin_link\&page=$menu_options" class="menu-link">$menu_options</a>
?;
	if ($page eq $menu_options) {
		print "</b>";
	}
	print "\n";
}

#add language to block#
sub lang_to_block {
	if ($checklocal =~ /\{(.*)\}/) {
		print checklocal "$checklocal";
	}
	elsif ($checklocal =~ /\{/) {
		$thelevel++;
		print checklocal "$checklocal";
	}
	elsif ($checklocal =~ /\}/) {
		if (($thelevel == 1) && ($bottomsearch eq "true")) {
			print checklocal "		if (\$language eq \"$FORM{addlanguage}\") {\n";
			print checklocal "		}\n";
			print checklocal "	} \# endlocal $_[0] \#\n";
			$changemade = "$FORM{addlanguage}\+added+to\+$_[0]";
			$bottomsearch = "false";
		}
		else {
			print checklocal "$checklocal";
		}
		$thelevel = $thelevel - 1;
	}
	else {
		print checklocal "$checklocal";
	}
}


#### saving ####

sub print_last_update {
	&date_finder;
	open(lastupdate,">$_[0]/lastupdate.cd") or $changemade = "lastupdate+couldnt+open";
	flock lastupdate, 2;
	print lastupdate "$admindate";
	close(lastupdate);
}

sub print_sort_order {
	if ($_[1]) {
		$sorttype = "add";
		$codetype = $_[1];
	}
	if ($_[2]) {
		$sorttype = "remove";
		$codetype = $_[2];
	}
	$codeprint = "";
	unless ($codetype =~ /data.txt/) {
		if ($codetype =~ /(.*)\.txt/) {
			$codeprint = $1;
		}
	}
	
	if ($codeprint) {
		open(sortorder,"$_[0]/sortorder-data.txt") or $changemade = "sortorder+couldnt+open";
		flock sortorder, 2;
		$sortorder1 = <sortorder>;
		close(sortorder);
		
		if ($sorttype eq "remove") {
			$codeprint = $codeprint;
			$sortorder1 =~ s/$codeprint//g;
		}
		else {
		  if ($sortorder1) {
			$foundsortorder = "true";
			if ($sortorder1 =~ /$codeprint/) {
				$dupecode = "true";
			}
			else {
				$sortorder1 = "$codeprint\|$sortorder1";
			}
		  }
		  else {
			$sortorder1 = "$codeprint\|";
		  }
		}
		
		open(sortorder,">$_[0]/sortorder-data.txt") or $changemade = "sortorder+couldnt+open";
		flock sortorder, 2;
		print sortorder "$sortorder1";
		close(sortorder);
	}
}

sub save_changes {
	if ($FORM{addvalue1}) {
		$FORM{addvalue} = $FORM{addvalue1};
	}
	if ($FORM{addvalue2}) {
		$FORM{addvalue} = $FORM{addvalue2};
	}
	
	if ($FORM{username}) {
		&set_vals;
		&admin_area;
		$changemade = "login+successful";
	}
	elsif ($FORM{saver} eq "editart") {
		if ($FORM{editart_dir}) {
			$editart_dir = $FORM{editart_dir};
			if ($editart_dir eq "promos") {
				$editart_dir = "data/$FORM{editart_dir}";
				$changemade = "$FORM{b_area}\+promo+edited";
				$page="content";
			}
			else {
				$changemade = "$FORM{b_area}\+text+edited";
				$page="templates";
			}
		}
		else {
			$editart_dir = "data/articles";
			$changemade = "$FORM{b_area}\+article+edited";
			$page="content";
		}
		open(arti,">$basedir/$editart_dir/$FORM{b_area}") or $changemade = "$editart_dir+$FORM{b_area}+couldnt+open";
		flock arti, 2;
		binmode(STDOUT, ":utf8");
		unless ($FORM{nobr}) {
			$FORM{datascrape} =~ s/\r/<br \/>/g;
		}
		print arti "$FORM{datascrape}";
		close(arti);
		
		if ($FORM{promo_title}) {
			$adddata = $FORM{b_area};
			$adddata =~ s/.txt/-data.txt/g;
			$adddata2 = $FORM{b_area};
			$adddata2 =~ s/.txt//g;
			open(arti2,">$basedir/$editart_dir/$adddata") or $changemade = "$editart_dir+$adddata+couldnt+open";
			flock arti2, 2;
			binmode(STDOUT, ":utf8");
			print arti2 "$adddata2\|$FORM{promo_start}\|$FORM{promo_end}\|$FORM{promo_taggedcode}\|$FORM{promo_title}\|$FORM{promo_poster}\|$FORM{promo_summary}\|$FORM{promo_thumbnail}\|$FORM{promo_taggedname}\|$FORM{promo_link}\|";
			close(arti2);
		}
		
		&print_sort_order("$basedir/$editart_dir","$FORM{b_area}");
		&print_last_update("$basedir/$editart_dir");
	}
	elsif ($FORM{saver} eq "edituser") {
		$editart_dir = $FORM{editart_dir};
		$changemade = "user+updated";
		$page="userbase";
		
		&edit_emailuser;
	}
	elsif ($FORM{saver} eq "css") {
		$changemade = "css+updated";
		$page="settings";
		
		open(gsettings,">$basedir$FORM{instructions}") or $changemade = "css+file+couldnt+open";
		flock gsettings, 2;
		print gsettings "$FORM{datascrape}";
		close(gsettings);
	}
	elsif ($FORM{saver} eq "sendemail") {
		$changemade = "email+sent";
		$page="userbase";
		
		&send_email;
	}
	elsif ($FORM{saver} eq "advanced") {
		$changemade = "advanced+updated";
		$page="settings";
		
		open(gsettings,">$basedir/$cgidir/geoman-database/advanced-settings.cgi");
		flock gsettings, 2;
		print gsettings "$FORM{datascrape}";
		close(gsettings);
	}
	elsif ($FORM{saver} eq "statcode") {
		$changemade = "statscode+updated";
		$page="settings";
		
		open(gsettings,">$basedir/$cgidir/geoman-database/statcode.cgi");
		flock gsettings, 2;
		$FORM{datascrape} =~ s/\\//g;
		$FORM{datascrape} =~ s/\?/\\?/g;
		$FORM{datascrape} =~ s/\"/\\"/g;
		print gsettings "\@statcounter_code = (\"$FORM{datascrape}\")\;";
		print gsettings "\n1;";
		close(gsettings);
	}
	elsif ($FORM{saver} eq "gensettings") {
		$changemade = "settings+updated";
		$page="settings";
		
		@gs_combined = split(/\|/, $FORM{gscombined});
		
		open(gsettings,">$basedir/$cgidir/geoman-database/general-settings.cgi");
		flock gsettings, 2;
		foreach $gs_combined (@gs_combined) {
			$gs_combined_desc = "$gs_combined\-desc";
			if ($FORM{$gs_combined_desc}) {
				print gsettings "\$$gs_combined = \"$FORM{$gs_combined}\";";
				if ($FORM{$gs_combined_desc}) {
					print gsettings " # $FORM{$gs_combined_desc} #";
				}
				print gsettings "\n";
			}
		}
		print gsettings "\n1;";
		close(gsettings);
	}
	elsif ($FORM{saver} eq "proxcodes") {
		unless ($FORM{a_area} eq "en") {
			$pcx = "\-$FORM{a_area}";
		}
		open(proxcodes,"$basedir/data/proxcodes$pcx\.txt");
		flock proxcodes, 2;
		@proxcodes = <proxcodes>;
		close(proxcodes);
		
		open(proxcodes,">$basedir/data/1proxcodes$pcx\.txt");
		flock proxcodes, 2;
		binmode(STDOUT, ":utf8");
		print proxcodes @proxcodes;
		close(proxcodes);
		
		open(proxcodes,">$basedir/data/proxcodes$pcx\.txt");
		flock proxcodes, 2;
		binmode(STDOUT, ":utf8");
		for($aa=1;$aa<=$FORM{totaler};$aa++) {
			$ct1 = "flagcode\-$aa";
			$ct2 = "country\-$aa";
			$ct3 = "clanguages\-$aa";
			$ct4 = "cpeoples\-$aa";
			$ct5 = "cmascot\-$aa";
			$ct6 = "cbgcode\-$aa";
			$ct7 = "cregulator\-$aa";
			$ct8 = "cad\-$aa";
			$ct9 = "altname\-$aa";
			unless ($pcx) {
				open(proxlangs,">$basedir/data/langs/$FORM{$ct1}\.txt");
				flock proxlangs, 2;
				print proxlangs "$FORM{$ct3}";
				close(proxlangs);
			}
			print proxcodes "$FORM{$ct1}\|$FORM{$ct2}\|open\|$FORM{$ct4}\|$FORM{$ct5}\|$FORM{$ct6}\|$FORM{$ct7}\|open\|$FORM{$ct9}\|\n";
		}
		close(proxcodes);
		
		$changemade = "database update";
		$page="proxcodes";
	}
	elsif ($FORM{saver} eq "defaults") {
		open(defaults1,"$basedir/$cgidir/geoman-database/defaults.cgi");
		flock defaults1, 2;
		@defaults1 = <defaults1>;
		close(defaults1);
		
		open(defaults1,">$basedir/$cgidir/geoman-database/defaults.cgi");
		flock defaults1, 2;
		binmode(STDOUT, ":utf8");
		$duper = "false";
		
		if ($FORM{replacevalue}) {
			&clean_entry($FORM{replacevalue});
		}
		if ($FORM{addvalue}) {
			&clean_entry($FORM{addvalue});
		}

		foreach $defaults1 (@defaults1) {
		    $dontelse = "off";
			if ($FORM{instructions} eq "addbrand") {
				if ($defaults1 =~ /if \(\$done\{$FORM{newbrand}\} \< 1\) \{/) {
					$duper = "true";
					$changemade = "$FORM{newbrand}\+not+added+duplicate+entry";
				}
				unless (($FORM{newbrand}) && ($FORM{rank1name}) && ($FORM{rank1score}>0)) {
					$duper = "true";
					$changemade = "$FORM{newbrand}\+not+added+field+required+missing";
				}
				if (($defaults1 =~ /##start here##/) && ($duper eq "false")) {
					print defaults1 "  elsif (\$done\{$FORM{newbrand}\} < 1) \{\n";
					print defaults1 "	\$rank1code\{\$rp\} = \"$FORM{newbrand}\";\n";
					&vari_options("printnew");
					print defaults1 "	if (\$language eq \"de\") {\n";
					print defaults1 "		#endlang $FORM{newbrand} #\n";
					print defaults1 "	}\n";
					print defaults1 "	\$done\{$FORM{newbrand}\} = \$rp;\n";
					print defaults1 "  }\n";
					print defaults1 "  ##start here##\n";
					$changemade = "$FORM{newbrand}\+added";
				}
				else {
					print defaults1 "$defaults1";
				}
			}
			elsif ($FORM{varid}) {
				if ($defaults1 =~ /if \(\$done\{(.*)\} \< 1\) \{/) {
					$openlock = "false";
					$toung = "";
					if ($FORM{current} eq $1) {
						$opendoor = "true";
					}
					else {
						$opendoor = "false";
					}
				}
				if ($defaults1 =~ /\$language eq \"(.*)\"/) {
					$toung = $1;
					if ($toung eq $FORM{a_area}) {
						$openlock = "true";
					}
					else {
						$openlock = "false";
					}
				}
				if ($toung) {
					if ($FORM{a_area} eq "en") {
						$openlock = "false";
					}
				}
				else {
					if ($FORM{a_area} eq "en") {
						$openlock = "true";
					}
				}
				if (($defaults1 =~ /\$$FORM{varid}\{/) && ($openlock eq "true") && ($opendoor eq "true")) {
					if ($cleanentry) {
						print defaults1 "	\$$FORM{varid}\{\$rp\} \= \"$cleanentry\";\n";
						$changemade = "$FORM{varid}\+edited";
						$linealready = "yes";
					}
				}
				elsif (($defaults1 =~ /\$done\{$FORM{current}\} \=/) && ($linealready ne "yes") && ($FORM{a_area} ne "en")) {
					if ($cleanentry) {
						print defaults1 "	if (\$language eq \"$FORM{a_area}\") \{
	\$$FORM{varid}\{\$rp\} \= \"$cleanentry\";
	#endlang $FORM{current} #
	\}\n";
						$changemade = "$FORM{varid}\+added";
						$linealready = "yes";
					}
					print defaults1 "$defaults1";
				}
				elsif (($defaults1 =~ /if \(\$language eq "(.*)"\) \{/) && ($opendoor eq "true") && ($FORM{a_area} eq "en")) {
					unless ($linealready eq "yes") {
						if ($cleanentry) {
							print defaults1 "	\$$FORM{varid}\{\$rp\} \= \"$cleanentry\";\n\n";
							$changemade = "$FORM{varid}\+added";
							$linealready = "yes";
						}
					}
					print defaults1 "$defaults1";
				}
				elsif (($defaults1 =~ /#endlang $FORM{current} #/) && ($openlock eq "true")) {
					unless ($linealready eq "yes") {
						if ($cleanentry) {
							print defaults1 "	\$$FORM{varid}\{\$rp\} \= \"$cleanentry\";\n";
							$changemade = "$FORM{varid}\+edited";
							$linealready = "yes";
						}
					}
					print defaults1 "$defaults1";
				}
				else {
					print defaults1 "$defaults1";
				}
			}
			else {
				print defaults1 "$defaults1";
			}
		}
		close(defaults1);
		
		$page="defaults";
	}
	elsif ($FORM{saver} eq "checklocal") {
		open(checklocal,"$basedir/$cgidir/geoman-database/checklocal.cgi");
		flock checklocal, 2;
		@checklocal = <checklocal>;
		close(checklocal);
		
		#check for dupes#
		foreach $checklocal (@checklocal) {
			if ($FORM{instructions} eq "addcountry") {
				if ($checklocal =~ /\$cccheck eq \"$FORM{country}\"/) {
				  unless ($checklocal =~ /\$bbblock/) {
					$dupefound = "true";
				  }
				}
			}
			if ($FORM{instructions} =~ "addtoblock") {
				if ($checklocal =~ /\$bbblock eq \"$FORM{block}\-block\"\) (.*)/) {
					if ($1 =~ /\$cccheck eq \"$FORM{country}"/) {
						$dupefound = "true";
					}
				}
			}
			if ($FORM{instructions} =~ "addlanguage") {
				if ($checklocal =~ /\$bbblock eq \"$FORM{block}\-block\"/) {
					$opengate = "true";				
				}
				elsif ($checklocal =~ /\$bbblock/) {
					$opengate = "false";
				}
				elsif ($checklocal =~ /\$cccheck eq \"(.*)\"/) {
				  unless ($checklocal =~ /\$bbblock/) {
					if ($1 eq $FORM{country}) {
						$opengate = "true";
					}
					else {
						$opengate = "false";
					}
				  }
				}
				if (($checklocal =~ /\$language eq \"$FORM{addlanguage}\"/) && ($opengate eq "true")) {
					$dupefound = "true";
				}
			}
			if ($FORM{instructions} eq "addbrand") {
				if ($checklocal =~ /\$bbblock eq \"$FORM{a_area}\"/) {
					$opengate = "true";				
				}
				elsif ($checklocal =~ /\$bbblock/) {
					$opengate = "false";
				}
				elsif ($checklocal =~ /\$cccheck eq \"(.*)\"/) {
					if ($1 eq $FORM{a_area}) {
					  unless ($checklocal =~ /\$bbblock/) {
						$opengate = "true";
					  }
					}
					else {
						$opengate = "false";
					}
				}
				if ($FORM{toung}) {
					if ($checklocal =~ /\$language eq \"(.*)\"/) {
						if ($1 eq $FORM{toung}) {
							$openlock = "true";
						}
						else {
							$openlock = "false";
						}
					}
				}
				else {
					if ($checklocal =~ /\$language eq \"(.*)\"/) {
						$opengate = "false";
					}
					$openlock = "true";
				}
				
				if (($opengate eq "true") && ($openlock eq "true")) {
					if ($checklocal =~ /\$_\[0\] eq \"$FORM{addbrand}\"/) {
						$dupefound = "true";
					}
				}
			}
		}

		if ($dupefound eq "true") {
			$changemade = "duplicate+entry+found";
		}
		else {
		  open(checklocal,">$basedir/$cgidir/geoman-database/checklocal.cgi");
		  flock checklocal, 2;
		  binmode(STDOUT, ":utf8");
		  foreach $checklocal (@checklocal) {
		    $dontelse = "off";
			if ($FORM{instructions} eq "addblock") {
				if ($checklocal =~ /##$FORM{cloca}##/) {
					print checklocal "	##$FORM{cloca}##\n";
					print checklocal "	if ( (\$bbblock eq \"$FORM{newblock}\-block\")  ) {\n";
					print checklocal "	}\n";
					$changemade = "$FORM{newblock}\+added";
				}
				else {
					print checklocal "$checklocal";
				}
			}
			elsif ($FORM{instructions} eq "addcountry") {
				if ($checklocal =~ /##$FORM{cloca}##/) {
					print checklocal "	##$FORM{cloca}##\n";
					print checklocal "	if (\$cccheck eq \"$FORM{country}\") {\n";
					print checklocal "	}\n";
					$changemade = "$FORM{country}\+added";
				}
				else {
					print checklocal "$checklocal";
				}
			}
			elsif ($FORM{instructions} eq "addtoblock") {
				if ($checklocal =~ /\$bbblock eq \"$FORM{block}\-block\"\) (.*)\) \{/) {
					print checklocal "	if \(\ (\$bbblock eq \"$FORM{block}\-block\"\) $1 or (\$cccheck eq \"$FORM{country}\"\) \) \{\n";
					$changemade = "$FORM{country}\+added+to\+$FORM{block}";
				}
				else {
					print checklocal "$checklocal";
				}
			}
			elsif ($FORM{instructions} eq "addtoblock2") {
				if ($checklocal =~ /\$bbblock eq \"$FORM{block}\"\) (.*)\) \{/) {
					print checklocal "	if \(\ (\$bbblock eq \"$FORM{block}\"\)";
					for ($cc=1; $cc<=$FORM{totalcountries}; $cc++) {
						$cbx1 = "cbx$cc";
						if ($FORM{$cbx1}) {
							print checklocal " or \(\$cccheck eq \"$FORM{$cbx1}\"\)";
							$cc_added++;
						}
					}
					print checklocal " \) \{\n";
					$changemade = "$cc_added\+countries+added+to\+$FORM{block}";
				}
				else {
					print checklocal "$checklocal";
				}
			}
			elsif ($FORM{instructions} eq "removeblock") {
				if ($checklocal =~ /\$bbblock eq \"$FORM{a_area}\"\) (.*) \) \{/) {
					$checklocal =~ s/ or \(\$cccheck eq "$FORM{block}"\)//g;
					print checklocal "$checklocal";
					$changemade = "$FORM{a_area}\+removed\+$FORM{block}";
				}
				else {
					print checklocal "$checklocal";
				}
			}
			elsif ($FORM{instructions} eq "addlanguage") {
				if ($checklocal =~ /\$bbblock eq/) {
					print checklocal "$checklocal";
				}
				elsif ($checklocal =~ /\$cccheck eq \"$FORM{country}\"/) {
					print checklocal "$checklocal";
					$thelevel = "1";
					$bottomsearch = "true";
				}
				else {
					&lang_to_block("$FORM{country}");
				}
			}
			elsif ($FORM{instructions} eq "addlanguagetoblock") {
				if ($checklocal =~ /\$bbblock eq \"$FORM{block}\-block\"/) {
					print checklocal "$checklocal";
					$thelevel = "1";
					$bottomsearch = "true";
				}
				else {
					&lang_to_block("$FORM{block}");
				}
			}
			elsif (($FORM{addbrand}) or ($FORM{varid})) {
				if ($FORM{a_area} =~ /(.*)\-block/) {
					$feefi = $1;
					if ($checklocal =~ /\$bbblock eq \"$feefi\-block\"/) {
						$opengate = "true";
						unless ($FORM{toung}) {
							if ($FORM{addbrand}) {
								print checklocal "$checklocal";
								print checklocal "		if (\$_\[0\] eq \"$FORM{addbrand}\") {\n";
								print checklocal "		}\n";
								$changemade = "$FORM{addbrand}\+added\+to\+$FORM{a_area}";
								$dontelse = "on";
							}
						}
					}
					elsif ($checklocal =~ /\$bbblock/) {
						$opengate = "false1";
					}
					elsif ($checklocal =~ /\$cccheck/) {
						$opengate = "false2";
					}
				}
				else {
				  if ($checklocal =~ /\$cccheck eq \"(.*)\"/) {
					if ($1 eq $FORM{a_area}) {
					  if ($checklocal =~ /\$bbblock/) {
						$opengate = "false";
					  }
					  else {
						$opengate = "true";
						unless ($FORM{toung}) {
							if ($FORM{addbrand}) {
								print checklocal "	if (\$cccheck eq \"$FORM{a_area}\") {\n";
								print checklocal "		if (\$_\[0\] eq \"$FORM{addbrand}\") {\n";
								print checklocal "		}\n";
								$changemade = "$FORM{addbrand}\+added";
								$dontelse = "on";
							}
						}
					  }
					}
					else {
						$opengate = "false";
					}
				  }
				}
				if ($FORM{toung}) {
					if ($checklocal =~ /\$language eq \"(.*)\"/) {
						if ($1 eq $FORM{toung}) {
							$openlock = "true";
								$changemade = "GTT$opengate";
							if (($FORM{addbrand}) && ($opengate eq "true")) {
								print checklocal "	if (\$language eq \"$FORM{toung}\") {\n";
								print checklocal "		if (\$_\[0\] eq \"$FORM{addbrand}\") {\n";
								print checklocal "		}\n";
								$changemade = "$FORM{addbrand}\+added";
								$dontelse = "on";
							}
						}
						else {
							$openlock = "false";
						}
					}
				}
				else {
					$openlock = "true";
				}
				if ($checklocal =~ /\$_\[0\] eq \"(.*)\"/) {
					if ($1 eq $FORM{current}) {
						$opendoor = "true";
						if (($opengate eq "true") && ($openlock eq "true") && ($linealready ne "yes")) {
							if ($FORM{addvalue}) {
								&clean_entry($FORM{addvalue});
								print checklocal "		if (\$_\[0\] eq \"$FORM{current}\") {\n";
								print checklocal "			\$$FORM{varid}\{\$rp\} \= \"$cleanentry\";\n";
								$changemade = "$FORM{varid}\+added";
								$dontelse = "on";
								$linealready = "yes";
							}
						}
					}
					else {
						$opendoor = "false";
					}
				}
				
				if (($checklocal =~ /\$$FORM{varid}\{/) && ($linealready ne "yes") && ($opengate eq "true") && ($openlock eq "true") && ($opendoor eq "true")) {
					if ($FORM{replacevalue}) {
						&clean_entry($FORM{replacevalue});
						print checklocal "			\$$FORM{varid}\{\$rp\} \= \"$cleanentry\";\n";
						$changemade = "$FORM{varid}\+edited";
						$linealready = "yes";
					}
				}
				else {
					unless ($dontelse eq "on") {
						print checklocal "$checklocal";
					}
				}
			}
			else {
				print checklocal "$checklocal";
			}
		  }
		  close(checklocal);
		}
		
		$page="checklocal";
	}
	elsif ($FORM{saver} eq "language") {
		open(language,"$basedir/$cgidir/geoman-database/language.cgi");
		flock language, 2;
		@language = <language>;
		close(language);
		
		open(language,">$basedir/$cgidir/geoman-database/language.cgi");
		flock language, 2;
		binmode(STDOUT, ":utf8");
		foreach $language (@language) {
			if ($FORM{langcode}) {
				if ($language =~ /\$language\{$FORM{langcode}\} = "(.*)";/) {
					&clean_entry($FORM{langname});
					print language "	\$language\{$FORM{langcode}\} = \"$cleanentry\"; \#$FORM{langtrans}\#\n";
					$changemade = "language+edited";
				}
				elsif ($language =~ /\#end languages\#/) {
					if ($changemade) {
						print language "$language";
					}
					else {
						&clean_entry($FORM{langname});
						print language "	\$language\{$FORM{langcode}\} = \"$cleanentry\"; \#$FORM{langtrans}\#\n";
						print language "	\#end languages\#\n";
					}
				}
				elsif ($language =~ /\@all_languages = \((.*)\)/) {
					if ($language =~ /"$FORM{langcode}"/) {
						print language "$language";
					}
					else {
						print language "	\@all_languages = \($1\,\"$FORM{langcode}\"\);\n";
					}
				}
				elsif ($language =~ /if \(\$language eq "(.*)"\) \{/) {
					$alreadylisted = "true";
					print language "$language";
				}
				elsif (($language =~ /\#end langs\#/) && ($alreadylisted ne "true")) {
					print language "	if \(\$language eq \"$FORM{langcode}\"\) \{\n";
					print language "	\}\n";
					print language "	\#end langs\#\n";
				}
				else {
					print language "$language";
				}
			}
			elsif ($FORM{langvari}) {
				$lvflaten = $FORM{langvari};
				$lvflaten =~ s/\{/[\{]/g;
				$lvflaten =~ s/\$/[\$]/g;
				&clean_entry($FORM{translation});
				if ($language =~ /if \(\$language eq "$FORM{a_area}"\) \{/) {
					$inthezone = "true";
					print language "$language";
				}
				elsif (($inthezone eq "true") && ($language =~ /\$w\_$lvflaten = "(.*)";/)) {
					if ($cleanentry eq "xdeletex") {
						$changemade = "$FORM{langvari}\+deleted";
					}
					else {
						print language "		\$w\_$FORM{langvari} = \"$cleanentry\";\n";
						$changemade = "$FORM{langvari}\+edited";
					}
					$alreadylisted = "true";				
				}
				elsif (($language =~ /	\}/) or ($language =~ /\#end langs\#/)) {
					if (($inthezone eq "true") && ($alreadylisted ne "true")) {
						print language "		\$w\_$FORM{langvari} = \"$cleanentry\";\n";
						$changemade = "$FORM{langvari}\+added";
						print language "$language";
					}
					else {
						print language "$language";
					}
					$inthezone = "false";
				}
				else {
					print language "$language";
				}
			}
			else {
				print language "$language";
			}
		}
		close(language);
		
		$page = "languages";
	}
	elsif ($FORM{saver} eq "extra_language") {
		$changemade = "extra_languagedeft+updated";
		$page="extra_language";
		
		open(gsettings,">$basedir/$cgidir/geoman-database/extra_language.cgi");
		flock gsettings, 2;
		print gsettings "$FORM{datascrape}";
		close(gsettings);
	}
	elsif ($FORM{saver} eq "languagedeft") {
	  if ($FORM{instructions} eq "overwriteall") {
		$changemade = "languagedeft+updated";
		$page="languages";
		
		open(gsettings,">$basedir/$cgidir/geoman-database/languagedeft.cgi");
		flock gsettings, 2;
		print gsettings "$FORM{datascrape}";
		close(gsettings);
	  }
	  else {
		open(languagedeft,"$basedir/$cgidir/geoman-database/languagedeft.cgi");
		flock languagedeft, 2;
		@languagedeft = <languagedeft>;
		close(languagedeft);
		
		open(languagedeft,">$basedir/$cgidir/geoman-database/languagedeft.cgi");
		flock languagedeft, 2;
		binmode(STDOUT, ":utf8");
		foreach $languagedeft (@languagedeft) {
			if (($FORM{wvariable}) && ($FORM{translation})) {
				&clean_entry($FORM{translation});
				$xtraparse = "";
				if ($parseline eq "true") {
					$xtraparse = " &wparse\(\$w\_$FORM{wvariable}\); \$w\_$FORM{wvariable} = \$wparse;";
				}
				$ldft1 = $languagedeft;
				$ldft1 =~ s/\W//g;
				$wvar1 = $FORM{wvariable};
				$wvar1 =~ s/\W//g;
				$wflaten = $FORM{wvariable};
				$wflaten =~ s/\{/[\{]/g;
				$wflaten =~ s/\$/[\$]/g;
				
				if (($languagedeft =~ /unless \(\$w\_$wflaten\)/) or ($ldft1 =~ /unlessw\_$wvar1/)) {
					if ($cleanentry eq "xdeletex") {
						$changemade = "\$w\_$FORM{wvariable}\+deleted";
					}
					else {
						print languagedeft "	unless \(\$w\_$FORM{wvariable}\) \{ \$w\_$FORM{wvariable} = \"$cleanentry\"; \}$xtraparse\n";
						$changemade = "\$w\_$FORM{wvariable}\+edited";
					}
					$alreadylisted = "true";
					$FORM{toung} = "w\_$FORM{wvariable}";
				}
				elsif ($languagedeft =~ /\#end defaults\#/) {
					if ($alreadylisted ne "true") {
						print languagedeft "	unless \(\$w\_$FORM{wvariable}\) \{ \$w\_$FORM{wvariable} = \"$cleanentry\"; \}$xtraparse\n";
						$changemade = "\$w\_$FORM{wvariable}\+added";
					}
					print languagedeft "$languagedeft";
				}
				else {
					print languagedeft "$languagedeft";
				}
			}
			else {
				print languagedeft "$languagedeft";
			}
		}
		$page = "languages";
	  }
	}
	else {
		if ($FORM{saver} eq "nulllang") {
		  $page = "languages";
			
		  open(language,"$basedir/$cgidir/geoman-database/language.cgi");
		  flock language, 2;
		  @language = <language>;
		  close(language);
		  
		  if ($FORM{tryadd}) {
			&bulk_special;
		  }
		  else {
			foreach $language (@language) {
				if ($language =~ /if \(\$language eq "$FORM{a_area}"\) \{/) {
					$changemade = "error+$FORM{a_area}\+exists";
				}
			}
		
			if ($changemade) {
				open(langfill,">$basedir/data/langfill.txt");
				flock langfill, 2;
				&datascrapa("noprint");
				close(langfill);
				
				$changemade = "$changemade\+$FORM{a_area}\+gotobulk\+$llines\+lines";
			}
			else {
				open(language,">$basedir/$cgidir/geoman-database/language.cgi");
				flock language, 2;
				binmode(STDOUT, ":utf8");
				foreach $language (@language) {
				  if ($language =~ /#start langs#/) {
					print language "$language";
					print language "	if (\$language eq \"$FORM{a_area}\") \{";
					
					&datascrapa;
					
					print language "\n	\}\n";
				  }
				  else {
					print language "$language";
				  }
				}
				close(language);
				$changemade = "$FORM{a_area}\+added\+$llines\+lines";
			}
			$FORM{b_area}="";
		  }
		}
		if ($FORM{saver} eq "nulldeft") {
		  $page = "defaults";
		  
		  if ($FORM{stype} eq "resort") {
			open(tempair,"$basedir/data/tempair.txt");
			flock tempair, 2;
			@tempair = <tempair>;
			close(tempair);
			
			@datascrape1 = split(/\n/, $FORM{datascrape});
			foreach $datascrape (@datascrape1) {
				if ($datascrape =~ /if \(\$language eq "(.*)"\) \{/) {
					$line1 = $datascrape;
				}
				elsif ($datascrape =~ /rank1/) {
					$morelines = "$morelines$datascrape";
				}
				elsif ($datascrape =~ /#endlang (.*) #/) {
					$code1 = $1;
					$code1a = $datascrape;
				}
				elsif ($datascrape =~ /}/) {
					push(@moresort,"$code1\|$line1$morelines$code1a	\}\n");
					$line1 = "";
					$code1 = "";
					$code1a = "";
					$morelines = "";
				}
				else {
				
				}
			}
			
			@moresort = sort by_first @moresort;
			
			open(tempair,">$basedir/data/tempair.txt");
			flock tempair, 2;
			binmode(STDOUT, ":utf8");
			foreach $moresort (@moresort) {
				@moresort1 = split(/\|/, $moresort);
				print tempair "@moresort1[1]";
			}
			close(tempair);
		  }
		  else {			
			open(tempair,">$basedir/data/tempair.txt");
			flock tempair, 2;
			binmode(STDOUT, ":utf8");
			
			@datascrape1 = split(/\n/, $FORM{datascrape});
			foreach $datascrape (@datascrape1) {
				$datascrape =~ s/\r?\n$//;
				$datascrape =~ s/\n//;
				$datascrape =~ s/\r//;
				
				if (($datascrape =~ /\〜 \〜 (.*) \〜 \〜/) or ($datascrape =~ /\~\~ (.*) \~\~/) or ($datascrape =~ /\~ \~ (.*) \~ \~/)) { #csoverride#
					print tempair qq?
		#endlang $itscode #
	\}
	if (\$language eq "$FORM{langcode}") \{?;
					$itscode = $1;
					$itscode =~ s/ /\-/g;
					$itscode =~ s/4//g;
				}
				elsif (($datascrape =~ /\#(.*)\#/) or ($datascrape =~ /\＃(.*)\＃/)) { #csoverride#
					$itsreturn = $1;
					$itsreturn =~ s/ //g;
					print tempair qq?
		\$$itsreturn\{\$rp} = ?;
				}
				else {
					if (length($datascrape)>5) {
						$datascrape =~ s/"/\\"/g;
						$datascrape =~ s/\$/\\\$/g;
						print tempair "\"$datascrape\"\;";
					}
				}
			}
			print tempair qq?
		#endlang $itscode #
	\}?;
			close(tempair);
		  }
		  $changemade = "updated\+tempair";
		}
	}
	$a_area = $FORM{a_area};
	$b_area = $FORM{b_area};
	$filterman = $FORM{filterman};
	print "Location: $admin_link&page=$page&a_area=$a_area&b_area=$b_area&filterman=$filterman&changemade=$changemade\#$FORM{toung}$FORM{current}\n\n";
	exit;
	&admin_area;
}

sub bulk_special {
	open(languagedeft,"$basedir/$cgidir/geoman-database/languagedeft.cgi");
	flock languagedeft, 2;
	@languagedeft = <languagedeft>;
	close(languagedeft);

	foreach $languagedeft (@languagedeft) {
		if ($languagedeft =~ /\{ \$w\_(.*) = "(.*)"; \}/) {
			$deftcode = $1;
			$deftcode = "\$w\_$deftcode";
			$deft_found{$deftcode} = "true";
		}
	}
	
	open(langfill,"$basedir/data/langfill.txt");
	flock langfill, 2;
	@langfill = <langfill>;
	close(langfill);

	open(language,">$basedir/$cgidir/geoman-database/language.cgi");
	flock language, 2;
	binmode(STDOUT, ":utf8");
	foreach $language (@language) {
		if ($language =~ /	if \(\$language eq \"$FORM{a_area}\"\) \{/) {
			$foundlangline = $FORM{a_area};
			print language "$language";
			$inthezone = "true";

			foreach $langfill (@langfill) {
				if ($langfill =~ /\$w\_(.*) = "(.*)";/) {
					$deftcode = $1;
					$deftcode = "\$w\_$deftcode";
					$deftvar = $2;
					if ($deft_found{$deftcode} eq "true") {
						#pass#
						$validvar++;
						$deft_found1{$deftcode} = "true";
						print language "		$deftcode = \"$deftvar\";\n";
					}
					else {
						push(@invalidvar, "$deftcode");
						$invalidvar++;
					}
				}
				$langfilllines++;
			}
		}
		elsif ($language =~ /	if \(\$language eq \"(.*)\"\) \{/) {
			print language "$language";
			$inthezone = "false";
		}
		else {
			if (($inthezone eq "true") && ($language =~ /\$w\_(.*) = "(.*)";/)) {
				$deftcode = $1;
				$deftcode = "\$w\_$deftcode";
				unless ($deft_found1{$deftcode} eq "true") {
					print language "$language";
				}
			}
			else {
				print language "$language";
			}
		}
		$langlines++;
	}
	close(language);
	
	$changemade = "$validvar\+valid\+$invalidvar\+invalid\+langfill\+$langfilllines\+lang\+$langlines\+fll\+$foundlangline";
}

sub datascrapa {
					@datascrape1 = split(/\n/, $FORM{datascrape});
					foreach $datascrape (@datascrape1) {
						if ($itsvar) {
							$itsreturn = $datascrape;
							$itsreturn =~ s/\r?\n$//;
							$itsreturn =~ s/\n//;
							$itsreturn =~ s/\r//;
							$itsreturn =~ s/USxSSR/%countryname%/g;
							$itsreturn =~ s/URcsSSR/%countryname2%/g;
							$itsreturn =~ s/ETxTX/%btitle%/g;
							$itsreturn =~ s/www.etfx.com/%bsite%/g;
							$itsreturn =~ s/BSxcore/%bscore%/g;
							$itsreturn =~ s/GG20/%boffer%/g;
							$itsreturn =~ s/GG40/%rank1offer%/g;
							$itsreturn =~ s/SOxCALI/%geoname%/g;
							$itsreturn =~ s/XXCxXM/%rank1name%/g;
							$itsreturn =~ s/FFxFIC/%regulator%/g;
							$itsreturn =~ s/ThisRank/%thisrank%/g;
							$itsreturn =~ s/TotalRank/%totalrank%/g;
							$itsreturn =~ s/USSSersR/%countrypeople%/g;
							$itsreturn =~ s/UxxTSersR/%countrypeople2%/g;
							$itsreturn =~ s/FICxFF/%websitetitle%/g;
							$itsreturn =~ s/RdICwdF/%websiteurl%/g;
							$itsreturn =~ s/QwdFRdIC/%lottotype%/g;
							$itsreturn =~ s/sVTxTYp /pool_name/g;
							$itsreturn =~ s/sVTxTYp/pool_name/g;
							$itsreturn =~ s/\(/\\(/g;
							$itsreturn =~ s/\)/\\)/g;
							$itsreturn =~ s/"/\\"/g;
						}
						if (($itsvar) && ($itsreturn)) {
							$itsvar =~ s/ w_/w_/g;
							$itsvar =~ s/ \{/\{/g;
							$itsvar =~ s/\$ /\$/g;
							if ($_[0] eq "noprint") {
								print langfill "\n		\$$itsvar = \"$itsreturn\";";
							}
							else {
								print language "\n		\$$itsvar = \"$itsreturn\";";
							}
							$itsvar = "";
							$itsreturn = "";
							$llines++;
						}
						$datascrape =~ s/\~\~\~/\~ \~ \~/g;
						if (($datascrape =~ /\~ \~ \~ \$(.*) \~ \~ \~/) or ($datascrape =~ /\~ \~ \~ (.*)\$ \~ \~ \~/)) {
							$itsvar = $1;
							$itsvar =~ s/ \{\$/\{\$/g;
							$itsvar =~ s/sHxTTp /checkpoint/g;
							$itsvar =~ s/sHxTTp/checkpoint/g;
							$itsvar =~ s/sVCxTPp /pool_code/g;
							$itsvar =~ s/sVCxTPp/pool_code/g;
							$itsvar =~ s/w _/w_/g;
							$itsvar =~ s/ \{/\{/g;
							$itsvar =~ s/fora/forA/g;
							$itsvar =~ s/witha/withA/g;
							$itsvar =~ s/ checkpoint/checkpoint/g;
							$itsvar =~ s/ chartpoint/chartpoint/g;
							$itsvar =~ s/ pool_code/pool_code/g;
							$itsvar =~ s/\$ /\$/g;
						}
					}
}

sub clean_entry {
	$cleanentry=$_[0];
	$cleanentry =~ s/\\\$/\$/g;
	$cleanentry =~ s/\$/\\\$/g;
	$cleanentry =~ s/\\\]/\]/g;
	$cleanentry =~ s/\]/\\\]/g;
	$cleanentry =~ s/\\\[/\[/g;
	$cleanentry =~ s/\[/\\\[/g;
	$cleanentry =~ s/\\\)/\)/g;
	$cleanentry =~ s/\)/\\\)/g;
	$cleanentry =~ s/\\\(/\(/g;
	$cleanentry =~ s/\(/\\\(/g;
	$cleanentry =~ s/"/'/g;
	if (($cleanentry =~ /%/) or ($cleanentry =~ /\{/)) {
		$parseline = "true";
	}
	else {
		$parseline = "false";
	}
}

sub psort {
   $b <=> $a;
}
sub apsort {
   $a cmp $b;
}

sub asciiize {
    return $_[0] if (ord($_[0]) < 128);     # ASCII
    return sprintf('', ord($_[0])); # Non-ASCII
}

1;
#~#~# casinos #~#~#
sub deft_games {
	$gamename{1} = "Warlords";
	$gamecode{1} = "warlords";
	$gamename{2} = "Reactoonz";
	$gamecode{2} = "reactoonz";
	$gamename{3} = "Book of Ra";
	$gamecode{3} = "book-of-ra-classic";

	$gamename{4} = "Foxin Wins";
	$gamecode{4} = "foxin-wins-2";
	$gamename{5} = "Monopoly Once Around Deluxe";
	$gamecode{5} = "monopoly-once-around-deluxe";
	$gamename{6} = "Gonzo's Quest";
	$gamecode{6} = "gonzos-quest";
	
	$gamename{7} = "Pink Panther";
	$gamecode{7} = "pink-panther";
	$gamename{8} = "Legend of the Golden Monkey";
	$gamecode{8} = "legend-of-the-golden-monkey";
	$gamename{9} = "Berry Burst";
	$gamecode{9} = "berryburst-max";
	
	$gamename{10} = "Jacks or Better";
	$gamecode{10} = "jacks-or-better-multihand";
	$gamename{11} = "Casino Hold'em";
	$gamecode{11} = "casino-holdem-2";
	$gamename{12} = "Cashback Blackjack";
	$gamecode{12} = "cashback-blackjack";

	$gamename{13} = "Electric Sam";
	$gamecode{13} = "electric-sam";
	$gamename{14} = "Buffalo Blitz";
	$gamecode{14} = "buffalo-blitz";
	$gamename{15} = "Electric Sam";
	$gamecode{15} = "electric-sam";

	$gamename{16} = "Super Heros";
	$gamecode{16} = "super-heroes";
	$gamename{17} = "The Slotfather II";
	$gamecode{17} = "slotfather-part-2";
	$gamename{18} = "Finn and the Swirly Spin";
	$gamecode{18} = "finn-and-the-swirly-spin";
}

sub list_checks_custom {
	if ($rank1forexlink{$thisrank}) {
		$finishlink = "$rank1forexlink{$thisrank}\" rel=\"nofollow\" target=\"_blank";
	}
	else {
		$finishlink = $dezelink;
	}
	if ($rank1signalslink{$thisrank}) {
		$finishlink1 = "$rank1signalslink{$thisrank}\" rel=\"nofollow\" target=\"_blank";
	}
	else {
		$finishlink1 = $dezelink;
	}
	
	&list_checks("$rank1binary{$thisrank}","$w_{$checkpoint2}","$checkpoint2");
	&list_checks("$rank1metatrader{$thisrank}","$w_{$checkpoint3}","$checkpoint3");
	&list_checks("$rank1cfds{$thisrank}","$w_{$checkpoint4}","$checkpoint4");
	&list_checks("$rank1robots{$thisrank}","$w_{$checkpoint5}","$checkpoint5");
	&list_checks("$rank1vps{$thisrank}","$w_{$checkpoint7}","$checkpoint7");
	&list_checks("$rank1jackpot{$thisrank}","$w_{$checkpoint8}","$checkpoint8");
	print qq?
	<div class="chromehack"> </div>?;
	if ($rank1forex{$thisrank}) {
		print qq?
	<div style="padding:15px 0 0">
	<b>$w_{$checkpoint1}\:</b> <a href="$finishlink">$rank1forex{$thisrank}</a>
	</div>?;
	}
	if ($rank1signals{$thisrank}) {
		print qq?
	<div style="padding:15px 0 0">
	<b>$w_{$checkpoint6}\:</b> <a href="$finishlink1">$rank1signals{$thisrank}</a>
	</div>?;
	}
}

sub extra_passover {
	if ($ep_exception eq "true") {
		if ($filterman eq $checkpoint6) {
			if ($rank1signals{$rp}) { $passover = "good"; }
		}
		if ($filterman eq $checkpoint1) {
			if ($rank1forex{$rp}) { $passover = "good"; }
		}
	}
}

sub custom_filterman {
  if ($filterman) {
	$filterlink = "filter\-$filterman/";
	
	if (($filterman eq "bonus") or ($filterman eq "free")) {
		$filtasort = "scoresort";
		$ep_exception = "true";
	}
	else {
		$fst=$fst{$filterman};
		$filtasort = "filtersort";
	}
  }
  else {
	$filtasort = "scoresort";
  }
}

sub custom_specialman {
	if (($filterman eq "bonus") or ($filterman eq "free")) {
		if ($filterman eq "bonus") { $sofferw = $rank1forex{$boxess}; }
		if ($filterman eq "free")  { $sofferw = $rank1signals{$boxess}; }
		print qq?
						<div class="below-button">
							<div class="specialoffer"></div>
							<div class="specialoffer1"><a href="$finishlink">$sofferw</a></div>
						</div>?;
	}
	else {
		print qq?
						<div class="below-button">
							<div class="specialoffer">$w_specialoffer</div>
							<div class="specialoffer1"><a href="$extlink">$rank1offer{$boxess} \* $rank1name{$boxess}</a></div>
						</div>?;
	}
}

sub custom_specialman1 {
	if (($filterman eq "bonus") or ($filterman eq "free")) {
		print qq?
					<a style="font-size:20px;?;
					if ($rank1textcolor{$boxess}) {
						print " color:$rank1textcolor{$boxess}";
					}
					print qq?" href="$corlink/review/$rank1code{$boxess}/$addto_links" title="$rank1name{$boxess} $country_name">$w_{$filterman}</a>?;
	}
	else {
		print qq?
					<a?;
					if ($rank1textcolor{$boxess}) {
						print " style=\"color:$rank1textcolor{$boxess}\"";
					}
					print qq? href="$corlink/review/$rank1code{$boxess}/$addto_links" title="$rank1name{$boxess} $country_name">$rank1score{$boxess}</a><span class="of10">/10</span>?;
	}
}

sub custom_page_order {
  print "Content-type: text/html\n\n";
  ## reviews list ##
  if ($t_layout eq "list") {
	&print_head;
	&print_body;
	&print_header;
	print qq?
<div class="wrapper" style="">?;
	&print_nav;
	
	if ($filterman eq "bonus") { $sofferw = $rank1forex{1}; $fextra = "margin-bottom:15px"; }
	if ($filterman eq "free")  { $sofferw = $rank1signals{1}; $fextra = "margin-bottom:15px"; }

	&print_no1_box("1","reviewlist","$sofferw","$fextra");
	&print_review_list;
	&print_steps3_box;
	&print_compare_box;
	&print_bottom10_box;
	&print_newslettercatch;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## listing - short review ##
  elsif ($t_layout eq "listing") {
	&print_head;
	&print_body;
	&print_header;
	print qq?
<div class="wrapper" style="">?;
	&print_nav;
	&print_listing;
	&print_charter;
	&print_promo_listbox("$rank1code{$thisrank}");
	
	$dcornum = $dcornum + $thisrank;
	&find_games_box("$dcornum");
	&print_games_box("$w_popular_title","http://www.casinogamesdemo.com","$w_more_game_demos","6","contentnavy");
	&print_custom_box("$w_free_box_title","$w_free_box_sen1 $w_free_box_sen2","$w_seethelist","$w_free_box_cta","$corlink\/review/page-1/filter-free/","$cookielessdomain/casino-images/mobile-games.png","win big","contentorange","content5-left","content5-right");
	&print_promo_listbox;
	&print_bottom10_box;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## article ##
  elsif ($t_layout eq "article") {
	&print_head;
	&print_body;
	&print_header;
	&print_articlearea;
	&print_no1_box("1","");
	&print_no1_box("2","");
	&print_no1_box("3","");
	&print_compare_box;
	&print_bottom10_box;
	&print_newslettercatch;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## main page ##
  elsif ($t_layout eq "main") {
	&print_head;
	&print_body;
	&print_header;
	print qq?
<div class="wrapper" style="">
  <div class="wrapper1" style="">?;
	&print_nav;
	&print_main_intro;
	&print_top5_box;
	print qq?
  </div>?;
	&find_games_box("$dcornum");
	&print_games_box("$w_popular_title","http://www.casinogamesdemo.com","$w_more_game_demos","6","contentnavy");

	if ($include_chart eq "true") {
		print qq?
	<div class="contentchart">
	  <div class="content3-contain">
		<h2 class="h2fix">$w_comparison_chart_h1</h2>?;
		&print_chart_block;
		print qq?
		<div class="chromehack"> </div>
	  </div>
	</div>?;
	}
	
	&print_custom_box("$w_live_box_title","$w_live_box_sen1 $w_live_box_sen2","$w_seethelist","$w_live_box_cta","$corlink\/review/page-1/filter-live/","$cookielessdomain/casino-images/laptop-casino.png","live casino %countryname%","contentpurple","content6-right","content6-left");
	&print_no1_box("1","mainpage");
	&print_no1_box("2","mainpage");
	&print_no1_box("3","mainpage");
	&print_legal_box("index");
	&print_custom_box("$w_jackpot_box_title","$w_jackpot_box_sen1 $w_jackpot_box_sen2","$w_seethelist","$w_jackpot_box_cta","$corlink\/review/page-1/filter-jackpot/","$cookielessdomain/casino-images/jackpot-big.png","jackpots %countryname%","contentgreen","content6-right","content6-left");
	&print_custom_box("$w_free_box_title","$w_free_box_sen1 $w_free_box_sen2","$w_seethelist","$w_free_box_cta","$corlink\/review/page-1/filter-free/","$cookielessdomain/casino-images/mobile-games.png","win big","contentorange","content5-left","content5-right");
	&print_compare_box;
	&print_newslettercatch;
	&print_bottom10_box;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  else {
	&not_found("317");
  }
}

sub top_menu_custom {
	$corstyle1 = "";
	$corstyle2 = "";
	unless ($b_area) {
		if ($a_area eq "review") {
			if ($filterman) {
				if ($filterman eq $_[3]) {
					$corstyle1 = "style=\"font-weight:bold; color:$topbold\"";
					$corstyle2 = " background-color:$topdown;";
				}
			}
			else {
				if ($_[3] eq "all") {
					$corstyle1 = "style=\"font-weight:bold; color:$topbold\"";
					$corstyle2 = " background-color:$topdown;";
				}
			}
		}
	}
	if ($_[3]) {
	  print qq?
			<div class="topmenu s$_[3]" style="background-image: url(/images/$_[3]\.png); $corstyle2" onclick="window.location = '$corlink/$_[0]';">
			<a href="$corlink/$_[0]" title="$_[1]" $corstyle1>$_[2]</a>
			</div>?;
	}
}
	
1;
#~#~# forex #~#~#
sub custom_footer {
	print qq?<p />
<div style='border:1px solid silver; padding:8px; font-style:none; margin:5px'>
$w_disclaimer4
</div>?;
}

sub custom_forex_order {
  print "Content-type: text/html\n\n";
  ## recommenda ##
  if ($t_layout eq "recommenda") {
	@extra_header=("
  <link rel=\"stylesheet\" href=\"/cm/font-awesome-animation.min.css\">
  <link rel=\"stylesheet\" href=\"/cm/aos.css\">
  <link rel=\"stylesheet\" href=\"/recommenda.css\">
  <link href=\"https://fonts.googleapis.com/css?family=Ubuntu\" rel=\"stylesheet\">
");
	&print_head;
	&print_body;
	print qq?
<div class="wrapper" style="">?;
	&recommenda;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## usa result ##
  elsif ($t_layout eq "usaresult") {
	$forexcomlink = "https://wlgaincapital.adsrv.eacdn.com/C.ashx?btag=a_1513b_215c_&affid=1455&siteid=1513&adid=215&c=";
	&usa_result;
  }
  ## reviews list ##
  elsif ($t_layout eq "list") {
	&print_head;
	&print_body;
	&print_header;
	print qq?
<div class="wrapper" style="">?;
	&print_nav;
	&print_no1_box("1","reviewlist");
	&print_review_list;
	if ($fawesome) {
		&print_steps3_box;
		&print_no1_box("1","reviewlist");
		&print_no1_box("2","reviewlist");
		&print_no1_box("3","reviewlist");
	}
	&print_legal_box("index");
	&print_compare_box;
	&print_bottom10_box;
	&print_newslettercatch;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## listing - short review ##
  elsif ($t_layout eq "listing") {
	&print_head;
	&print_body;
	&print_header;
	print qq?
<div class="wrapper" style="">?;
	&print_nav;
	&print_listing;
	&print_promo_listbox("$rank1code{$thisrank}");
	if ($thisrank == 1) {
		&print_no1_box("2","reviewstyle");
	}
	else {
		&print_no1_box("1","reviewstyle");
	}
	if ($thisrank == 2) {
		unless ($thisrank == 2) {
			&print_no1_box("1","");
		}
	}
	else {
		unless ($thisrank == 1) {
			&print_no1_box("2","");
		}
	}
	unless ($thisrank == 3) {
		&print_no1_box("3","");
	}
	&print_promo_listbox;
	&print_legal_box("index");
	&print_bottom10_box;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## article ##
  elsif ($t_layout eq "article") {
	&print_head;
	&print_body;
	&print_header;
	&print_articlearea;
	&print_compare_box;
	&print_bottom10_box;
	&print_newslettercatch;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  ## main page ##
  elsif ($t_layout eq "main") {
	&print_head;
	&print_body;
	&print_header;
	print qq?
<div class="wrapper" style="">
  <div class="wrapper1" style="">?;
	&print_nav;
	&print_main_intro;
	&print_top5_box;
	print qq?
  </div>?;
	if (-f "$basedir/data/articles/mainblerb\-$language\.txt") {
		open(mainblerb,"$basedir/data/articles/mainblerb\-$language\.txt");
		flock mainblerb, 2;
		$mbsentence = <mainblerb>;
		close(mainblerb);
	}
	else {
		$mbsentence = "$w_forexmainsen1 $w_forexmainsen2<p />$w_forexmainsen3 $w_forexmainsen4";
	}
	&print_custom_box("$w_forextitlemain","$mbsentence","$w_forexmaincta1","$w_forexmaincta2","$corlink\/review/","/images/$countrycodebg\-bg\.jpg","$countrycodebg forex","contentorange","legal-desc","legal-desc");
	&print_no1_box("1","mainpage");
	&print_no1_box("2","mainpage");
	&print_no1_box("3","mainpage");
	&print_steps3_box;
	&print_legal_box("index");
	if (-f "$basedir/data/articles/custombox1\-$language\.txt") {
		&cust_box("$basedir/data/articles/custombox1\-$language\.txt","$custombox1image","contentgreen","content6-right","content6-left");
	}
	if (-f "$basedir/data/articles/custombox2\-$language\.txt") {
		&cust_box("$basedir/data/articles/custombox2\-$language\.txt","$custombox2image","contentorange","content5-left","content5-right");
	}
	if (-f "$basedir/data/articles/custombox3\-$language\.txt") {
		&cust_box("$basedir/data/articles/custombox3\-$language\.txt","$custombox3image","contentgreen1","content6-right","content6-left");
	}
	if (-f "$basedir/data/articles/custombox4\-$language\.txt") {
		&cust_box("$basedir/data/articles/custombox4\-$language\.txt","$custombox4image","contentorange1","content5-left","content5-right");
	}
	if ($fawesome) {
		$boxess = 3;
		&print_review_list;
	}
	&print_compare_box;
	&print_bottom10_box;
	&print_newslettercatch;
	&print_footer;
	print qq?
</div>?;
	&print_endbody;
  }
  else {
	&not_found("317");
  }
}

sub custom_comparebox {
	if (-f "$basedir/data/articles/compare\-$language\.txt") {
		open(mainblerb,"$basedir/data/articles/compare\-$language\.txt");
		flock mainblerb, 2;
		$mbsentence = <mainblerb>;
		close(mainblerb);
	}
	else {
		$mbsentence = "$w_wecompare_sen1 $w_wecompare_sen2 $w_wecompare_sen3";
	}
	$country_name_orig = $country_name;
	unless ($country_name) {
		$country_name = $geoname1;
	}
	print qq?
	<div class="content6" style="">
	  <div class="content6-contain">
		<div class="content6-left"$floatin_right>
		<img src="/$the_image" alt="$country_name $ld_titl">
		</div>
		<div class="content6-right"$floatin_left>
			<h2>$w_wecompare_h1</h2>
			<div class="far-desc">
			$mbsentence
			<p /><span style="font-size:14px">$w_noteif $country_name
			<a href="$domainlink$addto_links">$w_changeversion</a>.</span>
			</div>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>?;
	$country_name = $country_name_orig;
}
	
1;
#~#~# crypto #~#~#
sub crypto_list {
# w_forex #
$checkpoint1 = "buying";
$fst{$checkpoint1} = "17";
$imggrab{$checkpoint1} = "/cm/images/css-images/buying.png";
# binary #
$checkpoint2 = "selling";
$fst{$checkpoint2} = "16";
$imggrab{$checkpoint2} = "/cm/images/css-images/selling.png";
# metatrader #
$checkpoint3 = "trading";
$fst{$checkpoint3} = "15";
$imggrab{$checkpoint3} = "/cm/images/css-images/trading.png";
# cfds #
$checkpoint4 = "wallet";
$fst{$checkpoint4} = "20";
$imggrab{$checkpoint4} = "/cm/images/css-images/wallet.png";
# robots #
$checkpoint5 = "token";
$fst{$checkpoint5} = "21";
$imggrab{$checkpoint5} = "/cm/images/css-images/token.png";
# signals #
$checkpoint6 = "referral";
$fst{$checkpoint6} = "22";
$imggrab{$checkpoint6} = "/cm/images/css-images/referral.png";
# vps #
$checkpoint7 = "payments";
$fst{$checkpoint7} = "23";
$imggrab{$checkpoint7} = "/cm/images/css-images/bitcoin-bag.png";
# jackpot #
$checkpoint8 = "othercryptos";
$fst{$checkpoint8} = "24";
$fspecial{$checkpoint8} = "yes";

#bottom buttons#
$pool_code1 = "bitcoin";
$pool_name1 = "Bitcoin";
$imggrab{$pool_code1} = "/cm/images/bitcoin-thumb.jpg";

$pool_code2 = "litecoin";
$pool_name2 = "Litecoin";
$imggrab{$pool_code2} = "/cm/images/litecoin-thumb.jpg";

$pool_code3 = "ethereum";
$pool_name3 = "Ethereum";
$imggrab{$pool_code3} = "/cm/images/ethereum-thumb.jpg";

$pool_code4 = "ripple";
$pool_name4 = "Ripple";
$imggrab{$pool_code4} = "/cm/images/ripple-thumb.jpg";

$pool_code5 = "dash";
$pool_name5 = "Dash";
$imggrab{$pool_code1} = "/cm/images/dash-thumb.jpg";

$pool_code6 = "bitcoincash";
$pool_name6 = "Bitcoin Cash";
$imggrab{$pool_code1} = "/cm/images/bcc-thumb.jpg";

$pool_code7 = "dogecoin";
$pool_name7 = "Dogecoin";

$pool_code8 = "cardano";
$pool_name8 = "Cardano";

$pool_code9 = "eos";
$pool_name9 = "EOS";

$pool_code10 = "stellarlumens";
$pool_name10 = "Stellar Lumens";

$pool_code11 = "neo";
$pool_name11 = "NEO";

$pool_code12 = "neogas";
$pool_name12 = "NeoGas";

$pool_code13 = "vechain";
$pool_name13 = "VeChain";

$pool_code14 = "tron";
$pool_name14 = "Tron";

$pool_code15 = "iota";
$pool_name15 = "IOTA";

$pool_code16 = "monero";
$pool_name16 = "Monero";

$pool_code17 = "qtum";
$pool_name17 = "Qtum";

$pool_code18 = "bitcoingold";
$pool_name18 = "Bitcoin Gold";

$pool_code19 = "ethereumclassic";
$pool_name19 = "Ethereum Classic";

$pool_code20 = "lisk";
$pool_name20 = "Lisk";

$pool_code21 = "walton";
$pool_name21 = "Walton";

$pool_code22 = "omisego";
$pool_name22 = "OmiseGO";

$pool_code23 = "zcash";
$pool_name23 = "Zcash";

$pool_code24 = "verge";
$pool_name24 = "Verge";

$pool_code25 = "waves";
$pool_name25 = "Waves";

$pool_code26 = "bat";
$pool_name26 = "Basic Attention Token";

$pool_code27 = "kybernetwork";
$pool_name27 = "KyberNetwork";

$pool_code28 = "hshare";
$pool_name28 = "Hshare";

$pool_code29 = "tether";
$pool_name29 = "USD Tether";

$pool_code30 = "pantos";
$pool_name30 = "Pantos";

$pool_code31 = "tezos";
$pool_name31 = "Tezos";

$pool_code32 = "augur";
$pool_name32 = "Augur";
}


sub custom_comparebox {
   $custom_comparebox = "false";
   &print_compare_box;

   print qq?
	<div class="contentorange">
	  <div class="content5-contain">
		<div class="legal-desc cryptosortblock" data-aos="zoom-in-right">
			<p>
			$w_cryptosorted
			</p>
			<p>
			<a href='$corlink/review/page-1/filter\-$checkpoint1/' class='cryptosorted'>$w_{$checkpoint1}</a>
			- $w_desc{$checkpoint1}
			<br><a href='$corlink/review/page-1/filter\-$checkpoint2/' class='cryptosorted'>$w_{$checkpoint2}</a>
			- $w_desc{$checkpoint2}
			<br><a href='$corlink/review/page-1/filter\-$checkpoint3/' class='cryptosorted'>$w_{$checkpoint3}</a>
			- $w_desc{$checkpoint3}
			<br><a href='$corlink/review/page-1/filter\-$checkpoint4/' class='cryptosorted'>$w_{$checkpoint4}</a>
			- $w_desc{$checkpoint4}
			<br><a href='$corlink/review/page-1/filter\-$checkpoint5/' class='cryptosorted'>$w_{$checkpoint5}</a>
			- $w_desc{$checkpoint5}
			<br><a href='$corlink/review/page-1/filter\-$checkpoint6/' class='cryptosorted'>$w_{$checkpoint6}</a>
			- $w_desc{$checkpoint6}
			<br><a href='$corlink/review/page-1/filter\-$checkpoint7/' class='cryptosorted'>$w_{$checkpoint7}</a>
			- $w_desc{$checkpoint7}
			<br><a href='$corlink/review/' class='cryptosorted'>$w_listall</a>
			- $w_listallsen
			</p>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>

	<div class="content6" style="">
	  <div class="content6-contain">
			<div class="legal-desc2">
$w_bitcoinis
            </div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>?;
}

sub list_checks_custom {
	if ($rank1forexlink{$thisrank}) {
		$finishlink = "$rank1forexlink{$thisrank}\" rel=\"nofollow\" target=\"_blank";
	}
	else {
		$finishlink = $dezelink;
	}
	if ($rank1signalslink{$thisrank}) {
		$finishlink1 = "$rank1signalslink{$thisrank}\" rel=\"nofollow\" target=\"_blank";
	}
	else {
		$finishlink1 = $dezelink;
	}

	&list_checks("$rank1forex{$thisrank}","$w_{$checkpoint1}","$checkpoint1");
	&list_checks("$rank1binary{$thisrank}","$w_{$checkpoint2}","$checkpoint2");
	&list_checks("$rank1metatrader{$thisrank}","$w_{$checkpoint3}","$checkpoint3");
	&list_checks("$rank1cfds{$thisrank}","$w_{$checkpoint4}","$checkpoint4");
	&list_checks("$rank1robots{$thisrank}","$w_{$checkpoint5}","$checkpoint5");
	&list_checks("$rank1signals{$thisrank}","$w_{$checkpoint6}","$checkpoint6");

	print qq?
	<div class="chromehack"> </div>?;
	if ($rank1jackpot{$thisrank}) {
		print qq?
	<div style="padding:15px 0 0">
	<b>$w_{$checkpoint8}\:</b> ?;
@crypt_printing = split(/\~/, $rank1jackpot{$thisrank});
foreach $crypt_printing (@crypt_printing) {
   $crp++;
   if ($crp > 1) {
      print ", ";
   }
   print "<a href='$corlink/review/page-1/filter\-$crypt_printing/'>$attr1{$crypt_printing}</a>";
}
print qq?
	</div>?;
	}
}
	
1;
#~#~# recommenda #~#~#
sub recommenda1 {
	$country_rep = "mancel";
	$innerlink = "http://www.top5trading.com/recommend/$countrycode/";
	print qq?
  <div class="wrapper1" style="">
<div class="header1" style="">
	<div class="navcontain" style="">
	Crisis Offers <u>Amazing Opportunity</u> for &nbsp;<img src="$cookielessdomain/flags/$geoflagcode\.png" class="faa-tada animated">&nbsp; <a href="$corlink/$addto_links" style="color:white">$country_name</a> Residents! &nbsp; <a href="$domainlink$addto_links" style="font-size:11px; color:#DDDDDD">(change)</a>
	</div>
</div>
	<div class="content" style="">
		<div class="calltoaction" style="">
		<h1 class="h1title" style="">
		<span style="color:black">SILVER</span> is the Best Online Trading <span style="color:black">OPPORTUNITY</span> for People in $country_name\!
		</h1>
		</div>
		<div class="rep" style="background:transparent url('$cookielessdomain/$country_rep\.png') no-repeat scroll 0% 0%">
		
		</div>
	</div>
	<div class="content1" style="">
		<div class="top5table" style="">
			<div class="boxheader" style="">
				<h2 class="compare" id="theform" style="">
				Get Your <b>Free</b> SILVER TRADING Advice:
				</h2>
			</div>
			<div class="boxes" style="">
				<div class="insideboxes1">
				<b class="fa fa-reply faa-horizontal animated" style="font-size:140px"></b>
				<p />
				<b>Enter Your Email!</b>
				</div>
				<div class="insideboxes">
							<form method="post" action="/cgi-bin/geoman.pl" id="contact-ajax" name="contact-ajax">
							<input type="hidden" name="message" id="message" value="network">
							
								<div id="notification">
								</div>

								<div class="form-group">
									<input type="email" name="email" id="email" class="form-control input-lg" placeholder="Your Email" required>
								</div>

								<div class="form-group">
									<input onclick="exit=false" name="submit" id="formbutton" type="submit" value="SIGN ME UP!" class="btn btn-block btn-lg btn-success" />
									<p class="help-block text-center"><b class="fa fa-lock" style="font-size:16px"></b> Your information will never be shared or sold</p>
								</div>
								<input type="hidden" name="countrycode" value="$countrycode" />
								<input type="hidden" name="countryname" value="$country_name" />
								<input type="hidden" name="geoname" value="$geoname1" />
								
								<input type="hidden" name="affman" value="" />
							</form>
				</div>
			</div>
		</div>
	</div>
  </div>
  
	<div class="contentblue">
	  <div class="content5-contain">
			<h2 style="color:white">Look at What is Happening with Silver...</h2>

		<div class="videoWrapper">
<iframe width="560" height="315" src="https://www.youtube.com/embed/y3zK_FYrmgs" frameborder="0" allow="accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture" allowfullscreen></iframe>
		<div class="chromehack" style=""> </div>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>
		
	<div class="contentgreen">
	  <div class="content5-contain">
		<div class="content5-left" data-aos="zoom-in-right">
			<h2 style="color:#b0eff9">It's Simple Supply and Demand!</h2>
			<div class="legal-desc">
			<ul>
				<li>Silver Bullion is <u>Sold Out</u> on Every Website</li>
				<li>The Spot Price of Silver has <i>Dropped Significantly</i> from Crisis</li>
				<li>Silver Price <u>Should Go UP</u> Immediately</li>
				<li>We Tell You <i>Where to Trade</i> on the Markets</li>
				<li>Invest as Much or as Little as You Want!</li>
				<li><u>Trade From Home Legally</u> in $country_name</li>
			</ul>
			</div>
		</div>
		<div class="content5-right" data-aos="fade-down">
		<a href="$innerlink#theform"><img src="/images/robot-trader.png" class="faa-pulse animated" alt="robot trader" style="max-width:80%"></a>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>
	?;
	
	unless ($page eq "white") {
		print qq?
	<div class="contentblue">
	  <div class="content5-contain">
		<div class="content6-right" data-aos="zoom-in-left">
			<h2 style="color:white">Opportunities in Trading</h2>
			<div class="legal-desc">
			<ul>
				<li><u>Silver Spot Price</u> <b class="fa fa-fire faa-flash animated" style="font-size:40px"></b><br /><i>Invest in the Price of Silver Before it Skyrockets!</i></li>
				<li><u>Digital Money Trading</u><br /><i>Trade VIRTUAL CURRENCY for Profit!</i></li>
				<li><u>Copy-Trader Program</u><br /><i>Automatically COPY THE BEST Traders!</i></li>
			</ul>
			</div>
		</div>
		<div class="content6-left">
		<a href="$innerlink#theform"><img src="/images/rocket.png" class="faa-float animated" alt="win big"></a>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>?;
	}
	#depreciated#
	if ($undept eq "white") {
		print qq?
	<div class="contentpurple">
	  <div class="content3-contain">
		<h2 style="color:#fcf4ff">How to Get Started...</h2>
		<div class="signup3" data-aos="fade-right">
			<i class="fa fa-pencil-square-o" aria-hidden="true"></i>
			<div class="signup3-text">Complete the Form</div>
		</div>
		<div class="signup3" data-aos="fade-up">
			<i class="fa fa-key" aria-hidden="true"></i>
			<div class="signup3-text">Get Access</div>
		</div>
		<div class="signup3" data-aos="fade-left">
			<i class="fa fa-line-chart" aria-hidden="true"></i>
			<div class="signup3-text">Start Profiting!</div>
		</div>
		<div class="chromehack"> </div>
	  </div>
	</div>?;
	}
	
	print qq?
	
  <div class="wrapper1" style="">
	<div class="content cta2" style="">
	
							<form method="post" action="/cgi-bin/geoman.pl" id="contact-ajax" name="contact-ajax">
							<input type="hidden" name="message" id="message" value="network">
							
								<div id="notification">
								</div>
							
								<div class="form-group2" data-aos="fade-right">
									<input type="email" name="email" id="email" class="form-control input-lg" placeholder="Your Email" required>
								</div>
							
								<div class="form-group2" data-aos="fade-left">
									<input type="submit" class="gsnbutton" value="GET STARTED!">
								</div>
								<input type="hidden" name="countrycode" value="$countrycode" />
								<input type="hidden" name="countryname" value="$country_name" />
								<input type="hidden" name="geoname" value="$geoname1" />
								
								<input type="hidden" name="affman" value="" />
							</form>

	</div>
  </div>
  

	<div class="contentorange">
	  <div class="content5-contain">
		<div class="content5-left" data-aos="zoom-in-right">
			<h2 style="color:#ffe750">Start Trading Online!</h2>
			<div class="legal-desc">
			Everyday, millions of people in $country_name and around the world earn a healthy living simply by using PROFITABLE SYSTEMS for trading currencies, commodities, and stocks. Online software has made it easier and more accessible than ever to access the markets. You can <u>work from home</u>, or anywhere you choose to be!<p />
			</div>
		</div>
		<div class="content5-right" data-aos="fade-up">
		<a href="$innerlink#theform"><img src="/images/opportunities.png" class="faa-bounce animated" alt="opp"></a>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>
	<div class="content6" style="">
	  <div class="content6-contain">
		<div class="content6-left">
		<img src="/images/forex-agent.jpg" alt="forex agent" data-aos="fade-right">
		</div>
		<div class="content6-right" data-aos="zoom-in-left">
			<h2>Who We Are...</h2>
			<div class="far-desc">
			<i>ForexAgentReviews.com</i> has won awards as the best Forex review portal website. Launched in 2013, our team has a reputation for publishing fair and thourough ratings online trading platforms. We are clear and concise in our tests of $country_name trading offerings.
			<p /><span style="font-size:14px">Want to find out more\?
			<a href="https://www.forexagentreviews.com/go/">Visit Our Website</a></span>
			</div>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>  
	
	

  <div class="wrapper1" style="">
	<div class="content cta2" style="">
	
							<form method="post" action="/cgi-bin/geoman.pl" id="contact-ajax" name="contact-ajax">
							<input type="hidden" name="message" id="message" value="network">
							
								<div id="notification">
								</div>
							
								<div class="form-group2" data-aos="fade-right">
									<input type="email" name="email" id="email" class="form-control input-lg" placeholder="Your Email" required>
								</div>
							
								<div class="form-group2" data-aos="fade-left">
									<input type="submit" class="gsnbutton" value="BEGIN TODAY!">
								</div>
								<input type="hidden" name="countrycode" value="$countrycode" />
								<input type="hidden" name="countryname" value="$country_name" />
								<input type="hidden" name="geoname" value="$geoname1" />
								
								<input type="hidden" name="affman" value="" />
							</form>

	</div>
  </div>
  ?;
}


sub recommenda {
 if ($page eq "silver") {
  &recommenda1;	
 }
 elsif ($page eq "orig") {
  &recommenda_orig;
 }
 else {
	$country_rep = "mancel";
	$innerlink = "http://www.top5trading.com/recommend/$countrycode/";
	print qq?
  <div class="wrapper1" style="">
<div class="header1" style="">
	<div class="navcontain" style="">
	Amazing Offer for &nbsp;<img src="$cookielessdomain/flags/$geoflagcode\.png" class="faa-tada animated">&nbsp; <a href="$corlink/$addto_links" style="color:white">$country_name</a> Residents! &nbsp; <a href="$domainlink$addto_links" style="font-size:11px; color:#DDDDDD">(change)</a>
	</div>
</div>
	<div class="content" style="">
		<div class="calltoaction" style="">
		<h1 class="h1title" style="">
		What is the <span style="color:red">Best</span> Online Trading <span style="color:red">OPPORTUNITY</span> for People in $country_name\?
		</h1>
		</div>
		<div class="rep" style="background:transparent url('$cookielessdomain/$country_rep\.png') no-repeat scroll 0% 0%">
		
		</div>
	</div>
	<div class="content1" style="">
		<div class="top5table" style="">
			<div class="boxheader" style="">
				<h2 class="compare" id="theform" style="">
				Get Your FREE Recommendation...
				</h2>
			</div>
			<div class="boxes" style="">
				<div class="insideboxes1">
				<b class="fa fa-reply faa-horizontal animated" style="font-size:140px"></b>
				<p />
				<b>Enter Your Email!</b>
				</div>
				<div class="insideboxes">
							<form method="post" action="/cgi-bin/geoman.pl" id="contact-ajax" name="contact-ajax">
							<input type="hidden" name="message" id="message" value="network">
							
								<div id="notification">
								</div>

								<div class="form-group">
									<input type="email" name="email" id="email" class="form-control input-lg" placeholder="Your Email" required>
								</div>

								<div class="form-group">
									<input onclick="exit=false" name="submit" id="formbutton" type="submit" value="TELL ME!" class="btn btn-block btn-lg btn-success" />
									<p class="help-block text-center"><b class="fa fa-lock" style="font-size:16px"></b> Your information will never be shared or sold</p>
								</div>
								<input type="hidden" name="countrycode" value="$countrycode" />
								<input type="hidden" name="countryname" value="$country_name" />
								<input type="hidden" name="geoname" value="$geoname1" />
								
								<input type="hidden" name="affman" value="" />
							</form>
				</div>
			</div>
		</div>
	</div>
  </div>
  
	<div class="contentblue">
	  <div class="content5-contain">
		<video width="100%" controls="controls" tabindex="0" poster="/images/system-thumb.jpg">
		<source src="/images/tradingvid.mp4" type="video/mp4" />
		<source src="/images/tradingvid.webm" type="video/webm" />
		<source src="/images/tradingvid.flv" type="video/flv" />
		Unfortunately this video could not load in your browser.
		</video>
		<div class="viddesc">This presentation contains images that were used under a Creative Commons License. Click here to see the full list of images and attributions:

https://app.contentsamurai.com/cc/284108</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>
		
	<div class="contentgreen">
	  <div class="content5-contain">
		<div class="content5-left" data-aos="zoom-in-right">
			<h2 style="color:#b0eff9">What Can We Do For You\?</h2>
			<div class="legal-desc">
			<ul>
				<li>Find a <u>Secure and Reliable</u> Trading Website</li>
				<li>Avoid Being Scammed or Deceived</li>
				<li>Learn How to <u>Trade Systematically</u></li>
				<li>Become a Profitable Trader</li>
				<li>Get the <u>Best Value</u> for Your Investment</li>
				<li><u>Trade Legally</u> in $country_name</li>
			</ul>
			</div>
		</div>
		<div class="content5-right" data-aos="fade-down">
		<a href="$innerlink#theform"><img src="/images/robot-trader.png" class="faa-float animated" alt="robot trader"></a>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>
	?;
	
	unless ($page eq "white") {
		print qq?
	<div class="contentred">
	  <div class="content5-contain">
		<div class="content6-right" data-aos="zoom-in-left">
			<h2 style="color:#ffc2c2">What's HOT in Trading...</h2>
			<div class="legal-desc">
			<ul>
				<li><u>Marijuana Penny Stocks</u> <b class="fa fa-fire faa-flash animated" style="font-size:40px"></b><br /><i>Trade LEGAL Canadian Pot Companies!</i></li>
				<li><u>Digital Money Trading</u><br /><i>Trade VIRTUAL CURRENCY for Profit!</i></li>
				<li><u>Copy-Trader Program</u><br /><i>Automatically COPY THE BEST Traders!</i></li>
			</ul>
			</div>
		</div>
		<div class="content6-left">
		<a href="$innerlink#theform"><img src="/images/opportunities.png" class="faa-bounce animated" alt="opp"></a>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>?;
	}
	#depreciated#
	if ($undept eq "white") {
		print qq?
	<div class="contentpurple">
	  <div class="content3-contain">
		<h2 style="color:#fcf4ff">How to Get Started...</h2>
		<div class="signup3" data-aos="fade-right">
			<i class="fa fa-pencil-square-o" aria-hidden="true"></i>
			<div class="signup3-text">Complete the Form</div>
		</div>
		<div class="signup3" data-aos="fade-up">
			<i class="fa fa-key" aria-hidden="true"></i>
			<div class="signup3-text">Get Access</div>
		</div>
		<div class="signup3" data-aos="fade-left">
			<i class="fa fa-line-chart" aria-hidden="true"></i>
			<div class="signup3-text">Start Profiting!</div>
		</div>
		<div class="chromehack"> </div>
	  </div>
	</div>?;
	}
	
	print qq?
	
  <div class="wrapper1" style="">
	<div class="content cta2" style="">
	
							<form method="post" action="/cgi-bin/geoman.pl" id="contact-ajax" name="contact-ajax">
							<input type="hidden" name="message" id="message" value="network">
							
								<div id="notification">
								</div>
							
								<div class="form-group2" data-aos="fade-right">
									<input type="email" name="email" id="email" class="form-control input-lg" placeholder="Your Email" required>
								</div>
							
								<div class="form-group2" data-aos="fade-left">
									<input type="submit" class="gsnbutton" value="GET STARTED!">
								</div>
								<input type="hidden" name="countrycode" value="$countrycode" />
								<input type="hidden" name="countryname" value="$country_name" />
								<input type="hidden" name="geoname" value="$geoname1" />
								
								<input type="hidden" name="affman" value="" />
							</form>

	</div>
  </div>
  

	<div class="contentorange">
	  <div class="content5-contain">
		<div class="content5-left" data-aos="zoom-in-right">
			<h2 style="color:#ffe750">Skyrocketing Profits!</h2>
			<div class="legal-desc">
			Everyday, millions of people in $country_name and around the world earn a healthy living simply by using PROFITABLE SYSTEMS for trading currencies, commodities, and stocks. Online software has made it easier and more accessible than ever to access the markets. You can <u>work from home</u>, or anywhere you choose to be!<p />
			</div>
		</div>
		<div class="content5-right" data-aos="fade-up">
		<a href="$innerlink#theform"><img src="/images/rocket.png" class="faa-float animated" alt="win big"></a>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>
	<div class="content6" style="">
	  <div class="content6-contain">
		<div class="content6-left">
		<img src="/images/forex-agent.jpg" alt="forex agent" data-aos="fade-right">
		</div>
		<div class="content6-right" data-aos="zoom-in-left">
			<h2>Who We Are...</h2>
			<div class="far-desc">
			<i>ForexAgentReviews.com</i> has won awards as the best Forex review portal website. Launched in 2013, our team has a reputation for publishing fair and thourough ratings online trading platforms. We are clear and concise in our tests of $country_name trading offerings.
			<p /><span style="font-size:14px">Want to find out more\?
			<a href="https://www.forexagentreviews.com/go/">Visit Our Website</a></span>
			</div>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>  ?;
 }
}

sub recommenda_orig {
	print qq?
  <div class="wrapper1" style="">
<div class="header1" style="">
	<div class="navcontain" style="">
	Exclusive Offer for <img src="$cookielessdomain/flags/$geoflagcode\.png"> <a href="$corlink/$addto_links" style="color:white">$country_name</a> Residents! &nbsp; <a href="$domainlink$addto_links" style="font-size:11px; color:#DDDDDD">(change country)</a>
	</div>
</div>
	<div class="content" style="">
		<div class="calltoaction" style="">
		<h1 class="h1title" style="">
		What is the <span style="color:red">Best</span> Online Trading <span style="color:red">OPPORTUNITY</span> for People in $country_name\?
		</h1>
		</div>
		<div class="rep" style="background:transparent url('$cookielessdomain/$default_rep\.png') no-repeat scroll 0% 0%">
		
		</div>
	</div>
	<div class="content1" style="">
		<div class="top5table" style="">
			<div class="boxheader" style="">
				<h2 class="compare" id="theform" style="">
				Get Your FREE Recommendation...
				</h2>
			</div>
			<div class="boxes" style="">
				<div class="insideboxes1">
				<b class="fa fa-reply" style="font-size:180px"></b>
				<p />
				<b>Complete the Form!</b>
				</div>
				<div class="insideboxes">
							<form method="post" action="/cgi-bin/geoman.pl" id="contact-ajax" name="contact-ajax">
							<input type="hidden" name="message" id="message" value="network">
							
								<div id="notification">
								</div>
							
								<div class="form-group">
									<input type="text" name="fname" id="fname" class="form-control input-lg" placeholder="Your Name">
								</div>
								
								<div class="form-group">
									<input type="email" name="email" id="email" class="form-control input-lg" placeholder="Your Email">
								</div>
								
								<div class="form-group">
									<select name="platform" class="form-control input-lg">
									<option value="">Your Interest (optional)</option>
									<option value="">-- Platforms --</option>
									<option value="forex">Best Forex Trading Broker</option>
									<option value="cfd">Best CFD Trading Broker</option>
									<option value="ecn">Best ECN or STP Broker</option>
									<option value="mt4">Best MetaTrader 4 Broker</option>
									<option value="binary">Best Binary Options Broker</option>
									<option value="">-- Opportunities --</option>
									<option value="pot">Marijuana Penny Stocks</option>
									<option value="crypto">Digital Currency System</option>
									<option value="auto">Auto-Trader Software</option>
									<option value="copy">Copy-Trader Program</option>
									<option value="">-- Not Sure Yet\? --</option>
									<option value="">I Don't Care!</option>
									</select>
								</div>
								
								<div class="form-group">
									<select name="investment" class="form-control input-lg">
									<option>Your Investment (optional)</option>
									<option>1 - 250</option>
									<option>250 - 1000</option>
									<option>1000 - 5000</option>
									<option>5000+</option>
									<option>Demo Account Only</option>
									<option>I Don't Know Yet!</option>
									</select>
								</div>
								
								<div class="form-group">
									<input onclick="exit=false" name="submit" id="formbutton" type="submit" value="SUBMIT REQUEST" class="btn btn-block btn-lg btn-success" style="font-size:24px" />
									<p class="help-block text-center"><b class="fa fa-lock" style="font-size:16px"></b> Your information will never be shared or sold</p>
								</div>
								<input type="hidden" name="countrycode" value="$countrycode" />
								<input type="hidden" name="countryname" value="$country_name" />
								<input type="hidden" name="affman" value="" />
							</form>
				</div>
			</div>
		</div>
	</div>
  </div>
	
	<div class="contentgreen">
	  <div class="content5-contain">
		<div class="content6-right">
			<h2>Hottest Opportunites</h2>
			<div class="legal-desc">
			<ul>
				<li><u>Marijuana Penny Stocks</u><br /><i>Trade Legal Canadian Pot Companies!</i></li>
				<li><u>Digital Money Trading</u><br /><i>Trade Digital Currencies for Profit!</i></li>
				<li><u>Copy-Trader Program</u><br /><i>Automatically Copy the Best Traders!</i></li>
			</ul>
			</div>
		</div>
		<div class="content6-left">
		<a href="#theform"><img src="/images/opportunities.png" alt="opp"></a>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>

	<div class="contentorange">
	  <div class="content5-contain">
		<div class="content5-left">
			<h2>Earn Money by Trading</h2>
			<div class="legal-desc">
			Everyday, millions of people in $country_name and around the world earn a healthy living simply by trading currencies, commodities, and stocks. Powerful online software has made it easier and more accessible than ever to access the markets. Online traders can <u>work from home</u>, or anywhere they choose to be!<p />
			</div>
		</div>
		<div class="content5-right">
		<a href="#theform"><img src="/images/rocket.png" alt="win big"></a>
		</div>
		<div class="chromehack" style=""> </div>
	  </div>
	</div>
	
	<div class="contentpurple">
	  <div class="content3-contain">
		<h2>How to Trade in $country_name</h2>
		<div class="signup3">
			<i class="fa fa-pencil-square-o" aria-hidden="true"></i>
			<div class="signup3-text">Complete the Form</div>
		</div>
		<div class="signup3">
			<i class="fa fa-trophy" aria-hidden="true"></i>
			<div class="signup3-text">Get Our Recommendation</div>
		</div>
		<div class="signup3">
			<i class="fa fa-line-chart" aria-hidden="true"></i>
			<div class="signup3-text">Start Trading!</div>
		</div>
		<div class="chromehack"> </div>
	  </div>
	</div>
  <div class="wrapper1" style="">
	<div class="content" style="text-align:center; padding:120px 0">
				<a class="gsnbutton" href="#theform" rel="nofollow">GET STARTED NOW</a>
	</div>
  </div>?;
}

sub recommenda_result {
  $firstname = $FORM{fname};
  if ($firstname =~ /(.*) (.*)/) {
	$firstname = $1;
  }
  
  # change to 1 to add step 2 #
  if ($rec_step == 13) {
	$meta_title = "Please Answer a Few Questions - Trading Opportunity";
	$meta_desc = "Please answer a few more questions so that we can help you find the right opportunity.";
	$bgimage = "forrestbg.jpg";
  }
  else {
	$meta_title = "Your Result! Trading Opportunity";
	$meta_desc = "You submitted a form to find the best trading platform for your needs. Theses are the results.";
	$bgimage = "marketbg.jpg";
  }
  print qq?<!DOCTYPE html>

<html style="height:100%">
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
  <title>$meta_title</title>
  <meta name="description" content="$meta_desc">
  
  <link rel="stylesheet" href="/go-style.css">
  <link rel="stylesheet" href="/font-awesome-animation.min.css">
  <link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/font-awesome/4.7.0/css/font-awesome.min.css">
  <meta name="robots" content="NOINDEX,FOLLOW" >
  
  <style>
body {
	font-family:arial;
	font-size:14px;
	height:100%;
	background-image:url(/images/$bgimage)
}
.no1-logo {
	padding:20px;
	border-radius:12px;
}
.result-contain {
	max-width:600px;
	margin:0 auto;
	padding:10px;
	background-color:#FFFFFF;
	background-image:url(/images/gradient.png);
	border-radius:12px;
}
.result-texta {
	padding:28px 0;
	font-size:28px;
	line-height:40px;
}
.fourpoints {
	padding:0 0 10px 0;
	color:#555555;
	font-size:16px;
	line-height:28px;
}
.notconvinced {
	padding:50px 0 0;
	text-align:center; 
	font-size:18px;
	line-height:24px;
}
.another-rec {
	font-style:italic;
	font-size:11px;
}
.no1-logo {
	max-width:100%;
}
.no1-ul {
	margin-left:20px;
}
input, textarea, select {
    background-color: #F7F8E7;
    color: #222222;
    font-family: verdana;
    font-weight: normal;
    font-size: 12pt;
    padding: 10px;
    border-radius: 4px;
    border: 1px solid #999999;
    width: 100%;
    box-sizing:border-box;
}
.form-group {
	padding:12px 0;
}

.bcontain-left {
	float:left;
	width:48%;
	text-align:left;
}
.bcontain-right {
	float:right;
	width:48%;
	text-align:right;
}

.realbutton, .boxbutton2 {
	min-width:220px;
}
.ctas-contain {
	padding-top:30px;
}

h1 {
	background-color: #e1e1e1;
    padding: 10px;
    margin: 0 0 10px 0;
	border-radius:4px;
	text-shadow:1px 1px 2px #999999;
}

.spinna {
	width: auto !important;
    padding: 4px !important;
    font-size: 45px !important;
    color: #222222 !important;
    float: right !important;
}

\@media (max-width:767px) {
	body {
		background-image:none;
	}
	.result-contain {
		border-radius:0;
	}
	
	.bcontain-left, .bcontain-right {
		float:none;
		width:100%;
		text-align:center;
		padding:10px 0;
	}
}
  </style>
</head>

<body style="">
<table width="100%" height="100%">
  <tr>
  <td valign="center">
  <div class="result-contain" style="">?;
  
  $no1code = $_[0];
  $no1style = $_[1];
  
  # more questions #
  # change to 1 to add step 2 #
  if ($rec_step == 13) {  
	print qq?				<b class="fa fa-cog faa-spin animated spinna"></b>
							<h1>Please Complete the Form...</h1>
							<form method="post" action="/cgi-bin/geoman.pl" id="contact-ajax" name="contact-ajax">
								<div class="form-group">
									<input name="email" type="text" value="$FORM{email}" placeholder="Your Email" required>
								</div>

								<div class="form-group">
									<select name="opportunity" class="form-control input-lg">
									<option value="">Your Opportunity (optional)</option>
									<option value="pot">Marijuana Penny Stocks</option>
									<option value="crypto">Digital Currency System</option>
									<option value="copy">Copy-Trader Program</option>
									<option value="">I Just Want to Trade!</option>
									</select>
								</div>

								<div class="form-group">
									<select name="platform" class="form-control input-lg">
									<option value="">Your Trading Platform (optional)</option>
									<option value="forex">Forex Trading Broker</option>
									<option value="cfd">CFD Trading Broker</option>
									<option value="binary">Binary Options Broker</option>
									<option value="ecn">ECN or STP Broker</option>
									<option value="mt4">MetaTrader 4 Broker</option>
									<option value="">I Don't Care!</option>
									</select>
								</div>

								<div class="form-group">
									<select name="investment" class="form-control input-lg">
									<option value="">Your Investment (optional)</option>
									<option value="50">1 - 50</option>
									<option value="250">51 - 250</option>
									<option value="1000">251 - 1000</option>
									<option value="5000">1001 - 5000</option>
									<option value="5001">5001+</option>
									<option value="demo">0 (Free Demo Account!)</option>
									<option value="demo">I Don't Know Yet!</option>
									</select>
								</div>

								<div class="form-group">
									<select name="experience" class="form-control input-lg">
									<option value="">Your Experience (optional)</option>
									<option value="1">Less Than 1 Year</option>
									<option value="2">1 to 2 Years</option>
									<option value="5">2 to 5 Years</option>
									<option value="6">More Than 5 Years</option>
									<option value="none">I Have Not Traded Before!</option>
									</select>
								</div>

								<input type="hidden" name="message" id="message" value="network">
								<input type="hidden" name="countrycode" value="$FORM{countrycode}" />
								<input type="hidden" name="countryname" value="$FORM{countryname}" />
								<input type="hidden" name="date3" value="$date3" />
								<input type="hidden" name="date2" value="$date2" />
								<input type="hidden" name="geoname" value="$FORM{geoname}" />
								<input type="hidden" name="affman" value="" />
								
								<div class="form-group">
									<input type="submit" value="Get Your Opportunity" style="font-size:24px; font-weight:bold; background-color:#53f52b">
								</div>
							</form>?;
  }
  else {
   # the result #
   if ($rank1blocked{$no1code} eq "true") {
	print "ERROR: No results found";
   }
   else {
	print qq?
			<div class="no1-logo" style="background-color:$rank1boxcolor{$no1code}">
			<a href="$rank1link{$no1code}\" rel=\"nofollow\" target=\"_blank"><img src="$cookielessdomain/$rank1type{$no1code}/logo/$rank1code{$no1code}\.png" alt="$rank1code{$no1code}"></a>
			</div>
			
			<div class="result-texta" style="">
			The best choice for you is <a href="$rank1link{$no1code}\" rel=\"nofollow\" target=\"_blank"><b>$rank1name{$no1code}</b></a>\!
			<b class="fa fa-bell faa-tada animated" style="padding:0 30px; font-size:45px; color:#444444; float:right"></b>
			</div>
			
			<div class="fourpoints" style="">
			<i>Here are a few reasons why people in $FORM{countryname} like to trade there:</i>
			</div>
			
			<ul class="no1-ul fourpoints" style="">?;
	
	&fourpoints("$no1code");
	
	print qq?
			</ul>

			<div class="ctas-contain">
				<div class="bcontain-left" style="">
				<a class="realbutton" href="$rank1link{$no1code}\" rel=\"nofollow\" target=\"_blank" style="">Open an Account</a>
				</div>
				<div class="bcontain-right" style="">?;
	if ($rank1demolink{$no1code}) {
		print qq?
				<a class="boxbutton2" href="$rank1demolink{$no1code}" target='_blank' rel='nofollow' style="">Try a Free Demo</a>?;
	}
	else {
		print qq?
				<a class="realbutton realblockedbutton" style="">Try a Free Demo</a>?;
	}
	print qq?
				</div>
			</div>
			<div class="chromehack"> </div>
			
			<div class="notconvinced" style="">
			<i>Not Convinced Yet\?</i>
			<br />
			<a href="$corlink/review/$rank1code{$no1code}/$addto_links" title="$rank1name{$no1code} $country_name" style="color:#555555">Read Our $rank1name{$no1code} Review</a>
			 or 
			<a href="$rank1link{$no1code}\" rel=\"nofollow\" target=\"_blank">Get <b>$rank1offer{$no1code}</b> for $rank1name{$no1code}\!</a>
			<p />
			<a href="http://www.top5trading.com/recommend/$FORM{countrycode}/" class="another-rec" style="color:#888888">Go Back and Get Another Recommendation</a>?;
   }
  }
  print qq?
  </div>
  </td>
  </tr>
</table>

</body>
</html>?;
}


sub usa_result {
  $forexcomlink = "https://www.cryptoexchangelistings.com/go/unitedstates-en/?utm_source=t5t";
  $forexcomname = "Crytpo Exchange Listings";
  $forexcomlogo = "https://www.cryptoexchangelistings.com/images/crypto-exchange-listings.png";
  print qq?<!DOCTYPE html>

<html style="height:100%">
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
  <title>$rank1name{$thisrank} for USA - Best Alternative for Americans</title>
  <meta name="description" content="Can you sign up for $rank1name{$thisrank} in the United States\? We have a link you can use to register for $rank1name{$thisrank}\'s top alternative.">
  
  <link rel="stylesheet" href="$the_url/images/go-style.css">
  <meta name="robots" content="NOINDEX,NOFOLLOW" >
  
  <style>
body {
	font-family:arial;
	font-size:16px;
	line-height:24px;
	height:100%;
}
.main-contain {
	max-width:600px;
	margin:0 auto;
}
.usa-h1 {
	text-align:center;
}
.flag-center {
	text-align:center;
	padding-top:30px;
}
.usa-warning {
	color:red;
	font-style:italic;
}
.usa-warning1 {
	padding:30px 0 0;
	text-align:left;
}
.usa-left {
	float:left;
	width:48%;
	text-align:center;
	font-size:14px;
}
.usa-right {
	float:right;
	width:48%;
	text-align:center;
	font-size:14px;
}
.usa-logo {
	padding:20px;
	border-radius:12px;
}
.usa-logoimg {
	height:60px;
}
.usa-goback a:link, .usa-goback a:visited {
	font-style:italic;
	font-size:11px;
	color:#888888;
}

\@media (max-width:767px) {
	.main-contain {
		padding:10px;
	}
	.usa-right, .usa-left {
		clear:both;
		float:none;
		width:auto;
		padding:20px 0;
	}
}
  </style>
</head>

<body>
<table width="100%" height="100%">
  <tr>
  <td valign="center">
  <div class="main-contain">?;
  
  $no1code = $_[0];
  $no1style = $_[1];
  if ($rank1blocked{$no1code} eq "true") {
	print "ERROR: No results found";
  }
  else {
	print qq?
			<h1 class="usa-h1">$rank1name{$thisrank} for USA</h1>
			
			<div class="flag-center">
			<img src="$the_url/images/american-flag.jpg">
			<p /><span class="usa-warning"><b>WARNING!</b><br />United States Clients Not Permitted</span>
			</div>
			
			<div class="usa-warning1">
			Are you in the United States\? Unfortunately, <b>$rank1name{$thisrank} do not offer their service to Americans</b>. If you are living there, you will not be able to sign up for an account. We recommend that you check out <a href="$forexcomlink" target="_blank">$forexcomname</a> instead. They accept American clients!
			</div>
			
			<div style="padding:50px 0 0" class="chromehack"> </div>

			<div class="usa-left">
				<div class="no1-logo usa-logo" style="background-color:#bef4ff">
			<a href="$forexcomlink" target="_blank"><img src="$forexcomlogo" alt="$rank1code{$no1code}" class="usa-logoimg"></a>
				</div>
			Sure, please <a href="$forexcomlink" rel="nofollow" target="_blank">take me to $forexcomname</a>
			</div>
			<div class="usa-right">
				<div class="no1-logo usa-logo" style="background-color:#DDDDDD">
			<a href="$rank1link{$thisrank}\" rel=\"nofollow\" target=\"_blank"><img src="$cookielessdomain/$rank1type{$thisrank}/logo/$rank1code{$thisrank}\.png" alt="$rank1code{$no1code}" class="grayscale usa-logoimg"></a>
				</div>
			<b>I'm not in the USA!</b> <a href="$rank1link{$thisrank}" rel=\"nofollow\" target=\"_blank">Continue to $rank1name{$thisrank}</a>
			</div>
			
			<div class="chromehack"> </div>
			
			<div class="usa-goback" style="padding:30px 0 0; text-align:center">
			<a href="javascript:history.back()">Go Back to the Website</a>
			<p />
			<a href="https://www.forexagentreviews.com">&copy;2024 Forex Agent Reviews</a>
			</div>?;
  }
  print qq?
  </div>
  </td>
  </tr>
</table>

@statcounter_code

</body>
</html>?;
}

sub recon_order {
  ################# RECOMMENDA RESULTS ####################
  $cookielessdomain = "https://source.rvmp.net";
  &parse_form;
  if ($FORM{saver}) {
	&go_order;
  }
  else {
	if ($FORM{date3}) {
		$rec_file = $FORM{date3};
		$read_date = $FORM{date2};
		$rec_step = 2;
	}
	else {
		&get_date;
		$rec_file = $date3;
		$read_date = $date2;
		$rec_step = 1;
	}
	
	print "Content-type: text/html\n\n";
	$language = $FORM{language};
	unless ($language) {
		$language = "en";
	}
	$filtasort = "scoresort";
	
	if ($FORM{platform} eq "binary") {
		#$filtasort = "filtersort";#
		$fst = "16";
		$filterman = "binary";
	}
	elsif ($FORM{platform} eq "ecn") {
		#$filtasort = "filtersort";#
		$fst = "23";
		$filterman = "ecn";
	}
	elsif ($FORM{platform} eq "mt4") {
		#$filtasort = "filtersort";#
		$fst = "15";
		$filterman = "metatrader";
	}
	elsif ($FORM{platform} eq "cfd") {
		#$filtasort = "filtersort";#
		$fst = "20";
		$filterman = "cfds";
	}
	else {
		$filtasort = "scoresort";
	}
	
	#demo required?#
	if ($FORM{investment} eq "demo") {
		$demo_required = "true";
	}
	
	$countrycode = $FORM{countrycode};
	
	&check_countryinfo;
	&corlinks;
	&geo_check;
	&build_database;
	&find_defaults;
	&recommenda_result("1","reviewlist");
	
	if ($rec_file < 2019999999999) {
		$rec_file = "$rec_file\0";
	}
	open(savedata, ">$basedir/data/recommenda/$rec_file\.txt");
	print savedata "$FORM{fname}\|$FORM{email}\|$FORM{opportunity}\|$FORM{platform}\|$FORM{investment}\|$FORM{countrycode}\|$FORM{geoname}\|$read_date\|$ENV{'REMOTE_ADDR'}\|$ENV{'HTTP_USER_AGENT'}\|$rank1name{$no1code}\|";
	close(savedata);
	
	exit;
	#####################################
  }
}

sub custom_geocheck {
  	if ($geoip) {
		$geochecked = "done";
		
		&geo_list("searching");
		
		unless ($geoip eq "US") {
			&log_ip;
		}
	}
	if ($geoip eq "US") {
		$usa_version = "true";
		$usa_link = "http://www.top5trading.com/unitedstates/%brand%/lang-en/";
	}
}

sub get_date {
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   $mon_num = $mon+1;
   $sec = "0$sec" if ($min < sec);
   $min = "0$min" if ($min < 10);
   $hour = "0$hour" if ($hour < 10);
   $mon_num = "0$mon_num" if ($mon_num < 10);
   $mday = "0$mday" if ($mday < 10);
   $year = 1900 + $year;
   $year0 = $year + 3;

   $date  = "/$wday/$mon_num/$mday/$year/$hour:$min";
   $date0 = "/$wday/$mon_num/$mday/$year0/$hour:$min";
   $date2 = "$mon_num/$mday/$year";
   $date3 = "$year$mon_num$mday$hour$min$sec";
   $datemin = "$year$mon_num$mday$hour$min";
   $crazdate = "$year$mon_num$mday$hour";
   $admindate = "$year$mon_num$mday";
   $date4 = "$mon_num/$mday/$year, $hour:$min";
   
   $postdate = "$mon_num\-$mday\-$year";
}

1;
#~#~# blank #~#~#