Skip site navigation (1)Skip section navigation (2)
Date:      Fri, 16 May 2003 06:09:26 -0700
From:      Tim Pozar <pozar@lns.com>
To:        "Wilkinson,Alex" <Alex.Wilkinson@dsto.defence.gov.au>
Cc:        multimedia@freebsd.org
Subject:   Re: ripit.pl
Message-ID:  <20030516060926.A91911@lns.com>
In-Reply-To: <20030516165559.D89556@squirm.dsto.defence.gov.au>; 04:58:42PM %2B0930
References:  <20030516165559.D89556@squirm.dsto.defence.gov.au>

next in thread | previous in thread | raw e-mail | index | archive | help
On Fri, May 16, 2003 at 04:58:42PM +0930, Wilkinson,Alex wrote:
> Can anyone recommend a cdda->mp3 ripper that can access:
> 
> freedb.freedb.org:8880
> 
> ripit.pl doesn't seem to have the smarts to do this.

I have one I wrote that is pretty ugly but it works....

Tim
--
#!/usr/local/bin/perl

# LNSRIP uses "dagrab" for rip the CDDA data and "gogo" for the
# MP3 encoding.  It can use either "mp3info" or "id3ren" to write
# the ID3 tags in the MP3 files.  It also makes the assumption that 
# you have a working net connection up as it queries the CDDB server
# to get artist, album and track titles.

$prognam = "LNSRIP 1.0";
$comment = "via " . $prognam;	# Good to put in the ID3 comment field to 
				# track problems.
$log = ">>/tmp/lnsrip.log";

$i = 0;
$tracknum = 0;
$starttrack = 0;
$endtrack = 0;
$cddb_inet = 1;

while ($_ = $ARGV[0], /^-/) {
        shift;
        last if /^--$/;
	if(/-l/)	{ $cddb_inet = 0; }
        if (/^-D(.*)/)	{ $debug = $1; }
        if (/^-s(.*)/)	{ $starttrack = $1; }
        if (/^-e(.*)/)	{ $endtrack = $1; }
        if (/^-v/)	{ $verbose++; }
}     

# Get the track list.
# dagrab will return something like... (we hope)
# --
# dagrab -d /dev/cdrom -i -C -H ca.us.cddb.com -P 8880
# dagrab: cddb inexact matches found, picking first
# 
# DISK: The Beatles / Help!
# 
# track    start   length  type  duration   MB Title
#     1      183    10580 audio  00:02:21   23 Help!
#     2    10763    11752 audio  00:02:36   26 The Night Before
# [...]
#    14   141685    13069 audio  00:02:54   29 Dizzy Miss Lizzie
#  170   154754        - leadout
# 
# CDDB DISCID: a9080c0e
# --
# CDDB will return the album titles, artist and song titles.
# CDDB sites you can use...
# CDDB Protocol Server Sites 
# Site			IP Port Location 
# us.cddb.com		8880	Random, US
# in.us.cddb.com	8880	Carmel, IN US
# ca.us.cddb.com	8880	Berkeley, CA US
#
# In our case we are using freedb.freedb.org:8880
#
# We need to grab the album and artist's name and each track name.
# Song names we stick into an array...

