summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/acronyms.pl20
1 files changed, 20 insertions, 0 deletions
diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl
index ac4bd68..73cb817 100755
--- a/scripts/acronyms.pl
+++ b/scripts/acronyms.pl
@@ -45,6 +45,20 @@ sub get_stations {
return @stations;
}
+sub normalize {
+ my ($val) = @_;
+
+ $val =~ s{Ä}{Ae}g;
+ $val =~ s{Ö}{Oe}g;
+ $val =~ s{Ü}{Ue}g;
+ $val =~ s{ä}{ae}g;
+ $val =~ s{ö}{oe}g;
+ $val =~ s{ß}{sz}g;
+ $val =~ s{ü}{ue}g;
+
+ return $val;
+}
+
sub get_station {
my ( $name ) = @_;
@@ -67,6 +81,12 @@ sub get_station_by_name {
return ($actual_match);
}
+ $nname = normalize($nname);
+ $actual_match = firstval { $nname eq normalize(lc($_->[1])) } @stations;
+ if ($actual_match) {
+ return $actual_match;
+ }
+
return ( grep { $_->[1] =~ m{$name}i } @stations );
}