X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FCommon.pm;h=559d6339f38b206498902f801ffa721d777c6593;hp=a9ee2119db8751d3c97770f5cb6f7aa68f9864e0;hb=b413b07902fc271184d81c02c542c0301ea36515;hpb=9b45ad1ecd9f1eace384f825a7dc6b2b7920af65

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index a9ee211..559d633 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -233,7 +233,7 @@ sub get_cache_location {
 
 sub ensure_disk_location_exists {
 	my ($r, $id) = @_;
-        my $dir = POSIX::floor($id / 256);
+	my $dir = POSIX::floor($id / 256);
 
 	my $img_dir = get_base($r) . "/images/$dir/";
 	if (! -d $img_dir) {
@@ -1117,8 +1117,6 @@ sub purge_cache {
 	}
 	$regex .= "(\\?.*)?\$";
 	$r->headers_out->{'X-Pr0n-Purge'} = $regex;
-
-	$r->log->info($r->headers_out->{'X-Pr0n-Purge'});
 }
 				
 # Find a list of all cache URLs for a given image, given what we have on disk.