<?php
// worldbank_population_data.php
// RJM Programming
// February, 2017
set_time_limit(33600);

$widea=620;
if (isset($_GET['swidth'])) {
  $widea=$_GET['swidth'];
  $widea/=3.0;
} else if (isset($_POST['swidth'])) {
  $widea=$_POST['swidth'];
  $widea/=3.0;
}
$widea=round($widea);
$mopt="&extraopts=" . urlencode(' chartArea: {  width: "67%" }, ');
$diffctrylst="";
$fyearis=true;
$subi=0;

$lri=["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"];
$dri=["U+1F1E6","U+1F1E7","U+1F1E8","U+1F1E9","U+1F1EA","U+1F1EB","U+1F1EC","U+1F1ED","U+1F1EE","U+1F1EF","U+1F1F0","U+1F1F1","U+1F1F2","U+1F1F3","U+1F1F4","U+1F1F5","U+1F1F6","U+1F1F7","U+1F1F8","U+1F1F9","U+1F1FA","U+1F1FB","U+1F1FC","U+1F1FD","U+1F1FE","U+1F1FF"];
$flagentity="";	
$iso_country_codes=['AF','Afghanistan',
'AX','Aland Islands',
'AL','Albania',
'DZ','Algeria',
'AS','American Samoa',
'AD','Andorra',
'AO','Angola',
'AI','Anguilla',
'AQ','Antarctica',
'AG','Antigua and Barbuda',
'AR','Argentina',
'AM','Armenia',
'AW','Aruba',
'AU','Australia',
'AT','Austria',
'AZ','Azerbaijan',
'bs','Bahamas',
'BS','Bahamas the',
'BH','Bahrain',
'BD','Bangladesh',
'BB','Barbados',
'BY','Belarus',
'BE','Belgium',
'BZ','Belize',
'BJ','Benin',
'BM','Bermuda',
'BT','Bhutan',
'BO','Bolivia',
'BA','Bosnia and Herzegovina',
'BW','Botswana',
'BV','Bouvet Island (Bouvetoya)',
'BR','Brazil',
'IO','British Indian Ocean Territory (Chagos Archipelago)',
'VG','British Virgin Islands',
'BN','Brunei Darussalam',
'BG','Bulgaria',
'BF','Burkina Faso',
'BI','Burundi',
'KH','Cambodia',
'CM','Cameroon',
'CA','Canada',
'cv','Cabo Verde',
'CV','Cape Verde',
'KY','Cayman Islands',
'CF','Central African Republic',
'TD','Chad',
'CL','Chile',
'CN','China',
'CX','Christmas Island',
'CC','Cocos (Keeling) Islands',
'CO','Colombia',
'KM','Comoros the',
'Cd','Congo Dem Rep',
'Cg','Congo Rep',
'cd','Congo, Dem. Rep.',
'cg','Congo, Rep.',
'CD','Congo, Dem Rep',
'CG','Congo, Rep',
'CK','Cook Islands',
'CR','Costa Rica',
'Ci',"Cote d'Ivoire",
'ci','Cote dIvoire',
'CI','Cote d`Ivoire',
'HR','Croatia',
'CU','Cuba',
'CY','Cyprus',
'CZ','Czech Republic',
'DK','Denmark',
'DJ','Djibouti',
'DM','Dominica',
'DO','Dominican Republic',
'EC','Ecuador',
'Eg','Egypt Arab Rep',
'eg','Egypt, Arab Rep',
'EG','Egypt',
'SV','El Salvador',
'GQ','Equatorial Guinea',
'ER','Eritrea',
'EE','Estonia',
'ET','Ethiopia',
'FO','Faroe Islands',
'FK','Falkland Islands (Malvinas)',
'FJ','Fiji the Fiji Islands',
'FI','Finland',
'FR','France, French Republic',
'GF','French Guiana',
'PF','French Polynesia',
'TF','French Southern Territories',
'GA','Gabon',
'gm','Gambia',
'GM','Gambia the',
'GE','Georgia',
'DE','Germany',
'GH','Ghana',
'GI','Gibraltar',
'GR','Greece',
'GL','Greenland',
'GD','Grenada',
'GP','Guadeloupe',
'GU','Guam',
'GT','Guatemala',
'GG','Guernsey',
'GN','Guinea',
'GW','Guinea-Bissau',
'GY','Guyana',
'HT','Haiti',
'HM','Heard Island and McDonald Islands',
'VA','Holy See (Vatican City State)',
'HN','Honduras',
'hk','Hong Kong SAR',
'HK','Hong Kong',
'HU','Hungary',
'IS','Iceland',
'IN','India',
'ID','Indonesia',
'Ir','Iran Islamic Rep',
'ir','Iran, Islamic Rep',
'IR','Iran',
'IQ','Iraq',
'IE','Ireland',
'IM','Isle of Man',
'IL','Israel',
'IT','Italy',
'JM','Jamaica',
'JP','Japan',
'je','Channel Islands',
'JE','Jersey',
'JO','Jordan',
'KZ','Kazakhstan',
'KE','Kenya',
'KI','Kiribati',
'Kp','Korea Rep',
'Kr',"Korea Dem People’s Rep", 
'kp','Korea, Rep',
'kr',"Korea, Dem People’s Rep", 
'KP','Korea, Rep.',
'KR',"Korea, Dem. People’s Rep.", 
'KW','Kuwait',
'KG','Kyrgyz Republic',
'lA','Lao PDR',
'la','Laos',
'LA','Lao',
'LV','Latvia',
'LB','Lebanon',
'LS','Lesotho',
'LR','Liberia',
'LY','Libyan Arab Jamahiriya',
'LI','Liechtenstein',
'LT','Lithuania',
'LU','Luxembourg',
'Mo','Macao SAR, China',
'mo','Macao SAR',
'MO','Macao',
'MK','Macedonia',
'MG','Madagascar',
'MW','Malawi',
'MY','Malaysia',
'MV','Maldives',
'ML','Mali',
'MT','Malta',
'MH','Marshall Islands',
'MQ','Martinique',
'MR','Mauritania',
'MU','Mauritius',
'YT','Mayotte',
'MX','Mexico',
'FM','Micronesia',
'MD','Moldova',
'MC','Monaco',
'MN','Mongolia',
'ME','Montenegro',
'MS','Montserrat',
'MA','Morocco',
'MZ','Mozambique',
'MM','Myanmar',
'NA','Namibia',
'NR','Nauru',
'NP','Nepal',
'nl','Netherlands',
'AN','Netherlands Antilles',
'NL','Netherlands the',
'NC','New Caledonia',
'NZ','New Zealand',
'NI','Nicaragua',
'NE','Niger',
'NG','Nigeria',
'NU','Niue',
'NF','Norfolk Island',
'MK','North Macedonia',
'MP','Northern Mariana Islands',
'NO','Norway',
'OM','Oman',
'PK','Pakistan',
'PW','Palau',
'ps','West Bank and Gaza',
'PS','Palestinian Territory',
'PA','Panama',
'PG','Papua New Guinea',
'PY','Paraguay',
'PE','Peru',
'PH','Philippines',
'PN','Pitcairn Islands',
'PL','Poland',
'PT','Portugal, Portuguese Republic',
'PR','Puerto Rico',
'QA','Qatar',
'RE','Reunion',
'RO','Romania',
'RU','Russian Federation',
'RW','Rwanda',
'Bl','St Barthelemy',
'Sh','St Helena',
'Kn','St Kitts and Nevis',
'Lc','St Lucia',
'Mf','St Martin (French part)',
'Pm','St Pierre and Miquelon',
'Vc','St Vincent and the Grenadines',
'bl','St. Barthelemy',
'sh','St. Helena',
'kn','St. Kitts and Nevis',
'lc','St. Lucia',
'mF','Sint Maarten (Dutch part)',
'mf','St. Martin',
'pm','St. Pierre and Miquelon',
'vc','St. Vincent and the Grenadines',
'BL','Saint Barthelemy',
'SH','Saint Helena',
'KN','Saint Kitts and Nevis',
'LC','Saint Lucia',
'MF','Saint Martin',
'PM','Saint Pierre and Miquelon',
'VC','Saint Vincent and the Grenadines',
'WS','Samoa',
'SM','San Marino',
'ST','Sao Tome and Principe',
'SA','Saudi Arabia',
'SN','Senegal',
'RS','Serbia',
'SC','Seychelles',
'SL','Sierra Leone',
'SG','Singapore',
'SK','Slovakia (Slovak Republic)',
'SI','Slovenia',
'SB','Solomon Islands',
'SO','Somalia, Somali Republic',
'ZA','South Africa',
'GS','South Georgia and the South Sandwich Islands',
'SS','South Sudan',
'ES','Spain',
'LK','Sri Lanka',
'SD','Sudan',
'SR','Suriname',
'SJ','Svalbard & Jan Mayen Islands',
'SZ','Swaziland',
'SE','Sweden',
'CH','Switzerland, Swiss Confederation',
'SY','Syrian Arab Republic',
'TW','Taiwan',
'TJ','Tajikistan',
'TZ','Tanzania',
'TH','Thailand',
'TL','Timor-Leste',
'TG','Togo',
'TK','Tokelau',
'TO','Tonga',
'TT','Trinidad and Tobago',
'TN','Tunisia',
'TR','Turkey',
'TM','Turkmenistan',
'TC','Turks and Caicos Islands',
'TV','Tuvalu',
'UG','Uganda',
'UA','Ukraine',
'AE','United Arab Emirates',
'GB','United Kingdom',
'US','United States of America',
'UM','United States Minor Outlying Islands',
'vi','Virgin Islands (U.S.)',
'VI','United States Virgin Islands',
'uy','Uruguay',
'UY','Uruguay, Eastern Republic of',
'UZ','Uzbekistan',
'VU','Vanuatu',
'VE','Venezuela',
'VN','Vietnam',
'WF','Wallis and Futuna',
'EH','Western Sahara',
'Ye','Yemen Rep',
'ye','Yemen, Rep',
'YE','Yemen',
'ZM','Zambia',
'ZW','Zimbabwe'];


