Perrin Harkins-3 wrote:
>
> On 4/2/07, foobar <[EMAIL PROTECTED]> wrote:
>> I'm not sure if this is a configuration problem or a design fault. I can
>> see
>> that both handlers are called but why my image file length is zero bytes
>> is
>> beyond me.
>
> Sounds like a problem in the access handler code. Can you show it to us?
>
> - Perrin
>
>
Sure, I'm pretty new to this so it may well be the case I have done
something really stupid here. If it helps, this was working before I moved
the site to a named virtual host... anyway, here is the handler:
sub handler {
my $r = shift;
my $uri = $r->uri;
my $gallery_root = $MySite::Global::GALLERY_ROOT;
my $thumbdir = $MySite::Global::GALLERY_THUMB_DIR;
my $publicdir = $MySite::Global::GALLERY_PUBLIC_DIR;
my $privatedir = $MySite::Global::GALLERY_PRIVATE_DIR;
# if user is requesting public images or thumbs its all good :)
if ($uri =~ /^$gallery_root\/($publicdir|$thumbdir)\//) {
warn "Access OK"; # we're definitely getting here according to the
logs
return OK;
}
# othewrwise we need to check they are allowed to view the gallery
# they requested
return FORBIDDEN unless $r->pnotes('member');
if ($uri =~ /^$gallery_root\/$privatedir\/(.+)/) {
my ($date, $gallery_id,$imagefile) = split ('/', $1, 3);
if (! $date || ! $gallery_id || ! $imagefile) {
return FORBIDDEN;
}
# if users account type is good to view this gallery return OK
return OK if $r->pnotes('member')->can_view_gallery($gallery_id);
}
# catch everything else
return FORBIDDEN;
}
--
View this message in context:
http://www.nabble.com/mod_perl2-handler-headache-tf3506042.html#a9792465
Sent from the mod_perl - General mailing list archive at Nabble.com.
