# see if it exists, and if so, show a WARNING!
my $db_con = $DB->table("Links");
my $chk_dup = $db_con->count ( { URL => $_ } );
if ($chk_dup) {
$status = "<font color=red>WARNING: Link already exists!</font>";
} else {
$status = "<font color=blue>Ok....couldn't find in database...</font>";
}

my $db_con = $DB->table("Links");

my $url = $_;
my $url2 = $_;
$url2 =~ s/www\.//i;
my $url3 = $_;
$url3 =~ s,/$,,;

my $cond1 = GT::SQL::Condition->new('URL','LIKE',"$url%");
my $chk_dup1 = $db_con->count ( $cond1 );
my $cond2 = GT::SQL::Condition->new('URL','LIKE',"$url2%");
my $chk_dup2 = $db_con->count ( $cond2 );
my $cond2 = GT::SQL::Condition->new('URL','LIKE',"$url3%");
my $chk_dup3 = $db_con->count ( $cond3 );

# see if it exists, and if so, show a WARNING!
if ($chk_dup1 || $chk_dup2 || $chk_dup3) {
$status = "<font color=red>WARNING: Link already exists!</font>";
} else {
$status = "<font color=blue>Ok....couldn't find in database...</font>";
}

use CGI::Carp qw(fatalsToBrowser);

use GT::SQL::Condition;