4 * Description: Use OpenStreetMap for displaying locations. After activation the post location just beneath your avatar in your posts will link to OpenStreetMap.
6 * Author: Fabio <http://kirgroup.com/~fabrixxm>
7 * Author: Mike Macgirvin <http://macgirvin.com/profile/mike>
8 * Author: Klaus Weidenbach
13 use Friendica\Core\Cache\Enum\Duration;
14 use Friendica\Core\Hook;
15 use Friendica\Core\Logger;
16 use Friendica\Core\Renderer;
18 use Friendica\Core\Config\Util\ConfigFileLoader;
19 use Friendica\Util\Strings;
21 const OSM_TMS = 'https://www.openstreetmap.org';
22 const OSM_NOM = 'https://nominatim.openstreetmap.org/search.php';
26 function openstreetmap_install()
28 Hook::register('load_config', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_load_config');
29 Hook::register('render_location', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_location');
30 Hook::register('generate_map', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_generate_map');
31 Hook::register('generate_named_map', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_generate_named_map');
32 Hook::register('Map::getCoordinates', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_get_coordinates');
33 Hook::register('page_header', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_alterheader');
35 Logger::notice("installed openstreetmap");
38 function openstreetmap_load_config(App $a, ConfigFileLoader $loader)
40 $a->getConfigCache()->load($loader->loadAddonConfig('openstreetmap'), \Friendica\Core\Config\ValueObject\Cache::SOURCE_STATIC);
43 function openstreetmap_alterheader(App $a, &$navHtml)
45 $addScriptTag = '<script type="text/javascript" src="' . DI::baseUrl()->get() . '/addon/openstreetmap/openstreetmap.js"></script>' . "\r\n";
46 DI::page()['htmlhead'] .= $addScriptTag;
50 * @brief Add link to a map for an item's set location/coordinates.
52 * If an item has coordinates add link to a tile map server, e.g. openstreetmap.org.
53 * If an item has a location open it with the help of OSM's Nominatim reverse geocode search.
58 function openstreetmap_location(App $a, &$item)
60 if (!(strlen($item['location']) || strlen($item['coord']))) {
65 * Get the configuration variables from the config.
66 * @todo Separate the tile map server from the text-string to map tile server
67 * since they apparently use different URL conventions.
68 * We use OSM's current convention of "#map=zoom/lat/lon" and optional
69 * ?mlat=lat&mlon=lon for markers.
72 $tmsserver = DI::config()->get('openstreetmap', 'tmsserver', OSM_TMS);
73 $nomserver = DI::config()->get('openstreetmap', 'nomserver', OSM_NOM);
74 $zoom = DI::config()->get('openstreetmap', 'zoom', OSM_ZOOM);
75 $marker = DI::config()->get('openstreetmap', 'marker', OSM_MARKER);
77 // This is needed since we stored an empty string in the config in previous versions
78 if (empty($nomserver)) {
82 if ($item['coord'] != '') {
83 $coords = explode(' ', $item['coord']);
84 if ((count($coords) > 1) && is_numeric($coords[0]) && is_numeric($coords[1])) {
85 $lat = urlencode(round($coords[0], 5));
86 $lon = urlencode(round($coords[1], 5));
89 $target .= '?mlat=' . $lat . '&mlon=' . $lon;
91 $target .= '#map='.intval($zoom).'/'.$lat.'/'.$lon;
96 $target = $nomserver.'?q='.urlencode($item['location']);
99 if ($item['location'] != '') {
100 $title = $item['location'];
102 $title = $item['coord'];
105 $item['html'] = '<a target="map" title="' . $title . '" href= "' . $target . '">' . $title . '</a>';
108 function openstreetmap_get_coordinates(App $a, array &$b)
110 $nomserver = DI::config()->get('openstreetmap', 'nomserver', OSM_NOM);
112 // This is needed since we stored an empty string in the config in previous versions
113 if (empty($nomserver)) {
114 $nomserver = OSM_NOM;
117 $args = '?q=' . urlencode($b['location']) . '&format=json';
119 $cachekey = 'openstreetmap:' . $b['location'];
120 $j = DI::cache()->get($cachekey);
123 $curlResult = DI::httpClient()->get($nomserver . $args);
124 if ($curlResult->isSuccess()) {
125 $j = json_decode($curlResult->getBody(), true);
126 DI::cache()->set($cachekey, $j, Duration::MONTH);
130 if (!empty($j[0]['lat']) && !empty($j[0]['lon'])) {
131 $b['lat'] = $j[0]['lat'];
132 $b['lon'] = $j[0]['lon'];
136 function openstreetmap_generate_named_map(App $a, array &$b)
138 openstreetmap_get_coordinates($a, $b);
140 if (!empty($b['lat']) && !empty($b['lon'])) {
141 openstreetmap_generate_map($a, $b);
145 function openstreetmap_generate_map(App $a, array &$b)
147 $tmsserver = DI::config()->get('openstreetmap', 'tmsserver', OSM_TMS);
149 if (strpos(DI::baseUrl()->get(true), 'https:') !== false) {
150 $tmsserver = str_replace('http:','https:',$tmsserver);
153 $zoom = DI::config()->get('openstreetmap', 'zoom', OSM_ZOOM);
154 $marker = DI::config()->get('openstreetmap', 'marker', OSM_MARKER);
156 $lat = $b['lat']; // round($b['lat'], 5);
157 $lon = $b['lon']; // round($b['lon'], 5);
159 Logger::debug('lat: ' . $lat);
160 Logger::debug('lon: ' . $lon);
162 $cardlink = '<a href="' . $tmsserver;
165 $cardlink .= '?mlat=' . $lat . '&mlon=' . $lon;
168 $cardlink .= '#map=' . $zoom . '/' . $lat . '/' . $lon . '">' . ($b['location'] ??0? Strings::escapeHtml($b['location']) : DI::l10n()->t('View Larger')) . '</a>';
169 if (empty($b['mode'])) {
170 $b['html'] = '<iframe style="width:100%; height:300px; border:1px solid #ccc" src="' . $tmsserver .
171 '/export/embed.html?bbox=' . ($lon - 0.01) . '%2C' . ($lat - 0.01) . '%2C' . ($lon + 0.01) . '%2C' . ($lat + 0.01) .
172 '&layer=mapnik&marker=' . $lat . '%2C' . $lon . '" style="border: 1px solid black"></iframe>' .
173 '<br/><small>' . $cardlink . '</small>';
175 $b['html'] .= '<br/>' . $cardlink;
178 Logger::debug('generate_map: ' . $b['html']);
181 function openstreetmap_addon_admin(App $a, string &$o)
183 $t = Renderer::getMarkupTemplate('admin.tpl', 'addon/openstreetmap/');
184 $tmsserver = DI::config()->get('openstreetmap', 'tmsserver', OSM_TMS);
185 $nomserver = DI::config()->get('openstreetmap', 'nomserver', OSM_NOM);
186 $zoom = DI::config()->get('openstreetmap', 'zoom', OSM_ZOOM);
187 $marker = DI::config()->get('openstreetmap', 'marker', OSM_MARKER);
189 // This is needed since we stored an empty string in the config in previous versions
190 if (empty($nomserver)) {
191 $nomserver = OSM_NOM;
194 $o = Renderer::replaceMacros($t, [
195 '$submit' => DI::l10n()->t('Submit'),
196 '$tmsserver' => ['tmsserver', DI::l10n()->t('Tile Server URL'), $tmsserver, DI::l10n()->t('A list of <a href="http://wiki.openstreetmap.org/wiki/TMS" target="_blank" rel="noopener noreferrer">public tile servers</a>')],
197 '$nomserver' => ['nomserver', DI::l10n()->t('Nominatim (reverse geocoding) Server URL'), $nomserver, DI::l10n()->t('A list of <a href="http://wiki.openstreetmap.org/wiki/Nominatim" target="_blank" rel="noopener noreferrer">Nominatim servers</a>')],
198 '$zoom' => ['zoom', DI::l10n()->t('Default zoom'), $zoom, DI::l10n()->t('The default zoom level. (1:world, 18:highest, also depends on tile server)')],
199 '$marker' => ['marker', DI::l10n()->t('Include marker on map'), $marker, DI::l10n()->t('Include a marker on the map.')],
203 function openstreetmap_addon_admin_post(App $a)
205 DI::config()->set('openstreetmap', 'tmsserver', ($_POST['tmsserver'] ?? '') ?: OSM_TMS);
206 DI::config()->set('openstreetmap', 'nomserver', ($_POST['nomserver'] ?? '') ?: OSM_NOM);
207 DI::config()->set('openstreetmap', 'zoom', ($_POST['zoom'] ?? '') ?: OSM_ZOOM);
208 DI::config()->set('openstreetmap', 'marker', ($_POST['marker'] ?? '') ?: OSM_MARKER);