Wikivoyage:Quelltext von readpage.php

Im Folgenden findet sich der Quelltext von readpage.php vom Nutzer Mey2008 in der Fassung vom 17. September 2015.

<?php

/* 
  readpage.php - Version 2015-09-17
  
  include from poi2gpx.php

  Author:
  https://de.wikivoyage.org/wiki/User:Mey2008
     
  Contributors:
  https://it.wikivoyage.org/wiki/Utente:Andyrom75

  License: 
  Affero GPL v3 or later http://www.gnu.org/licenses/agpl-3.0.html 
  
  Recent changes:
  2017-08-09: variable renaming
  2015-12-15: do not filter "]]"
  2015-09-17: translate 'all' new associative-array
  2015-09-16: translate 'it' new associative-array
  2015-07-26: optimize for count()
  2015-07-20: image="" error
  2015-05-04: file name to file_name

  ToDo:
  ---
*/

// DMS to DEC (DIR must be N, E, S or, W)
function DMStoDEC($dms) {
  $part = preg_split("/[^\d\w\.]+/",$dms);
  $pnr = count($part);
  if ($pnr == 3) {
    $part[3] = $part[2];
    $part[2] = 0;
  }
  elseif ($pnr == 2) {
    $part[3] = $part[1];
    $part[1] = 0;
    $part[2] = 0;
  } 
  $dec = $part[0] + ((($part[1]*60) + ($part[2]))/3600);
  if ($part[3] == "S" || $part[3] == "W") {
    $dec = $dec * -1;
  } 
  return $dec;
} 

// reading URL parameters
$lang = $_GET["lang"];
$file = str_replace("\'","'",$_GET["name"]);
$file = str_replace(" ", "_", $file);

// reading article data
$articleContent = file_get_contents("https://" . $lang . ".wikivoyage.org/w/index.php?title=" . $file . "&action=raw");

// strip comments and nowiki
$articleContent = preg_replace('/<!--(.|\s)*?-->/', '', $articleContent);
$articleContent = preg_replace('/<nowiki(.|\s)*?nowiki>/', '', $articleContent);

// replace special strings
$articleContent = str_ireplace(array('[*', ']]', '| ', ' |', '= ', ' =', '=====', '===', '&', '{{Marker', '{{Listing', '{{vCard', '?lang=', '@', '{{Poi', '=listing' ), array('', ']]', '|', '|', '=', '=', 'XXXXX', 'XXX', '%26', '{{listing', '{{listing', '{{listing', 'XxxxxX', 'X', '{{poi', '=' ),  $articleContent);

// poi to listing
$articleContent = preg_replace(array('/{{poi\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)[\||}](.*?)}}/i', '/\|image=}/i', '/{{poi\|(.*?)\|(.*?)\|(.*?)\|(.*?)\|(.*?)[\||}]/i'), array("{{listing|map=$1|type=$2|lat=$3|long=$4|name=$5|image=$6}}", "}}}", "{{listing|map=$1|type=$2|lat=$3|long=$4|name=$5}}"), $articleContent);

// replace section 2 headers
$articleContent = preg_replace('/==.*==/', '{{listing|type=**h2**|name=**SECTION**}}', $articleContent); 

// translate to english
  include 'trans/trans-' . $lang . '.php';
  $articleContent = str_ireplace(array_keys($trans), $trans, $articleContent);

// convert to {{listing|
$articleContent = preg_replace("/{{(go|see|do|buy|eat|drink|sleep|fun|vicinity|health|around|city|diplo)/", "{{listing|type=$1", $articleContent);
 
// strip unwanted templates
$articleContent = preg_replace("/{{(?!poi|listing|mapframe|mapmask|geo|photolist)(.|\s)*?}}/im", "", $articleContent);

// echo $articleContent; // *** TEST ***

// mapmask
preg_match('/{{MapMask\|(.*?)}}/i', $articleContent, $matches);
if (isset($matches[1])) {
  $mask = '[[' . str_replace('|', '],[', $matches[1]) . ']]';
}
else {
  $mask = '[[]]';
}

// read parameters {{listing|
$apart = explode('{{listing', $articleContent);
$total = count($apart);

$nr = $nother = 0;
// $groups, $grpmax only for de
$groups = array('error', '**h2**', 'blue', 'buy', 'do', 'drink', 'eat', 'fun', 'go', 'gold', 'health', 'lime', 'listing', 'maroon', 'mediumaquamarine', 'other', 'red', 'see', 'silver', 'sleep', 'view', 'vicinity', 'health', 'around', 'city', 'diplo');
$grpmax = array_fill(0, 29, 0);

for($i=1; $i < $total; $i++){
  $text = explode('}}', $apart[$i]);
  $part = str_replace('|','&', $text[0]);

  $name = $map = $type = $group = $lat = $long = $image = $content = '';
  parse_str(str_replace('+', '%2B', $part));

  // convert DMS to DEC
  if (strpos($lat, "°")) {
    $lat = DMStoDEC($lat);
    $long = DMStoDEC($long);
  }
 
  $n[$i] = (trim($name)  ?: "NoName");
  $d[$i] = (trim($content)  ?: "NoDesc");
  $p[$i] = (trim($map)   ?: 0);
  $c[$i] = (trim($type)  ?: "other");
  $x[$i] = (trim($lat)  + 0 ?: "0");
  $y[$i] = (trim($long) + 0 ?: "0");
  $f[$i] = (str_replace(" ","_",trim($image)) ?: "0/01/no");
  if (substr($f[$i],1,1) != "/") {
    $md5 = md5($f[$i]);
    $f[$i] = substr($md5,0,1) . "/" . substr($md5,0,2) . "/" . $f[$i];
  }

  // automatic numbering
  if ($lang == "de" ) {
    if ($x[$i] + 0 != 0 && $p[$i] == 0) {
      if ($group != '') {
        $c[$i] = trim($group);
      }
      $key = array_search($c[$i], $groups);
      $grpmax[$key]++; 
      $p[$i] = $grpmax[$key];
    }
  }
  else {
    if ($x[$i] + 0 != 0) {
      if ($c[$i] == "other") {
        $nother++;
        $p[$i] = $nother;      
      }
      else {
        $nr++;
        $p[$i] = $nr;       
      }   
    }
    if ($c[$i] == "**h2**") {
      $nr = 0;
    }
  }
}
$max = $i - 1;
?>