.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.43)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{\
.    if \nF \{\
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{\
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\" ========================================================================
.\"
.IX Title "CDDB_get 3pm"
.TH CDDB_get 3pm "2022-12-06" "perl v5.36.0" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
CDDB \- Read the CDDB entry for an audio CD in your drive
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\& use CDDB_get qw( get_cddb );
\&
\& my %config;
\&
\& # following variables just need to be declared if different from defaults
\&
\& $config{CDDB_HOST}="gnudb.gnudb.org";          # set cddb host
\& $config{CDDB_PORT}=80;                 # set cddb port
\& $config{CDDB_MODE}="http";                     # 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(\e%config);
\&
\& unless(defined $cd{title}) {
\&   die "no cddb entry found";
\& }
\&
\& # do something with the results
\&
\& print "artist: $cd{artist}\en";
\& print "title: $cd{title}\en";
\& print "category: $cd{cat}\en";
\& print "cddbid: $cd{id}\en";
\& print "trackno: $cd{tno}\en";
\&
\& my $n=1;
\& foreach my $i ( @{$cd{track}} ) {
\&   print "track $n: $i\en";
\&   $n++;
\& }
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
This module/script gets the \s-1CDDB\s0 info for an audio cd. You need
\&\s-1LINUX, SUNOS\s0 or *BSD, a cdrom drive and an active internet connection 
in order to do that.
.SH "INSTALLATION"
.IX Header "INSTALLATION"
Run \*(L"perl Makefile.pl\*(R" as usual. (\*(L"make\*(R", \*(L"make install\*(R" next)
.SH "LICENSE & DISCLAIMER"
.IX Header "LICENSE & DISCLAIMER"
This library is released under the same conditions as Perl, that
is, either of the following:
.PP
a) the \s-1GNU\s0 General Public License Version 2 as published by the 
Free Software Foundation,
.PP
b) the Artistic License.
.PP
This program is distributed in the hope that it will be useful,
but \s-1WITHOUT ANY WARRANTY\s0; without even the implied warranty of
\&\s-1MERCHANTABILITY\s0 or \s-1FITNESS FOR A PARTICULAR PURPOSE.\s0  See either
the \s-1GNU\s0 General Public License or the Artistic License for more details.
.PP
You should have received a copy of the Artistic License with this
Kit, in the file named \*(L"Artistic\*(R".  If not, I'll be glad to provide one.
.PP
You should also have received a copy of the \s-1GNU\s0 General Public License
along with this program, in the file names \*(L"Copying\*(R"; if not, write to 
the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, 
\&\s-1MA 02111\-1307, USA.\s0
.PP
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
.SH "AUTHOR & COPYRIGHT"
.IX Header "AUTHOR & COPYRIGHT"
(c) 2003 Armin Obersteiner <armin(at)xos(dot)net>
.SH "SEE ALSO"
.IX Header "SEE ALSO"
\&\fBperl\fR\|(1), Linux: \fI/usr/include/linux/cdrom.h\fR, 
Solaris, *BSD: \fI/usr/include/sys/cdio.h\fR.