From dce8472ad375624287c7e5c1dd80ea0d53e7e678 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 9 May 2016 20:49:29 +0200 Subject: Switch to Deutsche Bahn Haltestellen list Note that this does NOT include stations outside of germany, even if they have Deutsche Bahn trains. This may be fixed in another commit. --- scripts/acronyms.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'scripts/acronyms.pl') diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index 9a32783..124034e 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -34,19 +34,19 @@ while (my $line = ) { my $status = $csv->parse($line); my @fields = $csv->fields; - if ($fields[0] eq 'Abk') { + my ($uic, $station, $name, $mot, $longitute, $latitude) = @fields; + + if ($station eq 'DS100' or $station eq q{}) { next; } - my ($station, $name, $country, $location, $valid_since) = @fields; - $name =~ s{!}{ }g; $name =~ s{^\s+}{}; $name =~ s{\s+$}{}; $name =~ s{\s+}{ }g; $name =~ s{'}{\\'}g; - printf("\t['%s','%s'],\n", encode('UTF-8', $station), encode('UTF-8', $name)); + printf("\t['%s','%s',%s,%s,%s],\n", encode('UTF-8', $station), encode('UTF-8', $name), $uic, $longitute, $latitude); } say <<'EOF'; -- cgit v1.2.3