#!/usr/bin/perl -w -T

my $toc_file="cd.toc";

my $disc_header=<<EOF;
CD_DA

EOF

my $track_header=<<EOF;
TRACK AUDIO
COPY
FILE "||OUTFILE||" 0

EOF

sub gen_toc{
    my @tracks=@_;
    my $toc=$disc_header;
    my $track='';
    foreach (@tracks) {
	chomp;
	$outfile=$_;
	$track=$track_header;
	$track=~s/\|\|OUTFILE\|\|/$outfile/;
	$toc.=$track;
    }
    open(TOCFILE,">$toc_file") or die "Unable to write TOC to '$toc_file'\n";
    print TOCFILE $toc;
    close(TOCFILE);
}

sub main() {
    my @tracks=<>;
    print "Writing toc to '$toc_file'\n";
    gen_toc(@tracks);
    print "TOC generated.  You can burn this disc with 'cdrdao write --device 0,1,0 --speed 8 --buffers 64 -v2 cd.toc'\n";
}

main();