From 6e87d26481ba152a8504c3c6c8650d1927206331 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Mon, 7 Aug 2006 01:23:55 +0200 Subject: [PATCH] Fix original/nobox/. --- perl/Sesse/pr0n/Image.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/Sesse/pr0n/Image.pm b/perl/Sesse/pr0n/Image.pm index 6df8ea2..e436428 100644 --- a/perl/Sesse/pr0n/Image.pm +++ b/perl/Sesse/pr0n/Image.pm @@ -16,9 +16,9 @@ sub handler { # Find the event and file name my ($event,$filename,$xres,$yres); my $infobox = 1; - if ($r->uri =~ m#^/([a-zA-Z0-9-]+)/original/([a-zA-Z0-9._-]+)$#) { + if ($r->uri =~ m#^/([a-zA-Z0-9-]+)/original/(nobox/)?([a-zA-Z0-9._-]+)$#) { $event = $1; - $filename = $2; + $filename = $3; } elsif ($r->uri =~ m#^/([a-zA-Z0-9-]+)/(\d+)x(\d+)/(nobox/)?([a-zA-Z0-9._-]+)$#) { $event = $1; $filename = $5; -- 2.39.2