From 4e9898a97f5c3c52d1277ed73cb4365b8644870a Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Thu, 26 Jul 2007 02:09:30 +0200 Subject: [PATCH] Remove the "single" debugging code that has probably been there for ages and allowed free access to all pictures. Ouch! =) --- perl/Sesse/pr0n/Image.pm | 30 ++++++++++++------------------ 1 file changed, 12 insertions(+), 18 deletions(-) diff --git a/perl/Sesse/pr0n/Image.pm b/perl/Sesse/pr0n/Image.pm index d1743b4..7f3e3c0 100644 --- a/perl/Sesse/pr0n/Image.pm +++ b/perl/Sesse/pr0n/Image.pm @@ -34,26 +34,20 @@ sub handler { } my ($id, $dbwidth, $dbheight); - if ($event eq 'single' && $filename =~ /^(\d+)\.jpeg$/) { - $id = $1; - } else { - # Alas, we obviously need to do this :-) - # my $evq = $dbh->prepare('SELECT count(*) AS numev FROM events WHERE id=? AND vhost=?') - # or die "prepare(): $!"; - # my $ref = $dbh->selectrow_hashref($evq, undef, $event, $r->get_server_name) - # or dberror($r, "Could not look up $event"); - # $ref->{'numev'} == 1 - # or error($r, "Could not find $event", 404, "File not found"); + #if ($event eq 'single' && $filename =~ /^(\d+)\.jpeg$/) { + # $id = $1; + #} else { - # Look it up in the database - my $ref = $dbh->selectrow_hashref('SELECT id,width,height FROM images WHERE event=? AND vhost=? AND filename=?', - undef, $event, $r->get_server_name, $filename); - error($r, "Could not find $event/$filename", 404, "File not found") unless (defined($ref)); + # Look it up in the database + my $ref = $dbh->selectrow_hashref('SELECT id,width,height FROM images WHERE event=? AND vhost=? AND filename=?', + undef, $event, $r->get_server_name, $filename); + error($r, "Could not find $event/$filename", 404, "File not found") unless (defined($ref)); - $id = $ref->{'id'}; - $dbwidth = $ref->{'width'}; - $dbheight = $ref->{'height'}; - } + $id = $ref->{'id'}; + $dbwidth = $ref->{'width'}; + $dbheight = $ref->{'height'}; + + #} $dbwidth = -1 unless defined($dbwidth); $dbheight = -1 unless defined($dbheight); -- 2.39.2