#~#~# 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; } 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}\|"); $passover{$rp} = "good"; } } } 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 = ; close(proxcodes); $every10=9; print qq?
Show English Countries [+]
Show Europe Countries [+]
Show All Other Countries [+]

?; 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? ?; &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}","errorsfix!"); print qq? ?; } print qq?
ave rank brand listings ave score #1s #2s #3s 4-5s 6-10s blocked errors
\#$avgpos
$revtit{$relivantlistings}
$listings{$relivantlistings} $avgrank
?; } sub filterwords_tab { print qq?

Show [+]
?; if ($ns11>=1) { print "

$ns11 $_[3]\n"; } print qq??; } sub no1s { print qq?

Show [+]

$ns1?; if ($ns1a) { print " ($ns1a)"; } print qq??; } sub build_line { @review_list=(""); &build_database; $boxess = 0; $every10++; if ($every10 == 10) { print qq? 12345 678910 ?; $every10 = 0; } print qq? $_[0]?; foreach $review_list (@review_list) { $boxess++; $dacode = $rank1code{$boxess}; if ($boxess<=10) { print qq?

$rank1name{$boxess} $rank1score{$boxess}
?; 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? ?; } 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; #~#~# gosubs #~#~# sub go_order { ##### $t_robots = ""; &parse_form(register); if ($FORM{saver}) { &save_changes; } $the_uri = $ENV{'HTTP_HOST'}; 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); $getip = $ENV{'REMOTE_ADDR'}; # 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; $date = "/$wday/$mon_num/$mday/$year/$hour:$min"; $admindate = "$year$mon_num$mday$hour$min$sec"; 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=(" "); @extra_footer=(" "); #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; } if ($language ne "en") { unless (-f "$basedir/data/proxcodes\-$language\.txt") { ¬_found("no such language lang: $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 "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; } ####### Make Meta ####### if ($regulator eq "blocked") { ¬_found("Sorry, you cannot access this website in your country"); } if ($b_area) { unless ($rank1name{$thisrank}) { ¬_found("89"); } if ($rank1blocked{$thisrank} eq "null") { ¬_found("90"); } if ($a_area eq "reviews") { $t_title = "$w_review_title"; $t_summary = "$w_review_desc1 $w_review_desc2 $w_review_desc3"; 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; } &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 ($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"; } } if ($articledir) { open(articlefound,"$articledir"); flock articlefound, 2; @articlefound = ; close(articlefound); } $t_layout = "article"; $a_title = "$w_articles"; $a_area = "article"; unless ($b_title) { ¬_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") { ¬_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 = ""; } $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 = "

$w_explainer_h1{$filterman}

$w_explainer_para1{$filterman} $w_explainer_para2{$filterman}

$w_explainer_para3{$filterman} $w_explainer_para4{$filterman}

\"$filterman\" $w_reviews{$filterman}
"; } else { $rl_sen_extend = "

$w_explainer_h1{$filterman}

$w_explainer_para1{$filterman} $w_explainer_para2{$filterman}

$w_explainer_para3{$filterman} $w_explainer_para4{$filterman}

"; } } &checkpush("$checkpoint1"); &checkpush("$checkpoint2"); &checkpush("$checkpoint3"); &checkpush("$checkpoint4"); &checkpush("$checkpoint5"); &checkpush("$checkpoint6"); &checkpush("$checkpoint7"); &checkpush("$checkpoint8"); $rl_sen = "$rl_sen_extend$w_searchingfor1{$filterman} $w_review_list_desc2a{$filterman} $w_review_list_desc3

$rl_sen_add  /  $w_fulllist"; $extrakeyword = "$w_{$filterman} "; unless ($w_review_list_title{$filterman}) { ¬_found("160"); } } 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 = ""; } $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

$w_wedisplayall

$rl_sen_add  /  $w_fulllist"; } } elsif ($a_area eq "articles") { $t_title = "$w_articles_title"; $t_summary = "$w_articles_desc"; $t_layout = "article"; $a_title = "$w_articles"; $langlink = "$cor2link/$a_area/$addto_links"; $langlink2 = "$cor3link/$a_area/$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 { ¬_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) { ¬_found("255"); } # 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}; } unless ($finishlink) { if ($rank1code{$rtt}) { $finishlink = "$corlink/review/$rank1code{$rtt}/$addto_links"; } else { $finishlink = "$corlink/$addto_links"; } } print "Location: $finishlink\n\n"; exit; } 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")) { ¬_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?

?; &print_nav; &print_no1_box("1","reviewlist"); &print_review_list; &print_compare_box; &print_bottom10_box; &print_newslettercatch; &print_footer; print qq?
?; &print_endbody; } ## listing - short review ## elsif ($t_layout eq "listing") { &print_head; &print_body; &print_header; print qq?
?; &print_nav; &print_listing; if ($include_chart eq "true") { if ($thisrank) { $wch1 = $w_comparison_chart_inner_h1; } else { $wch1 = $w_comparison_chart_h1; } print qq?

$wch1

?; &print_chart_block; print qq?
?; } elsif ($thisrank == 1) { &print_no1_box("2","reviewstyle"); } else { &print_no1_box("1","reviewstyle"); } &print_bottom10_box; &print_footer; print qq?
?; &print_endbody; } ## article ## elsif ($t_layout eq "article") { &print_head; &print_body; &print_header; print qq?
?; &print_nav; if ($articlefound eq "yes") { print qq?
?; } elsif ($readthis eq "legal-info") { &print_legal_box; } else { print "$articledir not found"; } &print_no1_box("1",""); &print_no1_box("2",""); &print_no1_box("3",""); &print_compare_box; &print_bottom10_box; &print_newslettercatch; &print_footer; print qq?
?; &print_endbody; } ## main page ## elsif ($t_layout eq "main") { &print_head; &print_body; &print_header; print qq?
?; &print_nav; &print_main_intro; &print_top5_box; print qq?
?; 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 = ; close(mainblerb); } else { $mbsentence = "$w_forexmainsen1 $w_forexmainsen2

$w_forexmainsen3 $w_forexmainsen4"; } unless ($oblerb_img) { $oblerb_img = "/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?

$w_comparison_chart_h1

?; &print_chart_block; print qq?
?; } &print_steps3_box; &print_legal_box("index"); &print_no1_box("1","mainpage"); &print_no1_box("2","mainpage"); &print_no1_box("3","mainpage"); &print_compare_box; &print_bottom10_box; &print_newslettercatch; &print_footer; print qq?
?; &print_endbody; } else { ¬_found("317"); } } } else { unless (($t_layout eq "review") or ($t_layout eq "about") or ($t_layout eq "blank")) { ¬_found("364 $t_layout"); } if ($t_layout eq "review") { unless ($rank1intro{$thisrank}) { ¬_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 = ""; } } &print_head; &print_body; &print_header; print qq?
?; &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?
?; &print_endbody; } ## about page ## elsif ($t_layout eq "about") { &print_head; &print_body1; &print_header; print qq?
?; &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?
?; &print_endbody; } ## countryselect ## elsif ($t_layout eq "blank") { &print_head; &print_body1; &print_header; print qq?
?; &print_country_select; print qq?
?; if ($othercountries) { print qq? ?; } print qq?
?; &print_footer; print qq?
?; &print_endbody; } else { ¬_found("363"); } } ##### } ################################################################################### ################################################################################### 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 = ; close(reportclick); } open(reportclick,"$basedir/data/report-click/$report_this\.txt"); flock reportclick, 2; $reportclick = ; close(reportclick); $reportclick++; open(reportclick,">$basedir/data/report-click/$report_this\.txt"); flock reportclick, 2; print reportclick "$reportclick"; close(reportclick); } sub review_schema { $t_schema = ""; } sub checkpush { if ($_[0]) { $cp1 = $_[0]; if ($w_{$cp1}) { $cp1a++; if ($cp1a>1) { $addcp1 = "  \/  "; } if ($filterman eq $cp1) { $rl_sen_add = "$rl_sen_add\n $addcp1$w_{$cp1}"; } else { $rl_sen_add = "$rl_sen_add\n $addcp1$w_{$cp1}"; } } } } 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 { if (($rank1square{$thisrank} =~ /7.5) && ($rank1blocked{$thisrank} ne "true")) { $square_ad = $rank1square{$thisrank}; } elsif (length($rank1square{1})>4) { $square_ad = $rank1square{1}; } elsif (length($rank1square{2})>4) { $square_ad = $rank1square{2}; } elsif (length($rank1square{3})>4) { $square_ad = $rank1square{3}; } elsif (length($rank1square{4})>4) { $square_ad = $rank1square{4}; } else { $square_ad = "N/A"; } unless ($regulator) { $regulator = $default_reg; } } 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]; $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? $ttp $t_title logo