function uvaltosfcp($string) { // thanks to https://stackoverflow.com/questions/1805802/php-convert-unicode-codepoint-to-utf-8
  return html_entity_decode(preg_replace("/U\+([0-9A-F]{5})/", "&#x\\1;", $string), ENT_NOQUOTES, 'UTF-8');
}

function noretflagflag($inctryname) {
  global $flagentity, $iso_country_codes, $lri, $dri, $preudiff, $diffctrylst, $fyearis;
  return $inctryname;
}

function retflagflag($inctryname) {
  global $flagentity, $iso_country_codes, $lri, $dri, $preudiff, $diffctrylst, $fyearis;
  // if (strpos($inctryname, "Ecuador") === false) {  echo $inctryname . 'z'; exit; } 
  if (strpos($inctryname, "\t") !== false) { return $inctryname; }
  //if (!file_exists('xxx.xxx')) { file_put_contents('xxx.xxx', $inctryname);   }
  $uretv="";
  $flagentity="";
  if ($inctryname != "") {
  $matchfound=false;
  for ($im=1; $im<sizeof($iso_country_codes); $im+=2) {
    if (strpos(strtolower($iso_country_codes[$im]), strtolower(str_replace("%20"," ",str_replace("%E2%80%99","",str_replace("%2C",",",$inctryname))))) !== false) {
      for ($jm=0; $jm<sizeof($lri); $jm++) {
       if (strtoupper(substr($iso_country_codes[-1 + $im],0,1)) == $lri[$jm]) {
         $uretv.=$dri[$jm]; //uvaltosfcp($dri[$jm]);
         $matchfound=true;
       }
      }
      for ($jm=0; $jm<sizeof($lri); $jm++) {
       if (strtoupper(substr($iso_country_codes[-1 + $im],1,1)) == $lri[$jm]) {
         $uretv.=$dri[$jm]; //uvaltosfcp($dri[$jm]);
       }
      }
      $flagentity=uvaltosfcp($uretv); //$uretv;
   //   if (strpos($inctryname, "Macao") != false) {  echo $inctryname . '%20' . $flagentity; exit; }
   //  if (strpos($inctryname, "Korea%2C%20Dem") !== false) {  echo $inctryname . 'xxxxx'; exit; }
//  if (strpos($inctryname, "Gaza") !== false) {  echo $preudiff . '...' . $inctryname . 'z qa' . $flagentity; exit; } 
      return str_replace("%E2%80%99","",str_replace("%2C","",$inctryname)) . '%09' . $flagentity;
    }
  }
  if ($uretv == "" && !$matchfound) {
  for ($im=1; $im<sizeof($iso_country_codes); $im+=2) {
    if (strpos(explode(",",strtolower($iso_country_codes[$im]))[0], explode(",",strtolower(str_replace("%20"," ",str_replace("%E2%80%99","",str_replace("%2C",",",$inctryname)))))[0]) !== false) {
      for ($jm=0; $jm<sizeof($lri); $jm++) {
       if (strtoupper(substr($iso_country_codes[-1 + $im],0,1)) == $lri[$jm]) {
         $uretv.=$dri[$jm]; //uvaltosfcp($dri[$jm]);
         $matchfound=true;
       }
      }
      for ($jm=0; $jm<sizeof($lri); $jm++) {
       if (strtoupper(substr($iso_country_codes[-1 + $im],1,1)) == $lri[$jm]) {
         $uretv.=$dri[$jm]; //uvaltosfcp($dri[$jm]);
       }
      }
      $flagentity=uvaltosfcp($uretv); //$uretv;
   //  if (strpos($inctryname, "Macao") != false) {  echo $inctryname . 'xx%20' . $flagentity; exit; }
   //  if (strpos($inctryname, "Korea%2C%20Dem") !== false) {  echo $inctryname . 'xxxx'; exit; }
//  if (strpos($inctryname, "Gaza") !== false) {  echo $preudiff . '...' . $inctryname . 'z qb'; exit; } 
      return str_replace("%E2%80%99","",str_replace("%2C","",$inctryname)) . '%09' . $flagentity;
    }
  }
  }

  if ($uretv == "" && !$matchfound) {
  for ($im=1; $im<sizeof($iso_country_codes); $im+=2) {
    if (strpos(explode(" (",strtolower($iso_country_codes[$im]))[0], explode(" (",strtolower(str_replace("%20"," ",str_replace("%E2%80%99","",str_replace("%2C",",",str_replace("+"," ",urldecode($inctryname)))))))[0]) !== false) {
      for ($jm=0; $jm<sizeof($lri); $jm++) {
       if (strtoupper(substr($iso_country_codes[-1 + $im],0,1)) == $lri[$jm]) {
         $uretv.=$dri[$jm]; //uvaltosfcp($dri[$jm]);
         $matchfound=true;
       }
      }
      for ($jm=0; $jm<sizeof($lri); $jm++) {
       if (strtoupper(substr($iso_country_codes[-1 + $im],1,1)) == $lri[$jm]) {
         $uretv.=$dri[$jm]; //uvaltosfcp($dri[$jm]);
       }
      }
      $flagentity=uvaltosfcp($uretv); //$uretv;
   //  if (strpos($inctryname, "Macao") != false) {  echo $inctryname . 'xxx%20' . $flagentity; exit; }
   //  if (strpos($inctryname, "Korea%2C%20Dem") !== false) {  echo $inctryname . 'x'; exit; }
//  if (strpos($inctryname, "Gaza") !== false) {  echo $preudiff . '...' . $inctryname . 'z qc'; exit; } 
      return str_replace("%E2%80%99","",str_replace("%2C","",$inctryname)) . '%09' . $flagentity;
    }
  }
  }


  }
    // if (strpos($inctryname, "Macao") != false) {  echo $inctryname . 'xxx'; exit; }
  //  if (strpos($inctryname, "Korea%2C%20Dem") !== false) {  echo $inctryname . 'xxx'; exit; }
//  if (strpos($inctryname, "Gaza") !== false) {  echo $preudiff . '...' . $inctryname . 'z qx'; exit; } 
  return str_replace("%E2%80%99","",str_replace("%2C","",$inctryname));
}


function ourfilter($pl) {
  global $popdelim, $diffctrylst, $fyearis;
  $opl="";
  $apl=explode($popdelim, $pl);
  for ($i=0; $i<sizeof($apl); $i++) {
   if ($apl[$i] != "") {
    if (strpos($apl[$i], "~,0]") === false || strpos($apl[$i], "~,0.0]") === false) {
      $opl.=$popdelim . $apl[$i];
    }
   }
  }
  return $opl;
}

