I've just thrown together a little mod that will hopefully help reduce the number of deadlinks added to your database. It may have been done before but here it is anyway....
At the top of add.cgi add.....
use LWP::Simple;
under....
$status = &validate_record(%in);
if ($status eq "ok") {...add.....
my $val = get($check);
$val or &site_html_add_failure("Could not connect to $check - seems to be inactive") and return;Thats all there is to it!
Paul
Installations:http://wiredon.net/gt/
Support: http://wiredon.net/forum/
At the top of add.cgi add.....
use LWP::Simple;
under....
Code:
# Validate the form input.. $status = &validate_record(%in);
if ($status eq "ok") {
Code:
my $check = $in{'URL'}; my $val = get($check);
$val or &site_html_add_failure("Could not connect to $check - seems to be inactive") and return;
Paul
Installations:http://wiredon.net/gt/
Support: http://wiredon.net/forum/