Commit 93cb8eea authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add with_related to db-iris, enabled by default

parent bf296245

bin/db-iris

+16 −13
Original line number Diff line number Diff line
@@ -22,6 +22,7 @@ my ( $date, $time, $lookahead ); 
my $datetime       = DateTime->now( time_zone => 'Europe/Berlin' );

my $developer_mode = 0;

my $realtime       = 0;

my $with_related   = 1;

my ( $filter_via, $track_via, $status_via );

my ( @grep_class, @grep_type, @grep_platform );

my ( %edata,      @edata_pre );
@@ -44,6 +45,7 @@ GetOptions( 
	'T|type=s'           => \@grep_type,

	'v|via=s'            => \$filter_via,

	'V|track-via=s'      => \$track_via,

	'x|exact|no-related' => sub { $with_related = 0 },

	'devmode'            => \$developer_mode,

	'version'            => \&show_version,
@@ -105,6 +107,7 @@ my $status = Travel::Status::DE::IRIS->new( 
	developer_mode => $developer_mode,

	lookahead      => $lookahead,

	station        => $station,

	with_related   => $with_related,

);

if ($track_via) {

lib/Travel/Status/DE/IRIS.pm

+1 −1
Original line number Diff line number Diff line
@@ -37,7 +37,7 @@ sub new { 
		serializable => $opt{serializable},

		station      => $opt{station},

		user_agent   => $ua,

		with_related => $opt{with_related} // 1,

		with_related => $opt{with_related},

	};



	bless( $self, $class );