#!/usr/bin/perl
# -------------------------------------------
# Change next line to full path to links.cfg if you have problems.
require "../links.cfg";
require "$db_lib_path/db_utils.pl";
require "$db_lib_path/links.def";

$ENV{'REQUEST_METHOD'} and (print "Content-type: text/plain\n\n");
$found = 0;
open (DB, "<$db_links_name")
or print "Unable to open links database 'links.db'. Reason: $!\n" and exit;
LINE: while (<DB> )
{
/^#/ and next LINE; # Skip comment Lines.
/^\s*$/ and next LINE; # Skip blank lines.
chomp; # Remove trailing new line.
@rec = &split_decode($_);
if ($rec[$db_url] !~ 'http://') {
print "Record $rec[$db_key] contains an invalid URL\n";
$found = 1;
}
}
close DB;
if (!$found) {
print "No bad URLs found.\n";
# ---------------------------------------------

if (!$found) {
print "No bad URLs found.\n";
}