From 50fe58abb2a3269814a49fb7018946b418bdf074 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
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.
---
 Build.PL                     |  1 -
 README                       |  1 -
 lib/Travel/Status/DE/IRIS.pm | 11 -----------
 3 files changed, 13 deletions(-)

diff --git a/Build.PL b/Build.PL
index ee1643d..68591a1 100644
--- a/Build.PL
+++ b/Build.PL
@@ -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',
diff --git a/README b/README
index 81a5e0d..03e68aa 100644
--- a/README
+++ b/README
@@ -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 );
 }
-- 
cgit v1.2.3