function our_str_replace($from, $to, $stris) {
  global $minval, $maxval, $xrange, $reportmode, $othercnt, $valuelist, $okvaluelist, $firstyear, $thisc, $oneyear, $thisyear, $diffctrylst, $fyearis;
  $outs=str_replace($from, $to, $stris); 
  if ($outs > 0.0) {
    if ($minval == 0.0 || $minval > $outs) $minval=$outs;
    if ($maxval == 0.0 || $maxval < $outs) $maxval=$outs;
  }
  if ($xrange == "") {
    if (isset($_GET['min']) && isset($_GET['max'])) {
      $xrange=" (" . $_GET['min'] . " <= " . $reportmode . " <= " . $_GET['max'] . ")";
    } else if (isset($_GET['min'])) {
      $xrange=" (" . $_GET['min'] . " <= " . $reportmode . ")";
    } else if (isset($_GET['max'])) {
      $xrange=" (" . $reportmode . " <= " . $_GET['max'] . ")";
    }
  }
  if (isset($_GET['min']) && isset($_GET['max'])) {
    if ($thisyear != $oneyear) { //$firstyear <= 0) {
      if (str_replace("," . $thisc . ",","","," . $okvaluelist . ",") != "," . $okvaluelist . ",") {
        return $outs;
      } else {
      $othercnt+=$outs;
      return "0";
      }
    }
    if ($outs < $_GET['min'] || $outs > $_GET['max']) {
      $othercnt+=$outs;
      return "0";
    } else if ($thisyear == $oneyear && $valuelist != "") {
      $vls=explode(",",$valuelist);
      if (str_replace("," . $vls[0] . ",","","," . $okvaluelist . ",") == "," . $okvaluelist . ",") {
        if ($okvaluelist == "") {
          $okvaluelist=$vls[0];
        } else {
          $prevok=$okvaluelist;
          $okvaluelist=$vls[0] . "," . $prevok;
        }
      }
    }
  } else if (isset($_GET['min'])) {
    if ($thisyear != $oneyear) { //$firstyear <= 0) {
      if (str_replace("," . $thisc . ",","","," . $okvaluelist . ",") != "," . $okvaluelist . ",") {
        return $outs;
      } else {
      $othercnt+=$outs;
      return "0";
      }
    }
    if ($outs < $_GET['min']) {
      $othercnt+=$outs;
      return "0";
    } else if ($thisyear == $oneyear && $valuelist != "") {
      $vls=explode(",",$valuelist);
      if (str_replace("," . $vls[0] . ",","","," . $okvaluelist . ",") == "," . $okvaluelist . ",") {
        if ($okvaluelist == "") {
          $okvaluelist=$vls[0];
        } else {
          $prevok=$okvaluelist;
          $okvaluelist=$vls[0] . "," . $prevok;
        }
      }
    }
  } else if (isset($_GET['max'])) {
    if ($thisyear != $oneyear) { //$firstyear <= 0) {
      if (str_replace("," . $thisc . ",","","," . $okvaluelist . ",") != "," . $okvaluelist . ",") {
        return $outs;
      } else {
      $othercnt+=$outs;
 //     if ($thisc != "China") {
 // echo "<!doctype html><html><body><textarea cols=80 rows=200 style=width:100%;>oneyear/thisyear=" . $oneyear ."/" . $thisyear . " "  . $thisc . "\n$" . "okvaluelist=" . $okvaluelist . "\n$" . "valuelist=" . $valuelist . "\n$" . "poplist=" . $poplist . "\n$" . "urlextra=" . $urlextra . "\n$" . "url=" . $url . "</textarea></body></html>";
 // exit;
 //     }
      return "0";
      }
    }
    if ($outs > $_GET['max']) {
      $othercnt+=$outs;
      return "0";
    } else if ($thisyear == $oneyear && $valuelist != "") {
      $vls=explode(",",$valuelist);
      if (str_replace("," . $vls[0] . ",","","," . $okvaluelist . ",") == "," . $okvaluelist . ",") {
        if ($okvaluelist == "") {
          $okvaluelist=$vls[0];
        } else {
          $prevok=$okvaluelist;
          $okvaluelist=$vls[0] . "," . $prevok;
        }
      }
    }
  }
  return $outs;
}

function rangeget($basis) {
  global $reportmode, $diffctrylst, $fyearis;
  $cookie_name = "Worldbank_" . str_replace(" ","_",str_replace("(","_",str_replace(")","_",str_replace("%","_",str_replace(",","_",$reportmode))))) . "_" . $basis;
  if (isset($_COOKIE[$cookie_name])) {
    return $_COOKIE[$cookie_name];
  }
  return 0.0;
}


function rangeset($basis, $val) {
  global $reportmode, $startswith, $diffctrylst, $fyearis;
  if ($startswith == "") {
   $cookie_name = "Worldbank_" . str_replace(" ","_",str_replace("(","_",str_replace(")","_",str_replace("%","_",str_replace(",","_",$reportmode))))) . "_" . $basis;
   $cookie_value = $val;
   setcookie($cookie_name, $cookie_value, time() + (86400 * 30), "/PHP/"); // 86400 = 1 day
   return $val;
  }
  return rangeget($basis);
}

function noe($inn) {
  $zeroes="";
  $neg="";
  $zinn=$inn;
  if (substr($inn,0,1) == '-') {
    $neg="-";
    $zinn=substr($inn,1);
  } 
  $ninn=explode("E",$zinn);
  if (sizeof($ninn) == 2) {
     $qd=explode(".",$ninn[0]);
     $hm=str_replace("+","",$ninn[1]);
     if (sizeof($qd) == 1) {
      for ($ii=1; $ii<=abs($hm); $ii++) {
       $zeroes.="0";
      }
      if ($hm >= 0) {
        return $neg . $qd[0] . $zeroes;
      } else {
        return $neg . "0." . $zeroes . $qd[0];
      }
     } else {
      if ($hm >= 0) {
        for ($ii=1; $ii<=(abs($hm) - strlen($qd[1])); $ii++) {
         $zeroes.="0";
        }
        return $neg . $qd[0] . $qd[1] . $zeroes;
      } else {
        for ($ii=1; $ii<=(abs($hm) - strlen($qd[0])); $ii++) {
         $zeroes.="0";
        }
        return $neg . "0." . $zeroes . $qd[0] . $qd[1];
      }
     }
  } 
  return $inn;
}

function thesmallest($y1, $y2) {
  if (strpos($y2, "-") !== false) {
    return min($y1, -$y2);
  } else if ($y2 != "") {
    return $y1; //min($y1, $y2);
  }
  return $y1;
}

function thebiggest($y1, $y2) {
  if (strpos($y2, "-") !== false) {
    return max($y1, -$y2);
  } else if ($y2 != "") {
    return $y1; //max($y1, $y2);
  }
  return $y1;
}

function andto($y1, $y2, $otheridea) {
  global $xrange, $diffctrylst, $fyearis;
  if (thebiggest($y1, $y2) != thesmallest($y1, $y2)) {
    if (strpos($y2, "-") !== false) {
      return thesmallest($y1, $y2) . " to " . thebiggest($y1, $y2) . $xrange;
    } else {
      return $y2 . " and " . $y1 . $xrange;
    }
  }
  return str_replace("%2d","",str_replace("%2D","",str_replace("-","",str_replace($y1 . " and " . $y2,$y2 . " and " . $y1,str_replace($y1 . "%20and%20" . $y2,$y2 . "%20and%20" . $y1,$otheridea)))));
}

$minval=0.0;
$maxval=0.0;

$thisc="";
$xrange="";
$lookforis="Population, tot";
$reportmode="Population";
$reportmode2="Population";
$indicator="SP.POP.TOTL";
$cn="Pie Chart";
$idata2="";
$udiff="";
$ddiff="";
$page=1;
$valuelist="";
$okvaluelist="";
$firstyear=-1;
$oneyear=0;
$thisyear=0;
$valuedelim="";
$othercnt=0;
$pagecontent="<wb:indicator";
//$pagecontent='"indicator":{"id":"';
$origpc=$pagecontent;
$year="2015";
$xyearvs="";
$yearvs="";
$onclick="<input type='hidden' name='onclick' id='onclick' value='y'></input>";
$poplist="";
$popdelim=",%20";
$idelim="<wb:indicator";
//$idelim='"indicator":{"id":"';
$jdelim='<wb:country id="';
//$jdelim='"country":{"id":"';
$lookingfor='"Afghanistan<';
$lookingfor='>Afghanistan<';
//$lookingfor='"AF"';

