Remove the obsolete Single module.

diff --git a/perl/Sesse/pr0n/Single.pm b/perl/Sesse/pr0n/Single.pm
deleted file mode 100644 (file)
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 620bf19eba245d3c8287f2cb8f2ae4daf630b4d3..5bd49286e0b83bddb4dba8f9fa396399fed26508 100644 (file)
--- 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::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;
 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#^/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$#) {
        } elsif ($uri =~ m#^/rotate$#) {
                return Sesse::pr0n::Rotate::handler($r);
        } elsif ($uri =~ m#^/select$#) {