On Fri, 29 Aug 2003, Robert Shields wrote:
> my $logdir = $Server->Mappath ("logs");
>
> if (!opendir (LOGDIR, "$logdir")) {
>
> $Response->write ("Could not open directory $logdir: $!");
>
> } else {
>
> my @files = grep (/.*\.xml/, readdir(LOGDIR));
>
> @files = sort @files;
>
Title: RE: unlink doesn't
Probably a permissions issue, but it could be other things. Try
unlink $file || warn "Couldn't remove file $file : $!\n";
... or use die if you want it to stop on the first failure.
-Original Message-
From: Robert Shields [mailto:[EM
Title: RE: unlink doesn't
Try changing:
unlink $file;
to
unlink "$logdir\\$file";
HTH :)
-Original Message-
From: Robert Shields [mailto:[EMAIL PROTECTED]]
Sent: Friday, August 29, 2003 9:34 AM
To: [EMAIL PROTECTED]
Subject: unlink doesn't
my $logdir = $Server->Mappath ("logs");
if (!opendir (LOGDIR, "$logdir")) {
$Response->write ("Could not open directory $logdir: $!");
} else {
my @files = grep (/.*\.xml/, readdir(LOGDIR));
@files = sort @files;
@files = sort {$b cmp $a} @files;
my $nC
