my $_cnt = 0;

# open our filehandle...
open(READFILE, "<amazon_$file.db") || die "Cant open amazon_$file.db. Reason: $!";
while (<READFILE>) {

$_cnt++;

my ($prod_id,$brand,$title,$price,$short_desc,$page_url,$image_url,$category,$amazon_review,$format) = split /:\@:/, $_;

# no point in doing any more processing, as it looks like it already exists in the DB :)
if ($DB->table('Links')->count( { ImageURL => $image_url, Title => $title, BuyURL => $page_url } )) {
$DEBUG? print "$_cnt: Skipping $title \n" : '';
next;
}

# passed in as;
# $prod_id = SKU
# $brand = Manufacturer
# $title = Title
# $price = Price
# $short_desc = Description
# $page_url = BuyURL
# $image_url = ImageURL
# $category = CatLinks.CategoryID & AdvertiserCategory
# $amazon_review = PromotionalText
# $format = Format

my $category_id = $DB->table('Category')->select( ['ID'], { Full_Name => $category } )->fetchrow;

if ($category_id !~ /\d/) {
print "$_cnt: No category ID for \"$title\" ($category) \n";
next;
}

my $add;
$add->{SKU} = $prod_id;
$add->{Manufacturer} = $brand;
$add->{Title} = $title;
$add->{Price} = $price;
$add->{Description} = $short_desc;
$add->{BuyURL} = $page_url;
$add->{ImageURL} = $image_url;
$add->{'CatLinks.CategoryID'} = $category_id;
$add->{Format} = $format;

$add->{Add_Date} = GT::Date::date_get();
$add->{Mod_Date} = $add->{Add_Date};



$add->{TimeStmp} ||= "NOW()";
$add->{Hits} ||= "0";
$add->{URL} ||= "http://";
$add->{Rating} ||= "0";
$add->{Votes} ||= "0";
$add->{Status} ||= "200";
$add->{LinkOwner} ||= "amazon";
$add->{Contact_Name} ||= "Me";
$add->{Contact_Email}||= 'Me@foobar.foo';
$add->{isNew} ||= "Yes";
$add->{isPopular} ||= "No";
$add->{isChanged} ||= "No";
$add->{isValidated} ||= "Yes";

# no need to recheck if it exists, as we do this further up :)
$DB->table('Links')->add($add) || die $GT::SQL::error;
$DEBUG ? print "$_cnt: Added \"$title\" to \"$category\"\n" : '';

}
close(READFILE);