diff options
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/Travelynx.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index a62cb2e..7a72cc6 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -383,6 +383,27 @@ sub startup { return ( undef, 'Unbekannter Zielbahnhof' ); } + my $daily_journey_count = $db->select( + 'journeys_str', + 'count(*) as count', + { + user_id => $uid, + real_dep_ts => { + -between => [ + $opt{rt_departure}->clone->subtract( days => 1 ) + ->epoch, + $opt{rt_departure}->epoch + ], + }, + } + )->hash->{count}; + + if ( $daily_journey_count >= 100 ) { + return ( undef, +"In den 24 Stunden vor der angegebenen Abfahrtszeit wurden ${daily_journey_count} weitere Fahrten angetreten. Das kann nicht stimmen." + ); + } + my @route = ( [ $dep_station->[1], {}, undef ] ); if ( $opt{route} ) { |