diff options
Diffstat (limited to 'lib/Travelynx.pm')
| -rwxr-xr-x | lib/Travelynx.pm | 66 |
1 files changed, 3 insertions, 63 deletions
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; |