$zero=0;
$one=1;
$eight=8;
$cdelim="<";
$prevc="";
$ddelim='<wb:value>';
$wf="600px";
$recit=false;
$regexpok=1;
if (isset($_GET['regex']) || isset($_POST['regex'])) {
  $right="right"; //"RIGHT";
} else {
  $right="right";
}
if (isset($_GET['indicator'])) {
  $indicator=$_GET['indicator'];
if ($indicator != "") {
  $reportmode=str_replace("IC.REG.DURS","Time required to start a business (days)",str_replace("EN.POP.DNST","Population density (people per sq. km of land area)",str_replace("SL.TLF.TOTL.IN","Labor Force, Total",str_replace("IS.RRS.TOTL.KM","Rail Lines (total route-km)",str_replace("SH.MED.BEDS.ZS","Hospital Beds (per 1,000 people)",str_replace("SP.DYN.TFRT.IN","Fertility rate, total (births per woman)",str_replace("AG.LND.AGRI.K2","Agricultural Land (sq km)",str_replace("AG.LND.FRST.K2","Forest Area (sq km)",str_replace("EG.ELC.ACCS.ZS","Access to electricity (% of population)",str_replace("NY.GDP.MKTP.CD","Gross Domestic Product",$indicator))))))))));
  $reportmode2=str_replace("IC.REG.DURS","Time required to start a business (days)",str_replace("EN.POP.DNST","Population density (people per sq. km of land area)",str_replace("SL.TLF.TOTL.IN","Labor Force, Total",str_replace("IS.RRS.TOTL.KM","Rail Lines (total route-km)",str_replace("SH.MED.BEDS.ZS","Hospital Beds (per 1,000 people)",str_replace("SP.DYN.TFRT.IN","Fertility rate, total (births per woman)",str_replace("AG.LND.AGRI.K2","Agricultural Land (sq km)",str_replace("AG.LND.FRST.K2","Forest Area (sq km)",str_replace("EG.ELC.ACCS.ZS","Access to electricity (% of population)",str_replace("NY.GDP.MKTP.CD","Gross Domestic Product (US$)",$indicator))))))))));
  $lookforis=str_replace("IC.REG.DURS","Time required",str_replace("EN.POP.DNST","Population density",str_replace("SL.TLF.TOTL.IN","Labor force",str_replace("IS.RRS.TOTL.KM","Rail line",str_replace("SH.MED.BEDS.ZS","Hospital beds",str_replace("SP.DYN.TFRT.IN","Fertility rate",str_replace("AG.LND.AGRI.K2","Agricultural land (",str_replace("AG.LND.FRST.K2","Forest area (s",str_replace("EG.ELC.ACCS.ZS","Access to electricity (",str_replace("NY.GDP.MKTP.CD","GDP (current US",$indicator))))))))));
  if (strpos($reportmode,"Forest area (s") !== false) { $recit=true; }
}
}
if (isset($_POST['indicator'])) {
  $indicator=$_POST['indicator'];
if ($indicator != "") {
  $reportmode=str_replace("IC.REG.DURS","Time required to start a business (days)",str_replace("EN.POP.DNST","Population density (people per sq. km of land area)",str_replace("SL.TLF.TOTL.IN","Labor Force, Total",str_replace("IS.RRS.TOTL.KM","Rail Lines (total route-km)",str_replace("SH.MED.BEDS.ZS","Hospital Beds (per 1,000 people)",str_replace("SP.DYN.TFRT.IN","Fertility rate, total (births per woman)",str_replace("AG.LND.AGRI.K2","Agricultural Land (sq km)",str_replace("AG.LND.FRST.K2","Forest Area (sq km)",str_replace("EG.ELC.ACCS.ZS","Access to electricity (% of population)",str_replace("NY.GDP.MKTP.CD","Gross Domestic Product",$indicator))))))))));
  $reportmode2=str_replace("IC.REG.DURS","Time required to start a business (days)",str_replace("EN.POP.DNST","Population density (people per sq. km of land area)",str_replace("SL.TLF.TOTL.IN","Labor Force, Total",str_replace("IS.RRS.TOTL.KM","Rail Lines (total route-km)",str_replace("SH.MED.BEDS.ZS","Hospital Beds (per 1,000 people)",str_replace("SP.DYN.TFRT.IN","Fertility rate, total (births per woman)",str_replace("AG.LND.AGRI.K2","Agricultural Land (sq km)",str_replace("AG.LND.FRST.K2","Forest Area (sq km)",str_replace("EG.ELC.ACCS.ZS","Access to electricity (% of population)",str_replace("NY.GDP.MKTP.CD","Gross Domestic Product (US$)",$indicator))))))))));
  $lookforis=str_replace("IC.REG.DURS","Time required",str_replace("EN.POP.DNST","Population density",str_replace("SL.TLF.TOTL.IN","Labor force",str_replace("IS.RRS.TOTL.KM","Rail line",str_replace("SH.MED.BEDS.ZS","Hospital beds",str_replace("SP.DYN.TFRT.IN","Fertility rate",str_replace("AG.LND.AGRI.K2","Agricultural land (s",str_replace("AG.LND.FRST.K2","Forest area (s",str_replace("EG.ELC.ACCS.ZS","Access to electricity (",str_replace("NY.GDP.MKTP.CD","GDP (current US",$indicator))))))))));
  if (strpos($reportmode,"Forest area (s") !== false) { $recit=true; }
}
}
if (isset($_GET['year'])) $year=$_GET['year'];
if (isset($_POST['year'])) $year=$_POST['year'];
if (isset($_GET['yearvs'])) $yearvs=str_replace("%2d","-",str_replace("%2D","-",$_GET['yearvs']));
if (isset($_POST['yearvs'])) $yearvs=str_replace("%2d","-",str_replace("%2D","-",$_POST['yearvs']));
if (isset($_GET['yearvs'])) $xyearvs=" and " . str_replace("%2d","",str_replace("%2D","",str_replace("-","",$_GET['yearvs'])));
if (isset($_POST['yearvs'])) $xyearvs=" and " . str_replace("%2d","",str_replace("%2D","",str_replace("-","",$_POST['yearvs'])));
$zrange=our_str_replace("decimal","0","decimal0");
$tbit=andto($year, $yearvs, $year . $xyearvs . $xrange);
$preudiff="//www.rjmprogramming.com.au/PHP/PieChart/pie_chart";
if (strpos($yearvs, "-") !== false) {
  $mopt="";
  $preudiff="//www.rjmprogramming.com.au/PHP/LineChart/line_chart";
  $cn="Line Chart";
  if (isset($_GET['chart'])) {
    if (strpos(strtolower($_GET['chart']), "column") !== false) {
      $preudiff="//www.rjmprogramming.com.au/PHP/ColumnChart/column_chart";
      $cn="Column Chart";
    } else if (strpos(strtolower($_GET['chart']), "bar") !== false) {
      $preudiff="//www.rjmprogramming.com.au/PHP/BarChart/bar_chart";
      $cn="Bar Chart";
    } else if (strpos(strtolower($_GET['chart']), "area") !== false) {
      $preudiff="//www.rjmprogramming.com.au/PHP/AreaChart/area_chart";
      $cn="Area Chart";
    }
  }
  if (isset($_POST['chart'])) {
    if (strpos(strtolower($_POST['chart']), "column") !== false) {
      $preudiff="//www.rjmprogramming.com.au/PHP/ColumnChart/column_chart";
      $cn="Column Chart";
    } else if (strpos(strtolower($_POST['chart']), "bar") !== false) {
      $preudiff="//www.rjmprogramming.com.au/PHP/BarChart/bar_chart";
      $cn="Bar Chart";
    } else if (strpos(strtolower($_POST['chart']), "area") !== false) {
      $preudiff="//www.rjmprogramming.com.au/PHP/AreaChart/area_chart";
      $cn="Area Chart";
    }
  }
} else if ($yearvs != "") {
  $onclick="";
  $wf="900px";
  $udiff="_diff";
  if (strpos($preudiff, "pie_chart") !== false) {
  $mopt.="&moreopt=" . urlencode(' width: ' . $widea . ', height: 1200, chartArea: {  width: "86%", height: "70%" },  legend: { position: "' . $right . '" }, ');
  }
  $ddiff="&data0=";
  $idata2="<input type='hidden' name='data0' id='data0' value=''></input>";
}
$startswith='';
if (isset($_GET['startswith'])) $startswith=urldecode($_GET['startswith']);
if (isset($_POST['startswith'])) $startswith=urldecode($_POST['startswith']);
$url=$preudiff . $udiff . ".php?title=" . str_replace("+","%20",urlencode($reportmode2)) . "%20by%20World%20Country%20" . $startswith . "%20for%20Year%20" . urldecode(andto($year, $yearvs, $year . $xyearvs . $xrange)) . $mopt . "&onclick=y&label=Year&value=&task=" . str_replace("+","%20",urlencode($reportmode)) . "&desc=" . str_replace("+","%20",urlencode($reportmode)) . "&data=";
$urlextra="";
$tso=thesmallest($year, $yearvs);
$tbo=thebiggest($year, $yearvs);


