Hoi,
Ik ervaar wat moeilijkheden hebben met het uitvoeren van een script om te kunnen sommige bestanden te downloaden via HTTP.

De Perl script ligt op een Linux op een server ( "/ var / www / cgi-bin / down.pl") waar ik deze kan worden uitgevoerd via Internet Explorer.

Ik ben in staat om de directory-inhoud ( "/ home / toto"), maar ik ben niet in staat te openen of de bestanden van deze map op te slaan in mijn lokale machine (Windows XP bijvoorbeeld) weer te geven.

Mijn doel is om in staat zijn om een bestand als ik erop klik op te slaan en het doelwit te kiezen op mijn lokale machine.

Kan iemand me helpen om dit script te repareren? Thanks in advance.

#!/usr/bin/perl
use CGI;
$|=1;
my $query=new CGI;
print qq~
<table align="center" width="90%">
<tr><td><font color="black" face="Arial" size="4"><b>Files in current directory</b></td></tr>
<tr>
<td valign="top">
<font color="black" face="Arial" size="2">
~;
$dir="/home/toto";
opendir(DIR, "$dir");
@current = readdir(DIR);
closedir(DIR);

foreach(@current){
unless($_ eq '.' || $_ eq '..' || -d qq~$dir/$_~){
push(@currentfiles, $_);
}
}
@currentfiles = sort { uc($a) cmp uc($b) } @currentfiles;
for($aa = 0; $aa <= $#currentfiles; $aa++){
print qq~

<a href="$dir/$currentfiles[$aa]" target="_blank">$currentfiles[$aa]</a><a href="$dir/$currentfiles[$aa]"> </a></font><br>
~;
}
print qq~
</font></tr>
</table>

De links zullen niet werken als je webserver niet is geconfigureerd voor toegang tot deze bestanden mogelijk te maken, en uw webserver kan waarschijnlijk op eigen gezag een lijst van hen hoe dan ook, geen script nodig.

Houd er ook rekening gebracht code in [code] code tags [/ code], maakt het veel beter leesbaar.