my $r = shift;
my $uri = $r->path_info;
- if ($uri eq '/' || $uri =~ /^\/\+tags\/?$/) {
+ if ($uri eq '/') {
return Sesse::pr0n::Listing::handler($r);
} elsif ($uri eq '/robots.txt' ||
$uri eq '/pr0n.css' ||
} elsif ($uri =~ m#^/newevent$#) {
return Sesse::pr0n::NewEvent::handler($r);
} elsif ($uri =~ /^\/[a-zA-Z0-9-]+\/?$/ ||
- $uri =~ /^\/\+all\/?$/ ||
- $uri =~ /^\/\+tags\/[a-zA-Z0-9-]+\/?$/) {
+ $uri =~ /^\/\+all\/?$/) {
return Sesse::pr0n::Index::handler($r);
- } elsif ($uri =~ m#^/[a-zA-Z0-9-]+/(\d+x\d+(\@\d+(\.\d+)?)?/|original/)((?:no)?box/)?[a-zA-Z0-9._()-]+$#) {
+ } elsif ($uri =~ m#^/[a-zA-Z0-9-]+/
+ (\d+x\d+ ( \@\d+(\.\d+)? )? / | original/ )?
+ ((?:no)?box/)?
+ [a-zA-Z0-9._()-]+$#x) {
return Sesse::pr0n::Image::handler($r);
}