Commit 50fe58ab authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Revert optional request logging for delay-stats addon 

This reverts commit 4a1fded7.
This reverts commit 844d1763.
parent 43fbf64b

Build.PL

+0 −1
Original line number Diff line number Diff line
@@ -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',

README

+0 −1
Original line number Diff line number Diff line
@@ -11,7 +11,6 @@ Dependencies 
* Class::Accessor

* DateTime

* DateTime::Format::Strptime

* File::Slurp

* Geo::Distance

* List::Compare

* List::MoreUtils

lib/Travel/Status/DE/IRIS.pm

+0 −11
Original line number Diff line number Diff line
@@ -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 );

}