# ------------ report page -------------------

}
print FILE qq~</table></body></html>~;
close FILE; #
# -------------- -----------------
}
print "\nBad Link Summary\n-----------------------------------------------\n";
my $numlist = 0;
foreach $url (sort { $code{$b} <=> $code{$a} } keys %code) {
$code = $code{$url};
$msg = $msg{$url};
$id = $urls{$url};
$numlist++;
$use_html ?
print qq~$numlist. $id - <a href="$url" target="_blank">$url</a> <font size=-1>[<a href="$db_script_url?db=links&modify_form=1&$db_key=$id&ww=1" target="_blank">modify</a>|<a href="$db_script_url?db=links&delete_form=1&$db_key=$id&ww=1" target="_blank">delete</a>]</font> : $code - $msg\n~:
print qq~$numlist. $id - $url : $code - $msg\n~;
$badcount++;
}