NAME
CDDB - Read the CDDB entry for an audio CD in your drive
SYNOPSIS
my
%config
;
# following variables just need to be declared if different from defaults
$config
{CDDB_HOST}=
"freedb.freedb.org"
;
# set cddb host
$config
{CDDB_PORT}=8880;
# set cddb port
$config
{CDDB_MODE}=
"cddb"
;
# set cddb mode: cddb or http
$config
{CD_DEVICE}=
"/dev/cdrom"
;
# set cd device
# user interaction welcome?
$config
{input}=1;
# 1: ask user if more than one possibility
# 0: no user interaction
# get it on
my
%cd
=get_cddb(\
%config
);
unless
(
defined
$cd
{title}) {
die
"no cddb entry found"
;
}
# do somthing with the results
"artist: $cd{artist}\n"
;
"title: $cd{title}\n"
;
"category: $cd{cat}\n"
;
"cddbid: $cd{id}\n"
;
"trackno: $cd{tno}\n"
;
my
$n
=1;
foreach
my
$i
( @{
$cd
{track}} ) {
"track $n: $i\n"
;
$n
++;
}
DESCRIPTION
This module/script gets the CDDB info for an audio cd. You need LINUX, SUNOS or *BSD, a cdrom drive and an active internet connection in order to do that.
INSTALLATION
Run "perl Makefile.pl" as usual. ("make", "make install" next)
LICENSE & DISCLAIMER
This library is released under the same conditions as Perl, that is, either of the following:
a) the GNU General Public License Version 2 as published by the Free Software Foundation,
b) the Artistic License.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details.
You should have received a copy of the Artistic License with this Kit, in the file named "Artistic". If not, I'll be glad to provide one.
You should also have received a copy of the GNU General Public License along with this program, in the file names "Copying"; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
If you use this library in a commercial enterprise, you are invited, but not required, to pay what you feel is a reasonable fee to the author, who can be contacted at armin@xos.net
AUTHOR & COPYRIGHT
(c) 2003 Armin Obersteiner <armin(at)xos(dot)net>
SEE ALSO
perl(1), Linux: /usr/include/linux/cdrom.h, Solaris, *BSD: /usr/include/sys/cdio.h.