From ba7a15a58d52b6f737dc574e0a76a58d14883687 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 2 Jan 2014 05:41:37 +0100
Subject: rename Travel::Status::DE::IRIS::{Acronyms -> Stations}

---
 scripts/acronyms.pl | 18 +++++++++---------
 scripts/acronyms.sh |  2 +-
 2 files changed, 10 insertions(+), 10 deletions(-)

(limited to 'scripts')

diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl
index b81184a..9d55b3f 100755
--- a/scripts/acronyms.pl
+++ b/scripts/acronyms.pl
@@ -13,7 +13,7 @@ my $re_line = qr{
 }x;
 
 say <<'EOF';
-package Travel::Status::DE::IRIS::Acronyms;
+package Travel::Status::DE::IRIS::Stations;
 
 use strict;
 use warnings;
@@ -24,38 +24,38 @@ use List::MoreUtils qw(firstval);
 
 our $VERSION = '0.00';
 
-my @acronyms = (
+my @stations = (
 EOF
 
 while (my $line = <STDIN>) {
 	chomp $line;
 
 	if ($line =~ $re_line) {
-		my ($acronym, $name) = @+{qw{acronym name}};
+		my ($station, $name) = @+{qw{acronym name}};
 		$name =~ s{'}{\\'}g;
 
-		printf("\t['%s','%s'],\n", $acronym, $name);
+		printf("\t['%s','%s'],\n", $station, $name);
 	}
 }
 
 say <<'EOF';
 );
 
-sub get_acronyms {
-	return @acronyms;
+sub get_stations {
+	return @stations;
 }
 
-sub get_acronym_by_name {
+sub get_station_by_name {
 	my ( $name ) = @_;
 
 	my $nname = lc($name);
-	my $actual_match = firstval { $nname eq lc($_->[1]) } @acronyms;
+	my $actual_match = firstval { $nname eq lc($_->[1]) } @stations;
 
 	if ($actual_match) {
 		return ($actual_match);
 	}
 
-	return ( grep { $_->[1] =~ m{$name}i } @acronyms );
+	return ( grep { $_->[1] =~ m{$name}i } @stations );
 }
 
 1;
diff --git a/scripts/acronyms.sh b/scripts/acronyms.sh
index a6bd3ca..ef52521 100755
--- a/scripts/acronyms.sh
+++ b/scripts/acronyms.sh
@@ -2,4 +2,4 @@
 
 curl -s http://www.db-netz.de/file/2361656/data/betriebsstellen.pdf \
 | pdftotext -raw - - | perl scripts/acronyms.pl \
-> lib/Travel/Status/DE/IRIS/Acronyms.pm
+> lib/Travel/Status/DE/IRIS/Stations.pm
-- 
cgit v1.2.3