#!/usr/bin/perl

use strict;
use lib './';
use Links qw/$IN $DB $CFG/;
use Links::SiteHTML;
use GT::CGI;
use CGI::Carp qw(fatalsToBrowser);

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

Links::init('./');

my $fields = q~Title|URL|Description|Hits|Votes~;
my $sth = $DB->table('Links')->select();
my @fields = split /|/, $fields;

open(WRITEIT,">myoutput.txt") || die $!;

print WRITEIT "$fields\n";
while (my $hit = $sth->fetchrow_hashref) {
my $back = '';
print "Writing link: $hit->{Title} \n";
foreach (@fields) {
print WRITEIT $hit->{$_} . "|";
}
}

close(WRITEIT);


print qq|\n\nDone :)|;