From 172c8a3d0092c663faa8e008d90a23bb5ecdf76e Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 6 Jan 2020 18:24:28 +0100
Subject: move old station names to external JSON as well

---
 lib/Travelynx.pm | 66 +++-----------------------------------------------------
 1 file changed, 3 insertions(+), 63 deletions(-)

(limited to 'lib')

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 2f60e54..acf82e0 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -197,68 +197,8 @@ sub startup {
 
 	$self->attr(
 		coordinates_by_station => sub {
-			my %legacy_names = (
-				'Nordbögge'              => 'Bönen-Nordbögge',
-				'Hamm(Westf)'             => 'Hamm(Westf)Hbf',
-				'Cottbus'                 => 'Cottbus Hbf',
-				'Delft Zuid'              => 'Delft Campus',
-				'Barchel, Oerel'          => 'Barchel',
-				'Biedenkopf-Schulzentrum' => 'Biedenkopf Campus',
-				'Bruchsal Tunnelstr'      => 'Bruchsal Tunnelstraße',
-				'Einbeck Salzderhelden'   => 'Einbeck-Salzderhelden',
-				'Eindhoven'               => 'Eindhoven Centraal',
-				'Escherndorf-Vogelburg'   => 'Escherndorf-Vogelsburg',
-				'Essel, Kutenholz'        => 'Essel',
-				'Europapl./Postgalerie (Karl), Karlsruhe' =>
-				  'Europaplatz/Postgalerie (Karls, Karlsruhe',
-				'Furth i Wald'               => 'Furth im Wald',
-				'Germersheim Bahnhof'        => 'Germersheim',
-				'Glossen (b Oschatz)'        => 'Glossen(b Oschatz)',
-				'Gondelsheim Schloßstadion' => 'Gondelsheim Schlossstadion',
-				'Hagen, Stade'               => 'Hagen(Kr. Stade)',
-				'Holzgerlingen Nord'         => 'Holzgerlingen Hülben',
-				'Karlsruhe Albtalbf'         => 'Karlsruhe Albtalbahnhof',
-				'Karlsruhe Durlacher Tor' =>
-				  'Karlsruhe Durlacher Tor / KIT-Campus Süd',
-				'Karlsruhe Mühlburger Tor' =>
-				  'Karlsruhe Mühlburger Tor (Kaiserallee)',
-				'Korbach'                => 'Korbach Hbf',
-				'Merseburg'              => 'Merseburg Hbf',
-				'Münster(b Dieburg)'    => 'Münster(Hessen)',
-				'Neu Isenburg'           => 'Neu-Isenburg',
-				'Niebüll, Sylt Shuttle' => 'Niebüll Autoverladung',
-				'Olen'                   => 'Olen(Belgien)',
-				'Rahden(Kr Lübbecke)'   => 'Rahden',
-				'Riegel-Malterd.NE'      => 'Riegel-Malterdingen NE',
-				'Siegen'                 => 'Siegen Hbf',
-				'Stendal'                => 'Stendal Hbf',
-				'Teisnach Rohde&Schwarz' => 'Teisnach Rohde+Schwarz',
-				'Thalheim (b Oschatz)'   => 'Thalheim(b Oschatz)',
-				'Timmendorferstrand'     => 'Timmendorfer Strand',
-				'Waldkraiburg'           => 'Waldkraiburg-Kraiburg',
-				'Weinheim(Bergstr)'      => 'Weinheim(Bergstr)Hbf',
-				'Werningerode'           => 'Weringerode Hbf',
-				'Westerland(Sylt), Sylt Shuttle' =>
-				  'Westerland (Sylt) Autoverladung',
-				'Stryck'                   => 'Willingen-Stryck',
-				'Rudersdorf(Siegen)'       => 'Wilnsdorf-Rudersdorf',
-				'Holzhausen-Heddinghausen' => 'Bad Holzhausen',
-				'Hummelberg'               => 'Berghausen Hummelberg',
-				'Wehrden'                  => 'Beverungen-Wehrden',
-				'Bockum-Hövel'            => 'Hamm-Bockum-Hövel',
-				'Brügge(Westf)'           => 'Lüdenscheid-Brügge',
-				'Dieringhausen'            => 'Gummersbach-Dieringhausen',
-				'Eisenbach-Matzenbach'     => 'Matzenbach',
-				'Godelheim'                => 'Höxter-Godelheim',
-				'Heessen'                  => 'Hamm-Heessen',
-				'Lüchtringen'             => 'Höxter-Lüchtringen',
-				'Ottbergen'                => 'Höxter-Ottbergen',
-				'Preußen'                 => 'Lünen-Preußen',
-				'Rudersdorf(Siegen)'       => 'Wilnsdorf-Rudersdorf',
-				'St Augustin Markt'        => 'Sankt Augustin Zentrum',
-				'Untersulzbach'            => 'Sulzbachtal',
-				'Freiburg West'            => 'Freiburg-Landwasser',
-			);
+			my $legacy_names = JSON->new->utf8->decode(
+				scalar read_file('share/old_station_names.json') );
 			my %location;
 			for
 			  my $station ( Travel::Status::DE::IRIS::Stations::get_stations() )
@@ -268,7 +208,7 @@ sub startup {
 					  = [ $station->[4], $station->[3] ];
 				}
 			}
-			while ( my ( $old_name, $new_name ) = each %legacy_names ) {
+			while ( my ( $old_name, $new_name ) = each %{$legacy_names} ) {
 				$location{$old_name} = $location{$new_name};
 			}
 			return \%location;
-- 
cgit v1.2.3