version 1.109, 2007/04/26 18:31:53
|
version 1.110, 2007/04/27 22:03:02
|
Line 291 sub handler {
|
Line 291 sub handler {
|
} |
} |
} |
} |
if ($requrl =~ m|^/zipspool/|) { |
if ($requrl =~ m|^/zipspool/|) { |
my $start='/zipspool/zipout/'.$env{'user.name'}. |
my $start='/zipspool/zipout/'.$env{'user.name'}.":". |
$env{'user.domain'}; |
$env{'user.domain'}; |
if ($requrl !~ /^\Q$start\E/) { |
if ($requrl !~ /^\Q$start\E/) { |
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |