#!/usr/local/bin/perl -w
#########################################
# File -        BookOnCD.pl
# Date -        Saturday, September 07, 2002
# Description - A script for ripping Books on
#                 CD to mp3s while keeping a
#                 format that a mp3 cd player
#                 can read.
#########################################
use strict;

#########################################
# Function -    prompt
# Date -        Saturday, September 07, 2002
# Input -        String to print to the user
# ReturnVal -    If the user hit Y for yes
# Description -    Verifies that the user has
#                 said yes.
#########################################
sub prompt {
    my $msg = shift;
    print $msg;
    my $rsp = <STDIN>;
    $rsp =~/^y/i;
}

#########################################
# Function -    prompt2
# Date -        Saturday, September 07, 2002
# Input -        String to print to the user
# ReturnVal -    A number that the user 
#                 enters
# Description -    Gets  a number from the user
#########################################
sub prompt2 {
    my $msg = shift;
    print $msg;
    my $rsp = <STDIN>;
    $rsp =~ /^(\d+)/;
    return int(($rsp));
}
#########################################
# Function -    getCount
# Date -        Saturday, September 07, 2002
# Input -        A scalar representing a 
#                 cdrom on your system
# ReturnVal -    An integer
# Description -    The number of tracks on the
#                 audio cd in the device
#                 specified
#########################################
sub getCount {
    my $device = shift;
    my $direct = shift;
    open(PH, "cdparanoia -Q -d $device 2>&1 1>/dev/null |");
    my $max=0;
    while(<PH>){
        /^\s(\d+)\./;
        $max = int($1) if defined($1);
    }
    close PH;
    return $max;
}

#########################################
# Function -    ripIt
# Date -        Saturday, September 07, 2002
# Input -        Various information for this
#                 cd.
# ReturnVal -    None
# Description -    This is the "Magic" function
#                 that rips the mp3s from the
#                 cd and puts them in order
#########################################
sub ripIt {
    my $directory = shift;
    my $Device    = shift;
    my $Title     = shift;
    my $Disc      = shift;
    my $Start     = shift;
    my $tracks    = getCount($Device, $directory);
    my $LineP = "cdparanoia -d $Device -p";
    $LineP .= "-S 52" if $Device eq "/mnt/cdrom2";
    $LineP .= "-S 6" if $Device eq "/mnt/cdrom1";
    $LineP .= "-S 12" if $Device eq "/mnt/cdrom";
    my $LameP = "lame -r -a -v -V 6 -b 32 -B 192 -p --ta \"Disc $Disc\
+" --tl \"$Title Disc $Disc\"";
    my $file = "";
    my $line;
    my $lame;
    my $clean;
    my $p1 = $tracks - $Start+1;
    my $p2;
    my $p3;
    my $p4;
    print "Starting Rip on $Title, Disc $Disc.\n";
    print "$tracks tracks to be ripped.\n";
    print "0 Tracks Done. (0%)";
    select((select( STDOUT ), $| = 1)[0]);
    foreach my $i ($Start .. $tracks){
        $file = $directory . "/" . $main::alpha[$i] . ".mp3";
        $line = $LineP . " \"$i\" $directory/track_$i.raw 2>/dev/null 
+1>/dev/null;\n";
        $lame = $LameP . " --tt \"Track $i\" --tn \"$i\" $directory/tr
+ack_$i.raw $file 2>/dev/null 1>/dev/null;";
        $clean = "yes | rm $directory/track_$i.raw 2>/dev/tty4 1>/dev/
+tty4";
        system `$line`;
        system ($lame.$clean);
        $p2 = $i - $Start+1;
        $p3 = $p2/$p1;
        $p3 *= 100;
        $p4 = sprintf("%.2f", $p3);
        print("\r$p2 Track".(int($p2)==1?"":"s")." Done. ($p4%)");
        select((select( STDOUT ), $| = 1)[0]);
    }
    print "\n";
}

#########################################
# Function -    ripping
# Date -        Saturday, September 07, 2002
# Input -        Scalar with a device
# ReturnVal -    none
# Description -    First this function asks
#                 which disk you are working
#                 on, then if the directory
#                 for that disk already exists
#                 confirm we want to run, or
#                 make the directory if it
#                 doesn't exist.  Finally
#                 we start ripping the cd
#########################################
sub ripping {
    my $Title  = shift;
    my $Device = shift;
    my $Disc   = prompt2("Disc Number?: ");
    @main::alpha = ('AA' .. 'BZ');
    unshift @main::alpha, "00";
    
    my $directory = $main::alpha[$Disc];
    if(-d $directory){
        exit unless prompt("Directory Exists, Replace? (Y|N): ");
    }else{
        system("mkdir $directory");
    }
    ripIt($directory,$Device,$Title,$Disc,1);
    system("eject $Device");
}


#########################################
# Function -    prompt4
# Date -        Saturday, September 07, 2002
# Input -        String to print to the user
# ReturnVal -    If the user hit q for quit
# Description -    Checks to see if we are ready
#                 to quit.
#########################################
sub prompt4 {
    my $msg = shift;
    print $msg;
    my $rsp = <STDIN>;
    $rsp =~/^q/i;
}

#########################################
# Function -    prompt3
# Date -        Saturday, September 07, 2002
# Input -        String to print to the user
# ReturnVal -    Scalar w/ the user's response
# Description -    Used in picking the device
#########################################
sub prompt3 {
    my $msg = shift;
    print $msg;
    my $rsp = <STDIN>;
    return $rsp;
}

my @dev = ("/dev/cdrom","/dev/cdrom1","/dev/cdrom2");
my $title  = prompt3("Title of this Book: ");
chomp $title;
my $device = "/dev/cdrom" . prompt2("Device: /dev/cdrom");
chomp $device;

# The loop for ripping
do {
    system("eject -t $device");
    ripping($title, $device);
}while(! prompt4("Hit Enter to continue, or q to quit. "));