From 50fe58abb2a3269814a49fb7018946b418bdf074 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 7 Apr 2018 08:27:44 +0200 Subject: Revert optional request logging for delay-stats addon This reverts commit 4a1fded77455749b803033eda0fa81a8b429d485. This reverts commit 844d1763a2826dae2981aa3abc398dffd214c663. --- lib/Travel/Status/DE/IRIS.pm | 11 ----------- 1 file changed, 11 deletions(-) (limited to 'lib') diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 98167f1..ae215d7 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -11,7 +11,6 @@ our $VERSION = '1.16'; use Carp qw(confess cluck); use DateTime; use DateTime::Format::Strptime; -use File::Slurp qw(write_file); use List::Util qw(first); use List::MoreUtils qw(uniq); use List::UtilsBy qw(uniq_by); @@ -36,7 +35,6 @@ sub new { lookbehind => $opt{lookbehind} // ( 0 * 60 ), main_cache => $opt{main_cache}, rt_cache => $opt{realtime_cache}, - log_dir => $opt{log_dir}, serializable => $opt{serializable}, user_agent => $opt{user_agent}, with_related => $opt{with_related}, @@ -184,15 +182,6 @@ sub get_with_cache { if ($cache) { $cache->freeze( $url, \$content ); } - if ( $self->{log_dir} ) { - my $filename = $url; - $filename =~ s{ ^ .* iris-tts/ }{}x; - $filename =~ tr{/}{_}; - if ( $filename =~ m{ fchg }x ) { - $filename .= $self->{datetime}->strftime('_%Y%m%d%H%M%S'); - } - write_file( $self->{log_dir} . '/' . $filename, $content ); - } return ( $content, undef ); } -- cgit v1.2.3