<?php
// growth_of_merchandise_trade.php

// RJM Programming
// January 2016

// Using http://wdi.worldbank.org/table/6.1
// World Development Indicators:
// Growth of merchandise trade
// http://localhost:8888/PHP/BubbleChart/bubble_chart.php?title=Net barter terms of Export trade index 2003-2013&label='Letter'&value=Export volume,Export value,'Country',Net barter terms of Export trade index&data=, [~A~,-1.8,6.8,'Afghanistan',2.2] , [~A~,11.5,17.3,'Albania',0.1]

$htmlis="<!doctype html><html><head><link href='//www.rjmprogramming.com.au/PHP/emboss_h1.css' rel='stylesheet' type='text/css'><sc" . "ript type='text/javascript'> var cdone=','; function subclick(ifid) { if (cdone.indexOf(',' + ifid + ',') == -1) { cdone=cdone + ifid + ','; document.getElementById('sf' + ifid).click(); }  }   </s" . "cript></head><body style='background-color:yellow;'><h1 align='center'>Growth of Merchandise Trade 2003-2013</h1><br><h3 align='center'>Thanks to Worldbank data of http://wdi.worldbank.org/table/6.1</h3><br><table><tbody><tr><th colspan=26 align='left'>Exports</th></tr><tr></tr><tr><th colspan=26 align='left'>Imports</th></tr><tr></tr></tbody></table></body></html>";
$things=["Country","Export volume","Import volume","Export value","Import value","Net barter terms of trade index"];
$values=["","","","","",""];
$etitle="Net barter terms of Export trade index 2003-2013";
$elabel="'Letter'";
$evalue="Export volume (average annual % growth),Export value (average annual % growth),'Country',Net barter terms of Export trade index";
$eurlprefix="bubble_chart.php?title=Net barter terms of Export trade index 2003-2013&onclick=y&label='Letter'&value=Export volume (average annual % growth),Export value (average annual % growth),'Country',Net barter terms of Export trade index&data=";
$exporturls=[$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix,$eurlprefix];
$ititle="Net barter terms of Import trade index 2003-2013";
$ilabel="'Letter'";
$ivalue="Import volume (average annual % growth),Import value (average annual % growth),'Country',Net barter terms of Import trade index";
$iurlprefix="bubble_chart.php?title=Net barter terms of Import trade index 2003-2013&onclick=y&label='Letter'&value=Import volume (average annual % growth),Import value (average annual % growth),'Country',Net barter terms of Export trade index&data=";
$importurls=[$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix,$iurlprefix];
$letters=["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"];	
	
$cont=file_get_contents("http://wdi.worldbank.org/table/6.1");

$bits=explode("<td>" . '<div class="spacer">', str_replace(" class=''","",$cont));