404 Not Found

($_[0]) ?; exit; } ############################################################################### 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"; } print qq? $t_title $t_robots $t_schema ?; foreach $languages (@languages) { &lang_display("hreflang"); } print qq? ?; if ($the_css) { print qq? ?; } if ($the_css_chart) { print qq? ?; } if ($the_css_custom) { print qq? ?; } if ($the_css_mobile) { print qq? ?; } if ($the_css_mobile_custom) { print qq? ?; } print qq? @extra_header @extra_header2 ?; } sub print_body { print qq? ?; print @disclaimer_code; } sub print_body1 { print qq? ?; } sub print_header { unless ($topbold) { $topbold = "#DDDDDD"; } print qq?
?; } sub top_menu { if ($top_menu_custom eq "yes") { &top_menu_custom; } else { if ($_[3]) { print qq? ?; } } } sub lang_check { if (($t_layout eq "about") or ($t_layout eq "blank")) { print qq?
?; foreach $languages (@all_languages) { &lang_display; } print qq?
?; } elsif ($lgcount1>1) { print qq?
?; foreach $languages (@languages) { &lang_display; } print qq?
?; } } sub lang_display { &lang_link_insert("","$languages"); if ($_[0] eq "hreflang") { if ($langlink1 eq $langlink1a) { print qq? ?; } elsif ($langlink2) { print qq? ?; if (@langaw[1]) { print qq? ?; } } else { print qq? ?; } } else { $lpcount++; if ($lpcount>1) { print "     "; } if ($languages eq $language) { print "$language{$languages}"; } } 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?
?; } 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"; } print qq?

$w_choosecountry

?; if ($geofound eq "true") { unless ($geoblck eq "blocked") { print qq?
$w_geoguess1 $w_geoguess2 $w_geoguess3\! $w_geoguess4
?; } } print qq?
?; &geo_list; print qq?
?; } 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"; } print qq?

$w_h1_title

$w_searchingforA $w_wehave $w_startnowwithA $w_startnowwith_link

?; } 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?

$w_top5title

?; 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; } print qq? ?; } print qq?
?; } 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"; } 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?

$_[0]

