Mercurial > hg > batmud > maputils

annotate www/loc.php @ 2055:062725ea7be7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleanups and minor improvements to location list page.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 10 May 2019 01:50:43 +0300
parents 77c8892c78ca
children 94d3c4ae7121
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1646
2cbce82aa3c3 Use full <?php ?> tag, misc cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1638
diff changeset
1 <?php
300
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";
1272
Matti Hamalainen <ccr@tnsp.org>
parents: 1233
diff changeset
3 require "world.inc.php";
337
ca191c3a0ce1 Updates and lots of new ugly glue.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
4 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
5
1677
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
6
1112
Matti Hamalainen <ccr@tnsp.org>
parents: 1100
diff changeset
7 // Wizard info box special formatting tags
1609
c5e15be5315c Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 1607
diff changeset
8 $specTags = [
1112
Matti Hamalainen <ccr@tnsp.org>
parents: 1100
diff changeset
9 "b" => "<b>",
Matti Hamalainen <ccr@tnsp.org>
parents: 1100
diff changeset
10 "\/b" => "</b>",
Matti Hamalainen <ccr@tnsp.org>
parents: 1100
diff changeset
11 "i" => "<i>",
Matti Hamalainen <ccr@tnsp.org>
parents: 1100
diff changeset
12 "\/i" => "</i>",
Matti Hamalainen <ccr@tnsp.org>
parents: 1100
diff changeset
13 "p" => "<br /><br />",
Matti Hamalainen <ccr@tnsp.org>
parents: 1100
diff changeset
14 "br" => "<br />",
1609
c5e15be5315c Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 1607
diff changeset
15 ];
1112
Matti Hamalainen <ccr@tnsp.org>
parents: 1100
diff changeset
16
Matti Hamalainen <ccr@tnsp.org>
parents: 1100
diff changeset
17
976
047fa29bc07e Tiny cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 975
diff changeset
18 function printTitleLink($afilter, $filter, $coders, $desc, $qname, $qclass)
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
19 {
2055
062725ea7be7 Cleanups and minor improvements to location list page.
Matti Hamalainen <ccr@tnsp.org>
parents: 2043
diff changeset
20 global $setName;
062725ea7be7 Cleanups and minor improvements to location list page.
Matti Hamalainen <ccr@tnsp.org>
parents: 2043
diff changeset
21
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
22 $s = "";
1567
026c6eca781c Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1494
diff changeset
23 if ($afilter)
026c6eca781c Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1494
diff changeset
24 $s = "f=".$filter;
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
25
1567
026c6eca781c Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1494
diff changeset
26 if (!$coders)
026c6eca781c Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1494
diff changeset
27 {
801
Matti Hamalainen <ccr@tnsp.org>
parents: 735
diff changeset
28 if ($s !== "") $s .= "&amp;";
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
29 $s .= "s";
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
30 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
31
1567
026c6eca781c Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1494
diff changeset
32 if ($qname !== "")
026c6eca781c Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1494
diff changeset
33 {
801
Matti Hamalainen <ccr@tnsp.org>
parents: 735
diff changeset
34 if ($s !== "") $s .= "&amp;";
Matti Hamalainen <ccr@tnsp.org>
parents: 735
diff changeset
35 $s .= "n=".$qname;
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
36 }
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
37
2055
062725ea7be7 Cleanups and minor improvements to location list page.
Matti Hamalainen <ccr@tnsp.org>
parents: 2043
diff changeset
38 if ($setName == $qname || ($setName == "" && $qname == "all"))
062725ea7be7 Cleanups and minor improvements to location list page.
Matti Hamalainen <ccr@tnsp.org>
parents: 2043
diff changeset
39 $qclass .= " active";
062725ea7be7 Cleanups and minor improvements to location list page.
Matti Hamalainen <ccr@tnsp.org>
parents: 2043
diff changeset
40
1567
026c6eca781c Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1494
diff changeset
41 echo
026c6eca781c Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1494
diff changeset
42 " <a class=\"control continent ".$qclass.
1918
3075415f052e Get rid of PHP_SELF usage.
Matti Hamalainen <ccr@tnsp.org>
parents: 1900
diff changeset
43 "\" href=\"?".$s."\">".$desc."</a>\n";
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
44 }
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
45
337
ca191c3a0ce1 Updates and lots of new ugly glue.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
46
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
47 function qcheck($arr, $key, &$result)
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
48 {
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
49 if (isset($key) && isset($arr[$key]))
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
50 {
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
51 $result = $arr[$key];
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
52 return TRUE;
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
53 }
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
54 else
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
55 {
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
56 unset($result);
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
57 return FALSE;
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
58 }
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
59 }
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
60
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
61
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
62
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
63 //
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
64 // Initialization
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
65 //
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
66 // Special backwards compatibility case for pcities
2055
062725ea7be7 Cleanups and minor improvements to location list page.
Matti Hamalainen <ccr@tnsp.org>
parents: 2043
diff changeset
67 if (isset($_REQUEST["c"]))
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
68 {
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
69 $filterID = "C";
621
537fae9ebf1d Synced.
Matti Hamalainen <ccr@tnsp.org>
parents: 609
diff changeset
70 $applyFilter = TRUE;
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
71 }
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
72 else
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
73 // Try to get the filter ID
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
74 if (($filterID = mpGetRequestItem("f", "", TRUE)) != "")
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
75 {
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
76 if (!array_key_exists($filterID, $locationTypes))
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
77 {
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
78 mpError("Invalid location filter rule '".chentities($filterID)."'.");
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
79 $filterID = "";
621
537fae9ebf1d Synced.
Matti Hamalainen <ccr@tnsp.org>
parents: 609
diff changeset
80 $applyFilter = FALSE;
537fae9ebf1d Synced.
Matti Hamalainen <ccr@tnsp.org>
parents: 609
diff changeset
81 }
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
82 else
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
83 $applyFilter = TRUE;
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
84 }
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
85 else
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
86 // No filter ID specified, default to showing everything
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
87 {
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
88 $filterID = "";
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
89 $applyFilter = FALSE;
621
537fae9ebf1d Synced.
Matti Hamalainen <ccr@tnsp.org>
parents: 609
diff changeset
90 }
537fae9ebf1d Synced.
Matti Hamalainen <ccr@tnsp.org>
parents: 609
diff changeset
91
1638
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
92
2055
062725ea7be7 Cleanups and minor improvements to location list page.
Matti Hamalainen <ccr@tnsp.org>
parents: 2043
diff changeset
93 $showCoders = !isset($_REQUEST["s"]);
337
ca191c3a0ce1 Updates and lots of new ugly glue.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
94
2055
062725ea7be7 Cleanups and minor improvements to location list page.
Matti Hamalainen <ccr@tnsp.org>
parents: 2043
diff changeset
95 if (($tmpName = mpGetRequestItem("a", FALSE, TRUE)) !== FALSE)
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
96 {
1620
6d620441af7f Rename various functions, and other cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1609
diff changeset
97 if (preg_match("#^([a-z]{1,15})#i", $tmpName, $matches))
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
98 {
1620
6d620441af7f Rename various functions, and other cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1609
diff changeset
99 $coderName = $matches[1];
1084
4c9c1d56d434 Security fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1060
diff changeset
100 $coderName = strtoupper(substr($coderName, 0, 1)).strtolower(substr($coderName, 1));
1150
02fe48a608d7 Use APC for caching of location and wizard data.
Matti Hamalainen <ccr@tnsp.org>
parents: 1148
diff changeset
101
2033
57ecb49d7b4a Update the apc functions to use apcu_ prefix.
Matti Hamalainen <ccr@tnsp.org>
parents: 2032
diff changeset
102 $wizTable = apcu_fetch("wizTable");
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
103 if (empty($wizTable))
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
104 {
1620
6d620441af7f Rename various functions, and other cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1609
diff changeset
105 $wizTable = mpReadWizInfoFiles();
2033
57ecb49d7b4a Update the apc functions to use apcu_ prefix.
Matti Hamalainen <ccr@tnsp.org>
parents: 2032
diff changeset
106 apcu_store("wizTable", $wizTable, 3600);
1150
02fe48a608d7 Use APC for caching of location and wizard data.
Matti Hamalainen <ccr@tnsp.org>
parents: 1148
diff changeset
107 }
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
108 }
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
109 else
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
110 {
1084
4c9c1d56d434 Security fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1060
diff changeset
111 $coderName = "???";
1900
ed98d2fe4bca Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 1891
diff changeset
112 mpError("Invalid wizard name.");
1150
02fe48a608d7 Use APC for caching of location and wizard data.
Matti Hamalainen <ccr@tnsp.org>
parents: 1148
diff changeset
113 }
337
ca191c3a0ce1 Updates and lots of new ugly glue.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
114 }
ca191c3a0ce1 Updates and lots of new ugly glue.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
115
2055
062725ea7be7 Cleanups and minor improvements to location list page.
Matti Hamalainen <ccr@tnsp.org>
parents: 2043
diff changeset
116 if (($tmpName = mpGetRequestItem("n", FALSE, TRUE)) !== FALSE)
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
117 {
1609
c5e15be5315c Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 1607
diff changeset
118 $locTable = [];
2055
062725ea7be7 Cleanups and minor improvements to location list page.
Matti Hamalainen <ccr@tnsp.org>
parents: 2043
diff changeset
119 $setName = strtolower(trim(basename($tmpName)));
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
120 if (file_exists($setName.".loc"))
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
121 {
2033
57ecb49d7b4a Update the apc functions to use apcu_ prefix.
Matti Hamalainen <ccr@tnsp.org>
parents: 2032
diff changeset
122 $locTable = apcu_fetch("loc_".$setName);
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
123 if (empty($locTable))
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
124 {
1609
c5e15be5315c Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 1607
diff changeset
125 $locTable = [];
2037
e82ba6f55708 Refactor how the location filtering works internally to use proper LOC flags.
Matti Hamalainen <ccr@tnsp.org>
parents: 2033
diff changeset
126 mpParseLocFile($setName, $locTable, $applyFilter, $locationTypes[$filterID][LTI_INVERT_FLAGS], $locationTypes[$filterID][LTI_FLAGS]);
2033
57ecb49d7b4a Update the apc functions to use apcu_ prefix.
Matti Hamalainen <ccr@tnsp.org>
parents: 2032
diff changeset
127 apcu_store("loc_".$setName, $locTable, 3600);
1150
02fe48a608d7 Use APC for caching of location and wizard data.
Matti Hamalainen <ccr@tnsp.org>
parents: 1148
diff changeset
128 }
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
129 }
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
130 else
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
131 {
1900
ed98d2fe4bca Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 1891
diff changeset
132 mpError("No such continent ID!");
337
ca191c3a0ce1 Updates and lots of new ugly glue.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
133 unset($setName);
ca191c3a0ce1 Updates and lots of new ugly glue.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
134 }
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
135 }
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
136 else
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
137 {
2033
57ecb49d7b4a Update the apc functions to use apcu_ prefix.
Matti Hamalainen <ccr@tnsp.org>
parents: 2032
diff changeset
138 $locTable = apcu_fetch("loc_locTable");
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
139 if (empty($locTable))
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
140 {
2037
e82ba6f55708 Refactor how the location filtering works internally to use proper LOC flags.
Matti Hamalainen <ccr@tnsp.org>
parents: 2033
diff changeset
141 $locTable = mpParseLocFiles($applyFilter, $locationTypes[$filterID][LTI_INVERT_FLAGS], $locationTypes[$filterID][LTI_FLAGS]);
2033
57ecb49d7b4a Update the apc functions to use apcu_ prefix.
Matti Hamalainen <ccr@tnsp.org>
parents: 2032
diff changeset
142 apcu_store("loc_locTable", $locTable, 3600);
1150
02fe48a608d7 Use APC for caching of location and wizard data.
Matti Hamalainen <ccr@tnsp.org>
parents: 1148
diff changeset
143 }
337
ca191c3a0ce1 Updates and lots of new ugly glue.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
144 }
ca191c3a0ce1 Updates and lots of new ugly glue.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
145
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
146
1638
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
147 // Make alphabetically sorted table of locations
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
148 $alphaTable = [];
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
149 foreach ($locTable as $id => $data)
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
150 if (isset($data["name"]))
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
151 {
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
152 $idx = $data["name"][0];
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
153 if (isset($coderName))
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
154 {
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
155 foreach ($data["coders"] as $coder)
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
156 {
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
157 if ($coderName == $coder["name"])
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
158 $alphaTable[$idx][] = $data;
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
159 }
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
160 }
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
161 else
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
162 $alphaTable[$idx][] = $data;
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
163 }
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
164
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
165 ksort($alphaTable, SORT_STRING);
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
166
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
167
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
168 //
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
169 // Start of the page
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
170 //
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
171 if ($applyFilter)
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
172 $mtitle = $locationTypes[$filterID][LTI_PAGE_DESC];
1638
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
173 else
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
174 $mtitle = "Locations";
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
175
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
176 $mtitle .= " of ";
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
177
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
178 if (isset($setName) && isset($continentList[$setName]))
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
179 {
2032
d9c15f7ae4c4 Add defines for continent list array index constants and use them.
Matti Hamalainen <ccr@tnsp.org>
parents: 2015
diff changeset
180 $mtitle .= $continentList[$setName][CTI_NAME].
d9c15f7ae4c4 Add defines for continent list array index constants and use them.
Matti Hamalainen <ccr@tnsp.org>
parents: 2015
diff changeset
181 ($continentList[$setName][CTI_SPECIAL] ? " in " : " continent in ");
1638
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
182 }
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
183
1620
6d620441af7f Rename various functions, and other cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1609
diff changeset
184 mpPrintPageHeader($pageTitle." - Locations",
1694
Matti Hamalainen <ccr@tnsp.org>
parents: 1687
diff changeset
185 " <script type=\"text/javascript\" src=\"tooltip.js\"></script>\n".
Matti Hamalainen <ccr@tnsp.org>
parents: 1687
diff changeset
186 " <meta name=\"robots\" content=\"nofollow\" />\n");
1140
3bb8253db932 New website layout and some minor improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
187
3bb8253db932 New website layout and some minor improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
188 echo
1638
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
189 "<h1>".$mtitle."BatMUD".(isset($coderName) ? " by ".chentities($coderName) : "")."</h1>\n".
1918
3075415f052e Get rid of PHP_SELF usage.
Matti Hamalainen <ccr@tnsp.org>
parents: 1900
diff changeset
190 "<form action=\"?\" method=\"get\">\n".
1567
026c6eca781c Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1494
diff changeset
191 "<div class=\"controls\">\n";
1140
3bb8253db932 New website layout and some minor improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
192
622
6d2c28904660 Synchronized.
Matti Hamalainen <ccr@tnsp.org>
parents: 621
diff changeset
193 if (isset($setName))
1694
Matti Hamalainen <ccr@tnsp.org>
parents: 1687
diff changeset
194 echo " <input type=\"hidden\" name=\"n\" value=\"".chentities($setName)."\" />\n";
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
195
1694
Matti Hamalainen <ccr@tnsp.org>
parents: 1687
diff changeset
196 echo " <select class=\"control dropdown\" name=\"f\" onChange=\"this.form.submit();\">\n";
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
197 foreach ($locationTypes as $lid => $ldata)
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
198 {
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
199 echo
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
200 " <option value=\"".$lid."\"".
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
201 (($applyFilter && $filterID == $lid) ? " selected=\"selected\"" : "").
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
202 ">".$ldata[LTI_MENU_TITLE]."</option>\n";
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
203 }
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
204 echo
1694
Matti Hamalainen <ccr@tnsp.org>
parents: 1687
diff changeset
205 " </select>\n".
Matti Hamalainen <ccr@tnsp.org>
parents: 1687
diff changeset
206 " <noscript><input type=\"submit\" value=\" Update \" class=\"control submit\" /></noscript>\n";
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
207
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
208
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
209 printTitleLink($applyFilter, $filterID, $showCoders, "All&nbsp;continents", "", "all");
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
210 foreach ($continentList as $continent => $data)
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
211 {
2032
d9c15f7ae4c4 Add defines for continent list array index constants and use them.
Matti Hamalainen <ccr@tnsp.org>
parents: 2015
diff changeset
212 if ($data[CTI_HAS_MAP])
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
213 printTitleLink($applyFilter, $filterID, $showCoders, $data[0], $continent, $continent);
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
214 }
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
215 printTitleLink($applyFilter, $filterID, $showCoders, "Special", "special", "special");
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
216
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
217 echo
1567
026c6eca781c Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1494
diff changeset
218 "</div>\n".
026c6eca781c Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1494
diff changeset
219 "</form>\n";
321
eeb6167cf81e Updates.
Matti Hamalainen <ccr@tnsp.org>
parents: 311
diff changeset
220
1329
Matti Hamalainen <ccr@tnsp.org>
parents: 1272
diff changeset
221
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
222 //
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
223 // Wizard/coder/creator information box
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
224 //
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
225 if (isset($coderName))
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
226 {
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
227 if (isset($wizTable[$coderName]) && count($wizTable[$coderName]) > 1)
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
228 {
1329
Matti Hamalainen <ccr@tnsp.org>
parents: 1272
diff changeset
229 // Profile picture
1494
9f9e1e1846f5 Fix obsoleted use of reference arguments.
Matti Hamalainen <ccr@tnsp.org>
parents: 1428
diff changeset
230 if (qcheck($wizTable[$coderName], "imageURL", $s))
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
231 {
1329
Matti Hamalainen <ccr@tnsp.org>
parents: 1272
diff changeset
232 // XXX: backwards compatibility check
Matti Hamalainen <ccr@tnsp.org>
parents: 1272
diff changeset
233 if (substr($s, 0, 6) == "bat://")
1401
1bd00e901199 Upstream sync.
Matti Hamalainen <ccr@tnsp.org>
parents: 1392
diff changeset
234 $s = $wizImageURL."unknown.png";
1bd00e901199 Upstream sync.
Matti Hamalainen <ccr@tnsp.org>
parents: 1392
diff changeset
235 else
2043
77c8892c78ca Improvements to wizlist parsing.
Matti Hamalainen <ccr@tnsp.org>
parents: 2037
diff changeset
236 if (substr($s, 0, 7) != "http://" &&
77c8892c78ca Improvements to wizlist parsing.
Matti Hamalainen <ccr@tnsp.org>
parents: 2037
diff changeset
237 substr($s, 0, 8) != "https://")
1401
1bd00e901199 Upstream sync.
Matti Hamalainen <ccr@tnsp.org>
parents: 1392
diff changeset
238 $s = $wizImageURL.$s;
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
239 }
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
240 else
1401
1bd00e901199 Upstream sync.
Matti Hamalainen <ccr@tnsp.org>
parents: 1392
diff changeset
241 $s = $wizImageURL."unknown.png";
1112
Matti Hamalainen <ccr@tnsp.org>
parents: 1100
diff changeset
242
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
243 echo
1677
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
244 "<div class=\"wizInfoBox\">\n".
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
245 " <div class=\"wizImage\"><img src=\"".$s."\" alt=\"".$coderName."\" /></div>\n".
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
246 " <div class=\"wizInfo\">\n".
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
247 " <h2>".$coderName."</h2>\n";
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
248
1329
Matti Hamalainen <ccr@tnsp.org>
parents: 1272
diff changeset
249 // Description block
1494
9f9e1e1846f5 Fix obsoleted use of reference arguments.
Matti Hamalainen <ccr@tnsp.org>
parents: 1428
diff changeset
250 if (qcheck($wizTable[$coderName], "desc", $str))
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
251 {
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
252 // Handle special tags
1918
3075415f052e Get rid of PHP_SELF usage.
Matti Hamalainen <ccr@tnsp.org>
parents: 1900
diff changeset
253 $str = preg_replace("/\~([A-Z][a-z]+)\~/i", "<a href=\"?a=\${1}\">\${1}</a>", $str);
1112
Matti Hamalainen <ccr@tnsp.org>
parents: 1100
diff changeset
254
1329
Matti Hamalainen <ccr@tnsp.org>
parents: 1272
diff changeset
255 foreach ($specTags as $tag => $rep)
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
256 $str = preg_replace("/\[".$tag."\]/i", $rep, $str);
1112
Matti Hamalainen <ccr@tnsp.org>
parents: 1100
diff changeset
257
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
258 echo " <p>".$str."</p>\n";
1329
Matti Hamalainen <ccr@tnsp.org>
parents: 1272
diff changeset
259 }
321
eeb6167cf81e Updates.
Matti Hamalainen <ccr@tnsp.org>
parents: 311
diff changeset
260
1329
Matti Hamalainen <ccr@tnsp.org>
parents: 1272
diff changeset
261 // Links, etc.
1620
6d620441af7f Rename various functions, and other cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1609
diff changeset
262 echo " [<a href=\"".mpFingerURL($coderName)."\">Finger</a>]\n";
337
ca191c3a0ce1 Updates and lots of new ugly glue.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
263
1494
9f9e1e1846f5 Fix obsoleted use of reference arguments.
Matti Hamalainen <ccr@tnsp.org>
parents: 1428
diff changeset
264 if (qcheck($wizTable[$coderName], "homeURL", $s))
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
265 {
1329
Matti Hamalainen <ccr@tnsp.org>
parents: 1272
diff changeset
266 if ($s == "bat")
Matti Hamalainen <ccr@tnsp.org>
parents: 1272
diff changeset
267 $s = "http://wiz.bat.org/~".strtolower($coderName)."/";
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
268
1329
Matti Hamalainen <ccr@tnsp.org>
parents: 1272
diff changeset
269 echo " [<a href=\"".$s."\">Homepage</a>]<br />\n";
Matti Hamalainen <ccr@tnsp.org>
parents: 1272
diff changeset
270 }
1638
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
271
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
272 echo
1677
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
273 " </div>\n".
1638
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
274 "</div>\n";
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
275 }
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
276 else
1900
ed98d2fe4bca Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 1891
diff changeset
277 mpError("No information entry for this wizard.");
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
278 }
488
Matti Hamalainen <ccr@tnsp.org>
parents: 441
diff changeset
279
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
280
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
281 //
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
282 // Print out errors
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
283 //
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
284 if ($errorSet)
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
285 {
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
286 echo
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
287 "<div style=\"color: red;\">\n".
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
288 " <ul>\n";
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
289
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
290 foreach ($errorMsgs as $msg)
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
291 echo " <li>".$msg."</li>\n";
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
292
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
293 echo
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
294 " </ul>\n".
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
295 "</div>\n";
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
296 }
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
297
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
298
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
299 //
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
300 // Print list of locations
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
301 //
1638
775208d791fa Code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1630
diff changeset
302 if (count($alphaTable) > 0)
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
303 {
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
304
1609
c5e15be5315c Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 1607
diff changeset
305 $locationTips = [];
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
306 $totalLoc = 0;
1656
828a20694fcc Rename a variable.
Matti Hamalainen <ccr@tnsp.org>
parents: 1646
diff changeset
307 $maxColumns = 6;
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
308 foreach ($alphaTable as $alpha => $alphaLocs)
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
309 {
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
310 if (count($alphaLocs) <= 0) continue;
1148
52550f58cee5 Move alphabetic table printing code to a function in common routines.
Matti Hamalainen <ccr@tnsp.org>
parents: 1140
diff changeset
311 $letter = strtoupper($alpha);
817
eaba088b5424 Show alternative location names on location page.
Matti Hamalainen <ccr@tnsp.org>
parents: 816
diff changeset
312
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
313 asort($alphaLocs);
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
314
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
315 echo
1630
90e6a0eda2ae Implement specialdate.
Matti Hamalainen <ccr@tnsp.org>
parents: 1620
diff changeset
316 "<h3 class=\"alpha\"><a id=\"ch".$letter."\"></a>".$letter."</h3>\n".
90e6a0eda2ae Implement specialdate.
Matti Hamalainen <ccr@tnsp.org>
parents: 1620
diff changeset
317 mpSpecialDate("loc", 2).
1677
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
318 "<div class=\"locTable\">\n";
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
319
817
eaba088b5424 Show alternative location names on location page.
Matti Hamalainen <ccr@tnsp.org>
parents: 816
diff changeset
320 $n = 0;
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
321 foreach ($alphaLocs as $ik => $iv)
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
322 {
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
323 $totalLoc++;
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
324
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
325 // Print location entry
1677
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
326 echo
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
327 " <div class=\"locCell ".$iv["continent"]."\">".
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
328 "<div class=\"locHeader\">".
2032
d9c15f7ae4c4 Add defines for continent list array index constants and use them.
Matti Hamalainen <ccr@tnsp.org>
parents: 2015
diff changeset
329 "<span class=\"locTitle\">".mpGetMapLink($iv, $continentList[$iv["continent"]][CTI_HAS_MAP])."</span>";
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
330
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
331 // If either freeform desc or URL field are set, we add those
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
332 if (isset($iv["url"]) || isset($iv["freeform"]))
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
333 {
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
334 // Free form description
926
Matti Hamalainen <ccr@tnsp.org>
parents: 908
diff changeset
335 $desc = isset($iv["freeform"]) ? chentities($iv["freeform"]) : "";
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
336
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
337 // Add URL information, chopped, if any
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
338 if (isset($iv["url"]))
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
339 {
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
340 $urlEnt = $iv["url"];
926
Matti Hamalainen <ccr@tnsp.org>
parents: 908
diff changeset
341 $urlBegin = "<a href=\"".chentities($urlEnt)."\" target=\"_blank\">";
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
342 $urlEnd = "</a>";
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
343 if (strlen($iv["url"]) > 40)
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
344 $urlEnt = substr($urlEnt, 0, 40)."...";
1677
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
345 $desc .= "<div class=\"locURL\">".chentities($urlEnt)."</div>";
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
346 }
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
347 else
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
348 {
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
349 $urlBegin = $urlEnd = "";
509
622767fb509e Added support for 'limbo'.
Matti Hamalainen <ccr@tnsp.org>
parents: 501
diff changeset
350 }
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
351
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
352 echo
1702
dd123d0a75d9 Sync cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1694
diff changeset
353 " ".$urlBegin.
dd123d0a75d9 Sync cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1694
diff changeset
354 "<span onmouseover=\"stt(".$totalLoc.
dd123d0a75d9 Sync cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1694
diff changeset
355 ");\" onmouseout=\"htt();\">&#x1F354;</span>".
dd123d0a75d9 Sync cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1694
diff changeset
356 $urlEnd;
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
357
1609
c5e15be5315c Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 1607
diff changeset
358 $locationTips[$totalLoc] = [
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
359 "title" => $iv["name"],
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
360 "desc" => $desc
1609
c5e15be5315c Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 1607
diff changeset
361 ];
1677
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
362 }
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
363
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
364 echo "</div>"; // locHeader
1677
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
365
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
366 // Alternative names
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
367 if (($nnames = count($iv["names"])) > 1)
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
368 {
1609
c5e15be5315c Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 1607
diff changeset
369 $fs = [];
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
370 for ($nname = 1; $nname < $nnames; $nname++)
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
371 {
1983
9f2e769bcf7a Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1982
diff changeset
372 $qname = $iv["names"][$nname];
9f2e769bcf7a Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1982
diff changeset
373 $norig = $qname["flags"] & NAME_ORIG;
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
374 $fs[] =
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
375 ($norig ? "<b>" : "").
1983
9f2e769bcf7a Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1982
diff changeset
376 chentities($qname["name"]).
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
377 ($norig ? "</b>" : "");
975
af0fc3a965dc Fix all the web-interface PHP crap to work with the new LOC file format. Urgh. This shit could really use some refactoring cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 926
diff changeset
378 }
1677
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
379 echo "<div class=\"locAltNames\">".implode(" | ", $fs)."</div>";
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
380 }
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
381
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
382 // Coder / society names
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
383 if (count($iv["coders"]) > 0 && $showCoders)
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
384 {
2037
e82ba6f55708 Refactor how the location filtering works internally to use proper LOC flags.
Matti Hamalainen <ccr@tnsp.org>
parents: 2033
diff changeset
385 // XXX not sure what this was about .. :D
e82ba6f55708 Refactor how the location filtering works internally to use proper LOC flags.
Matti Hamalainen <ccr@tnsp.org>
parents: 2033
diff changeset
386 // $isSG = preg_match("/[SG]/", $iv["flags"]);
e82ba6f55708 Refactor how the location filtering works internally to use proper LOC flags.
Matti Hamalainen <ccr@tnsp.org>
parents: 2033
diff changeset
387 // if ((!isset($coderName) && ($iv["flags"] & (LOCF_T_SHRINE | LOCF_T_GUILD)) == 0) ||
e82ba6f55708 Refactor how the location filtering works internally to use proper LOC flags.
Matti Hamalainen <ccr@tnsp.org>
parents: 2033
diff changeset
388 // isset($coderName))
e82ba6f55708 Refactor how the location filtering works internally to use proper LOC flags.
Matti Hamalainen <ccr@tnsp.org>
parents: 2033
diff changeset
389 // {
1609
c5e15be5315c Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 1607
diff changeset
390 $fs = [];
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
391 foreach ($iv["coders"] as $name)
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
392 {
1140
3bb8253db932 New website layout and some minor improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
393 // Tags/flags of this coder in relation to the area
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
394 switch ($name["flags"])
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
395 {
1140
3bb8253db932 New website layout and some minor improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
396 case NAME_ORIG: $qs = "title=\"Original creator\" class=\"wizorig\""; break;
3bb8253db932 New website layout and some minor improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
397 case NAME_RECODER: $qs = "title=\"Converter, recoder\" class=\"wizrecoder\""; break;
3bb8253db932 New website layout and some minor improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
398 case NAME_MAINTAINER: $qs = "title=\"Maintainer\" class=\"wizmaintainer\""; break;
3bb8253db932 New website layout and some minor improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
399 case NAME_EXPANDER: $qs = "title=\"Implemented new content, expansion(s)\" class=\"wizexpander\""; break;
975
af0fc3a965dc Fix all the web-interface PHP crap to work with the new LOC file format. Urgh. This shit could really use some refactoring cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 926
diff changeset
400 default: $qs = "";
af0fc3a965dc Fix all the web-interface PHP crap to work with the new LOC file format. Urgh. This shit could really use some refactoring cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 926
diff changeset
401 }
1979
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
402
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
403 // Pcity entries do not get "author" links as they are actually SS+
3c03ca974e6a Fix issue with "area" selection in location display not actually showing all
Matti Hamalainen <ccr@tnsp.org>
parents: 1918
diff changeset
404 if ($filterID != "C" || !$applyFilter)
1918
3075415f052e Get rid of PHP_SELF usage.
Matti Hamalainen <ccr@tnsp.org>
parents: 1900
diff changeset
405 $fs[] = "<a ".$qs." href=\"?a=".$name["name"]."\">".$name["name"]."</a>";
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
406 else
1392
ae493885b68e More cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1391
diff changeset
407 $fs[] = $name["name"];
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
408 }
1677
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
409 echo "<div class=\"locCoders\">".implode(", ", $fs)."</div>";
2037
e82ba6f55708 Refactor how the location filtering works internally to use proper LOC flags.
Matti Hamalainen <ccr@tnsp.org>
parents: 2033
diff changeset
410 // }
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
411 }
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
412
2014
e55d83a233fe Display "location added" information on the location listings as well, if available.
Matti Hamalainen <ccr@tnsp.org>
parents: 1983
diff changeset
413 if (/* isset($coderName) && */ $iv["added"] > 0)
e55d83a233fe Display "location added" information on the location listings as well, if available.
Matti Hamalainen <ccr@tnsp.org>
parents: 1983
diff changeset
414 {
e55d83a233fe Display "location added" information on the location listings as well, if available.
Matti Hamalainen <ccr@tnsp.org>
parents: 1983
diff changeset
415 echo "<div class=\"locAdded\">".mpStrFTime($iv["added"])."</div>";
e55d83a233fe Display "location added" information on the location listings as well, if available.
Matti Hamalainen <ccr@tnsp.org>
parents: 1983
diff changeset
416 }
e55d83a233fe Display "location added" information on the location listings as well, if available.
Matti Hamalainen <ccr@tnsp.org>
parents: 1983
diff changeset
417
1677
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
418 echo "</div>\n";
908
Matti Hamalainen <ccr@tnsp.org>
parents: 870
diff changeset
419 }
1677
9d51b4138e7d CSS updates and related code changes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1656
diff changeset
420 echo "</div>\n";
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
421 }
2015
135b2b595e2c Trailing whitespace cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 2014
diff changeset
422
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
423 echo
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
424 "<p><b>".$totalLoc."</b> locations.</p>\n".
1391
7fcea2fce0be More fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1387
diff changeset
425 "</div>\n"; // end of contents div
1140
3bb8253db932 New website layout and some minor improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
426
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
427 // Print out location tooltip HTML code
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
428 foreach ($locationTips as $tipID => $tip)
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
429 {
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
430 echo
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
431 "<div class=\"tooltip\" id=\"tt".$tipID.
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
432 "\"><div class=\"holder\"><b>".chentities($tip["title"]).
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
433 "</b><br />".$tip["desc"]."</div></div>\n";
519
Matti Hamalainen <ccr@tnsp.org>
parents: 509
diff changeset
434 }
1140
3bb8253db932 New website layout and some minor improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 1115
diff changeset
435
1391
7fcea2fce0be More fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1387
diff changeset
436 // Print out the alpha link index div
1620
6d620441af7f Rename various functions, and other cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1609
diff changeset
437 mpPrintExtraBoxAlphaList("ch", $alphaTable);
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
438 }
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
439 else
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
440 {
1391
7fcea2fce0be More fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1387
diff changeset
441 echo
7fcea2fce0be More fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1387
diff changeset
442 "<p><b>No locations known!</b></p>\n".
7fcea2fce0be More fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1387
diff changeset
443 "</div>\n"; // end of contents div
7fcea2fce0be More fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 1387
diff changeset
444
1900
ed98d2fe4bca Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 1891
diff changeset
445 mpError("No locations known!");
300
edac314ac9bb Added in the ugly PHP-glue used in http://tnsp.org/maps/
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
446 }
1387
2b6b38e94bb2 Various minor code cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 1331
diff changeset
447
1891
68b784c7eae2 Get rid of mgeneric.inc.php here.
Matti Hamalainen <ccr@tnsp.org>
parents: 1702
diff changeset
448 mpPrintPageFooter(FALSE);
1151
e0794ddb605e Add output caching to main page and location page.
Matti Hamalainen <ccr@tnsp.org>
parents: 1150
diff changeset
449 ?>