From: Steinar H. Gunderson <sesse@debian.org>
Date: Sun, 23 Jul 2006 15:45:10 +0000 (+0200)
Subject: Remove the obsolete Single module.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=8ef6e9fcadf97c84c6ed25c5b6e66bababcd2339

Remove the obsolete Single module.
---

diff --git a/perl/Sesse/pr0n/Single.pm b/perl/Sesse/pr0n/Single.pm
deleted file mode 100644
index 4971df7..0000000
--- a/perl/Sesse/pr0n/Single.pm
+++ /dev/null
@@ -1,64 +0,0 @@
-package Sesse::pr0n::Single;
-use strict;
-use warnings;
-
-use Sesse::pr0n::Common;
-use Sesse::pr0n::Index;
-use Apache2::Request;
-use POSIX;
-
-sub handler {
-	my $r = shift;
-	my $apr = Apache2::Request->new($r);
-
-	# Read the appropriate settings from the query string into the settings hash
-        my %defsettings = (
-                thumbxres => 80,
-                thumbyres => 64,
-                xres => undef,
-                yres => undef,
-                start => 1,
-                num => undef,
-                svurr => 0
-        );
-        my %settings = %defsettings;
-
-	for my $s qw(thumbxres thumbyres xres yres svurr start num) {
-		my $val = $apr->param($s);
-		if (defined($val) && $val =~ /^(\d+)$/) {
-			$settings{$s} = $val;
-		}
-	}
-
-	my $thumbxres = $settings{'thumbxres'};
-	my $thumbyres = $settings{'thumbyres'};
-	my $xres = $settings{'xres'};
-	my $yres = $settings{'yres'};
-	my $start = $settings{'start'};
-	my $num = $settings{'num'};
-
-	# Print the page itself
-	Sesse::pr0n::Common::header($r, "Singles");
-
-	Sesse::pr0n::Index::print_thumbsize($r, 'single', \%settings, \%defsettings);
-	Sesse::pr0n::Index::print_viewres($r, 'single', \%settings, \%defsettings);
-
-	for my $id ($start..($start+$num)) { 
-		my $filename = "$id.jpeg";
-		my $uri = $filename;
-		if (defined($xres) && defined($yres)) {
-			$uri = "${xres}x$yres/$filename";
-		}
-		
-		$r->print("      <a href=\"$uri\"><img src=\"${thumbxres}x${thumbyres}/$filename\" alt=\"\" /></a>\n");
-	}
-	$r->print("    </p>\n");
-
-	Sesse::pr0n::Common::footer($r);
-
-	return Apache2::Const::OK;
-}
-
-1;
-
-
diff --git a/perl/Sesse/pr0n/pr0n.pm b/perl/Sesse/pr0n/pr0n.pm
index 620bf19..5bd4928 100644
--- a/perl/Sesse/pr0n/pr0n.pm
+++ b/perl/Sesse/pr0n/pr0n.pm
@@ -2,7 +2,6 @@ use Sesse::pr0n::Common;
 use Sesse::pr0n::Listing;
 use Sesse::pr0n::Index;
 use Sesse::pr0n::Image;
-use Sesse::pr0n::Single;
 use Sesse::pr0n::Rotate;
 use Sesse::pr0n::Select;
 use Sesse::pr0n::WebDAV;
@@ -37,8 +36,6 @@ sub handler {
 	} elsif ($uri =~ m#^/usage/([a-zA-Z0-9.-]+)$#) {
 		$r->sendfile(Sesse::pr0n::Common::get_base($r) . "usage/$1");
 		return Apache2::Const::OK;
-	} elsif ($uri =~ m#^/single/?$#) {
-		return Sesse::pr0n::Single::handler($r);
 	} elsif ($uri =~ m#^/rotate$#) {
 		return Sesse::pr0n::Rotate::handler($r);
 	} elsif ($uri =~ m#^/select$#) {