#!/usr/bin/perl -w

#this nibble of perl makes CDs..

use strict;

die "usage: <speed> <z-paranoid off>" unless (@ARGV == 1 or 2);

#my $dev = shift;
#my $type = shift;
my $speed = shift;
my $paroff = shift;

# Open Info
print "Audio Clone Software: For Audio CD's Only (That you own)\nXXX Music will rip faster. This software is for making\nBackups for your large cd collections, so that when 'we'\nBreak in to your car and rip you off that you will still\nhave the originals in your house stored safley away.\n(we dose not imply 'us')\n";
# Loop Mode GRIN
my $a = "";
until ($a) {
#insert CD
#system "eject /dev/scd0";
beep();
print "Insert a CD (to rip) you lazy jackass, then hit enter";
my $unused = <STDIN>;

#read CD to file

print "What is the name of the CD (That you own): ";
my $name = <STDIN>;
chomp $name;
if ($paroff eq "z") {
system "cdparanoia -d /dev/scd0 1- data.wav";}
unless ($paroff) {
system "cdparanoia -Z -d /dev/scd0 1- data.wav";}

#make TOC from CD

system "cdrdao read-toc --device 0,0,0 --driver generic-mmc --fast-toc \'$name.toc\'";

#eject CD

print "put in a blank CD-R, then hit enter: JackASS!";
system "eject /dev/scd0";
beep();
$unused = <STDIN>;

#write TOC

system "cdrdao write --device 0,0,0 --driver generic-mmc --speed $speed --eject \'$name.toc\'";

# Another

beep();
print "Want to stroke it again? (y/n) ";
die if ( ($unused = <STDIN>) eq "n\n" );


}

sub beep {
system "echo ";

}