if($cddb_inet){
	open(TRACKLIST, "dagrab -d /dev/cdrom -i -C -H freedb.freedb.org -P 8880 |");
} else {
	open(TRACKLIST, "dagrab -d /dev/cdrom -i |");
}
while(<TRACKLIST>){
	s/^\s*(.*?)\s*$/$1/;	# strip any spaces from the front.
	tr/ //s;		# compress any spaces.

	if(m/DISK:/){		# Get the album and artist name.
		($foo1,$foo2) = split(/:/);
		($artist,$album) = split(/\//,$foo2);

		$_ = $artist;
		s/^\s*(.*?)\s*$/$1/; 
		s/\"/_/g;
		tr/\"/_/;	# Strip funny chars that will  screw us up later.
		tr/\`//;
		tr/\;//;
		tr/\!//;
		$artist = $_;		# This is the final name for the
					# ID3 tag
		s/\&/and/g; 
		tr/\'/_/;
		tr/\,/_/;
		tr/\./_/;
		tr/(/_/;
		tr/)/_/;
		tr/\/ /_/s;		# Convert spaces to underscores for...
		$artist_fn = $_;	# the file name.

		$_ = $album;
		s/^\s*(.*?)\s*$/$1/; 
		s/\"/_/g;
		tr/\"//;
		tr/\'//;
		tr/\`//;
		tr/\;//;
		tr/\!//;
		$album = $_;
		s/\&/and/g; 
		tr/\'/_/;
		tr/\,/_/;
		tr/\./_/;
		tr/(/_/;
		tr/)/_/;
		tr/\/ /_/s;
		$album_fn = $_;
	}
	if(m/audio/){		# Get the song names...
		$i++;
		($tracknum[$i],$start[$i],$stop[$i],$type[$i],$duration[$i],$mb[$i],$song[$i]) = split(/ /, $_, 7);
		$_ = $song[$i];
		s/^\s*(.*?)\s*$/$1/; 
		s/\"/_/g;
		tr/\"//;
		tr/\`//;
		tr/\'//;
		tr/\;//;
		tr/\!//;
		$song[$i] = $_;
		s/\&/and/g; 
		tr/\'/_/;
		tr/\,/_/;
		tr/\./_/;
		tr/(/_/;
		tr/)/_/;
		tr/\/ /_/s;
		$song_fn[$i] = $_;
	}
}

$totaltracks = $i;

if(($artist ne "") && ($album eq "")){
	$album = $artist;	# Just in case...
}

print "Artist = $artist\n";
print "Album = $album\n";
print "Totaltracks = $totaltracks\n";
open(LOG,$log);
print LOG "Artist = $artist\n";
print LOG "Album = $album\n";
print LOG "Totaltracks = $totaltracks\n";
close(LOG);

if(($artist eq "")&&($album eq "")){	# Couldn't get cddb data...
	print ("Couldn't get cddb data for this CD.\n");
}

if($starttrack > 0){
	$starttrack--;
	$tracknum = $starttrack;
}
if($endtrack > 0){
	$totaltracks = $endtrack;
}

while ($tracknum != $totaltracks){
	$tracknum++;
	print "Ripping track $tracknum = \"$song[$tracknum]\"...\n";
	open(LOG,"$log");
	print LOG "Ripping track $tracknum = \"$song[$tracknum]\"...\n";
	close(LOG);

	if(($artist eq "")&&($album eq "")){	# Couldn't get cddb data...
		if ($tracknum < 10){
			$filename = "0$tracknum-track";
		} else {
			$filename = "$tracknum-track";
		}
		print ("Writing track $tracknum filename \"$filename.wav\".\n");
		$result = `dagrab -d /dev/cdrom -v -f $filename.wav $tracknum $log`;
		$result = `gogo $filename.wav $log`;
		print ("Removing \"$filename.wav\".\n");
		if (unlink("$filename.wav") < 1) {
			print("Troubles removing \"$filename.wav\".\n");
			`rm $filename.wav`;	# lets try this...
		}
	} else {
		if ($tracknum < 10){
			$filename = "$artist_fn-$album_fn-0$tracknum-$song_fn[$tracknum]";
		} else {
			$filename = "$artist_fn-$album_fn-$tracknum-$song_fn[$tracknum]";
		}
		$_ = $filename;
		tr [\200-\377] [\000-\177]; 	# delete 8th bit
		tr/_//s;
		$filename = $_;

		print ("Writing track $tracknum filename \"$filename.wav\".\n");
		$result = `dagrab -d /dev/cdrom -v -f $filename.wav -C -H ca.us.cddb.com -P 8880 $tracknum $log`;
		print ("Encoding \"$filename.wav\" -> mp3.\n");
		$result = `gogo $filename.wav $log`;
		print ("Removing \"$filename.wav\".\n");
		if (unlink($filename.wav) < 1) {
			print("Troubles removing \"$filename.wav\".\n");
			`rm $filename.wav`;	# lets try this...
		}
		print ("Tagging \"$filename.mp3\" with Album = \"$album\", Artist = \"$artist\", Song = \"$song[$tracknum]\".\n");
		$result = `mp3info -t \"$song[$tracknum]\" -a \"$artist\" -l \"$album\" -c \"$comment\" $filename.mp3 $log`;
		# $result = `id3ren -song \"$song[$tracknum]\" -artist \"$artist\" -album \"$album\" -verbose -tag $filename.mp3 $log`;
	}
}



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20030516060926.A91911>