while (strpos($pagecontent, $origpc) !== false) {
  //file_put_contents('x.x', "http://api.worldbank.org/countries/all/indicators/" . $indicator . "?format=json&date=" . $tso . ":" . $tbo . "&page=" . $page);
  //if (!file_exists('xx.xx')) { file_put_contents('xx.xx', "http://api.worldbank.org/v2/countries/all/indicators/" . $indicator . "?format=xml&date=" . $tso . ":" . $tbo . "&page=" . $page); }
  if ($tso == $tbo) {
  $pagecontent=@file_get_contents("http://api.worldbank.org/v2/countries/all/indicators/" . $indicator . "?format=xml&date=" . $tso . ":" . $tbo . "&page=" . $page);
  } else {
  //if (!file_exists('xxxxx.xxxxx')) { file_put_contents('xxxxx.xxxxx', "http://api.worldbank.org/v2/countries/all/indicators/" . $indicator . "?format=xml&date=" . $tso . ":" . $tbo . "&page=" . $page); }
  $pagecontent=@file_get_contents("http://api.worldbank.org/v2/countries/all/indicators/" . $indicator . "?format=xml&date=" . $tso . ":" . $tbo . "&page=" . $page);
  }
  $pagecontent=str_replace("People's", "People`s", str_replace("'Ivoire", "`Ivoire", $pagecontent));
  //if ($recit) {
  //  if (!file_exists("aaxx3.txt")) { file_put_contents("aaxx3.txt", $pagecontent); }
  //}
  if (strpos($pagecontent, $idelim) === false) {
     $idelim=$lookforis; //"Population, tot";
     $jdelim=$lookforis; //"Population, tot";
     $ddelim='"';
     $lookingfor='"Afghanistan"';
     $lookingfor='>Afghanistan<';
     //$lookingfor='"AF"';
     $cdelim=',"value":"';
     $zero=10;
     $one=14;
     $eight=22;
     if ($tso != $tbo) {
     $ddelim='<wb:'; //$lookingfor='"Afghanistan"';
     }
     $pagecontent=str_replace(':null',':"0"',$pagecontent);
  }
  if ($tso != $tbo || 6 == 6) {
     $ddelim='<wb:'; //$lookingfor='"Afghanistan"';
     $zero=0;
     $one=6;
     $eight=2;
  }
  if (strpos($pagecontent, $idelim) !== false) {
     $entries=explode($jdelim, $pagecontent);
     for ($i=1; $i<sizeof($entries); $i++) {
       $entries[$i]=str_replace('<wb:value />', '<wb:value>0.0</wb:value>',$entries[$i]);
       if ($lookingfor != "") {
         if (str_replace($lookingfor, '', $entries[$i]) != $entries[$i]) $lookingfor="";
       }
       if ($lookingfor == "" && strpos($entries[$i], $ddelim) !== false) {
        $pentries=explode($ddelim, $entries[$i]);
        //if (!file_exists('xxxx.xxxx')) { 
        //   file_put_contents('xxxx.xxxx', $pagecontent . "\n\n\n" . $entries[$i] . "\n\n\nddelim=" . $ddelim . "\n\n" . " zero (country?) is " . $zero . " vs " . $pentries[$zero] . " one (decimal) is " . $one . " vs " . $pentries[$one] . " eight (year?) is " . $eight . " vs " . $pentries[$eight]);
        //}
        $regexpok=1;
        
        if (isset($_GET['regex'])) {
          $thisc=str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero]))));
          $regexp="/" . urldecode($_GET['regex']) . "/i";
          //echo $regexp . " " . $thisc . " " . preg_match($regexp,$thisc) . " " . preg_match($regexp,urldecode($thisc));
          //$regexpok=1;
          //if ($regexpok != 0) echo " xxxx";
          //exit;
          $regexpok=preg_match($regexp,$thisc); 
         //if (preg_match($regexp,$thisc)) $regexpok=preg_match($regexp,$thisc); 
        } else if (isset($_POST['regex'])) {
          $thisc=str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero]))));
          $regexp="/" . urldecode($_POST['regex']) . "/i";
          $regexpok=preg_match($regexp,$thisc); 
         //if (preg_match($regexp,$thisc)) $regexpok=preg_match($regexp,$thisc); 
        }        

        if (substr($entries[$i],2,2) == '">') { $subi=4; }
        $aswell=true;
        if ($startswith != '') {
           if (strpos($entries[$i], "<") !== false) {
             $aswell=false;
             if (strpos(explode('<', $entries[$i])[0], '>' . strtoupper($startswith)) !== false) { $aswell=true; }
           }       
        }
        if ($regexpok != 0 && $aswell && (strpos('*' . explode("<", str_replace('">', '', substr($entries[$i],$subi)))[0], '*' . $startswith) !== false || strpos('*' . $pentries[$zero], '*' . $startswith) !== false)) { 
          if ($idelim == $lookforis) {
  if (strpos($yearvs, "-") !== false) {
          $prevc="," . $valuelist . ",";
          $thisc=retflagflag(str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero])))));
          if (strpos($prevc, "," . retflagflag(str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero]))))) . ",") === false) {
            $prevc=$valuelist;
            $valuelist=retflagflag(str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero]))))) . $valuedelim . $prevc;
            $valuedelim=",";
            //echo $valuelist;
          } //else {
            //echo str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero])))) . " vs " . $prevc;
          //}
          if (strpos($entries[$i], '<wb:date>') !== false) {
            $thisyear=explode('</', explode('<wb:date>', $entries[$i])[1])[0];
          } else if ($pentries[$one] == "decimal") {
            $thisyear=$pentries[6 + $one];
          } else {
            $thisyear=$pentries[$eight];
          }
          if ($firstyear < 0) {
            $firstyear=$thisyear;
            $oneyear=$thisyear;
          } else if ($thisyear != $oneyear) {
            $firstyear=0;
          }
          if ($poplist == "") {
            for ($jy=$tso; $jy<=$tbo; $jy++) {
              //if ($poplist != '') { $fyearis=false; }
              $poplist.=$popdelim . "[~" . $jy . "~]";
            }
          }
          if (strpos($poplist, "~" . $thisyear . "~") !== false) {
          if ($regexpok != 0) {
            if (strpos($entries[$i], '<wb:value') !== false) {
            if (1 == 1 || strpos("," . trim($diffctrylst) . ",", "," . explode('"', $entries[$i])[0] . ",") !== false) {
            $entries[$i]=str_replace('<wb:value />', '<wb:value>0.0</wb:value>',$entries[$i]);
            }
            if (strpos($entries[$i], '<wb:value />') === false) {
            if ($fyearis && strpos("," . trim($diffctrylst) . ",", "," . explode('"', $entries[$i])[0] . ",") === false) {
              if ($diffctrylst == '') { $diffctrylst=' ' . explode('"', $entries[$i])[0];  } else { $diffctrylst.=',' . explode('"', $entries[$i])[0];  }
            }
          $poplist=str_replace("[~" . $thisyear . "~", "[~" . $thisyear . "~," . explode('</', explode('<wb:value>', $entries[$i])[1])[0], $poplist);
            }
            } else {
  //if (!file_exists('xx5xx.xx5xx')) { file_put_contents('xx5xx.xx5xx', $entries[$i]); }
          $poplist=str_replace("[~" . $thisyear . "~", "[~" . $thisyear . "~," . our_str_replace("decimal","0",explode($cdelim, $pentries[$one])[0]), $poplist);
            }
          }
          } else {
          $prevc=$poplist;
          if ($regexpok != 0) {
            if (strpos($entries[$i], '<wb:value') !== false) {
            if (1 == 1 || strpos("," . trim($diffctrylst) . ",", "," . explode('"', $entries[$i])[0] . ",") !== false) {
            $entries[$i]=str_replace('<wb:value />', '<wb:value>0.0</wb:value>',$entries[$i]);
            }
            if (strpos($entries[$i], '<wb:value />') === false) {
            if ($fyearis && strpos("," . trim($diffctrylst) . ",", "," . explode('"', $entries[$i])[0] . ",") === false) {
              if ($diffctrylst == '') { $diffctrylst=' ' . explode('"', $entries[$i])[0];  } else { $diffctrylst.=',' . explode('"', $entries[$i])[0];  }
            }
          $poplist=$popdelim . "[~" . $thisyear . "~," . explode('</', explode('<wb:value>', $entries[$i])[1])[0] . "]" . $prevc;
            }
            } else {
  //if (!file_exists('xx6xx.xx6xx')) { file_put_contents('xx6xx.xx6xx', $entries[$i]); }
          $poplist=$popdelim . "[~" . $thisyear . "~," . our_str_replace("decimal","0",explode($cdelim, $pentries[$one])[0]) . "]" . $prevc;
            }
          }
          }
  } else {
          if ($regexpok != 0) {
            //echo "2 " . $regexpok . " ... " . $regexp . " " . $thisc . " " . str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero]))));
            //exit;
            if (strpos($entries[$i], '<wb:value') !== false) {
                        if (strpos($entries[$i], '<wb:value />') === false) {
            $enick=str_replace("'Ivoire", "`Ivoire", $entries[$i]);
            $poplist.=$popdelim . "[~" . explode('>', explode('</wb:country>', $enick)[0])[-1 + sizeof(explode('>', explode('</wb:country>', $enick)[0]))] . '~,' . explode('</', explode('<wb:value>', $entries[$i])[1])[0] . "]";
                 }
            } else {
            $poplist.=$popdelim . "[~" . retflagflag(str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero]))))) . "~," . our_str_replace("decimal","0",$pentries[$one]) . "]";
            }
          }
  }
          } else {
  if (strpos($yearvs, "-") !== false) {
          $prevc="," . $valuelist . ",";
          $thisc=retflagflag(str_replace("%27","",str_replace(".","",str_replace("+","%20",explode('"', explode($cdelim, str_replace('">', '', urlencode($entries[$i])))[$zero])[0]))));
        $regexpok=1;
        
        if (isset($_GET['regex'])) {
          $thisc=retflagflag(str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero])))));  //new
          $regexp="/" . urldecode($_GET['regex']) . "/i";
          //echo $regexp . " " . $thisc . " " . preg_match($regexp,$thisc) . " " . preg_match($regexp,urldecode($thisc));
          //exit;
          $regexpok=preg_match($regexp,$thisc); 
         //if (preg_match($regexp,$thisc)) $regexpok=preg_match($regexp,$thisc); 
        } else if (isset($_POST['regex'])) {
          $thisc=retflagflag(str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero])))));  // new
          $regexp="/" . urldecode($_POST['regex']) . "/i";
          $regexpok=preg_match($regexp,$thisc); 
         //if (preg_match($regexp,$thisc)) $regexpok=preg_match($regexp,$thisc); 
        } 
        
        if (strpos($prevc, "," . retflagflag(str_replace("%27","",str_replace(".","",str_replace("+","%20",explode('"', explode($cdelim, str_replace('">', '', urlencode($entries[$i])))[$zero])[0])))) . ",") === false) {
            $prevc=$valuelist;
            $valuelist=retflagflag(str_replace("%27","",str_replace(".","",str_replace("+","%20",explode('"', explode($cdelim, str_replace('">', '', urlencode($entries[$i])))[$zero])[0])))) . $valuedelim . $prevc;
            $valuedelim=",";
            //echo $valuelist;
          } //else {
            //echo str_replace("%27","",str_replace(".","",str_replace("+","%20",explode('"', explode($cdelim, str_replace('">', '', urlencode($entries[$i])))[$zero])[0]))) . " vs " . $prevc;
          //}
          if (strpos($entries[$i], '<wb:date>') !== false) {
            $thisyear=explode('</', explode('<wb:date>', $entries[$i])[1])[0];
          } else if ($pentries[$one] == "decimal") {
            $thisyear=$pentries[6 + $one];
          } else {
            $thisyear=$pentries[$eight];
          }
          if ($firstyear < 0) {
            $firstyear=$thisyear;
            $oneyear=$thisyear;
          } else if ($thisyear != $oneyear) {
            $firstyear=0;
          }
          if ($poplist == "") {
            for ($jy=$tso; $jy<=$tbo; $jy++) {
              //if ($poplist != '') { $fyearis=false; }
              $poplist.=$popdelim . "[~" . $jy . "~]";
            }
          }
          if (strpos($poplist, "~" . $thisyear . "~") !== false) {
          if ($regexpok != 0) {
            if (strpos($entries[$i], '<wb:value') !== false) {
            if (1 == 1 || strpos("," . trim($diffctrylst) . ",", "," . explode('"', $entries[$i])[0] . ",") !== false) {
            $entries[$i]=str_replace('<wb:value />', '<wb:value>0.0</wb:value>',$entries[$i]);
            }
                        if (strpos($entries[$i], '<wb:value />') === false) {
            if ($fyearis && strpos("," . trim($diffctrylst) . ",", "," . explode('"', $entries[$i])[0] . ",") === false) {
              if ($diffctrylst == '') { $diffctrylst=' ' . explode('"', $entries[$i])[0];  } else { $diffctrylst.=',' . explode('"', $entries[$i])[0];  }
            }
          $poplist=str_replace("[~" . $thisyear . "~", "[~" . $thisyear . "~," . explode('</', explode('<wb:value>', $entries[$i])[1])[0], $poplist);
               }
            } else {
  //if (!file_exists('xx7xx.xx7xx')) { file_put_contents('xx7xx.xx7xx', $entries[$i]); }
          $poplist=str_replace("[~" . $thisyear . "~", "[~" . $thisyear . "~," . our_str_replace("decimal","0",explode($cdelim, $pentries[$one])[0]), $poplist);
            }
          }
          } else {
          $prevc=$poplist;
          if ($regexpok != 0) {
            if (strpos($entries[$i], '<wb:value') !== false) {
            if (1 == 1 || strpos("," . trim($diffctrylst) . ",", "," . explode('"', $entries[$i])[0] . ",") !== false) {
            $entries[$i]=str_replace('<wb:value />', '<wb:value>0.0</wb:value>',$entries[$i]);
            }
                        if (strpos($entries[$i], '<wb:value />') === false) {
            if ($fyearis && strpos("," . trim($diffctrylst) . ",", "," . explode('"', $entries[$i])[0] . ",") === false) {
              if ($diffctrylst == '') { $diffctrylst=' ' . explode('"', $entries[$i])[0];  } else { $diffctrylst.=',' . explode('"', $entries[$i])[0];  }
            }
          $poplist=$popdelim . "[~" . $thisyear . "~," . explode('</', explode('<wb:value>', $entries[$i])[1])[0] . "]" . $prevc;
                 }
            } else {
  //if (!file_exists('xx8xx.xx8xx')) { file_put_contents('xx8xx.xx8xx', $entries[$i]); }
          $poplist=$popdelim . "[~" . $thisyear . "~," . our_str_replace("decimal","0",explode($cdelim, $pentries[$one])[0]) . "]" . $prevc;
            }
          }
          }
  } else {
           if ($regexpok != 0) {
            //echo "1 " . $thisc;
            //exit;
  //if (!file_exists('xx.xx')) {
  //file_put_contents('xx.xx', '   ' . $poplist . ' ' . str_replace("%27","",str_replace(".","",str_replace("+","%20",explode('"', explode($cdelim, str_replace('">', '', urlencode($entries[$i])))[$zero])[0])))); //'" . str_replace('&value=&','&value=' . str_replace('%2c','',str_replace('%2C','',str_replace("%09","%20",$valuelist))) . '&',explode("&data=",$url)[0]) . "&data=' + url + '" . $urlextra . "');
  //}
            if (strpos($entries[$i], '<wb:value') !== false) {
                        if (strpos($entries[$i], '<wb:value />') === false) {
            $enick=str_replace("'Ivoire", "`Ivoire", $entries[$i]);
            $poplist.=$popdelim . "[~" . explode('>', explode('</wb:country>', $enick)[0])[-1 + sizeof(explode('>', explode('</wb:country>', $enick)[0]))] . '~,' . explode('</', explode('<wb:value>', $entries[$i])[1])[0] . "]";
                }
            } else {
            $poplist.=$popdelim . "[~" . retflagflag(str_replace("%27","",str_replace(".","",str_replace("+","%20",explode('"', explode($cdelim, str_replace('">', '', urlencode($entries[$i])))[$zero])[0])))) . "~," . our_str_replace("decimal","0",explode($cdelim, $pentries[$one])[0]) . "]";
            }
           }
  }
          }
          $popdelim=",%20";
        } else if (strpos($yearvs, "-") === false) {
          if ($idelim == $lookforis) {
          $othercnt+=str_replace("decimal","0",$pentries[$one]);
          } else {
          $othercnt+=str_replace("decimal","0",explode($cdelim, $pentries[$one])[0]);
          }
        }
       }       
     }
     $pagecontent=$origpc; //"<wb:indicator";
  }
  $page++;
}

