diff options
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Stations.pm | 2 | ||||
| -rwxr-xr-x | scripts/acronyms.pl | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Stations.pm b/lib/Travel/Status/DE/IRIS/Stations.pm index 9dcf08f..0fe1791 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm +++ b/lib/Travel/Status/DE/IRIS/Stations.pm @@ -4107,7 +4107,7 @@ my @stations = ( [ 'NMOE', 'Mönchröden', 8004064, 11.057613, 50.302227 ], [ 'SML', 'Monreal', 8004078, 7.153055, 50.296357 ], [ 'FMSH', 'Monsheim', 8000663, 8.208162, 49.633666 ], - [ 'FMTN', 'Montabaur', 8000667, 7.825333, 50.444834 ], + [ 'FMT', 'Montabaur', 8000667, 7.825333, 50.444834 ], [ 'SMON', 'Monzingen', 8004080, 7.588673, 49.793466 ], [ 'AMBH', 'Moorbekhalle', 8079023, 9.991744, 53.717155 ], [ 'SMBT', 'Moosbachtal', 8079265, 7.754959, 49.165954 ], diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index 97092f7..097090e 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -62,6 +62,7 @@ while ( my $line = <STDIN> ) { $station =~ s{ ^ EDO \s N $ }{EDO}x; $station =~ s{ ^ FBUSS $ }{FBUS}x; $station =~ s{ ^ FH \s\s N$ }{FH}x; + $station =~ s{ ^ FMTN $ }{FMT}x; $station =~ s{ ^ KAREP $ }{KARE}x; $station =~ s{ ^ KBR \s P $ }{KBR}x; $station =~ s{ ^ KDDH $ }{KDD}x; |