#!/usr/bin/perl

use strict;
use DBI;

# Open the database
#my $db = DBI->connect("DBI:CSV:f_dir=db/");
my $db = DBI->connect('DBI:mysql:database=links', 'root', 'Timex42');


$db->do("CREATE TABLE link (
    id INTEGER,
    url CHAR(128),
    name CHAR(40),
    description varchar(255)
  )");

$db->do("CREATE TABLE category (
    id INTEGER,
    name CHAR(40),
    description varchar(255)
  )");

$db->do("CREATE TABLE link_to_category (
    category_id INTEGER,
    link_id INTEGER
  )");