batmud/maputils: www/loc.php annotate

annotate www/loc.php @ 337:ca191c3a0ce1

Updates and lots of new ugly glue.

author	Matti Hamalainen <ccr@tnsp.org>
date	Wed, 11 Jul 2007 16:05:32 +0000
parents	eeb6167cf81e
children	875548a41c71

rev	line source
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1 <?
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	2 require "config.inc.php";
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	3 require "common.inc.php";
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	4
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	5 function makeURL($pcities, $coders, $name, $desc, $class)
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	6 {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	7 $s = "";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	8 if ($pcities) $s = "c";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	9
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	10 if (!$coders) {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	11 if ($s != "") $s .= "&";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	12 $s .= "s";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	13 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	14
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	15 if (isset($name)) {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	16 if ($s != "") $s .= "&";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	17 $s .= "n=".$name;
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	18 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	19
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	20 if (isset($class))
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	21 echo " <td class=\"".$class."\">";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	22 else
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	23 echo " <td>";
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	24
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	25
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	26 echo "<a href=\"".$GLOBALS["SCRIPT_NAME"];
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	27 if (strlen($s) > 0) echo "?".$s;
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	28 echo "\">".$desc."</a></td>\n";
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	29 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	30
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	31
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	32 /* Page start
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	33 */
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	34 printPageHeader($pageTitle." - Locations");
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	35 //echo "<div><b>DEVELOPMENT VERSION</b></div>";
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	36
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	37 $locTable = array();
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	38 $wizTable = array();
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	39
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	40 $onlyPCities = isset($_GET["c"]);
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	41 $showCoders = !isset($_GET["s"]);
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	42
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	43 if (isset($_GET["a"])) {
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	44 $coderName = basename($_GET["a"]);
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	45 $coderName = strtoupper(substr($coderName, 0, 1)).strtolower(substr($coderName, 1));
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	46 readWizInfo("wizards.txt", $wizTable);
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	47 }
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	48
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	49 if (isset($_GET["n"])) {
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	50 $setName = strtolower(basename($_GET["n"]));
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	51 if (isset($continentList[$setName]) && file_exists($setName.".loc")) {
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	52 readLocations($setName, $locTable, $onlyPCities);
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	53 } else {
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	54 echo "<h1>No such continent ID!</h1>";
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	55 unset($setName);
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	56 }
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	57 } else {
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	58 reset($continentList);
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	59 while (list($iKey, $iValue) = each($continentList)) {
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	60 readLocations($iKey, $locTable, $onlyPCities);
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	61 }
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	62 }
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	63
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	64 /* Header
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	65 */
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	66 echo "<h1>";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	67 if ($onlyPCities)
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	68 echo "Player cities";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	69 else
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	70 echo "Locations";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	71 echo " of ";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	72 if (isset($continentList[$setName]))
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	73 echo $continentList[$setName]." continent in ";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	74 echo "BatMUD";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	75 if (isset($coderName))
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	76 echo " by ".$coderName;
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	77 echo "</h1>\n";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	78
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	79 echo "<div class=\"selbar\">\n <table>\n <tr>\n";
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	80 makeURL(FALSE, TRUE, null, "EVERYTHING", "sel1");
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	81
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	82 if (!$onlyPCities) {
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	83 makeURL(TRUE, $showCoders, $setName, "PCities", "sel2");
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	84
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	85 if (!$showCoders)
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	86 makeURL($onlyPCities, TRUE, $setName, "Show Coders", "sel3");
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	87 else
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	88 makeURL($onlyPCities, FALSE, $setName, "Hide Coders", "sel3");
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	89 } else {
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	90 makeURL(FALSE, $showCoders, $setName, "Locations", "sel2");
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	91
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	92 if (!$showCoders)
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	93 makeURL($onlyPCities, TRUE, $setName, "Show SS", "sel3");
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	94 else
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	95 makeURL($onlyPCities, FALSE, $setName, "Hide SS", "sel3");
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	96 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	97
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	98 echo " <td></td>\n";
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	99
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	100 reset($continentList);
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	101 while (list($iKey, $iValue) = each($continentList)) {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	102 makeURL($onlyPCities, $showCoders, $iKey, $iValue, $iKey);
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	103 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	104 ?>
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	105 <td>[<a href="index.php">Back to main page</a>]</td>
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	106 </tr>
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	107 </table>
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	108 </div>
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	109
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	110 <?
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	111 if ($showCoders && isset($coderName) && isset($wizTable[$coderName]) && count($wizTable[$coderName]) > 1) {
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	112 echo "<div class=\"wizinfo\">\n <table>\n <tr>\n";
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	113
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	114 $s = $wizTable[$coderName]["imageURL"];
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	115 if (isset($s)) {
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	116 if (substr($s, 0, 6) == "bat://")
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	117 $s = "http://www.bat.org/albums/".substr($s, 6);
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	118 } else
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	119 $s = "img/unknown.png";
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	120
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	121 echo " <td class=\"img\"><img src=\"".$s."\" alt=\"".$coderName."\" /></td>\n";
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	122
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	123
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	124 echo " <td class=\"info\">\n";
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	125 echo " <h2><a href=\"http://www.bat.org/help/finger.php?str=".$coderName."\">".$coderName."</a></h2>\n";
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	126
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	127 $s = $wizTable[$coderName]["desc"];
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	128 if (isset($s) > 0) {
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	129 echo " <p>".$s."</p>\n";
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	130 }
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	131
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	132 echo " [<a href=\"http://www.bat.org/help/finger.php?str=".$coderName."\">Finger</a>]\n";
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	133
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	134 $s = $wizTable[$coderName]["homeURL"];
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	135 if (isset($s)) {
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	136 if ($s == "bat")
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	137 $s = "http://wiz.bat.org/~".strtolower($coderName)."/";
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	138
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	139 echo " [<a href=\"".$s."\">Homepage</a>]<br />\n";
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	140 }
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	141
eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	142 echo " </td>\n </tr>\n </table>\n</div>\n";
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	143 }
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	144
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	145
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	146 /* Print list of locations
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	147 */
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	148 if (count($locTable) > 0) {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	149 /* Make alphabetical table of locations
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	150 */
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	151 while (list($key, $value) = each($locTable)) {
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	152 if (isset($_GET["nocoders"])) {
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	153 if (count($value["coders"]) == 0 && !preg_match("/[SPG]/", $value["flags"]))
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	154 $alphaTable[$key[0]][] = $value;
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	155 } else {
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	156 if (isset($coderName)) {
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	157 if (array_search($coderName, $value["coders"]) !== FALSE)
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	158 $alphaTable[$key[0]][] = $value;
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	159 } else
ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	160 $alphaTable[$key[0]][] = $value;
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	161 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	162 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	163
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	164 ksort($alphaTable, SORT_STRING);
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	165
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	166
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	167 /* Print locations per first character
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	168 */
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	169 $totalLoc = 0;
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	170 $maxRow = 6;
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	171 while (list($key, $value) = each($alphaTable)) {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	172 if (count($value) > 0) {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	173 asort($value);
311 134dded5369b Changes. Matti Hamalainen <ccr@tnsp.org> parents: 300 diff changeset	174 echo "<h3><a name=\"".strtolower($key)."\"></a>".$key."</h3>\n";
321 eeb6167cf81e Updates. Matti Hamalainen <ccr@tnsp.org> parents: 311 diff changeset	175 echo "<table class=\"loc\" width=\"95%\">\n";
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	176 $n = 0;
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	177 while (list($ik, $iv) = each($value)) {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	178 if ($n == 0) {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	179 echo " <tr>\n";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	180 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	181
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	182 $totalLoc++;
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	183
337 ca191c3a0ce1 Updates and lots of new ugly glue. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	184 printf(" <td width=\"%d%%\" class=\"%s\">",
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	185 (100 / $maxRow), $iv["continent"]);
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	186
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	187 printURL($iv["continent"].".html#loc".$iv["x"]."_".$iv["y"]);
311 134dded5369b Changes. Matti Hamalainen <ccr@tnsp.org> parents: 300 diff changeset	188
134dded5369b Changes. Matti Hamalainen <ccr@tnsp.org> parents: 300 diff changeset	189 echo htmlentities($iv["name"])."</a>";
300 edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	190
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	191 if (count($iv["coders"]) > 0 && $showCoders) {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	192 $fs = "";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	193 while (list($fKey, $fVal) = each($iv["coders"])) {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	194 if ($fs != "") $fs .= ", ";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	195 if (!$onlyPCities)
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	196 $fs .= "<a href=\"loc.php?a=".$fVal."\">".$fVal."</a>";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	197 else
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	198 $fs .= $fVal;
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	199 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	200 echo "<br />[".$fs."]";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	201 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	202
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	203 echo "</td>\n";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	204
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	205 $n++;
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	206 if ($n >= $maxRow) {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	207 echo " </tr>\n";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	208 $n = 0;
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	209 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	210 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	211 if ($n > 0) {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	212 while ($n++ < $maxRow)
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	213 echo " <td></td>\n";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	214
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	215 echo " </tr>\n";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	216 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	217 echo "</table>\n";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	218 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	219 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	220
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	221 echo "<p><b>".$totalLoc."</b> locations.</p>\n";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	222 } else {
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	223 echo "<p><b>No locations known!</b></p>\n";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	224 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	225
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	226 // Google Analytics
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	227 require "../urchin.inc.php";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	228 ?>
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	229 </body>
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/ Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	230 </html>

Mercurial > hg > batmud > maputils

annotate www/loc.php @ 337:ca191c3a0ce1