From 21234707fcd880cf980de4d31cefe4af951644f0 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 26 Jan 2020 15:31:01 +0100
Subject: add_journey: allow up to 99 journeys per 24 hours

---
 lib/Travelynx.pm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

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} ) {
-- 
cgit v1.2.3