for ($i=1; $i<sizeof($bits); $i++) {
  if ((($i - 1) % (sizeof($values) - 1)) == 0) {
    if ($values[0] != "") {
      $idx=ord(substr($values[0],0,1)) - ord('A');
      $importurls[$idx].=", [~" . substr($values[0],0,1) . "~," . $values[2] . "," . $values[4] . ",'" . $values[0] . "'," . $values[5] . "]";
      $exporturls[$idx].=", [~" . substr($values[0],0,1) . "~," . $values[1] . "," . $values[3] . ",'" . $values[0] . "'," . $values[5] . "]";
      //echo "<p>" . $values[0] . " " . $values[1] . " " . $values[2] . " " . $values[3] . " " . $values[4] . " " . $values[5] . " " . $values[6] . "</p><br>";
      $values[0] = "";
    }
    // >Afghanistan</a<</div<</td<<td class=''<<div class="spacer"<
    $presubbits=explode(">", str_replace("<", ">", $bits[-1 + $i]));
    $values[0]=str_replace("'", "`", trim($presubbits[-7 + sizeof($presubbits)]));
    //if (substr($values[0],0,1) == "B" || substr($values[0],0,1) == "C" || substr($values[0],0,1) == "M" || substr($values[0],0,1) == "P" || substr($values[0],0,1) == "R" || substr($values[0],0,1) == "S") {
    //  $cvals=explode(" ", $values[0]);
    //  $values[0] = $cvals[0];
    //}
  }
  $subbits=explode("</div>", $bits[$i]);
  $values[(($i - 1) % (sizeof($values) - 1)) + 1]=str_replace("..","0.0",$subbits[0]);
}
if ($values[0] != "") {
    $idx=ord(substr($values[0],0,1)) - ord('A');
    $importurls[$idx].=", [~" . substr($values[0],0,1) . "~," . $values[2] . "," . $values[4] . ",'" . $values[0] . "'," . $values[5] . "]";
    $exporturls[$idx].=", [~" . substr($values[0],0,1) . "~," . $values[1] . "," . $values[3] . ",'" . $values[0] . "'," . $values[5] . "]";
    //echo "<p>" . $values[0] . " " . $values[1] . " " . $values[2] . " " . $values[3] . " " . $values[4] . " " . $values[5] . " " . $values[6] . "</p><br>";
    //echo "<p>\$exporturls[" . $idx . "]=" . $exporturls[$idx] . "</p><br>";
    for ($i=0; $i<sizeof($importurls); $i++) {
      $onli="";
      $onle="";
      $ximporturls=$importurls[$i];
      $xexporturls=$exporturls[$i];
      if ($i == 1 || $i == 2 || $i == 12 || $i == 15 || $i == 17 || $i == 18) $onli=" onload=\" subclick('i" . $i . "'); \" "; 
      if ($i == 1 || $i == 2 || $i == 12 || $i == 15 || $i == 17 || $i == 18) $onle=" onload=\" subclick('e" . $i . "'); \" "; 
      if ($i == 1 || $i == 2 || $i == 12 || $i == 15 || $i == 17 || $i == 18) {
        $huhs=explode("&data=", $importurls[$i]);
        $ximporturls=str_replace("index 2003-2013", "index 2003-2013 " . $letters[$i] . "",$huhs[0]);
      }
      if ($i == 1 || $i == 2 || $i == 12 || $i == 15 || $i == 17 || $i == 18) {
        $huhs=explode("&data=", $exporturls[$i]);
        $xexporturls=str_replace("index 2003-2013", "index 2003-2013 " . $letters[$i] . "",$huhs[0]); 
      }
      $htmlis=str_replace("</tr></tbody>", "<td><form target='i" . $i . "' style='display:none;' name='fi" . $i . "' id='fi" . $i . "' action=\"" . str_replace("&data=","",$iurlprefix) . "\" method='POST'><input type='hidden' name='onclick' value='y'></input><input type='hidden' name='title' value=\"" . str_replace("index 2003-2013", "index 2003-2013 " . $letters[$i] . "",$ititle) . "\"></input><input type='hidden' name='label' value=\"" . $ilabel . "\"></input><input type='hidden' name='value' value=\"" . $ivalue . "\"></input>\n<input type='hidden' name='data' value=\"" . str_replace($iurlprefix,"",$importurls[$i]) . "\"></input>\n<input id='sfi" . $i . "' type='submit' value='Submit'></input></form><iframe " . $onli . " name='i" . $i . "' id='i" . $i . "' height=600 width=930 src=\"" . str_replace("index 2003-2013", "index 2003-2013 " . $letters[$i] . "",$ximporturls) . "\"></iframe></td></tr></tbody>", $htmlis);
      $htmlis=str_replace("</tr><tr><th", "<td><form target='e" . $i . "' style='display:none;' name='fe" . $i . "' id='fe" . $i . "' action=\"" . str_replace("&data=","",$eurlprefix) . "\" method='POST'><input type='hidden' name='onclick' value='y'></input><input type='hidden' name='title' value=\"" . str_replace("index 2003-2013", "index 2003-2013 " . $letters[$i] . "",$etitle) . "\"></input><input type='hidden' name='label' value=\"" . $elabel . "\"></input><input type='hidden' name='value' value=\"" . $evalue . "\"></input>\n<input type='hidden' name='data' value=\"" . str_replace($eurlprefix,"",$exporturls[$i]) . "\"></input>\n<input id='sfe" . $i . "' type='submit' value='Submit'></input></form><iframe " . $onle . " name='e" . $i . "' id='e" . $i . "' height=600 width=930 src=\"" . str_replace("index 2003-2013", "index 2003-2013 " . $letters[$i] . "",$xexporturls) . "\"></iframe></td></tr><tr><th", $htmlis);
    }

    //for ($i=0; $i<sizeof($exporturls); $i++) {
    //  $htmlis=str_replace("</tr><tr><th", "<td><iframe height=600 width=850 src=\"" . str_replace("index 2003-2013", "index 2003-2013 " . $letters[$i] . "",$exporturls[$i]) . "\"></iframe></td></tr><tr><th", $htmlis);
    //}

    echo $htmlis;
}

?>

