jmacura
/
spoi-importer-original


			
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192
							<?php

// Deutsche Bahn - Reisezentren
// http://data.deutschebahn.com/dataset/data-reisezentren
// CHANGE FILENAME ACCORDING TO A NEWEST AVAILABLE VERSION http://data.deutschebahn.com/dataset/data-reisezentren


// head of html
echo '<!DOCTYPE html>
  <html lang="cs" dir="ltr">
    <head>
    <title>Deutschen Bahn Reisezentren to RDF</title>
      <meta charset="utf-8">
      <meta name="robots" content="index,follow">
      <meta name="author" content="Jáchym Kellar">
      <!-- <meta http-equiv="X-UA-Compatible" content="IE=edge"> -->
      <style>
        body{
          margin-top: 80px;
          text-align: center;
        }
        .start{
          font-size: 28px;
          text-decoration: none;
          letter-spacing: 1px;
        }
        a{
         text-decoration: none;
        }
        a:hover{
          text-decoration: underline;
        }
        .pozn{
          font-size: 13px;
        }
      </style>
    </head>
    <body>
      <h2>Deutsche Bahn Reisezentren dataset &rarr; SPOI data model</h2>
      
      <h4>Deutsche Bahn Reisezentren: <a href="http://data.deutschebahn.com/dataset/data-reisezentren" target="_blank">http://data.deutschebahn.com/dataset/data-reisezentren</a></h4>
      <h4>SPOI: <a href="http://sdi4apps.eu/spoi/" target="_blank">http://sdi4apps.eu/spoi</a></h4>
      
      <br><br>
      
';

// click to start transformation -> reload page
echo '<a href="Reisezentren.php?transform=start" class="start">Start</a>';
echo '<br><span class="pozn">(this may take a while)</span><br><br>';

// should start the transformation? - get method
  if (IsSet($_GET['transform'])){        
       $status=$_GET['transform'];
       if($status == "start"){
         transform();
         }
      }

// end of html document
echo '    </body>
  </html>
';


// download and transform data - main
function transform(){

    // download data
    // ----------------- CHANGE FILENAME ACCORDING TO A NEWEST AVAILABLE VERSION http://data.deutschebahn.com/dataset/data-reisezentren ------------------------------
    file_put_contents("DB-Bahnhoefe.csv", fopen("http://download-data.deutschebahn.com/static/datasets/reisezentren/VSRz201609.csv", 'r'));
    
    // filesize of downloaded csv
     $filesize = filesize("VSRz201609.csv");
     echo "Csv file size: ".format_size($filesize)."<br>";
    
    // create rdf
      $soubor = fopen("Reisezentren.rdf", "w");
      
    // write head of rdf      
      fwrite($soubor, '<?xml version="1.0" encoding="utf-8"?');
      fwrite($soubor, ">\r\n");
      fwrite($soubor, '<rdf:RDF xmlns:dc="http://purl.org/dc/elements/1.1/"
             xmlns:dcterms="http://purl.org/dc/terms/1.1/"
             xmlns:foaf="http://xmlns.com/foaf/0.1/"
             xmlns:geos="http://www.opengis.net/ont/geosparql#"
             xmlns:owl="http://www.w3.org/2002/07/owl#"
             xmlns:poi="http://www.openvoc.eu/poi#"
             xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
             xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#"
             xmlns:sf="http://www.opengis.net/ont/sf#"
             xmlns:skos="http://www.w3.org/2004/02/skos/core#">');
      fwrite($soubor, "\r\n");

      $csv = fopen("VSRz201609.csv", "r");
      $headCSV = true;
      
      // memory usage
      echo 'Memory usage: ' , (memory_get_usage(true) / 1024 / 1024) , " MB<br>";
      
      while (($data = fgetcsv($csv, 1000, ";")) !== FALSE) {
    
              if($headCSV) { $headCSV = false; continue; }
              
            fwrite($soubor, '   <rdf:Description rdf:about="http://www.sdi4apps.eu/poi/#SNode-'.$data[0].'">');
            fwrite($soubor, "\r\n");
      
            fwrite($soubor, '      <rdfs:label xml:lang="de">'.$data[1].'</rdfs:label>');
            fwrite($soubor, "\r\n");

            $lat1 = substr($data[30], 0, 2);
            $lat2 = substr($data[30], 2);
            $lat = $lat1.'.'.$lat2;
            if(strlen($data[31])== 7){
              $long1 = substr($data[31], 0, 1);
              $long2 = substr($data[31], 1);
              $long = $long1.'.'.$long2;
            }
            else{
              $long1 = substr($data[31], 0, 2);
              $long2 = substr($data[31], 2);
              $long = $long1.'.'.$long2;
            }
            

            fwrite($soubor, '      <geos:asWKT rdf:datatype="http://www.openlinksw.com/schemas/virtrdf#Geometry">POINT('.$long.' '.$lat.')</geos:asWKT>');
            fwrite($soubor, "\r\n");
      
            fwrite($soubor, '      <poi:class rdf:resource="http://gis.zcu.cz/SPOI/Ontology#transportation"/>');
            fwrite($soubor, "\r\n");
      
            fwrite($soubor, '      <geos:sfWithin rdf:resource="http://dbpedia.org/resource/Germany"/>');
            fwrite($soubor, "\r\n");
          
            fwrite($soubor, '      <geos:sfWithin rdf:resource="http://www.geonames.org/2921044"/>');
            fwrite($soubor, "\r\n");
          
            fwrite($soubor, '      <dc:identifier rdf:resource="http://www.sdi4apps.eu/poi/#SNode-'.$data[0].'"/>');
            fwrite($soubor, "\r\n");
      
            fwrite($soubor, '      <dc:publisher>SPOI (http://sdi4apps.eu/spoi)</dc:publisher>');
            fwrite($soubor, "\r\n");

            fwrite($soubor, '      <poi:address xml:lang="de">'.$data[4].' '.$data[5].' '.$data[6].'</poi:address>');
            fwrite($soubor, "\r\n");
          
            fwrite($soubor, '      <dc:title xml:lang="de">'.$data[1].'</dc:title>');
            fwrite($soubor, "\r\n");
          
            fwrite($soubor, '      <dc:rights rdf:resource="https://creativecommons.org/licenses/by/4.0/"/>');
            fwrite($soubor, "\r\n");
          
            fwrite($soubor, '      <dc:source rdf:resource="http://data.deutschebahn.com/"/> ');
            fwrite($soubor, "\r\n");
          
            $date = getdate();
            fwrite($soubor, '      <dcterms:created rdf:datatype="http://www.w3.org/2001/XMLSchema#date">'.$date['year']."-".$date['mon']."-".$date['mday'].'</dcterms:created>');
            fwrite($soubor, "\r\n");
            
            fwrite($soubor, '   </rdf:Description>');
            fwrite($soubor, "\r\n");

      }
        
      fwrite($soubor, "</rdf:RDF>");
      fclose($soubor);
      fclose($csv);

  
    // delete csv   
    //unlink('VSRz201609.csv');
    
    // link to download rdf
    echo '<a href="Reisezentren.rdf" target="_blank">Download RDF file</a>';
    
    // filesize of rdf
     $filesize = filesize("Reisezentren.rdf");
     echo " (".format_size($filesize).")<br>"; 


}

// filesize function
 function format_size($size) {
      $sizes = array(" Bytes", " KB", " MB", " GB", " TB", " PB", " EB", " ZB", " YB");
      if ($size == 0) { return('n/a'); } else {
      return (round($size/pow(1024, ($i = floor(log($size, 1024)))), 2) . $sizes[$i]); }
} 


?>