CDDB_get

CDDB_get(3)           User Contributed Perl Documentation          CDDB_get(3)



NAME
       CDDB - Read the CDDB entry for an audio CD in your drive

SYNOPSIS
        use CDDB_get qw( get_cddb );

        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

        print "artist: $cd{artist}\n";
        print "title: $cd{title}\n";
        print "category: $cd{cat}\n";
        print "cddbid: $cd{id}\n";
        print "trackno: $cd{tno}\n";

        my $n=1;
        foreach my $i ( @{$cd{track}} ) {
          print "track $n: $i\n";
          $n++;
        }


DESCRIPTION
       This module/script gets the CDDB info for an audio cd. You need LINUX,
       SUNOS or NETBSD, 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) 2001 Armin Obersteiner <armin(at)xos(dot)net>

SEE ALSO
       perl(1), Linux: <file:/usr/include/linux/cdrom.h>, Solaris:
       <file:/usr/include/sys/cdio.h>.












3rd Berkeley Distribution    perl 5.005, patch 03                  CDDB_get(3)