diff options
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/Travelynx/Controller/Traveling.pm | 26 |
1 files changed, 24 insertions, 2 deletions
diff --git a/lib/Travelynx/Controller/Traveling.pm b/lib/Travelynx/Controller/Traveling.pm index 15b131a..f1f689b 100755 --- a/lib/Travelynx/Controller/Traveling.pm +++ b/lib/Travelynx/Controller/Traveling.pm @@ -479,6 +479,26 @@ sub status_token_ok { return; } +sub journey_token_ok { + my ( $self, $journey, $ts2_ext ) = @_; + my $token = $self->param('token') // q{}; + + my ( $eva, $ts, $ts2 ) = split( qr{-}, $token ); + if ( not $ts ) { + return; + } + + $ts2 //= $ts2_ext; + + if ( $eva == $journey->{from_eva} + and $ts == $journey->{checkin_ts} + and $ts2 == $journey->{sched_dep_ts} ) + { + return 1; + } + return; +} + sub user_status { my ($self) = @_; @@ -507,6 +527,8 @@ sub user_status { ) { if ( $candidate->{sched_dep_ts} eq $ts ) { + + # TODO pass token $self->redirect_to("/p/${name}/j/$candidate->{id}"); return; } @@ -707,11 +729,11 @@ sub public_journey_details { not( $visibility eq 'public' or ( $visibility eq 'unlisted' - and $self->status_token_ok($journey) ) + and $self->journey_token_ok($journey) ) or ( $visibility eq 'travelynx' and ( $self->is_user_authenticated - or $self->status_token_ok($journey) ) + or $self->journey_token_ok($journey) ) ) ) ) |