mp3 mit perl mime direkt an client senden.

[Siechfred]

Tag max.

um das unterbinden des deeplinken von daten zu erreichen, habe
ich mit perl ein downloadmodul gebastelt.

Hm, ich sehe keinen Quellcode.

funktioniert prima aber bei der 2. variante wird immer der name des cgi-perl-modul mit dem mp3, der hinten angehängt wird, vergeben.

Kleines Codebeispiel:

my $path = "../gesucht.mp3";  
print "Content-Type:application/x-download\n";  
print "Cache-Control:private;\n";  
print "Content-Disposition:attachment;filename=$file\n\n";  
open (FILE,"<$path_file");  
binmode(FILE);  
binmode(STDOUT);  
while(defined($outfile = <FILE>)) {  
  print "$outfile";  
};  
close(FILE);

Da kommt hier bei mir das heiß ersehnte Dialogfenster, was ich mit "gesucht.mp3" machen möchte (öffnen oder speichern), wähle ich "Speichern", legt er mir die Datei namens "gesucht.mp3" treu und brav in meinen Downloadordner. Verschiedene andere Möglichkeiten findest du auf http://savage.net.au/Perl-tutorials.html#tut_40.

Siechfred