Re: problem z pakietami z SID-a
On Thu, Sep 26, 2002 at 12:06:57PM +0200, bieniu@gras.poznan.pl wrote:
> >
> > Ręcznie. Prościej jednak sprawdzić czemu nie działa neomail.
> >
> > eloy
> > --
> > --Krzysztof-eloy-Krzyżaniak-----------------------eloy-@-transilvania-eu-org--
>
> logowac w neomailu sie moge, lecz gdy proboje odpowiedziec na maila
> pojawia mi sie blad (caly czas ten sam
>
> Software error:
> Insecure dependency in open while running setgid at
> /home/httpd/cgi-bin/neomail.pl line 2775.
>
>
> w lini neomaila 2775 jest:
>
> ################### FILELOCK #################################
> my %opentable; # Global, declared here for clarity of the sub
>
> sub filelock {
> my ($filename, $lockflag)=@_; # Read sub params
> my $fh;
>
> $fh=$opentable{$filename};
>
> if (! defined($fh)) { # handle not found,
> $fh=FileHandle->new();
> if (open($fh, "+<$filename")) {
> $opentable{$filename}=$fh;
> } else {
> return(0);
> }
> }
> return(flock($fh, $lockflag));
> }
> ##################### END FILELOCK ###########################
Jak się domyślam FileHandle to uchwyt do IO::File
Zamień if-a na:
if (! defined($fh)) {
$fh = FileHandle->new($filename, RDWR) or return(0);
$opentable($filename)=$fh
}
Jak to nie zadziała, to zdowngraduj perla.
eloy
--
--Krzysztof-eloy-Krzyżaniak-----------------------eloy-@-transilvania-eu-org--
Obwiązać twarze szmatami, że... że niby dzieci zęby bolą. Dzieci
wtedy nie miały opieki dentystycznej. I tak jest najlepiej.
Reply to: