diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2018-04-07 08:27:44 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2018-04-07 08:27:44 +0200 |
| commit | 50fe58abb2a3269814a49fb7018946b418bdf074 (patch) | |
| tree | 2fe891f50dbb10de4fc16136dafc9389d4f059ca | |
| parent | 43fbf64bc77682e0f4d0657d6c31d635e7343e6f (diff) | |
Revert optional request logging for delay-stats addon
This reverts commit 4a1fded77455749b803033eda0fa81a8b429d485.
This reverts commit 844d1763a2826dae2981aa3abc398dffd214c663.
| -rw-r--r-- | Build.PL | 1 | ||||
| -rw-r--r-- | README | 1 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 11 |
3 files changed, 0 insertions, 13 deletions
@@ -26,7 +26,6 @@ Module::Build->new( 'DateTime' => 0, 'DateTime::Format::Strptime' => 0, 'Encode' => 0, - 'File::Slurp' => 0, 'Geo::Distance' => 0, 'Getopt::Long' => 0, 'List::Compare' => '0.29', @@ -11,7 +11,6 @@ Dependencies * Class::Accessor * DateTime * DateTime::Format::Strptime -* File::Slurp * Geo::Distance * List::Compare * List::MoreUtils 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 ); } |