if (strpos($yearvs, "-") !== false) {
            for ($jy=$tso; $jy<=$tbo; $jy++) {
              $poplist=str_replace($popdelim . "[~" . $jy . "~]", "", $poplist);
            }
} 

if ($othercnt > 0 && !isset($_GET['justletters']) && !isset($_POST['justletters'])) {
  $url.=ourfilter($poplist) . $popdelim . "[~Non-" . $startswith . "~," . noe($othercnt) . "]";
} else {
  $url.=ourfilter($poplist);
}
if (strpos($yearvs, "-") !== false) $yearvs="";

$page=1;
$pagecontent=$origpc; //"<wb:indicator";
$othercnt=0;
$zero=0;
$one=1;
$cdelim="<";
$ddelim='<wb:value>';
$poplist="";
$popdelim=",%20";
$idelim="<wb:indicator";
$jdelim='<wb:country id="';
$lookingfor='"Afghanistan<';
$lookingfor='>Afghanistan<';
//$lookingfor='"AF"';
if ($yearvs != "") {
$urlextra="&data0=";
while (strpos($pagecontent, $origpc) !== false) {
  //if (!file_exists('x.x')) { file_put_contents('x.x', "http://api.worldbank.org/v2/countries/all/indicators/" . $indicator . "?format=xml&date=" . $yearvs . ":" . $yearvs . "&page=" . $page); }
  $pagecontent=@file_get_contents("http://api.worldbank.org/v2/countries/all/indicators/" . $indicator . "?format=xml&date=" . $yearvs . ":" . $yearvs . "&page=" . $page);
  $pagecontent=str_replace("People's", "People`s", str_replace("'Ivoire", "`Ivoire", $pagecontent));
  //if ($recit) {
  //  if (!file_exists("aaxx3.txt")) { file_put_contents("aaxx3.txt", $pagecontent); }
  //}
  if (strpos($pagecontent, $idelim) === false) {
     $idelim=$lookforis; //"Population, tot";
     $jdelim=$lookforis; //"Population, tot";
     $ddelim='"';
     $lookingfor='"Afghanistan"';
     $lookingfor='>Afghanistan<';
//$lookingfor='"AF"';
     $cdelim=',"value":"';
     $zero=10;
     $one=14;
     $eight=22;
     $pagecontent=str_replace(':null',':"0"',$pagecontent);
  }
  if (strpos($pagecontent, $idelim) !== false) {
     $entries=explode($jdelim, $pagecontent);
     for ($i=1; $i<sizeof($entries); $i++) {
       $entries[$i]=str_replace('<wb:value />', '<wb:value>0.0</wb:value>',$entries[$i]);
       if ($lookingfor != "") {
         if (str_replace($lookingfor, '', $entries[$i]) != $entries[$i]) $lookingfor="";
       }
       if ($lookingfor == "" && strpos($entries[$i], $ddelim) !== false) {
        $pentries=explode($ddelim, $entries[$i]);
        $regexpok=1;
        
        if (isset($_GET['regex'])) {
          $thisc=str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero]))));
          $regexp="/" . urldecode($_GET['regex']) . "/i";
          //echo $regexp . " " . $thisc . " " . preg_match($regexp,$thisc) . " " . preg_match($regexp,urldecode($thisc));
          //$regexpok=1;
          //if ($regexpok != 0) echo " xxxx";
          //exit;
           $regexpok=preg_match($regexp,$thisc); 
         //if (preg_match($regexp,$thisc)) $regexpok=preg_match($regexp,$thisc); 
        } else if (isset($_POST['regex'])) {
          $thisc=str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero]))));
          $regexp="/" . urldecode($_POST['regex']) . "/i";
          $regexpok=preg_match($regexp,$thisc); 
          //if (preg_match($regexp,$thisc)) $regexpok=preg_match($regexp,$thisc); 
        }        

        if (substr($entries[$i],2,2) == '">') { $subi=4; }
        $aswell=true;
        if ($startswith != '') {
           if (strpos($entries[$i], "<") !== false) {
             $aswell=false;
             if (strpos(explode('<', $entries[$i])[0], '>' . strtoupper($startswith)) !== false) { $aswell=true; }
           }       
        }
        if ($regexpok != 0 && $aswell && (strpos('*' . explode("<", str_replace('">', '', substr($entries[$i],$subi)))[0], '*' . $startswith) !== false || strpos('*' . $pentries[$zero], '*' . $startswith) !== false)) { 
          if ($idelim == $lookforis) {
          if ($regexpok != 0) {
            if (strpos($entries[$i], '<wb:value') !== false) {
                        if (strpos($entries[$i], '<wb:value />') === false) {
            $enick=str_replace("'Ivoire", "`Ivoire", $entries[$i]);
            $poplist.=$popdelim . "[~" . explode('>', explode('</wb:country>', $enick)[0])[-1 + sizeof(explode('>', explode('</wb:country>', $enick)[0]))] . '~,' . explode('</', explode('<wb:value>', $entries[$i])[1])[0] . "]";
               }
            } else {
            $poplist.=$popdelim . "[~" . retflagflag(str_replace("%27","",str_replace(".","",str_replace("+","%20",urlencode($pentries[$zero]))))) . "~," . our_str_replace("decimal","0",$pentries[$one]) . "]";
            }
          }
          } else {
          if ($regexpok != 0) {
            if (strpos($entries[$i], '<wb:value') !== false) {
                        if (strpos($entries[$i], '<wb:value />') === false) {
            $enick=str_replace("'Ivoire", "`Ivoire", $entries[$i]);
            $poplist.=$popdelim . "[~" . explode('>', explode('</wb:country>', $enick)[0])[-1 + sizeof(explode('>', explode('</wb:country>', $enick)[0]))] . '~,' . explode('</', explode('<wb:value>', $entries[$i])[1])[0] . "]";
                 }
            } else {
          $poplist.=$popdelim . "[~" . retflagflag(str_replace("%27","",str_replace(".","",str_replace("+","%20",explode('"', explode($cdelim, str_replace('">', '', urlencode($entries[$i])))[$zero])[0])))) . "~," . our_str_replace("decimal","0",explode($cdelim, $pentries[$one])[0]) . "]";
            }
          }
          }
          $popdelim=",%20";
        } else {
          if ($idelim == $lookforis) {
          $othercnt+=str_replace("decimal","0",$pentries[$one]);
          } else {
          $othercnt+=str_replace("decimal","0",explode($cdelim, $pentries[$one])[0]);
          }
        }
       }       
     }
     $pagecontent=$origpc; //"<wb:indicator";
  }
  $page++;
}
}