?; &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?
?; } sub gb_line { print qq?
$_[1]
?; } sub print_steps3_box { print qq?

$w_howto_h1

$w_howto1
$w_howto2
$w_howto3
?; } sub print_no1_box { $no1code = $_[0]; $no1style = $_[1]; unless ($rank1blocked{$no1code} eq "true") { if ($no1style eq "reviewstyle") { $h1_listing = "$w_bestalternative1 $w_bestalternative2"; } elsif ($no1style eq "reviewlist") { $h1_listing = "#$no1code $w_rated $rl_h1_top"; } else { $h1_listing = "#$no1code $w_rated $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"; } 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; } print qq?

$h1_listing

?; if ($_[2]) { print qq?
?; } print qq?
    ?; &fourpoints("$no1code"); print qq?
?; if ($rank1demolink{$no1code}) { print qq?
?; } else { print qq? ?; } print qq?
$rank1name{$no1code}\: $w_readthereview
$rank1offer{$no1code} \- $rank1name{$no1code}\!?; unless (($no1style eq "reviewlist") or ($no1style eq "mainpage")) { print qq?
$w_allbrokerrevs?; } print qq?
?; if ($rank1anal{$no1code} eq "true") { if ($rank1analml{$no1code}) { $analmhere = $rank1analml{$no1code}; } else { $analmhere = $w_disclaimer4; } print qq?
$analmhere
?; } print qq?
?; } } sub fourpoints { $fourpts = $_[0]; if ($rank1point1{$fourpts}) { print "
  • $rank1point1{$fourpts}
  • \n"; } else { print "
  • $w_goodrating1
  • \n"; } if ($rank1point2{$fourpts}) { print "
  • $rank1point2{$fourpts}
  • \n"; } else { print "
  • $w_goodrating2
  • \n"; } if ($rank1point3{$fourpts}) { print "
  • $rank1point3{$fourpts}
  • \n"; } else { print "
  • $w_goodrating3
  • \n"; } if ($rank1point4{$fourpts}) { print "
  • $rank1point4{$fourpts}
  • \n"; } else { print "
  • $w_goodrating4
  • \n"; } if ($ppc_version eq "true") { print "
  • $w_headquarters\: $rank1city{$fourpts}\, $rank1hq{$fourpts}
  • \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?
    ?; foreach $lol (@lol) { &chart_headers; } print qq? ?; foreach $lol (@lol) { &chart_price; } print qq? ?; 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? ?; foreach $lol (@lol) { &chart_foot; } print qq?
    ?; } sub chart_headers { print qq? $rank1name{$lol} ?; } sub chart_foot { $chprice1++; $boxess = $lol; &get_boxeslink; if ($custom_chart_foot eq "true") { &custom_chart_foot; } else { print qq? ?; } } sub chart_liner { if ($_[1] eq "yes") { $result11 = ""; } else { $result11 = $_[1]; } if ($_[2] eq "yes") { $result12 = ""; } else { $result12 = $_[2]; } if ($_[3] eq "yes") { $result13 = ""; } else { $result13 = $_[3]; } if ($_[4] eq "yes") { $result14 = ""; } else { $result14 = $_[4]; } if ($crr eq "crr1") { $crr = "crr2"; $crx = "a"; } else { $crr = "crr1"; $crx = "b"; } print qq?
    $_[0]
    $_[0] $result11 $result12 $result13 $result14 ?; } 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?
    $rank1cp2{$lol} $w_peryear
    @cp1[0]\.@cp1[1] $w_permonth
    ?; } } sub print_custom_box { print qq?

    $_[0]

    ?; if ($_[5] =~ /http/) { print qq?
    $_[6]
    ?; } print qq?
    ?; } sub print_legal_box { print qq?

    $w_islegal_h1

    $w_legal_title $country_name
    ?; } 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?
    $country_name $ld_titl

    $w_wecompare_h1

    $w_wecompare_sen1 $w_wecompare_sen2 $w_wecompare_sen3

    $w_noteif $country_name $w_changeversion.

    ?; $country_name = $country_name_orig; } } sub print_newslettercatch { if ($w_newslettercatch) { print qq?

    $w_newslettercatch

    $w_newsletterfine
    ?; } } sub print_bottom10_box { print qq?
    ?; if ($disall_style == 2) { if ($w_disall2title) { print qq?
    $w_disall2title
    ?; } for ($boxess=1; $boxess<=48; $boxess++) { if (($show1code{$boxess}) && ($show1name{$boxess} ne "n/a")) { print qq?
    ?; if ($filterman eq $show1code{$boxess}) { print qq?$show1name{$boxess}?; } else { print qq?$show1name{$boxess}?; } print qq?
    ?; } } print qq?
    ?; } else { for ($boxess=1; $boxess<=12; $boxess++) { if ($show1type{$boxess}) { $showtype = $show1type{$boxess}; } else { $showtype = $rank1type; } print qq?
    $show1name{$boxess} $country_name
    ?; } print qq?
    ?; } print qq?
    ?; } 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 = ; close(textout); } sub about_page { &open_text("articles","about"); print qq?
    ?; } sub privacy_page { &open_text("articles","privacy"); print qq?
    ?; } sub responsible_page { &open_text("articles","responsible"); print qq?
    ?; } sub contact_page { &open_text("articles","contact"); print qq?

    $w_contact_h1

    ?; print @textout; print qq?
    ?; } sub print_review_list { print qq?

    $rl_h1

    $rl_sen
    ?; 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("$rank1name{1} ($w_bestalternative1)","$w_bada_sen1 $rank1name{1}","$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"; } 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; } 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"; } print qq?
    ?; if ($rank1blocked{$boxess} eq "true") { print qq? $rank1name{$boxess} $country_name?; } else { print qq? $rank1name{$boxess} $country_name?; } print qq?
    ?; if ($custom_filterman eq "yes") { &custom_specialman1; } else { print qq? $rank1score{$boxess}/10?; } print qq?
    stars
    ?; if ($rank1blocked{$boxess} eq "true") { print qq? $extbut
    ?; if (($rank1offer{$boxess}) && ($rank1blocked{$boxess} ne "true")) { if ($custom_filterman eq "yes") { &custom_specialman; } else { print qq? ?; } } print qq?
    ?; } else { &get_starscore("$rank1score{$boxess}"); print qq? ?; } } } print qq?
    ?; if ($prevpage) { print qq? ?; } if ($nextpage) { print qq? ?; } print qq?
    ?; } sub below82 { &impopen("$rank1name{1} ($w_bestalternative1)","$w_bada_sen1 $rank1name{1}","$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 print_listing { &get_starscore("$rank1score{$thisrank}"); $sgrab = $rank1www{$thisrank}; $sgrab =~ tr/A-Z/a-z/; $sgrab =~ s/www//g; $sgrab =~ s/\.//g; $sgrab =~ s/\///g; $sgrab = "$sgrab" . "2"; $sgraba = $sgrab; 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"; } 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"; } if ($rank1blocked{$thisrank} eq "null") { } else { print qq?
    ?; if (($rank1score{$thisrank}>=7.5) && ($rank1blocked{$thisrank} ne "true")) { print qq?
    $rank1name{$thisrank} $country_name
    $rank1score{$thisrank}/10
    ?; if ($rank1anal{$thisrank} eq "true") { if ($rank1analms{$thisrank}) { $analmhere1 = $rank1analms{$thisrank}; } else { $analmhere1 = $w_shortwarn; } print qq?
    $analmhere1
    ?; } print qq?
    ?; } print qq?
    ?; if ($square_ad) { print qq?
    $w_advertisement
    ?; } print qq? $square_ad

    ?; if ($rank1blocked{$thisrank} eq "nocountry") { print "$rank1name{$thisrank}"; } else { print "$w_review_h1"; } print qq?

    ?; if (($rank1fullreview{$thisrank}) && (($rank1translated{$thisrank} eq "yes") or ($language eq "en"))) { $showfullsen = "true"; print qq? stars ?; } else { print qq? stars?; } print qq?
    $w_isranked
    ?; if (($rank1score{$thisrank}>=7.5) && ($rank1blocked{$thisrank} ne "true")) { print qq??; } print qq?$sgraba?; if (($rank1score{$thisrank}>=7.5) && ($rank1blocked{$thisrank} ne "true")) { print qq??; } print qq?
    $rank1name{$thisrank} $w_screenshot
    ?; if ($rank1link2{$thisrank}) { $continuelink = $rank1link2{$thisrank}; } else { $continuelink = "http://$rank1www{$thisrank}"; } 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

    $w_alt_sen1 $w_alt_sen2 $rank1name{1}$w_alt_sen3

    - $w_continueanyway
    - $w_listofall
    - $w_change_country?; } elsif ($rank1score{$thisrank}>=7.5) { print qq? $w_goodr_sen1?; unless ($rank1anal{$thisrank} eq "true") { print qq? $w_goodr_sen2?; } print qq? $w_goodr_sen3 $w_goodr_sen4?; if ($rank1point1{$thisrank}) { print qq? $w_standout?; } else { print qq? $w_agoodrating?; } print qq?

      ?; &fourpoints("$thisrank"); print qq?
    $w_goodc_sen1 $w_goodc_sen2 $w_bofferfor?; if ($showfullsen eq "true") { print qq? $w_goodc_sen3 $w_reviewof.?; } } else { print qq? $w_badc_sen1 $w_badc_sen2 $w_badc_sen3

    $w_bada_sen1 $rank1name{1}$w_bada_sen2 $w_bada_sen3 $w_forextradingc$w_bada_sen4?; } print qq?

    ?; if (($rank1score{$thisrank}>=7.5) && ($rank1blocked{$thisrank} ne "true")) { print qq?
    ?; if ($rank1demolink{$thisrank}) { print qq? ?; } print qq?
    $w_scriptwords
    ?; if ($rank1anal{$thisrank} eq "true") { if ($rank1analml{$thisrank}) { $analmhere = $rank1analml{$thisrank}; } else { $analmhere = $w_disclaimer4; } print qq?
    $analmhere
    ?; } } print qq?
    ?; } } 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]; } print qq? ?; $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?
    ?; } else { print qq?">?; } print qq?
    $lc_wordd
    ?; } else { $padme = "page\-1/filter\-$_[2]/"; $checkyes = $_[0]; $checkyes_desc = "$checkyes /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?
    ?; if ($checkyes >= 1) { print qq??; } else { print qq??; } print qq?
    $_[1]
    $checkyes_desc
    ?; } } } sub list_checks_sub { print qq?
    ?; 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?
    ?; } sub print_footer { unless (($geoip_forced eq $geoip) or ($geoip eq "fresh") or ($t_layout eq "recommenda") or ($t_layout eq "review") or ($t_layout eq "blank") or ($t_layout eq "about") or ($geoblck eq "blocked")) { if (($geoflag1) && ($geocode1)) { if ($singlecountrysite) { $yeslink = "$othercountries/go/$geocode1\-$language/overwrite/$addto_links"; } else { $yeslink = "$cor1link/$geocode1\-$language/overwrite/$addto_links"; } print qq?

    $w_rightplace

    $w_detected_sen
    ?; $fadeit = "yesblock"; } else { #print "country not found";# } } if ($fadeit =~ "yes") { print qq?
    ?; } print qq?
    ?; &lang_check; print qq?
    ?; } sub print_endbody { print @statcounter_code; print @extra_footer; print qq? ?; } ###################################### 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"; } print qq?
    ?; if ($rank1blocked{$thisrank} eq "true") { print qq? $rank1name{$thisrank}?; } elsif ($rank1anal{$thisrank} eq "true") { print qq? $rank1name{$thisrank}?; } else { print qq? $rank1name{$thisrank} $country_name?; } print qq?
    ?; if ($rank1blocked{$thisrank} eq "true") { print qq?
    $w_sorry $w_isntavailable
    ?; } elsif ($rank1extoffer{$thisrank}) { print qq?
    $rank1extofferfp{$thisrank}
    ?; } print qq?

    $b_title Review

    ?; print qq?
    $rank1originalscore{$thisrank}/10
    stars
    $w_isntavailable?; } else { print qq?good"> $w_rankedfor?; } print qq?
    ?; &get_starscore("$rank1rsect_score1{$thisrank}"); if (($rank1rsect_desc1{$thisrank}) && ($rank1rsect_score1{$thisrank})) { print qq?
    $w_rev_section{1}\:  
    $rank1rsect_score1{$thisrank}/10
    stars
    $rank1rsect_desc1{$thisrank}
    ?; } &get_starscore("$rank1rsect_score2{$thisrank}"); if (($rank1rsect_desc2{$thisrank}) && ($rank1rsect_score2{$thisrank})) { print qq?
    $w_rev_section{2}\:  
    $rank1rsect_score2{$thisrank}/10
    stars
    $rank1rsect_desc2{$thisrank}
    ?; } &get_starscore("$rank1rsect_score3{$thisrank}"); if (($rank1rsect_desc3{$thisrank}) && ($rank1rsect_score3{$thisrank})) { print qq?
    $w_rev_section{3}\:  
    $rank1rsect_score3{$thisrank}/10
    stars
    $rank1rsect_desc3{$thisrank}
    ?; } &get_starscore("$rank1rsect_score4{$thisrank}"); if (($rank1rsect_desc4{$thisrank}) && ($rank1rsect_score4{$thisrank})) { print qq?
    $w_rev_section{4}\:  
    $rank1rsect_score4{$thisrank}/10
    stars
    $rank1rsect_desc4{$thisrank}
    ?; } &get_starscore("$rank1rsect_score5{$thisrank}"); if (($rank1rsect_desc5{$thisrank}) && ($rank1rsect_score5{$thisrank})) { print qq?
    $w_rev_section{5}\:  
    $rank1rsect_score5{$thisrank}/10
    stars
    $rank1rsect_desc5{$thisrank}
    ?; } print qq?
    ?; unless ($rank1blocked{$thisrank} eq "true") { print qq?
    $rank1square{$thisrank}
    ?; } print qq?
    ?; if ($rank1intro{$thisrank}) { print qq?$rank1intro{$thisrank}

    ?; } if ($rank1rsect_paragraph_desc1{$thisrank}) { print qq?

    $w_rev_section{1}

    $rank1rsect_paragraph_desc1{$thisrank}

    ?; } print qq?

    $b_title screen shot
    $b_title screen shot
    ?; if ($rank1rsect_paragraph_desc2{$thisrank}) { print qq?

    $w_rev_section{2}

    $rank1rsect_paragraph_desc2{$thisrank}

    ?; } unless ($rank1blocked{$thisrank} eq "true") { print qq?

    ?; if ($rank1anal{$thisrank} eq "true") { if ($rank1analms{$thisrank}) { $analmhere1 = $rank1analms{$thisrank}; } else { $analmhere1 = $w_shortwarn; } print qq?
    $analmhere1
    ?; } print qq?

    ?; } if ($rank1rsect_paragraph_desc3{$thisrank}) { print qq?

    $w_rev_section{3}

    $rank1rsect_paragraph_desc3{$thisrank}

    ?; } if ($rank1pm1{$thisrank} eq "yes") { print qq? @payment_methods[1]?; } if ($rank1pm2{$thisrank} eq "yes") { print qq? @payment_methods[2]?; } if ($rank1pm3{$thisrank} eq "yes") { print qq? @payment_methods[3]?; } if ($rank1pm4{$thisrank} eq "yes") { print qq? @payment_methods[4]?; } if ($rank1pm5{$thisrank} eq "yes") { print qq? @payment_methods[5]?; } if ($rank1pm6{$thisrank} eq "yes") { print qq? @payment_methods[6]?; } if ($rank1pm7{$thisrank} eq "yes") { print qq? @payment_methods[7]?; } if ($rank1pm8{$thisrank} eq "yes") { print qq? @payment_methods[8]?; } if ($rank1pm9{$thisrank} eq "yes") { print qq? @payment_methods[9]?; } if ($rank1pm10{$thisrank} eq "yes") { print qq? @payment_methods[10]?; } if ($rank1pm11{$thisrank} eq "yes") { print qq? @payment_methods[11]?; } print "

    \n"; if ($rank1rsect_paragraph_desc4{$thisrank}) { print qq?

    $w_rev_section{4}

    $rank1rsect_paragraph_desc4{$thisrank}

    ?; } &list_checks_sub; if ($rank1rsect_paragraph_desc5{$thisrank}) { print qq?

    $w_rev_section{5}

    $rank1rsect_paragraph_desc5{$thisrank}

    ?; } if ($rank1conclusion{$thisrank}) { print qq?  

    $rank1conclusion{$thisrank}

    ?; } print qq?

    $w_casino_info
    ?; if ($tablestyle eq "true") { print qq? ?; 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? ?; } if ($rank1reg{$thisrank}) { print qq? ?; } if ($rank1plat{$thisrank}) { print qq? ?; } print qq?
    $w_headquarters\: $thishq
    $w_regulation\: $rank1reg{$thisrank}
    $w_platform\: $rank1plat{$thisrank}
    ?; } else { if ($rank1hq{$thisrank}) { print qq?
    $w_headquarters\:
    $rank1hq{$thisrank}
    ?; } if ($rank1reg{$thisrank}) { print qq?
    $w_regulation\:
    $rank1reg{$thisrank}
    ?; } if ($rank1plat{$thisrank}) { print qq?
    $w_platform\:
    $rank1plat{$thisrank}
    ?; } } print qq?
    $w_contact_info
    ?; if ($tablestyle eq "true") { print qq? ?; if ($rank1phone{$thisrank}) { print qq? ?; } if ($rank1email{$thisrank}) { print qq? ?; } if ($rank1www{$thisrank}) { print qq? ?; } print qq?
    $w_phone\: $rank1phone{$thisrank}
    $w_email\: $rank1email{$thisrank}
    $w_link\: $rank1www{$thisrank}
    ?; } else { if ($rank1phone{$thisrank}) { print qq?
    $w_phone\:
    $rank1phone{$thisrank}
    ?; } if ($rank1email{$thisrank}) { print qq?
    $w_email\:
    $rank1email{$thisrank}
    ?; } if ($rank1www{$thisrank}) { print qq?
    $w_link\:
    $rank1www{$thisrank}
    ?; } } print qq?
    ?; if (($rank1score{$thisrank}>=7.5) && ($rank1blocked{$thisrank} ne "true")) { print qq?
    ?; if ($rank1demolink{$thisrank}) { print qq? ?; } print qq?
    $w_scriptwords
    ?; if ($rank1anal{$thisrank} eq "true") { if ($rank1analml{$thisrank}) { $analmhere = $rank1analml{$thisrank}; } else { $analmhere = $w_disclaimer4; } print qq?
    $analmhere
    ?; } } print qq?
    ?; } ############################################################################### sub basic_info { $thisrank = $done{$b_area}; $b_title = $rank1name{$thisrank}; $b_code = $rank1code{$thisrank}; $b_link = $rank1link{$thisrank}; 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 = ""; } #if not check for ip # unless ($geoip) { open(iploger,"$basedir/data/ip-log/$getip\.txt"); flock iploger, 2; $iploger = ; close(iploger); if ($iploger) { $geoip = $iploger; $newgeo = "false"; } elsif ($getip) { $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; } } } sub geo_list { unless ($language eq "en") { if (-f "$basedir/data/proxcodes\-$language\.txt") { $pcx = "\-$language"; } } $oppngeo = "$basedir/data/proxcodes$pcx\.txt"; open(geosmade,"$oppngeo"); flock geosmade, 2; @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; } #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$language{$geolangs}"; } } else { if ($language eq $geolangs) { $apass = "yes"; } else { $lgcount++; if ($lgcount>1) { $lgextend = "$lgextend \- "; } $lgextend = "$lgextend$language{$geolangs}"; } } } 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?
    $first_letter_new
    ?; $first_letter_now = $first_letter_new; } if (@gm_vars[6] =~ /http:\/\//) { $xcalink = @gm_vars[6]; $notbold = "yes"; } else { $xcalink = "$cor1link/$geocode\-$language/$addto_links"; $notbold = "no"; } print qq?
    @gm_vars[1] $ld_titl
    ?; if ($lgextend) { print qq?
    ( $lgextend )
    ?; } print qq?
    ?; } } } } } sub grab_langs { @languages = (""); $enhere = "no"; open(proxlangs,"$basedir/data/langs/$_[0]\.txt"); flock proxlangs, 2; $proxlang = ; 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 = ""; } } 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); } } } 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]; } 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"\?> ?; &sitemap_entry("$the_url/","monthly","0.8","alist"); &geo_list("sitemap"); print sitemapera " "; close(sitemapera); print qq?

    index sitemap printed! $totaladdsa added! → view the sitemap?; } print qq?

    (admin)

    ?; 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"\?> ?; &grab_langs("@gm_vars[0]"); foreach $languages (@languages) { &sitemaps_cycle("$geocode","$languages"); $doneone{$geocode} = "done"; } print sitemaper " "; close(sitemaper); print qq?

    $geocode sitemap printed! $totaladds added! → view the sitemap?; } 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/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? $_[0] $_[1] $priority ?; $totaladdsa++; } else { print sitemaper qq? $_[0] $_[1] $priority ?; $totaladds++; } } sub css_form { open(csscustom, "$basedir$_[0]"); flock csscustom, 2; @csscustom = ; close(csscustom); print qq?

    $_[1]

    ?; if ($_[0]) { print qq?

    ?; } else { print qq?
    You must set \$$_[2] in Advanced Settings to use this function
    ?; } } ############################## 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]) { @menu_options = ("settings","defaults","proxcodes","checklocal","languages","stats","sitemap","updatescript","logout"); } &set_usercookie; &check_login; if ($page eq "logout") { $username=""; } print "Content-type: text/html\n\n"; print qq? $website_title Admin Area - $page - $a_area

    $website_title

    ?; if ($username) { if ($changemade) { print "$changemade

    "; } if ($update_mode eq "on") { print qq?

    Update Mode is ON! Change it to off when you are finished editing the CSS
    ?; } print "\n"; if ($page eq "stats") { &stats_package; } elsif ($page eq "settings") { print qq? ?; if ($a_area eq "stats") { print qq?

    Stats Code

    ?; } elsif ($a_area eq "arts") { $dirtest = "$basedir/data/articles"; if ($filterman eq "del") { unlink("$dirtest/$b_area"); $b_area=""; } if ($b_area eq "new") { print qq?

    New Article

    name:

    ?; } elsif ($b_area) { open(arti, "$dirtest/$b_area"); flock arti, 2; @arti = ; print qq?

    Edit Article: $b_area

    No <br> Brakes\?

      DELETE THIS

    ?; close(arti); } else { opendir pDIR, "$dirtest"; @pdir = grep /\.txt$/, readdir pDIR; closedir pDIR; print qq?

    Articles

    POST NEW ARTICLE

    ?; foreach $pdir (sort apsort @pdir) { print "

    $pdir

    \n"; } } } 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 = ; close(generalsettings); print qq?

    Advanced Settings

    Change these settings at your own risk

    ?; } else { open(generalsettings, "$basedir/$cgidir/geoman-database/general-settings\.cgi"); flock generalsettings, 2; @generalsettings = ; close(generalsettings); print qq?

    General Settings

    ?; 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? ?; 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? ← $gs_desc1

    ?; } else { print qq? ← $gs_desc1

    ?; } } } print qq?

    ?; } } elsif ($page eq "recommenda") { if ($a_area) { if (-f "$basedir/data/recommenda/$a_area") { unlink("$basedir/data/recommenda/$a_area"); } } print qq? ?; 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 = ; close(tempairs1); @tempairs = split(/\|/, $tempair1); print qq? ?; } print qq?
    date country email opportunity name platform investment Result
    @tempairs[7] @tempairs[6] @tempairs[1] @tempairs[2] @tempairs[0] @tempairs[3] @tempairs[4] @tempairs[8] / @tempairs[9] @tempairs[10] delete
    ?; } elsif ($page eq "updateproxcodes") { if ($getoverwrite3_explained) { print "$getoverwrite3_explained
    \n"; use LWP::Simple; if ($a_area eq "overwrite") { use utf8; use open ':encoding(utf8)'; binmode(STDOUT, ":utf8"); $URL = "$getoverwrite3&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\!
    \n"; open(databasee,">$basedir/data/$1"); flock databasee, 2; $databasee_open = "true"; } elsif ($databasee_open eq "true") { print databasee "$csplit\n"; } } } else { opendir pDIR, "$basedir/data"; @pdir = grep /\.txt$/, readdir pDIR; closedir pDIR; foreach $pdir (sort apsort @pdir) { if ($pdir =~ /1proxcodes/) { #NULL# } elsif ( ($pdir =~ "proxcodes\.txt") or ($pdir =~ /proxcodes\-(.*)\.txt/) ) { push(@databasee, "#~#~# $pdir #~#~#\n"); #csplit# open(databasee,'<:encoding(utf8)',"$basedir/data/$pdir"); flock databasee, 2; @databasee1 = ; close(databasee); push(@databasee, @databasee1); } } $dbase_total = @databasee; $URL = "$getoverwrite3"; my $content = get($URL); @csplit = split(/\n/, $content); foreach $csplit (@csplit) { if ($csplit =~ /#~#~# blank #~#~#/) { if ($dbase_total>1) { if ($deviation eq "true") { print "

    Update recommended!

    \n"; } elsif ($dbase_linex != $dbase_total) { print "

    Lines are not equal! ($dbase_linex != $dbase_total)

    \n"; } else { print "

    All up to date!

    \n"; } } print "

    proxcodes   (update)

    \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!
    New: $csplit
    Yours: $csplit2

    \n"; $deviation = "true"; } } } $dbase_linex++; } } } } else { print "Error: data source not found or not defined.\n"; } } elsif ($page eq "updatescript") { unless ($getoverwrite) { $getoverwrite = "https://source.rvmp.net/cgi-bin/outputter.pl"; } use LWP::Simple; if ($a_area) { $URL = "$getoverwrite?a_area=$a_area"; my $content = get($URL); @csplit = split(/\n/, $content); if (-f "$basedir/$cgidir/geoman-scripts/$a_area\.cgi") { open(databasee,">$basedir/$cgidir/geoman-scripts/$a_area\.cgi"); flock databasee, 2; foreach $csplit (@csplit) { print databasee "$csplit\n"; } close(databasee); print "$a_area updated!\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 "

    Update recommended!

    \n"; } elsif ($dbase_line != $dbase_total) { print "

    Lines are not equal! ($dbase_line != $dbase_total)

    \n"; } else { print "

    All up to date!

    \n"; } } $cha_file = $1; $dbase_line = 0; if (-f "$basedir/$cgidir/geoman-scripts/$cha_file\.cgi" ) { open(databasee,"$basedir/$cgidir/geoman-scripts/$cha_file\.cgi"); flock databasee, 2; @databasee = ; close(databasee); $dbase_total = @databasee; $deviation = "false"; if ($noupdate{$cha_file} eq "true") { print "$cha_file updates blocked "; } else { print "

    $cha_file   (update)

    \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

    \n"; $deviation = "true"; } } } $dbase_line++; } } } } elsif ($page eq "updatedatabase") { if ($getoverwrite2_explained) { print "$getoverwrite2_explained
    \n"; use LWP::Simple; 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/$cgidir/geoman-database/$a_area\.cgi") { open(databasee,">$basedir/$cgidir/geoman-database/$a_area\.cgi"); flock databasee, 2; foreach $csplit (@csplit) { print databasee "$csplit\n"; } close(databasee); print "$a_area updated!\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 "

    Update recommended!

    \n"; } elsif ($dbase_line != $dbase_total) { print "

    Lines are not equal! ($dbase_line != $dbase_total)

    \n"; } else { print "

    All up to date!

    \n"; } } $cha_file = $1; $dbase_line = 0; if (-f "$basedir/$cgidir/geoman-database/$cha_file\.cgi" ) { open(databasee, "$basedir/$cgidir/geoman-database/$cha_file\.cgi"); flock databasee, 2; @databasee = ; close(databasee); $dbase_total = @databasee; $deviation = "false"; if ($noupdate{$cha_file} eq "true") { print "$cha_file updates blocked "; } else { print "

    $cha_file   (update)

    \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!
    New: $csplit
    Yours: $csplit2

    \n"; $deviation = "true"; } } } $dbase_line++; } } } } else { print "Error: data source not found or not defined.\n"; } } elsif ($page eq "defaults") { &language_deft; unless ($filterman) { print qq?

    ?; } unless ($a_area) { $a_area = "en"; } if ($a_area) { print "

    $language{$a_area} - $a_area

    \n"; print qq??; #depreciated display options# if ($undepreciate) { print qq??; } #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 = ; close(tempairs1); print qq?
    Add the translation\:

    langcode: \*

    ?; } 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 = ; close(defaults1); $tartit = "on"; foreach $defaults1 (@defaults1) { #list domains# if ($b_area eq "listdomains") { if ($defaults1 =~ /\$rank1www{\$rp} = "(.*)";/) { print "
    $1\n"; } } #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_name = ""; $current_score = ""; $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} = "(.*)";/) { $current_score = $1; } } } } 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 "

    ~~$fourx$1$fourx\~~\n"; } if ($defaults1 =~ /\$rank1offer{\$rp} = "(.*)";/) { $pfftt = $1; $pfftt =~ s/\\//g; print "
    #rank1offer#
    $pfftt\n"; } if ($defaults1 =~ /\$rank1instruct{\$rp} = "(.*)";/) { $pfftt = $1; $pfftt =~ s/\\//g; print "
    #rank1instruct#
    $pfftt\n"; } if ($defaults1 =~ /\$rank1point1{\$rp} = "(.*)";/) { $pfftt = $1; $pfftt =~ s/\\//g; print "
    #rank1point1#
    $pfftt\n"; } if ($defaults1 =~ /\$rank1point2{\$rp} = "(.*)";/) { $pfftt = $1; $pfftt =~ s/\\//g; print "
    #rank1point2#
    $pfftt\n"; } if ($defaults1 =~ /\$rank1point3{\$rp} = "(.*)";/) { $pfftt = $1; $pfftt =~ s/\\//g; print "
    #rank1point3#
    $pfftt\n"; } if ($defaults1 =~ /\$rank1point4{\$rp} = "(.*)";/) { $pfftt = $1; $pfftt =~ s/\\//g; print "
    #rank1point4#
    $pfftt\n"; } if ($defaults1 =~ /\$rank1forex{\$rp} = "(.*)";/) { $pfftt = $1; $pfftt =~ s/\\//g; print "
    #rank1forex#
    $pfftt\n"; } if ($defaults1 =~ /\$rank1signals{\$rp} = "(.*)";/) { $pfftt = $1; $pfftt =~ s/\\//g; print "
    #rank1signals#
    $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?

    @secondrun_split[1] - @secondrun_split[2]
    ?; } print "

    Total- $df"; } } elsif ($page eq "checklocal") { &language_deft; open(checklocal,"$basedir/$cgidir/geoman-database/checklocal.cgi"); flock checklocal, 2; @checklocal = ; close(checklocal); if (($b_area) && ($a_area)) { } elsif ($a_area) { print qq?

    $a_area

    ?; 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 "
    Countries:"; foreach $blocks (@blocks) { print "  $blocks"; } print "   (Add/Remove)
    \n"; } if ($filterman eq "add_country") { &remove_block; print "\n

    \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 "

    $language{$toung} - $a_area

    \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? ?; unless ($filterman) { print "

    Blocks / Countries

    \n"; } foreach $checklocal (@checklocal) { if ($checklocal =~ /\$bbblock eq "(.*)\-block"/) { push(@blocksfound, $1); $currentlocal = $1; $done{$currentlocal} = "true"; unless ($filterman) { print qq?

    block: $currentlocal - ?; } } elsif ($checklocal =~ /\$cccheck eq "(.*)"/) { $currentlocal = $1; $done{$currentlocal} = "true"; unless ($filterman) { print qq?

    country: $currentlocal - ?; } } if ($checklocal =~ /\$language eq "(.*)"/) { $currentlang = $1; unless ($filterman) { print qq?   $language{$currentlang}?; } } if ($checklocal =~ /##(.*)##/) { print "

    ********** $1 **********

    \n"; } } if ($filterman eq "blocks") { print "

    Custom Blocks

    \n"; &add_block; } elsif ($filterman eq "countries") { print "

    Countries

    \n"; &add_country; &add_language; } else { print qq? ?; } } } elsif ($page eq "proxcodes") { open(proxcodes,"$basedir/data/proxcodes.txt"); flock proxcodes, 2; @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 = ; close(proxcodes); } else { $a_area = "en"; } print qq?

    $language{$a_area} Proxcode Settings

    ?; 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 = ; 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? ?; if ($undepreciated) { #open variable# print qq? ?; } print qq? ?; } } print qq?
    ?; unless ($b_area eq "keyworddisplay") { print qq? ?; print qq?
    ?; } } elsif ($page eq "languages") { open(languagedeft,"$basedir/$cgidir/geoman-database/languagedeft.cgi"); flock languagedeft, 2; @languagedeft = ; close(languagedeft); foreach $languagedeft (@languagedeft) { if ($languagedeft =~ /\{ \$w\_(.*) = "(.*)"; \}/) { $deftcode = $1; $deftval = $2; $deftval =~ s/"/"/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 = ; close(language); if ($a_area eq "en") { print "

    English (Defaults)

    \n"; print qq?
    add \$w variable
    \$w_ *
    ?; 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?
    \$w\_@defts_split[0]

    ?; } } } elsif ($a_area) { print qq?

    $language{$a_area}

    ?; if (($b_area eq "bulk") or ($changemade =~ /gotobulk/)) { print qq?
    Add the words\:

    \*
    ?; } 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?

    $flatten
    $defttrans{$deftcode}

    ?; } } else { if ($b_area =~ "b") { print qq?
    $flatten

    ?; } if ($b_area =~ "d") { &flat_one; $describe = $deftcode; $describe =~ s/pool_code/sVCxTPp/g; $describe =~ s/checkpoint/sHxTTp/g; push(@afterthought, "\~\~\~ \$w\_$describe \~\~\~
    $flatten"); } } } if ($b_area =~ "d") { print qq?

    Instructions: 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.

    ?; foreach $afterthought (@afterthought) { print qq?
    $afterthought
    ?; } } } else { print qq?
    Add Translation

    *
    ?; 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/"/"/g; print qq?
    $1\:
    *
    ?; } } } } } else { print qq?
    Add Language
    Code: *
    Name:
    English:
    ?; foreach $language (@language) { if ($language =~ /\$language{(.*)} = "(.*)"\;(.*)/) { $lcode = $1; $lname = $2; $lengl = $3; if ($lengl =~ /\#(.*)\#/) { $lengl = $1; } else { $lengl = $lcode; } print qq?

    $lname ($lengl)?; } } } } else { print "select an option ^\n"; } } else { if ($FORM{username}) { print "login failed

    "; } elsif ($page eq "logout") { print "

    You have successfully logged out.
    \n"; } print qq?
    Username:

    Password:

    ?; } print qq?
    ?; 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?
    \~\~\~ \$w\_$describe \~\~\~
    $flatten
    ?; } 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?
    code * *
    ?; &vari_options("new"); print qq? ?; } sub edit_vari { $vrept = $1; if ($vrept{$vrept}) { $vrept = $vrept{$vrept}; } print qq?
    $vrept
    *
    ?; } sub add_vari_option { if ($vari_display eq "new") { if ($_[0]) { print qq?
    $_[1]\:
    ?; if ($_[2] eq "truefalse") { print qq? ?; } elsif ($_[2] eq "yesno") { print qq? ?; } elsif ($_[2] eq "of10") { print qq? ?; } elsif ($_[2] eq "of100") { print qq? ?; } else { print qq? ?; } print qq?
    ?; } else { print "

    $_[1]

    \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? ?; 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?

    $current - $language{$toung}

    Add Variable

      *
    ?; if ($filterman) { print qq?

    Edit Variables

    ?; } } } 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("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("","- 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?
    add brand *
    ?; } sub remove_block { print qq?
    Remove Country * *
    ?; } sub add_countries_to_block { if ($a_area =~ /(.*)\-block/) { $ablock = $1; } print qq?
    Add Country *
    Add Countries to a Block
    ?; $onlythere = "checkboxes"; &geo_list("dropdown"); print qq?
    ?; } sub add_block { $onlythere = "all"; print qq?
    *
    Block:

    *

    ?; } sub add_country { print qq?
    *
    ?; } sub add_language { $onlythere = "true"; print qq?
    Country:

    *

    ?; } sub admin_dropdown { if ($onlythere eq "checkboxes") { $cbx++; print qq?
    ?; } elsif ($onlythere eq "true") { if ($done{$geocode} eq "true") { print qq?; ?; } } elsif ($onlythere eq "all") { print qq?; ?; } else { unless ($done{$geocode} eq "true") { print qq?; ?; } } } sub menu_options1 { if ($page eq $menu_options) { print ""; } print qq?$menu_options ?; if ($page eq $menu_options) { print ""; } 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 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") { $changemade = "$FORM{b_area}\+article+edited"; $page="settings"; open(arti,">$basedir/data/articles/$FORM{b_area}") or $changemade = "$FORM{b_area}+couldnt+open"; flock arti, 2; binmode(STDOUT, ":utf8"); unless ($FORM{nobr}) { $FORM{datascrape} =~ s/\r/
    /g; } print arti "$FORM{datascrape}"; close(arti); } 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 "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 = ; 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 = ; 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 = ; 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 = ; 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}) { &clean_entry($FORM{translation}); if ($language =~ /if \(\$language eq "$FORM{a_area}"\) \{/) { $inthezone = "true"; print language "$language"; } elsif (($inthezone eq "true") && ($language =~ /\$w\_$FORM{langvari} = "(.*)";/)) { print language " \$w\_$FORM{langvari} = \"$cleanentry\";\n"; $changemade = "$FORM{langvari}\+teepee"; $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}; 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 "languagedeft") { open(languagedeft,"$basedir/$cgidir/geoman-database/languagedeft.cgi"); flock languagedeft, 2; @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; if (($languagedeft =~ /unless \(\$w\_$FORM{wvariable}\)/) or ($ldft1 =~ /unlessw\_$wvar1/)) { print languagedeft " unless \(\$w\_$FORM{wvariable}\) \{ \$w\_$FORM{wvariable} = \"$cleanentry\"; \}$xtraparse\n"; $alreadylisted = "true"; $changemade = "\$w\_$FORM{wvariable}"; $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}"; } 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 = ; 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 = ; 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 = ; 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 = ; 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} = "The Rift"; $gamecode{13} = "the-rift"; $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?
    ?; if ($rank1forex{$thisrank}) { print qq?
    $w_{$checkpoint1}\: $rank1forex{$thisrank}
    ?; } if ($rank1signals{$thisrank}) { print qq?
    $w_{$checkpoint6}\: $rank1signals{$thisrank}
    ?; } } 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? ?; } else { print qq? ?; } } sub custom_specialman1 { if (($filterman eq "bonus") or ($filterman eq "free")) { print qq? $w_{$filterman}?; } else { print qq? $rank1score{$boxess}/10?; } } 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?
    ?; &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?
    ?; &print_endbody; } ## listing - short review ## elsif ($t_layout eq "listing") { &print_head; &print_body; &print_header; print qq?
    ?; &print_nav; &print_listing; if ($include_chart eq "true") { if ($thisrank) { $wch1 = $w_comparison_chart_inner_h1; } else { $wch1 = $w_comparison_chart_h1; } print qq?

    $wch1

    ?; &print_chart_block; print qq?
    ?; } elsif ($thisrank == 1) { &print_no1_box("2","reviewstyle"); } else { &print_no1_box("1","reviewstyle"); } $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_bottom10_box; &print_footer; print qq?
    ?; &print_endbody; } ## article ## elsif ($t_layout eq "article") { &print_head; &print_body; &print_header; print qq?
    ?; &print_nav; if ($articlefound eq "yes") { print qq?
    ?; } else { &print_legal_box; } &print_no1_box("1",""); &print_no1_box("2",""); &print_no1_box("3",""); &print_compare_box; &print_bottom10_box; &print_newslettercatch; &print_footer; print qq?
    ?; &print_endbody; } ## main page ## elsif ($t_layout eq "main") { &print_head; &print_body; &print_header; print qq?
    ?; &print_nav; &print_main_intro; &print_top5_box; print qq?
    ?; &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?

    $w_comparison_chart_h1

    ?; &print_chart_block; print qq?
    ?; } &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/star-live.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?
    ?; &print_endbody; } else { ¬_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? ?; } } 1; #~#~# forex #~#~# sub custom_footer { print qq?

    $w_disclaimer4
    ?; } sub custom_forex_order { print "Content-type: text/html\n\n"; ## recommenda ## if ($t_layout eq "recommenda") { @extra_header=(" "); &print_head; &print_body; print qq?
    ?; &recommenda; &print_footer; print qq?
    ?; &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?
    ?; &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?
    ?; &print_endbody; } ## listing - short review ## elsif ($t_layout eq "listing") { &print_head; &print_body; &print_header; print qq?
    ?; &print_nav; &print_listing; 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_legal_box("index"); &print_bottom10_box; &print_footer; print qq?
    ?; &print_endbody; } ## article ## elsif ($t_layout eq "article") { &print_head; &print_body; &print_header; print qq?
    ?; &print_nav; if ($articlefound eq "yes") { print qq?
    ?; } else { &print_legal_box; } &print_no1_box("1",""); &print_no1_box("2",""); &print_no1_box("3",""); &print_compare_box; &print_bottom10_box; &print_newslettercatch; &print_footer; print qq?
    ?; &print_endbody; } ## main page ## elsif ($t_layout eq "main") { &print_head; &print_body; &print_header; print qq?
    ?; &print_nav; &print_main_intro; &print_top5_box; print qq?
    ?; if (-f "$basedir/data/articles/mainblerb\-$language\.txt") { open(mainblerb,"$basedir/data/articles/mainblerb\-$language\.txt"); flock mainblerb, 2; $mbsentence = ; close(mainblerb); } else { $mbsentence = "$w_forexmainsen1 $w_forexmainsen2

    $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") { open(mainblerb,"$basedir/data/articles/custombox1\-$language\.txt"); flock mainblerb, 2; @mbsentence = ; close(mainblerb); &print_custom_box("@mbsentence[0]","@mbsentence[1]","@mbsentence[2]","@mbsentence[3]","@mbsentence[4]","$custombox1image","custom image 1","contentgreen","content6-right","content6-left"); } if (-f "$basedir/data/articles/custombox2\-$language\.txt") { open(mainblerb,"$basedir/data/articles/custombox2\-$language\.txt"); flock mainblerb, 2; @mbsentence = ; close(mainblerb); &print_custom_box("@mbsentence[0]","@mbsentence[1]","@mbsentence[2]","@mbsentence[3]","@mbsentence[4]","$custombox2image","custom image 2","contentorange","content5-left","content5-right"); } if ($fawesome) { $boxess = 3; &print_review_list; } &print_compare_box; &print_bottom10_box; &print_newslettercatch; &print_footer; print qq?

    ?; &print_endbody; } else { ¬_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 = ; 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?
    $country_name $ld_titl

    $w_wecompare_h1

    $mbsentence

    $w_noteif $country_name $w_changeversion.

    ?; $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?
    ?; } 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?
    ?; if ($rank1jackpot{$thisrank}) { print qq?
    $w_{$checkpoint8}\: ?; @crypt_printing = split(/\~/, $rank1jackpot{$thisrank}); foreach $crypt_printing (@crypt_printing) { $crp++; if ($crp > 1) { print ", "; } print "$attr1{$crypt_printing}"; } print qq?
    ?; } } 1; #~#~# blank #~#~#