Commit c39d354c authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

efa: Added --ignore-info switch, ignore bicycle-related information by default

parent d9373228

bin/efa

+9 −1
Original line number Diff line number Diff line
@@ -23,6 +23,7 @@ my ($time, $time_depart, $time_arrive); 
my $date;

my $restrict;

my $debug = 0;

my $ignore_info = 'Fahrradmitnahme( begrenzt)? möglich';

my ($i, $j, $con, $part);



$post{type_origin} = 'stop';
@@ -115,6 +116,7 @@ GetOptions( 
	'debug'     => \$debug,

	'depart=s'  => \$time_depart,

	'from=s{2}' => \@from,

	'ignore-info=s' => \$ignore_info,

	'post=s'    => \%post,

	'restrict=s' => \$restrict,

	'time=s'    => \$time,
@@ -196,8 +198,10 @@ $cons = parse_content($raw); 
for ($i = 0; $con = $cons->[$i]; $i++) {

	for ($j = 0; $part = $con->[$j]; $j++) {

		foreach (@{$part->{extra}}) {

			unless (length($ignore_info) and $_ =~ /$ignore_info/i) {

				print "# $_\n";

			}

		}

		printf(

			"%-5s %-2s %-30s %-20s %s\n%-5s %-2s %-30s\n\n",

			$part->{deptime}, $part->{dep}, $part->{depstop}, $part->{deptrain},
@@ -262,6 +266,10 @@ Journey date 


Only accept connections using trains of type I<type>, where I<type> may be:



=item B<--ignore-info> I<regex>



Ignore additional information matching I<regen> (default: "Fahrradmitnahme( begrenzt)? möglich")



=over



=item * local