Dateidownload

[steckl]

hi,

hatte noch ein problem. mit deinem Skript konnte ich zwar die datei runterladen, aber in der datei stand irgendwelcher schwachsinn. hab jetz wieder meinen header verwendet und nur die aenderungsvorschlaege (x-download, binmode) eingebaut. jetzt funktioniert alles :)

falls es jemanden interessiert:

  
    my $length = (stat("$file"))[7];  
    print "Content-Type:application/x-download\n";  
    print "Content-Length:$length;\n";  
    print "Content-disposition: attachment; filename=\"$fileName\"\n";  
    print "Pragma: public\n\n";  
  
    open ( FILE, "$file") || (errorOut("Couldn't open: $file") );  
  
    binmode(FILE);  
    binmode(STDOUT);  
    while ( my $word = <FILE>)  
    {  
        print "$word";  
    }  
  
    close FILE;  

danke fuer deine bemuehungen,
steckl