diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index de6b1bc..1ecf276 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -194,6 +194,64 @@ 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 %location; for my $station ( Travel::Status::DE::IRIS::Stations::get_stations() ) @@ -203,6 +261,9 @@ sub startup { = [ $station->[4], $station->[3] ]; } } + while (my ($old_name, $new_name) = each %legacy_names) { + $location{$old_name} = $location{$new_name}; + } return \%location; } );