diff options
| -rw-r--r-- | index.pl | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -6,6 +6,7 @@ use utf8; use DateTime; use DateTime::Format::Strptime; use Encode qw(decode); +use File::Slurp qw(read_file write_file); use List::Util qw(first); use List::MoreUtils qw(any); @@ -31,6 +32,14 @@ my %default = ( my @efa_services = map { $_->{shortname} } Travel::Status::DE::EFA::get_efa_urls(); +sub log_api_access { + my $counter = 1; + if ( -r $ENV{VRRFAKEDISPLAY_STATS} ) { + $counter = read_file( $ENV{VRRFAKEDISPLAY_STATS} ) + 1; + } + write_file( $ENV{VRRFAKEDISPLAY_STATS}, $counter ); +} + sub get_results { my ( $backend, $city, $stop, $expiry ) = @_; my $sub_backend; @@ -58,6 +67,9 @@ sub get_results { my $data = $cache->thaw($sstr); if ( not $data ) { + if ( $ENV{VRRFAKEDISPLAY_STATS} ) { + log_api_access(); + } my $status; if ( $backend eq 'db' ) { $status = Travel::Status::DE::DeutscheBahn->new( |