if ($okvaluelist != "" && $okvaluelist != $valuelist) {
 // echo "<!doctype html><html><body><textarea cols=80 rows=200 style=width:100%;>$" . "okvaluelist=" . $okvaluelist . "\n$" . "valuelist=" . $valuelist . "\n$" . "poplist=" . $poplist . "\n$" . "urlextra=" . $urlextra . "\n$" . "url=" . $url . "</textarea></body></html>";
 // exit;
  $valuelist=$okvaluelist;
  $poplist=str_replace(",0","",$poplist);
  $urlextra=str_replace(",0","",$urlextra);
  $url=str_replace(",0","",$url);
}

if ($othercnt > 0 && !isset($_GET['justletters']) && !isset($_POST['justletters'])) {
  $urlextra.=$poplist . $popdelim . "[~Non-" . $startswith . "~," . $othercnt . "]";
  $idata2="<input type='hidden' name='data0' id='data0' value='" . explode("&data0=",$urlextra)[1] . "'></input>";
} else if ($poplist != "") {
  $urlextra.=$poplist;
  $idata2="<input type='hidden' name='data0' id='data0' value='" . explode("&data0=",$urlextra)[1] . "'></input>";
}

echo "<!doctype html><html><head><meta charset='UTF-8'/><meta name='viewport' content='width=device-width, initial-scale=1'><title>World Bank API " . $reportmode . " Data Google Chart " . $cn . " - RJM Programming - February, 2016</title><scr" . "ipt type='text/javascript'> 
  var butis='mysubmit';
  var repj=\"" . $reportmode . "\"; 
  var repfrom=' action=\"//www.';
  var diffcountrylist=\"" . $diffctrylst . "\"; 
  diffcountrylist=lorflags(diffcountrylist);
  var difffirsttcountrylist=(diffcountrylist.split(',')[0] + '~').trim().replace('~',' ');
  var repto=' action=\"https://www.';
  var url='" . explode("&data=",$url)[1] . "'; 
  var urlextra=\"" . str_replace('"','" + String.fromCharCode(34) + "',$urlextra) . "\"; 

  function lorflags(thiscclist) {
    var isos=thiscclist.trim().split(',');
    for (var jsa=0; jsa<isos.length; jsa++) {
      if (eval('' + isos[jsa].length) == 2) {
         thiscclist=thiscclist.replace(isos[jsa], isos[jsa] + ' ' + orflag(isos[jsa]));
         //alert(thiscclist);
      }
    }
    return thiscclist;
  }

  function orflag(thiscc) {
      var ccchar='', ccsuff='';
      var lri='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
      var dri=['127462','127463','127464','127465','127466','127467','127468','127469','127470','127471','127472','127473','127474','127475','127476','127477','127478','127479','127480','127481','127482','127483','127484','127485','127486','127487'];
      for (var iccsuff=0; iccsuff<thiscc.length; iccsuff++) {
        ccchar=thiscc.substring(iccsuff, eval(1 + eval('' + iccsuff))).toUpperCase();
        ccsuff+=String.fromCodePoint(eval('' + dri[eval('' + lri.indexOf(ccchar))])); //'&#' + dri[eval('' + lri.indexOf(ccchar))] + ';';
      }
      return ccsuff;
  }

  function preiframeviaurl() {
    if (document.getElementById('value') && document.getElementById('task')) {
    document.getElementById('task').value=document.getElementById('task').value.replace(/\,/g,'');
    if (document.getElementById('desc')) {
    document.getElementById('desc').value=document.getElementById('desc').value.replace(/\,/g,'');
    }
    if (document.getElementById('value').value.indexOf('%22') != -1) {
    //alert(decodeURIComponent(document.getElementById('value').value));
    //alert('diffcountrylist=' + diffcountrylist + ' and difffirsttcountrylist=' + difffirsttcountrylist);
    if (difffirsttcountrylist.trim() != '') {
    //alert(difffirsttcountrylist + document.getElementById('task').value + (\"" . $diffctrylst . "\").replace(difffirsttcountrylist.trim() + ',', ''));
    document.getElementById('value').value=difffirsttcountrylist + document.getElementById('task').value + diffcountrylist.replace(difffirsttcountrylist.trim() + ',', ',');
    } else {
    document.getElementById('value').value= + diffcountrylist + ' ' + document.getElementById('task').value;
    }
    }
    }
    if (document.getElementById('data').value != '') url=document.getElementById('data').value;
    return true;
  }
  function iframeviaurl() {
    if (repj.indexOf('Access to electricity') != -1) {
       document.getElementById('extraopts').value=document.getElementById('extraopts').value + '  pieSliceText: \"value\", ';
       if (url.indexOf('&extraopts=') != -1) {
       url=url.replace('&extraopts=', '&extraopts=' + encodeURIComponent('  pieSliceText: \"value\", '));
       } else {
       url=url.replace('&', '&extraopts=' + encodeURIComponent('  pieSliceText: \"value\", ') + '&');
       }
    }
    if (navigator.userAgent.match(/Android|BlackBerry|iPhone|iPod|iPad|Opera Mini|IEMobile/i)) { 
       document.getElementById('moreopt').value=('' + document.getElementById('moreopt').value).replace('86%','300%');
       url=url.replace('86','300');
       //alert(document.getElementById('moreopt').value + ' ' + url);
    }
    if (parent.document.getElementById('maxrange')) {
       parent.document.getElementById('maxrange').value='" . rangeset('max',$maxval) . "'; 
    }
    if (parent.document.getElementById('minrange')) {
       parent.document.getElementById('minrange').value='" . rangeset('min',$minval) . "'; 
    }
    if (parent.document.getElementById('childiframe')) {
       document.body.style.backgroundColor='lightblue';
    }
    if (('" . str_replace('&value=&','&value=' . str_replace('%2c','',str_replace('%2C','',str_replace("%09","%20",$valuelist))) . '&',explode("&data=",$url)[0]) . "&data=' + url + '" . $urlextra . "').length > 750) {
       document.getElementById('myiframe').style.display='block';
       document.getElementById('data').value=decodeURIComponent(url);
       document.getElementById('mysubmit').click();
    } else if (url != '') {
       document.getElementById('myiframe').style.display='block';
       document.body.style.cursor='progress';
       document.getElementById('myiframe').src='" . str_replace('&value=&','&value=' . str_replace('%2c','',str_replace('%2C','',str_replace("%09","%20",$valuelist))) . '&',explode("&data=",$url)[0]) . "&data=' + url + '" . $urlextra . "';
    }
    return true;
  }

