Dirty-hack per generare al volo il movie-ref per il darwin streaming server.

Visto che non ho trovato il formato del file binario l’ho fatta un po’ sporca. Essenzialmente ho messo in una variabile il contenuto di un file generato e lo uso come template sostituendo solo l’indirizzo del file. Le altre informazioni infatti rimangono costanti.

$movie = $q->url(-path_info=>1,-relative=>1);
$mov_templ="^@^@^@zmoov^@...^@>rtsp://server.dominio.it:7070/XXX^@^@^@^@^Prmdr^@....~V^@";
$mov_templ =~ s/XXX/$movie/;
print "Content-Type: video/quicktime\n\n";
print $mov_templ;

Aggiunti un po’ di controlli e cosmesi e lo script è pronto.