#!/usr/bin/perl -w
use strict;
# Make a QuickTime reference movie using URLs
die "usage: $0 <URL0> <byterate0> [<URL1> <byterate1> [..]]\n" unless(@ARGV);
my @rmda=();
my $size=0;
while(@ARGV) {
   die "you must have an even number of arguments!\n" unless($#ARGV);
   die "invalid byterate\n" unless($ARGV[1] =~ /^[1-9][0-9]*$/s);
   push @rmda,pack("N",45+length($ARGV[0]))."rmda";
   $rmda[$#rmda].=pack("N",21+length($ARGV[0]))."rdrf";
   $rmda[$#rmda].=pack("N",0)."url ".pack("N",1+length($ARGV[0])).$ARGV[0]."\0";
   $rmda[$#rmda].=pack("N",16)."rmdr".pack("H8","0"x8).pack("N",$ARGV[1]/10);
   $size+=length $rmda[$#rmda];
   shift @ARGV;
   shift @ARGV;
}
print pack("N",$size+16)."moov".pack("N",$size+8)."rmra".join('',@rmda);
# http://developer.apple.com/techpubs/quicktime/qtdevdocs/QTFF/qtff.html
0;