use Sesse::pr0n::Select;
use Sesse::pr0n::WebDAV;
use Sesse::pr0n::NewEvent;
-use Sesse::pr0n::Registry;
-use Sesse::pr0n::Wizard;
package Sesse::pr0n::pr0n;
use strict;
$uri eq '/blah.png' ||
$uri eq '/faq.html' ||
$uri eq '/pr0n-fullscreen.css' ||
+ $uri eq '/pr0n-fullscreen-ie.css' ||
$uri eq '/pr0n-fullscreen.js' ||
$uri eq '/previous.png' ||
$uri eq '/next.png' ||
return Sesse::pr0n::Select::handler($r);
} elsif ($uri =~ m#^/newevent$#) {
return Sesse::pr0n::NewEvent::handler($r);
- } elsif ($uri =~ m#^/registry$#) {
- return Sesse::pr0n::Registry::handler($r);
- } elsif ($uri =~ m#^/wizard$#) {
- return Sesse::pr0n::Wizard::handler($r);
} elsif ($uri =~ /^\/[a-zA-Z0-9-]+\/?$/ ||
$uri =~ /^\/\+all\/?$/ ||
$uri =~ /^\/\+tags\/[a-zA-Z0-9-]+\/?$/) {
return Sesse::pr0n::Index::handler($r);
- } elsif ($uri =~ m#^/[a-zA-Z0-9-]+/(\d+x\d+/|original/)?(nobox/)?[a-zA-Z0-9._-]+$#) {
+ } elsif ($uri =~ m#^/[a-zA-Z0-9-]+/(\d+x\d+(\@\d+(\.\d+)?)?/|original/)((?:no)?box/)?[a-zA-Z0-9._()-]+$#) {
return Sesse::pr0n::Image::handler($r);
}