';
$cnt=0;
foreach (glob("*_parks.php") as $filename) {
if (strpos(($filename . "*"), (str_replace(" ", "_", strtolower($def)) . '_parks.php*')) === false) {
$cnt++;
$newidea=str_replace("_", " ", str_replace("_parks.php", "", strtolower($filename)));
$newideas=explode(" ", $newidea);
$ideas=strtoupper(substr($newideas[0],0,1)) . strtolower(substr($newideas[0],1));
for ($ii=1; $ii' . $ideas . '';
}
}
if ($cnt > 0) return $selstr . "";
return $ret;
}
if (isset($_GET['notyet'])) {
echo 'Australian National Parks - RJM Programming - September, 2017';
} else {
if (!file_exists(dirname(__FILE__) . "/australian_parks.txt")) {
file_put_contents(dirname(__FILE__) . "/australian_parks.txt", file_get_contents("https://en.wikipedia.org/wiki/List_of_national_parks_of_Australia"));
//$lhcont=str_replace("", "
", "
\n";
$ourscript="<" . "script type='text/javascript'>\nfunction populate() { document.getElementById('title').value=decodeURIComponent('" . $ourtitle . "'); document.getElementById('label').value=decodeURIComponent('" . $ourlabel . "'); document.getElementById('value').value=decodeURIComponent('" . $ourvalue . "'); document.getElementById('data').value=''; \n";
// Write out start of HTML ready for the one table row that will be created ...
$tbits=explode('
Australian National Parks - RJM Programming - September, 2017<' . 'script type="text/javascript"> var fsize=' . (-1 + sizeof($tbits)) . ', anim=false, eightthousand=8000, curanim=1; function startit() { if (anim) { location.href="#td" + curanim; curanim++; if (curanim > fsize || !document.getElementById("td" + curanim)) { curanim=1; } setTimeout(startit,eightthousand); } } function startorstop() { if (!anim) { anim=true; setTimeout(startit,eightthousand); } else { anim=false; location.href="#td0"; if (eightthousand > 2999) { eightthousand-=1000; } } } function after() { document.getElementById("submit").click(); document.getElementById("' .$iname . '").style.display="inline"; } ' . 'script>
' . selcreate("Australian") . ' National Parks Thanks to Wikipedia
';
// For each table ...
//$tbits=explode('
", str_replace("", "", $preabits[$iij]));
for ($iijj=1; $iijj";
if (substr($xpostabits[$iijjk], 0, 1) == "S") $latis="-" . $xpostabits[$iijjk - 1]; // . "";
if (substr($xpostabits[$iijjk], 0, 1) == "E") $longis="+" . trim(str_replace("S", "", str_replace("N", "", str_replace("\n", "", $xpostabits[$iijjk - 1])))); // . "";
if (substr($xpostabits[$iijjk], 0, 1) == "W") $longis="-" . trim(str_replace("S", "", str_replace("N", "", str_replace("\n", "", $xpostabits[$iijjk - 1])))); // . "";
}
$altis=str_replace("Department of Parks and Wildlife","",str_replace("Parks Victoria","",str_replace("Department of Environment, Water and Natural Resources","",str_replace("Queensland Parks and Wildlife Service","",str_replace("Parks and Wildlife Commission of the Northern Territory","",str_replace("National Parks and Wildlife Service","",str_replace("'", "`", $altis)))))));
$titleis=str_replace("Department of Parks and Wildlife","",str_replace("Parks Victoria","",str_replace("Department of Environment, Water and Natural Resources","",str_replace("Queensland Parks and Wildlife Service","",str_replace("Parks and Wildlife Commission of the Northern Territory","",str_replace("National Parks and Wildlife Service","",str_replace("'", "`", $titleis)))))));
if (substr(($altis . "A"),0,1) < "A") $altis="";
if (substr(($titleis . "A"),0,1) < "A") $titleis="";
if ($altis == $titleis) $altis="";
if ($imgbit == "" && 1 == 1) $imgbit="";
if ($imgbit == "" && 1 == 2) $imgbit=$altis . ", " . $titleis;
if ($simgbit == "" && 1 == 1) $simgbit="";
if ($simgbit == "" && 1 == 2) $simgbit=$altis . ", " . $titleis;
if ($seimgbit == "" && 1 == 1) $seimgbit=urlencode(">" . $altis . ", " . $titleis) . "%3C/a%3E";
if ($seimgbit == "" && 1 == 2) $seimgbit=">" . $altis . ", " . $titleis . "";
// Write out cell of information for one dam ...
if (trim($altis . $titleis) != "") {
if (trim($altis) == "") {
if (!$tdzd) {
$tdzdone=1;
$tdzd=true;
echo "\n