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

# Copyright 2001, 2002 Rob Weir <rweir@softhome.net>
# Released under the GNU GPL, v2 (or, at your option, any later version).

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 <device> --speed <speed> -v2 cd.toc'\n";
}

main();