#!/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/track_$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. "));