Dateidownload

[Siechfred]

Hell-O!

ich muss nur die Datei auslesen, und dann wieder mit irgendeinem Header (den ich noch rausfinden muss) ausgeben, oder?

Ja, aber nicht vergessen, in den Binärmodus zu schalten. Ein kleines Beispiel für Grafiken findest du unter Einbinden eines Perlscripts als Grafikressource, das kann man ohne weiteres um die von dir gewünschten Funktionen erweitern bzw. entsprechend abändern, wie unten gezeigt.

Kann ich mit nem Header auch den default-namen, unter dem die Datei gespeichert wird, angeben?

Ja, vereinfacht sieht das so aus:

my $datei = 'download.datei';  
my $pfad = 'pfad/zu/datei/' . $datei;  
my $laenge = (stat("$path_file"))[7];  
print "Content-Type:application/x-download\n";  
print "Content-Length:$laenge;\n";  
print "Cache-Control:private;\n";  
print "Content-Disposition:attachment;filename=$datei\n\n";  
open (FILE,"<$pfad");  
binmode(FILE);  
binmode(STDOUT);  
while(defined(my $outfile = <FILE>)) {  
  print "$outfile";  
};  
close(FILE);

So sollte es funktionieren, ansonsten frag einfach nochmal nach.

Siechfred