cddb-collection.pl

#!/usr/bin/perl -w
#
# cddb_add_db.pl
#
# Adds the specified CDDB to the database as "owned"


use strict ;
use CGI '-utf8';
use DBI ;
use Config::Simple ;

use Cddb ;

sub insert_cddb {
    my($dbh, $artist, $title, $cddb_id) = @_ ;

    my $sql_statement = "INSERT INTO `T_CDs` (`CD_Artist`, `CD_Title`, `CD_ID`) VALUES (?, ?, ?)" ;
    my $sth = $dbh->prepare($sql_statement) ;
    $sth->execute($artist, $title, $cddb_id) ;
}

####################################
## main starts here
##
## If it runs successfully, there is no HTML output from this script, it only redirects
## back to the referer

## globals

my $cfg = new Config::Simple('.cddbrc') ;
my $cddb_dir = $cfg->param('cddb_dir') ;

my $cgi = new CGI ;
$cgi->charset('utf-8') ;

my $cddb_genre_and_id = $cgi->param('cddb') ;
#my $artist  = $cgi->param('artist') ;
#my $title   = $cgi->param('title') ;

my $dbh = setup_mysql($cfg) ;

my $cddb_id = $cddb_genre_and_id ;
$cddb_id =~ s|.+/|| ;

my($artist, $title) = artist_and_title("${cddb_dir}/${cddb_genre_and_id}") ;

insert_cddb($dbh, $artist, $title, $cddb_id) ;

exit print $cgi->redirect($cgi->referer());

###########
my $doc_title = "CDDB Database Add" ;

print $cgi->header ;
print $cgi->start_html(-title=>$doc_title,
			 -style=>'../css/cddb.css',
			) ;

print $cgi->h1("Something didn't work") ;

$cgi->end_html ;


## end of main
####################################