#!/usr/bin/perl

use strict;
use lib './';
use Links qw/$IN $DB $CFG/;

local $SIG{__DIE__} = \&Links::fatal;

Links::init('./');

my $DEBUG = 1;

# first of all, lets actually get rid of all the categories...
my @id_list;
my $table = $DB->table('CatLinks');

my $sth = $table->select() || die $GT::SQL::error;

while (my $hit = $sth->fetchrow_hashref) {
if ($DB->table('Category')->count( { ID => $hit->{CategoryID} } ) < 1) {
print "Category ID $hit->{CategoryID} doesn't seem to exist... \n";
}
}

print "Finished .... ";