openstreetmap/openstreetmap.php

   1 <?php
   2 /**
   3  * Name: OpenStreetMap
   4  * Description: Use OpenStreetMap for displaying locations. After activation the post location just beneath your avatar in your posts will link to OpenStreetMap.
   5  * Version: 1.3.1
   6  * Author: Fabio <http://kirgroup.com/~fabrixxm>
   7  * Author: Mike Macgirvin <http://macgirvin.com/profile/mike>
   8  * Author: Klaus Weidenbach
   9  *
  10  */
  11 use Friendica\Core\Addon;
  12 use Friendica\Core\Cache;
  13 use Friendica\Core\Config;
  14 use Friendica\Core\L10n;
  15 use Friendica\Util\Network;
  16
  17 function openstreetmap_install()
  18 {
  19         Addon::registerHook('render_location', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_location');
  20         Addon::registerHook('generate_map', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_generate_map');
  21         Addon::registerHook('generate_named_map', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_generate_named_map');
  22         Addon::registerHook('page_header', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_alterheader');
  23
  24         logger("installed openstreetmap");
  25 }
  26
  27 function openstreetmap_uninstall()
  28 {
  29         Addon::unregisterHook('render_location', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_location');
  30         Addon::unregisterHook('generate_map', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_generate_map');
  31         Addon::unregisterHook('generate_named_map', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_generate_named_map');
  32         Addon::unregisterHook('page_header', 'addon/openstreetmap/openstreetmap.php', 'openstreetmap_alterheader');
  33
  34         logger("removed openstreetmap");
  35 }
  36
  37 function openstreetmap_alterheader($a, &$navHtml)
  38 {
  39         $addScriptTag = '<script type="text/javascript" src="' . $a->get_baseurl() . '/addon/openstreetmap/openstreetmap.js"></script>' . "\r\n";
  40         $a->page['htmlhead'] .= $addScriptTag;
  41 }
  42
  43 /**
  44  * @brief Add link to a map for an item's set location/coordinates.
  45  *
  46  * If an item has coordinates add link to a tile map server, e.g. openstreetmap.org.
  47  * If an item has a location open it with the help of OSM's Nominatim reverse geocode search.
  48  *
  49  * @param mixed $a
  50  * @param array& $item
  51  */
  52 function openstreetmap_location($a, &$item) {
  53
  54         if(! (strlen($item['location']) || strlen($item['coord']))) {
  55                 return;
  56         }
  57
  58         /*
  59          * Get the configuration variables from the config.
  60          * @todo Separate the tile map server from the text-string to map tile server
  61          * since they apparently use different URL conventions.
  62          * We use OSM's current convention of "#map=zoom/lat/lon" and optional
  63          * ?mlat=lat&mlon=lon for markers.
  64          */
  65
  66         $tmsserver = Config::get('openstreetmap', 'tmsserver');
  67         if(! $tmsserver) {
  68                 $tmsserver = 'http://www.openstreetmap.org';
  69         }
  70
  71         $nomserver = Config::get('openstreetmap', 'nomserver');
  72         if(! $nomserver) {
  73                 $nomserver = 'http://nominatim.openstreetmap.org/search.php';
  74         }
  75
  76         $zoom = Config::get('openstreetmap', 'zoom');
  77         if(! $zoom) {
  78                 $zoom = 16;
  79         }
  80
  81         $marker = Config::get('openstreetmap', 'marker');
  82         if(! $marker) {
  83                 $marker = 0;
  84         }
  85
  86         if ($item['coord'] != "") {
  87                 $coords = explode(' ', $item['coord']);
  88                 if(count($coords) > 1) {
  89                         $lat = urlencode(round($coords[0], 5));
  90                         $lon = urlencode(round($coords[1], 5));
  91                         $target = $tmsserver;
  92                         if($marker > 0)
  93                                 $target .= '?mlat='.$lat.'&mlon='.$lon;
  94                         $target .= '#map='.intval($zoom).'/'.$lat.'/'.$lon;
  95                 }
  96         }
  97
  98         if ($target == "") {
  99                 $target = $nomserver.'?q='.urlencode($item['location']);
 100         }
 101
 102         if ($item['location'] != "") {
 103                 $title = $item['location'];
 104         } else {
 105                 $title = $item['coord'];
 106         }
 107
 108         $item['html'] = '<a target="map" title="'.$title.'" href= "'.$target.'">'.$title.'</a>';
 109 }
 110
 111
 112 function openstreetmap_generate_named_map(&$a, &$b)
 113 {
 114         $nomserver = Config::get('openstreetmap', 'nomserver');
 115         if(! $nomserver)
 116                 $nomserver = 'http://nominatim.openstreetmap.org/search.php';
 117         $args = '?q=' . urlencode($b['location']) . '&format=json';
 118
 119         $x = Network::curl($nomserver . $args);
 120         if($x['success']) {
 121                 $j = json_decode($x['body'],true);
 122
 123                 if($j && is_array($j) && $j[0]['lat'] && $j[0]['lon']) {
 124                         $arr = ['lat' => $j[0]['lat'],'lon' => $j[0]['lon'],'location' => $b['location'], 'html' => ''];
 125                         openstreetmap_generate_map($a,$arr);
 126                         $b['html'] = $arr['html'];
 127                 }
 128         }
 129 }
 130
 131 function openstreetmap_generate_map(&$a, &$b)
 132 {
 133         $tmsserver = Config::get('openstreetmap', 'tmsserver');
 134         if(! $tmsserver) {
 135                 $tmsserver = 'http://www.openstreetmap.org';
 136         }
 137         if(strpos(z_root(),'https:') !== false) {
 138                 $tmsserver = str_replace('http:','https:',$tmsserver);
 139         }
 140
 141
 142         $zoom = Config::get('openstreetmap', 'zoom');
 143         if (!$zoom) {
 144                 $zoom = 16;
 145         }
 146
 147         $marker = Config::get('openstreetmap', 'marker');
 148         if (!$marker) {
 149                 $marker = 0;
 150         }
 151
 152         $lat = $b['lat']; // round($b['lat'], 5);
 153         $lon = $b['lon']; // round($b['lon'], 5);
 154
 155         logger('lat: ' . $lat, LOGGER_DATA);
 156         logger('lon: ' . $lon, LOGGER_DATA);
 157
 158
 159         $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) ;
 160
 161         $b['html'] .=  '&amp;layer=mapnik&amp;marker=' . $lat . '%2C' . $lon . '" style="border: 1px solid black"></iframe><br/><small><a href="' . $tmsserver . '/?mlat=' . $lat . '&mlon=' . $lon . '#map=16/' . $lat . '/' . $lon . '">' . (($b['location']) ? escape_tags($b['location']) : L10n::t('View Larger')) . '</a></small>';
 162
 163         logger('generate_map: ' . $b['html'], LOGGER_DATA);
 164 }
 165
 166 function openstreetmap_addon_admin(&$a, &$o)
 167 {
 168         $t = get_markup_template("admin.tpl", "addon/openstreetmap/");
 169         $tmsserver = Config::get('openstreetmap', 'tmsserver');
 170         if (!$tmsserver) {
 171                 $tmsserver = 'http://www.openstreetmap.org';
 172         }
 173         $nomserver = Config::get('openstreetmap', 'nomserver');
 174         if (!$nomserver) {
 175                 $nomserver = 'http://nominatim.openstreetmap.org/search.php';
 176         }
 177         $zoom = Config::get('openstreetmap', 'zoom');
 178         if (!$zoom) {
 179                 $zoom = 16;
 180         }
 181         $marker = Config::get('openstreetmap', 'marker');
 182         if (!$marker) {
 183                 $marker = 0;
 184         }
 185
 186         $o = replace_macros($t, [
 187                         '$submit' => L10n::t('Submit'),
 188                         '$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>')],
 189                         '$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>')],
 190                         '$zoom' => ['zoom', L10n::t('Default zoom'), $zoom, L10n::t('The default zoom level. (1:world, 18:highest, also depends on tile server)')],
 191                         '$marker' => ['marker', L10n::t('Include marker on map'), $marker, L10n::t('Include a marker on the map.')],
 192         ]);
 193 }
 194
 195 function openstreetmap_addon_admin_post(&$a)
 196 {
 197         $urltms = ((x($_POST, 'tmsserver')) ? notags(trim($_POST['tmsserver'])) : '');
 198         $urlnom = ((x($_POST, 'nomserver')) ? notags(trim($_POST['nomserver'])) : '');
 199         $zoom = ((x($_POST, 'zoom')) ? intval(trim($_POST['zoom'])) : '16');
 200         $marker = ((x($_POST, 'marker')) ? intval(trim($_POST['marker'])) : '0');
 201         Config::set('openstreetmap', 'tmsserver', $urltms);
 202         Config::set('openstreetmap', 'nomserver', $urlnom);
 203         Config::set('openstreetmap', 'zoom', $zoom);
 204         Config::set('openstreetmap', 'marker', $marker);
 205         info(L10n::t('Settings updated.') . EOL);
 206 }