#!/usr/bin/perl

# Copyright (c) 2000 Kveton.com
# All rights reserved.

# $Id: create_genre,v 1.2 2001/07/23 05:37:05 scott Exp $
# $Source: /data/cvsroot/www/tunes/bin/create_genre,v $

# Create the genres in the database for ease of use

use DBI;

# User, pass and database names
my $user = 'musac';
my $pass = '<your password here>';
my $db_name = 'music';
my $db_host = 'db.kveton.com';

$dbh = DBI->connect("dbi:mysql:database=$db_name;host=$db_host;port=3306", $user, $pass);
my $sql = qq{INSERT INTO genre (id,name) VALUES (?,?)};
my $sth = $dbh->prepare($sql);

open(GENRE, "< genres.txt");

while ( $line = <GENRE> ) {
  my ($id, $name) = split(/\./, $line);
  print "$id : $name\n";
  $sth->execute($id, $name);
}

1;
