]> git.mxchange.org Git - friendica-addons.git/blobdiff - openstreetmap/openstreetmap.php
OSM: Results are now cached, format limits to other networks are respected
[friendica-addons.git] / openstreetmap / openstreetmap.php
old mode 100755 (executable)
new mode 100644 (file)
index fda2990..eaaf17c
 <?php
 /**
  * Name: OpenStreetMap
- * Description: Use OpenStreetMap for displaying locations.  After activation the post location just beneath your avatar in your posts will link to openstreetmap.
- * Version: 1.1
+ * Description: Use OpenStreetMap for displaying locations. After activation the post location just beneath your avatar in your posts will link to OpenStreetMap.
+ * Version: 1.3.1
+ * Author: Fabio <http://kirgroup.com/~fabrixxm>
  * Author: Mike Macgirvin <http://macgirvin.com/profile/mike>
  * Author: Klaus Weidenbach
  *
  */
+use Friendica\Core\Addon;
+use Friendica\Core\Cache;
+use Friendica\Core\Config;
+use Friendica\Core\L10n;
+use Friendica\Core\System;
+use Friendica\Util\Network;
 
-function openstreetmap_install() {
-       register_hook('render_location', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_location');
+const OSM_TMS = 'http://www.openstreetmap.org';
+const OSM_NOM =        'http://nominatim.openstreetmap.org/search.php';
+const OSM_ZOOM = 16;
+const OSM_MARKER = 0;
+
+function openstreetmap_install()
+{
+       Addon::registerHook('render_location', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_location');
+       Addon::registerHook('generate_map', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_generate_map');
+       Addon::registerHook('generate_named_map', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_generate_named_map');
+       Addon::registerHook('Map::getCoordinates', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_get_coordinates');
+       Addon::registerHook('page_header', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_alterheader');
 
        logger("installed openstreetmap");
 }
 
-function openstreetmap_uninstall() {
-       unregister_hook('render_location', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_location');
+function openstreetmap_uninstall()
+{
+       Addon::unregisterHook('render_location', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_location');
+       Addon::unregisterHook('generate_map', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_generate_map');
+       Addon::unregisterHook('generate_named_map', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_generate_named_map');
+       Addon::unregisterHook('Map::getCoordinates', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_get_coordinates');
+       Addon::unregisterHook('page_header', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_alterheader');
 
        logger("removed openstreetmap");
 }
 
+function openstreetmap_alterheader($a, &$navHtml)
+{
+       $addScriptTag = '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/openstreetmap/openstreetmap.js"></script>' . "\r\n";
+       $a->page['htmlhead'] .= $addScriptTag;
+}
 
-function openstreetmap_location($a, &$item) {
-       if(! (strlen($item['location']) || strlen($item['coord'])))
-               return; 
+/**
+ * @brief Add link to a map for an item's set location/coordinates.
+ *
+ * If an item has coordinates add link to a tile map server, e.g. openstreetmap.org.
+ * If an item has a location open it with the help of OSM's Nominatim reverse geocode search.
+ *
+ * @param mixed $a
+ * @param array& $item
+ */
+function openstreetmap_location($a, &$item)
+{
+       if (!(strlen($item['location']) || strlen($item['coord']))) {
+               return;
+       }
 
        /*
-        * Get the configuration variables from the .htconfig file.
+        * Get the configuration variables from the config.
+        * @todo Separate the tile map server from the text-string to map tile server
+        * since they apparently use different URL conventions.
+        * We use OSM's current convention of "#map=zoom/lat/lon" and optional
+        * ?mlat=lat&mlon=lon for markers.
         */
-       $tmsserver = get_config('openstreetmap','tmsserver');
-       if(! $tmsserver)
-               $tmsserver = 'http://openstreetmap.org';
-       $zoom = get_config('openstreetmap','zoom');
-       if(! $zoom)
-               $zoom = 17;
 
-       $location = '';
-       $coord = '';
+       $tmsserver = Config::get('openstreetmap', 'tmsserver', OSM_TMS);
+       $nomserver = Config::get('openstreetmap', 'nomserver', OSM_NOM);
+       $zoom = Config::get('openstreetmap', 'zoom', OSM_ZOOM);
+       $marker = Config::get('openstreetmap', 'marker', OSM_MARKER);
 
-       $location = (($item['location']) ? '<a target="map" title="' . $item['location'] . '" href="'.$tmsserver.'?q=' . urlencode($item['location']) . '">' . $item['location'] . '</a>' : '');
+       // This is needed since we stored an empty string in the config in previous versions
+       if (empty($nomserver)) {
+               $nomserver = OSM_NOM;
+       }
 
-       if($item['coord']) {
+       if ($item['coord'] != "") {
                $coords = explode(' ', $item['coord']);
-               if(count($coords) > 1) {
-                       $coord = '<a target="map" title="' . $item['coord'] . '" href="'.$tmsserver.'?lat=' . urlencode($coords[0]) . '&lon=' . urlencode($coords[1]) . '&zoom='.$zoom.'">' . $item['coord'] . '</a>' ;
+               if (count($coords) > 1) {
+                       $lat = urlencode(round($coords[0], 5));
+                       $lon = urlencode(round($coords[1], 5));
+                       $target = $tmsserver;
+                       if ($marker > 0) {
+                               $target .= '?mlat=' . $lat . '&mlon=' . $lon;
+                       }
+                       $target .= '#map='.intval($zoom).'/'.$lat.'/'.$lon;
                }
        }
-       if(strlen($coord)) {
-               if($location)
-                       $location .= '<br /><span class="smalltext">(' . $coord . ')</span>';
-               else
-                       $location = '<span class="smalltext">' . $coord . '</span>';
+
+       if ($target == "") {
+               $target = $nomserver.'?q='.urlencode($item['location']);
+       }
+
+       if ($item['location'] != "") {
+               $title = $item['location'];
+       } else {
+               $title = $item['coord'];
        }
-       $item['html'] = $location;
-       return;
+
+       $item['html'] = '<a target="map" title="'.$title.'" href= "'.$target.'">'.$title.'</a>';
 }
 
+function openstreetmap_get_coordinates($a, &$b)
+{
+       $nomserver = Config::get('openstreetmap', 'nomserver', OSM_NOM);
 
-function openstreetmap_plugin_admin (&$a, &$o) {
-       $t = file_get_contents( dirname(__file__)."/admin.tpl");
-       $tmsserver = get_config('openstreetmap','tmsserver');
-       if(! $tmsserver)
-               $tmsserver = 'http://openstreetmap.org';
-       $zoom = get_config('openstreetmap','zoom');
-       if(! $zoom)
-               $zoom = 17;
-
-       $o = replace_macros( $t, array(
-               '$submit' => t('Submit'),
-               '$tmsserver' => array('tmsserver', t('Tile Server URL'), $tmsserver, t('A list of <a href="http://wiki.openstreetmap.org/wiki/TMS" target="_blank">public tile servers</a>')),
-               '$zoom' => array('zoom', t('Default zoom'), $zoom, t('The default zoom level. (1:world, 18:highest)')),
-       ));
+       // This is needed since we stored an empty string in the config in previous versions
+       if (empty($nomserver)) {
+               $nomserver = OSM_NOM;
+       }
+
+       $args = '?q=' . urlencode($b['location']) . '&format=json';
+
+       $cachekey = "openstreetmap:" . $b['location'];
+       $j = Cache::get($cachekey);
+
+       if (is_null($j)) {
+               $x = Network::curl($nomserver . $args);
+               if ($x['success']) {
+                       $j = json_decode($x['body'], true);
+                       Cache::set($cachekey, $j, CACHE_MONTH);
+               }
+       }
+
+       if (!empty($j[0]['lat']) && !empty($j[0]['lon'])) {
+               $b['lat'] = $j[0]['lat'];
+               $b['lon'] = $j[0]['lon'];
+       }
 }
-function openstreetmap_plugin_admin_post (&$a) {
-       $url = ((x($_POST, 'tmsserver')) ? notags(trim($_POST['tmsserver'])) : '');
-       $zoom = ((x($_POST, 'zoom')) ? intval(trim($_POST['zoom'])) : '17');
-       set_config('openstreetmap', 'tmsserver', $url);
-       set_config('openstreetmap', 'zoom', $zoom);
-       info( t('Settings updated.'). EOL);
+
+function openstreetmap_generate_named_map(&$a, &$b)
+{
+       openstreetmap_get_coordinates($a, $b);
+
+       if (!empty($b['lat']) && !empty($b['lon'])) {
+               openstreetmap_generate_map($a, $b);
+       }
+}
+
+function openstreetmap_generate_map(&$a, &$b)
+{
+       $tmsserver = Config::get('openstreetmap', 'tmsserver', OSM_TMS);
+
+       if (strpos(z_root(), 'https:') !== false) {
+               $tmsserver = str_replace('http:','https:',$tmsserver);
+       }
+
+       $zoom = Config::get('openstreetmap', 'zoom', OSM_ZOOM);
+       $marker = Config::get('openstreetmap', 'marker', OSM_MARKER);
+
+       $lat = $b['lat']; // round($b['lat'], 5);
+       $lon = $b['lon']; // round($b['lon'], 5);
+
+       logger('lat: ' . $lat, LOGGER_DATA);
+       logger('lon: ' . $lon, LOGGER_DATA);
+
+       $cardlink = '<a href="' . $tmsserver;
+
+       if ($marker > 0) {
+               $cardlink .= '?mlat=' . $lat . '&mlon=' . $lon;
+       }
+
+       $cardlink .= '#map=' . $zoom . '/' . $lat . '/' . $lon . '">' . ($b['location'] ? escape_tags($b['location']) : L10n::t('View Larger')) . '</a>';
+       if (empty($b['mode'])) {
+               $b['html'] = '<iframe style="width:100%; height:300px; border:1px solid #ccc" src="' . $tmsserver .
+                               '/export/embed.html?bbox=' . ($lon - 0.01) . '%2C' . ($lat - 0.01) . '%2C' . ($lon + 0.01) . '%2C' . ($lat + 0.01) .
+                               '&amp;layer=mapnik&amp;marker=' . $lat . '%2C' . $lon . '" style="border: 1px solid black"></iframe>' .
+                               '<br/><small>' . $cardlink . '</small>';
+       } else {
+               $b['html'] .= '<br/>' . $cardlink;
+       }
+
+       logger('generate_map: ' . $b['html'], LOGGER_DATA);
+}
+
+function openstreetmap_addon_admin(&$a, &$o)
+{
+       $t = get_markup_template("admin.tpl", "addon/openstreetmap/");
+       $tmsserver = Config::get('openstreetmap', 'tmsserver', OSM_TMS);
+       $nomserver = Config::get('openstreetmap', 'nomserver', OSM_NOM);
+       $zoom = Config::get('openstreetmap', 'zoom', OSM_ZOOM);
+       $marker = Config::get('openstreetmap', 'marker', OSM_MARKER);
+
+       // This is needed since we stored an empty string in the config in previous versions
+       if (empty($nomserver)) {
+               $nomserver = OSM_NOM;
+       }
+
+       $o = replace_macros($t, [
+                       '$submit' => L10n::t('Submit'),
+                       '$tmsserver' => ['tmsserver', L10n::t('Tile Server URL'), $tmsserver, L10n::t('A list of <a href="http://wiki.openstreetmap.org/wiki/TMS" target="_blank">public tile servers</a>')],
+                       '$nomserver' => ['nomserver', L10n::t('Nominatim (reverse geocoding) Server URL'), $nomserver, L10n::t('A list of <a href="http://wiki.openstreetmap.org/wiki/Nominatim" target="_blank">Nominatim servers</a>')],
+                       '$zoom' => ['zoom', L10n::t('Default zoom'), $zoom, L10n::t('The default zoom level. (1:world, 18:highest, also depends on tile server)')],
+                       '$marker' => ['marker', L10n::t('Include marker on map'), $marker, L10n::t('Include a marker on the map.')],
+       ]);
+}
+
+function openstreetmap_addon_admin_post(&$a)
+{
+       $urltms = defaults($_POST, 'tmsserver', OSM_TMS);
+       $urlnom = defaults($_POST, 'nomserver', OSM_NOM);
+       $zoom = defaults($_POST, 'zoom', OSM_ZOOM);
+       $marker = defaults($_POST, 'marker', OSM_MARKER);
+
+       Config::set('openstreetmap', 'tmsserver', $urltms);
+       Config::set('openstreetmap', 'nomserver', $urlnom);
+       Config::set('openstreetmap', 'zoom', $zoom);
+       Config::set('openstreetmap', 'marker', $marker);
+
+       info(L10n::t('Settings updated.') . EOL);
 }