#!/usr/local/bin/perl

use strict;
use lib '/var/home/slowtwitch/slowtwitch.com/cgi-bin/articles/admin';
use Links qw/:objects/;

$| = 1;
local $SIG{__DIE__} = \&Links::fatal;
Links::init('/var/home/slowtwitch/slowtwitch.com/cgi-bin/articles/admin');
Links::init_admin();

main();

sub main {
# ------------------------------------------------------------------
# Main admin loop, displays html pages and other admin tasks.
#
    my $c = $DB->creator('ClickTrack_Custom');
    $c->cols( {
        click_id => { pos => 1, type => 'INT', not_null => 1 },
        click_date => { pos => 2, type => 'Date', not_null => 1 },
        click_linkid => { pos => 3, type => 'INT', not_null => 1 },
    });
    $c->pk('click_id');
    $c->ai('click_id');
    $c->fk( { 
        'Links' => { click_linkid => 'ID' }
    });
    my $res = $c->create();

}