2017-06-23T08:15:56 GwenDragonWenn kontinuierlich gesendet und an jedem Punkt eines Videos neu gestartet (Wiederaufnahme des Downloads) werden soll
2017-06-23T08:15:56 GwenDragonbrauchst du einen kleinen Server.
2017-06-23T08:15:56 GwenDragonWas soll denn das Perl-Programm dabei tun?
2017-06-23T11:07:42 biancaÜbergangsweise habe ich dem Apache Zugriff auf das Verzeichnis gewährt, so kann der das mit dem Browser kaspern. Aber auf Dauer gefällt mir das vermutlich nicht.
2018-11-13T07:43:55 bianca2017-06-23T11:07:42 biancaÜbergangsweise habe ich dem Apache Zugriff auf das Verzeichnis gewährt, so kann der das mit dem Browser kaspern. Aber auf Dauer gefällt mir das vermutlich nicht.
So lasse ich das einfach.
2019-01-19T23:21:26 kolibri250was spricht denn z.B. gegen SymLinks auf die ausserhalb des apachezugriffs liegende datei???
2019-01-21T07:47:45 bianca2019-01-19T23:21:26 kolibri250was spricht denn z.B. gegen SymLinks auf die ausserhalb des apachezugriffs liegende datei???
Wahrscheinlich nichts.
Ein Alias in der httpd.conf ist im Ergebnis ja quasi auch ein Link.
1
2
3
4
5
open my $input,'<',$datei
binmode STDOUT
print "Content-Type: $type\nContent-length: $groesse\n"
."Content-Disposition: attachment; filename: \"$name\";\n"
."\n$cont";
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
use autodie; my $datei = 'my_huge_video.mp4'; my $type = 'whatever'; my $groesse = (stat $datei)[7]; my $name = 'Twelve Dances With God: In the Pay of Spain'; my $header = <<"EOH"; Content-Type: $type\nContent-length: $groesse Content-Disposition: attachment; filename: "$name"; EOH { local $| = 1; print $header; open my $input,'<',$datei; my $buffer; while (sysread $input,$buffer,1024*1024) { syswrite STDOUT,$buffer; } }
2021-12-07T12:24:23 biancaHabe mir use IO::Handle; STDOUT->autoflush(1) statt local $| = 1 gemerkt, weil $| nicht immer zwingend STDOUT ist wie ich mal irgend wo aufgeschnappt habe.