From 8d1e7ef8e8e05e052772eccf3beabfc461d85ec3 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 24 Jun 2011 16:14:25 +0200
Subject: [PATCH] db-ris: Add --via (regex filter)
---
bin/db-ris | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/bin/db-ris b/bin/db-ris
index 80d3d0f..8514831 100755
--- a/bin/db-ris
+++ b/bin/db-ris
@@ -6,16 +6,19 @@ use 5.010;
our $VERSION = '0.0';
use Getopt::Long;
+use List::Util qw(first);
use Travel::Status::DE::DeutscheBahn;
my ( $date, $time );
my $types = q{};
my %train_type;
+my $filter_via;
binmode( STDOUT, ':encoding(utf-8)' );
GetOptions(
'd|date=s' => \$date,
+ 'v|via=s' => \$filter_via,
'm|mot=s' => \$types,
't|time=s' => \$time,
);
@@ -42,6 +45,10 @@ for my $d ( $status->departures() ) {
@via = $d->route;
+ if ( $filter_via and not( first { $_ =~ m{$filter_via}io } @via ) ) {
+ next;
+ }
+
for my $stop (@via) {
if ( $stop =~ m{ ?Hbf} ) {
push( @via_main, $stop );
--
GitLab