Problem mit Videodateiausgabe (wmv) - Server hängt sich auf

[Siechfred]

open(DATA,"video.wmv"); # 10-20 MB
flock(DATA,2);
@file = <DATA>;
flock(DATA,8);
close(DATA);
print "Content-type: video/x-ms-wmv\n\n";
foreach $line (@file){
print $line;
}

Wie um alles in der Welt kommst du auf die Idee, dass eine Videodatei eine Textdatei sei und wo ist dein HTTP-Header? Behandle Binärdaten auch als solche, siehe binmode und archiv/2006/7/132845. Vergiss zudem nicht, einen zutreffenden Content-Type-Header zu senden.

Siechfred