mp3 mit perl mime direkt an client senden.

[max]

hi,
um das unterbinden des deeplinken von daten zu erreichen, habe
ich mit perl ein downloadmodul gebastelt.
dieses ermöglicht
1. downloadbare daten temporär für 15min bereitzustellen und
   beim nächsten aufruf und erfolgter zeitüberschreitung zu
   löschen.
2. mit perl direkt das mp3 auszulesen und via mime ins netz
   zu senden.

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

kann ich das vor dem starten des downloadvorgang unter
   perl beeinflussen?

gruss
max

[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

[max]

tach siechfred,

TOLL!

das ist ja genau das, was
ich selbst nich hinkriechte...

;O)