
torredegiralda
(usa Debian)
Enviado em 27/01/2012 - 09:31h
Ola eu criei um script que da um download dos arquivos de uma pasta.
porem nao sei o que esta acontecendo, o servidor me responde permissao negada do arquivo eu dei o chmod 777 e nada...
Alquem sabe o que pode estar acontecendo?
o script e o seguinte.
#!/usr/bin/perl -wt
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser);
my $files_location;
my $ID;
my @fileholder;
$files_location = "../scripts";
$ID = param('ID');
if ($ID eq '') {
print "Content-type: text/html\n\n";
print "You must specify a file to download.";
} else {
open(DLFILE, "<$files_location/$ID") || Error('open', 'file');
@fileholder = <DLFILE>;
close (DLFILE) || Error ('close', 'file');
open (LOG, ">>/var/log/test.log") || Error('open', 'file');
print LOG "$ID\n";
close (LOG);
print "Content-Type:application/x-download\n";
print "Content-Disposition:attachment;filename=$ID\n\n";
print @fileholder
}
sub Error {
print "Content-type: text/html\n\n";
print "The server can't $_[0] the $_[1]: $! \n";
exit;
}
~
~