Add --first-class option

1 files changed, 3 insertions, 1 deletions

diff --git a/bin/dbris b/bin/dbris
index d131378..6cc6ee9 100755
--- a/bin/dbris
+++ b/bin/dbris
@@ -16,7 +16,7 @@ use Travel::Routing::DE::DBRIS;
 
 my ( $date, $time, $from, $to, $language );
 my $mots;
-my $discounts;
+my ( $first_class, $discounts );
 my $developer_mode;
 my ( $json_output, $raw_json_output );
 my $use_cache = 1;
@@ -38,6 +38,7 @@ GetOptions(
 	'D|discounts=s'        => \$discounts,
 	'h|help'               => sub { show_help(0) },
 	'f|full-route'         => \$show_full_route,
+	'first-class!'         => \$first_class,
 	'm|modes-of-transit=s' => \$mots,
 	'l|language=s'         => \$language,
 	't|time=s'             => \$time,
@@ -115,6 +116,7 @@ my %opt = (
 	to             => get_stop( $to_raw,   0 ),
 	via            => [ map { get_stop( $_, 1 ) } @via_raw ],
 	language       => $language,
+	first_class    => $first_class,
 	cache          => $cache,
 	developer_mode => $developer_mode,
 );