#!/usr/bin/perl
#
# Compiles a list of wav files into ogg vorbis files.
#
# Author: R.F. Smith <rsmith@xs4all.nl>
# Time-stamp: <2010-08-29 12:13:38 rsmith>
#
# To the extent possible under law, Roland Smith has waived all copyright and
# related or neighboring rights to make-ogg. This work is published from the
# Netherlands. See http://creativecommons.org/publicdomain/zero/1.0/

# Check for programs that this script needs.
chomp($oggenc = `which oggenc 2>/dev/null`);
-x $oggenc || die "Cannot find oggenc: $!\n";
chomp($norm = `which normalize 2>/dev/null`);
-x $norm || die "Cannot find normalize: $!\n";

# Get the name of the file containing the titles.
if ($ARGV[0] ne "") {
    $fname = $ARGV[0];
} else {
    $fname = "titels";
}

# open the list of song titles
open (TITELS, $fname) || die "cannot open $fname: $!\n";

# the titels file format is as follows:
# ------------------------------------
# album title
# artist
# 01 title of 1st song
# ..
# 14 title of 14th song
# ..

# get the album title and performer name
chomp($album = <TITELS>);
$album ne "" || die "cannot read album name";
chomp($artist = <TITELS>);
$artist ne "" || die "cannot read artist name";

# Normalize the wav files.
printf("Normalizing .wav files...\n");
`$norm -b track*.cdda.wav`;

# go over all the songs
while(<TITELS>) {
    chomp;
    ($num, $title) = split (' ', $_, 2);
    printf ("Encoding \"%s\" as %s\n", $title, "track".$num.".ogg");
    # invoke the ogg encoder.
    do {
        $rc = system ($oggenc, "-q 6", "-a", $artist, "-l", $album, "-t", 
                       $title, "-N", $num, "-o", "track".$num.".ogg", 
                      "track".$num.".cdda.wav");
        if ($rc != 0) {print "\nError,", $rc, "starting again";}
    } until $rc == 0;
}