function shareviasms() {
  var prefix=document.getElementById('aemail').href.split('body=');
  if (('' + prefix[0] + 'body=' + encodeURIComponent(document.URL)).length <= 750) {
  document.getElementById('aemail').href=prefix[0].replace('mailto:','sms:') + 'body=' + encodeURIComponent(document.URL); 
  document.getElementById('aemail').click();
  } else {
  var huhemail=prompt('Please enter email address to send email to', '');
  if (huhemail == null) { huhemail=''; }
  if (huhemail.indexOf('@') != -1) {
  document.getElementById('tdto').value=huhemail;
  document.getElementById('tdhuhta').value='<html><body style=height:900px; onload=document.getElementById(butis).click();>' + document.body.innerHTML.replace(' onsubmit=', ' data-onsubmit=').replace(repfrom,repto) + '</body></html>';
  document.getElementById('fsubm').click();
  }
  }
}

function shareviaemail() {
  var prefix=document.getElementById('aemail').href.split('body=');
  if (('' + prefix[0] + 'body=' + encodeURIComponent(document.URL)).length <= 750) {
  document.getElementById('aemail').href=prefix[0].replace('sms:','mailto:') + 'body=' + encodeURIComponent(document.URL); 
  document.getElementById('aemail').click();
  } else {
  var huhemail=prompt('Please enter email address to send email to', '');
  if (huhemail == null) { huhemail=''; }
  if (huhemail.indexOf('@') != -1) {
  document.getElementById('tdto').value=huhemail;
  document.getElementById('tdhuhta').value='<html><body style=height:900px; onload=document.getElementById(butis).click();>' + document.body.innerHTML.replace(' onsubmit=', ' data-onsubmit=').replace(repfrom,repto) + '</body></html>';
  document.getElementById('fsubm').click();
  }
  }
}
</scr" . "ipt>
</head>
<body onload='iframeviaurl();' style='height:900px;'>
<h1>World Bank API " . $reportmode . " Data Google Chart " . $cn . " <a id='eemail' onclick='shareviaemail();' title='Share via Email a link to this Current Pie Chart you are Viewing'>&#128231;</a> <a id='esms' onclick='shareviasms();' title='Share via SMS'>&#128223;</a></h1>
<h3>RJM Programming - February, 2016</h3>
<h4>Thanks to <a target=_blank title='World Bank API documentation' href='//datahelpdesk.worldbank.org/knowledgebase/articles/898581-api-basic-call-structure'>World Bank API</a></h4>
<iframe onload=\"document.body.style.cursor='pointer';\" style='width:100%;height:" . $wf . ";display:none;' name='myiframe' id='myiframe' src='about:blank'></iframe>
<form onsubmit='return preiframeviaurl();' target='myiframe' id='myform' style='display:none;' method='POST' action=\"" . $preudiff . $udiff . ".php\">
<input type='hidden' name='title' id='title' value='" . $reportmode2 . " by World Country " . $startswith . " for Year " . $tbit . "'></input>
" . $onclick . "
<input type='hidden' name='task' id='task' value='" . $reportmode . "'></input>
<input type='hidden' name='desc' id='desc' value='" . $reportmode . "'></input>
<input type='hidden' name='label' id='label' value='Year'></input>
<input type='hidden' name='value' id='value' value='" . str_replace('%2c','',str_replace('%2C','',str_replace("%09","%20",$valuelist))) . "'></input>
<!--input type='hidden' name='onclick' value='y'></input-->
<input type='hidden' name='moreopt' id=moreopt value=' width: " . $widea . ", height: 1200, chartArea: {  width: \"86%\", height: \"70%\" }, legend: { position: \"" . $right . "\" }, '></input>
<input type='hidden' name='extraopts' id=extraopts value=' chartArea: {  width: \"67%\" }, '></input>
<input type='hidden' name='wouldlikeyoutoseekpermission' value='y'></input>
<input type='hidden' name='data' id='data' value='" . explode("&data=",$url)[1] . "'></input>" . "\n" . $idata2 . "\n" . "
<input id='mysubmit' type='submit' value='Draw Pie Chart'></input>
</form>
<a target='_top' style='display:none;' href='mailto:fillin@email.to?subject=World%20Bank%20" . str_replace("+","%20",urlencode($reportmode)) . "%20Data%20" . urlencode($cn) . "&body=' id='aemail'>Share via Email</a>
<div id=divemail>
<form id=ifemail target='iemail' style='display:none;' action='//www.rjmprogramming.com.au/HTMLCSS/emailhtml.php' method='POST'>
<input type=hidden style=display:none; name=inline value=''></input>
<input type=hidden style=display:none; name=to id=tdto value=''></input>
<input type=hidden style=display:none; name=subj id=tdsubj value='World Bank " . $reportmode . " Data " . $cn . "'></input>
<textarea name=hcont style=display:none; value='' id=tdhuhta cols=160 rows=4></textarea>
<input type=hidden style=display:none; name=cc id=tdcc value=''></input>
<input type=hidden style=display:none; name=bcc id=tdbcc value=''></input>
<input style=display:none; type=submit id=fsubm value='Email'></input>
</form>
</div>
<iframe style=display:none; name=iemail id=iemail src=></iframe>
</body>
</html>";

?>