summaryrefslogtreecommitdiff
path: root/lib/Travelynx.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travelynx.pm')
-rwxr-xr-xlib/Travelynx.pm66
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;