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

Added --time-for to get departure/arrival time

parent fed04b3a

bin/efa

+13 −2
Original line number Diff line number Diff line
@@ -24,7 +24,7 @@ my $groupsize = 8; 
my $offset;

my @from;

my @to;

my $time;

my ($time, $time_for);

my $date;

my $debug = 0;
@@ -37,6 +37,7 @@ GetOptions( 
	'time=s'    => \$time,

	'date=s'    => \$date,

	'debug'     => \$debug,

	'time-for=s' => \$time_for,

);



unless (@to == 2 and @from == 2) {
@@ -53,6 +54,12 @@ if ($time) { 
if ($date) {

	@post{'itdDateDay','itdDateMonth','itdDateYear'} = split(/\./, $date);

}

if ($time_for) {

	given ($time_for) {

		when('arrival') {$post{itdTripDateTimeDepArr} = 'arr'}

		when('departure') {$post{itdTripDateTimeDepArr} = 'dep'}

	}

}



$www->get($firsturl);

$www->submit_form(
@@ -155,7 +162,11 @@ raw items received from the site) 


=item B<--time> I<hh>:I<mm>



Journey start time

Journey start/end time



=item B<--time-for> B<arrival>|B<departure>



Define whether the time means time of departure (default) or time of arrival



=item B<--date> I<dd>.I<mm>.I<yyyy>

provides/zsh/completions/_efa

+1 −0
Original line number Diff line number Diff line
@@ -6,6 +6,7 @@ arguments=( 
	'--to:city: :stop: '

	'--debug'

	'--time:time'

	'--time-for:event:(arrival departure)'

	'--date:date'

)