Changeset 8 for trunk/Modules/Map

Timestamp:

Jun 1, 2023, 12:18:18 AM (18 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.
• Modified: Form types made as separate FormManager package.
• Fixed: PHP 8.1 support.

Location:

trunk/Modules/Map

Files:

• Map.php (modified) (3 diffs)
• MapGoogle.php (added)
• MapOSM.php (added)
• MapSeznam.php (added)
• ModuleMap.php (added)

trunk/Modules/Map/Map.php

@@ -1 +1 @@
 <?php
-
-class ModuleMap extends AppModule
-{
-  function __construct($System)
-  {
-    parent::__construct($System);
-    $this->Name = 'Map';
-    $this->Version = '1.0';
-    $this->Creator = 'Chronos';
-    $this->License = 'GNU/GPL';
-    $this->Description = 'Map';
-    $this->Dependencies = array();
-  }
-
-  function DoStart()
-  {
-  }
-
-  function DoInstall()
-  {
-  }
-
-  function DoUninstall()
-  {
-  }
-
-  function DoUpgrade()
-  {
-
-  }
-}
 
 class Map extends Model
@@ -41 +10 @@
   var $Key;
 
-  function __construct(Application $System)
+  function __construct(Core $System)
   {
     parent::__construct($System);
@@ -70 +39 @@
 }
 
-class MapSeznam extends Map
-{
-  function Geolocate($Text)
-  {
-    //new SMap.Geocoder(query, odpoved);
-  }
 
-  function Show()
-  {
-    $Output .= '<div id="m" style="height:380px"></div>';
-    $Output .= '<script type="text/javascript">
-            var centerMap = SMap.Coords.fromWGS84(14.40, 50.08);
-var m = new SMap(JAK.gel("m"), centerMap, 16);
-var l = m.addDefaultLayer(SMap.DEF_BASE).enable();
-m.addDefaultControls();
-
-
-var nalezeno = function(route) {
-    var vrstva = new SMap.Layer.Geometry();
-    m.addLayer(vrstva).enable();
-
-    var coords = route.getResults().geometry;
-    var cz = m.computeCenterZoom(coords);
-    m.setCenterZoom(cz[0], cz[1]);
-    var g = new SMap.Geometry(SMap.GEOMETRY_POLYLINE, null, coords);
-    vrstva.addGeometry(g);
-}
-
-var coords = [
-    SMap.Coords.fromWGS84(14.434, 50.084),
-    SMap.Coords.fromWGS84(16.600, 49.195)
-];
-var route = new SMap.Route(coords, nalezeno);
-            </script>';
-    $this->System->HeadItems[] = '<script src="//api.mapy.cz/loader.js"></script>
-        <script>Loader.load()</script>';
-
-    return $Output;
-  }
-}
-
-class MapGoogle extends Map
-{
-  function Route()
-  {
-    $Origins = array();
-    $Destinations = array();
-    foreach ($this->Path as $Index => $PathItem)
-    if ($Index > 0)
-    {
-       if ($Index == 1) $Origins[] = $this->Path[$Index - 1];
-       $Destinations[] = $this->Path[$Index];
-    }
-    $URL = 'https://maps.googleapis.com/maps/api/distancematrix/json'.
-      '?origins='.implode('|', $Origins).'&destinations='.implode('|', $Destinations).'&key='.$this->Key;
-    $Result = file_get_contents($URL);
-    $Points = array(array('Destination' => $this->Path[0], 'Distance' => 0, 'Duration' => 0));
-    $I = 1;
-    while (strpos($Result, '"distance"') !== false) {
-      $Distance = trim($this->Parse($Result, '"value" :', '}'));
-      $Duration = trim($this->Parse($Result, '"value" :', '}'));
-      $Points[] = array('Destination' => $this->Path[$I], 'Distance' => $Distance, 'Duration' => $Duration);
-      $I++;
-    }
-    return $Points;
-  }
-
-  function Show()
-  {
-    $WayPoints = $this->Path;
-    array_shift($WayPoints);
-    array_pop($WayPoints);
-    if (count($WayPoints) > 0)
-      $WaypointsQuery = '&waypoints='.implode('|', $WayPoints);
-      else $WaypointsQuery = '';
-
-    $Output = '<iframe width="'.$this->Width.'" height="'.$this->Height.'" frameborder="0" scrolling="no" '.
-      'marginheight="0" marginwidth="0" src="'.'https://www.google.com/maps/embed/v1/directions'.
-      '?key='.$this->Key.'&origin='.$this->Path[0].$WaypointsQuery.
-      '&destination='.$this->Path[count($this->Path) - 1].''.
-      '" style="border: 1px solid black"></iframe>';
-    return $Output;
-  }
-}
-
-class MapOSM extends Map
-{
-  function Geolocate($Text)
-  {
-    // http://wiki.openstreetmap.org/wiki/Nominatim
-    $URL = 'http://nominatim.openstreetmap.org/search.php?q='.urlencode($Text).'&viewbox=&format=xml&limit=1';
-    $Result = file_get_contents($URL);
-    $Result = substr($Result, strpos($Result, 'boundingbox="') + 13);
-    $BoundingBox = substr($Result, 0, strpos($Result, '"') - 1);
-    $Parts = explode(',', $BoundingBox);
-    $Zoom = 1 / ($Parts[1] - $Parts[0]) * 2;
-    $Result = substr($Result, strpos($Result, 'lat=\'') + 5);
-    $Latitude = substr($Result, 0, strpos($Result, '\'') - 1);
-    $Result = substr($Result, strpos($Result, 'lon=\'') + 5);
-    $Longitude = substr($Result, 0, strpos($Result, '\'') - 1);
-    return array('Latitude' => $Latitude, 'Longitude' => $Longitude, 'BoundingBox' => $BoundingBox, 'Zoom' => $Zoom);
-  }
-
-  function Route($TextPathItems)
-  {
-    $this->Points = array();
-    foreach ($TextPathItems as $TextPathItem)
-    {
-      $Result = $this->Geolocate($TextPathItem);
-      $this->Points[] = array('Longitude' => $Result['Longitude'],
-        'Latitude' => $Result['Latitude']);
-    }
-
-    $WayPoints = array();
-    foreach ($this->Points as $Point)
-    {
-      $WayPoints[] = $Point['Longitude'];
-      $WayPoints[] = $Point['Latitude'];
-    }
-
-    // http://wiki.openstreetmap.org/wiki/OpenRouteService#OpenRouteService_API
-    $this->Key = 'ee0b8233adff52ce9fd6afc2a2859a28';
-    $URL = 'http://openls.geog.uni-heidelberg.de/route?api_key='.
-      $this->Key.'&start='.implode(',', $this->Points[0]).'&end='.implode(',', $this->Points[count($this->Points) - 1]).
-      '&via='.implode(',', $WayPoints).'&lang=en&distunit=M&routepref=Car&weighting=Fastest&avoidAreas='.
-      '&useTMC=false&noMotorways=false&noTollways=false&noUnpavedroads=false&noSteps=false'.
-      '&noFerries=false&elevation=false&surface=false&instructions=false';
-    $Result = file_get_contents($URL);
-    echo($Result);
-    $Separator = '<xls:TotalDistance uom="M" value="';
-    $Result = substr($Result, strpos($Result, $Separator) + strlen($Separator));
-    $TotalDistance = substr($Result, 0, strpos($Result, '"/>') - 1);
-    $Separator = '<xls:TotalTime>PT2H3M48S';
-    $Result = substr($Result, strpos($Result, $Separator) + strlen($Separator));
-    $TotalTime = substr($Result, 0, strpos($Result, '"/>') - 1);
-
-    $Points = array();
-    $Separator = '<gml:pos>';
-    while (strpos($Result, $Separator) !== false)
-    {
-      $Result = substr($Result, strpos($Result, $Separator) + strlen($Separator));
-      $Pos = substr($Result, 0, strpos($Result, '</gml:pos>') - 1);
-      $PosParts = explode(' ', $Pos);
-      $Points[] = array('Longitude' => $PosParts[0], 'Latitude' => $PosParts[1]);
-    }
-    return array('TotalDistance' => $TotalDistance, 'TotalTime' => $TotalTime,
-      'Points' => $Points);
-  }
-
-  function Show()
-  {
-    $WayPoints = array();
-    foreach ($this->Points as $Point)
-    {
-      $WayPoints[] = $Point['Longitude'];
-      $WayPoints[] = $Point['Latitude'];
-    }
-
-    $Output = '<iframe width="'.$this->Width.'" height="'.$this->Height.'" frameborder="0" scrolling="no" '.
-      'marginheight="0" marginwidth="0" src="'.
-      'http://www.openrouteservice.org/?pos=8.925670599999979,52.28150333376007&zoom='.
-      $this->Zoom.'&layer=0B00&routeOpt=Car&wp='.implode(',', $WayPoints).
-      '&lang=en&routeLang=en&distUnit=m&routeWeight=Fastest'.
-      'style="border: 1px solid black"></iframe>';
-/*    $Latitude = $this->Pos['Latitude'];
-    $Longitude = $this->Pos['Longitude'];
-    $Zoom = $this->Zoom;
-    $BoundingBox = array($Longitude - 1 / $Zoom, $Latitude - 1 / $Zoom, $Longitude + 1 / $Zoom, $Latitude + 1 / $Zoom);
-    $Output = '<iframe width="'.$this->Width.'" height="'.$this->Height.'" frameborder="0" scrolling="no" '.
-      'marginheight="0" marginwidth="0" src="http://www.openstreetmap.org/export/embed.html'.
-      '?bbox='.implode(',', $BoundingBox).'&amp;layer=mapnik&amp;marker='.$Latitude.','.$Longitude.'" '.
-      'style="border: 1px solid black"></iframe>'.
-      '<p><small><a href="http://www.openstreetmap.org/'.
-      '?lat='.$Latitude.'&amp;lon='.$Longitude.';zoom='.$Zoom.'&amp;layers=M&amp;mlat='.$Latitude.'&amp;mlon='.$Longitude.'">View Larger Map</a></small></p>';
-      */
-    return $Output;
-  }
-}