#!/usr/bin/perl

use strict;
use lib './admin';
use GT::Base;
use GT::Plugins qw/STOP CONTINUE/;
use Links qw/$CFG $IN $DB/;
use Links::Plugins;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
use GT::Date;

Links::init('./admin');

my $sth = $DB->table('CatLinks')->select;

print qq|Title Cat_Full_Name URL Description\n|;
while (my $hit = $sth->fetchrow_hashref) {

my $link = $DB->table('Links')->select( { ID => $hit->{LinkID} } )->fetchrow_hashref;
my $cat = $DB->table('Category')->select( { ID => $hit->{CategoryID} } )->fetchrow_hashref;

print qq|$link->{Title} $cat->{Full_Name} $hit->{URL} $hit->{Description}\n|;

}