I have Installed new LINK DEAD MOD
But when I klicked Report a deadlink link I get this error
CGI ERROR
==========================================
Error Message : fatal error: Undefined subroutine &main::site_html_deadlink_mail called at linkdead.cgi line 93.
Script Location : linkdead.cgi
Perl Version : 5.00503
Form Variables
-------------------------------------------
Environment Variables
-------------------------------------------
DOCUMENT_ROOT : /web/sites/155/laksearch/www.laksearch.f2s.com
GATEWAY_INTERFACE : CGI/1.1
HTTP_ACCEPT : image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-comet, application/pdf, */*
HTTP_ACCEPT_ENCODING: gzip, deflate
HTTP_ACCEPT_LANGUAGE: en-us
HTTP_CONNECTION : Keep-Alive
HTTP_HOST : www.laksearch.f2s.com
HTTP_REFERER : http://www.laksearch.f2s.com/cgi-bin/search.cgi?query=web
HTTP_USER_AGENT : Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
PATH : /usr/local/bin:/usr/bin:/bin
QUERY_STRING : ID=25&URL=http://mackstation.gq.nu&Title=MACKstation&Category=Information/Sri_lanka
REMOTE_ADDR : 202.21.35.236
REMOTE_HOST : modem36.bayrac.eureka.lk
REMOTE_PORT : 4010
REQUEST_METHOD : GET
REQUEST_URI : /cgi-bin/linkdead.cgi?ID=25&URL=http://mackstation.gq.nu&Title=MACKstation&Category=Information/Sri_lanka
SCRIPT_FILENAME : /web/sites/155/laksearch/www.laksearch.f2s.com/cgi-bin/linkdead.cgi
SCRIPT_NAME : /cgi-bin/linkdead.cgi
SERVER_ADDR : 194.106.33.35
SERVER_ADMIN : support@freedom2surf.net
SERVER_NAME : www.laksearch.f2s.com
SERVER_PORT : 80
SERVER_PROTOCOL : HTTP/1.1
SERVER_SOFTWARE : Apache/1.3.12 (Unix)
Here Is My linkdead.cgi Please check it, I dont know where is this error So please check this.
#!/usr/bin/perl
# -------------
# Links
# -------------
# Links Manager
#
# File: linkdead.cgi
# Notifies the webmaster of a deadlink
# Author: Glenn Utteridge
# Based on and designed to be used with
#Links 2 by: Alex Krohn
# Email: alex@gossamer-threads.com
# Web: http://www.gossamer-threads.com/
# Version: 2.0
#
# (c) 1998 Gossamer Threads Inc.
#
# This script is not freeware! Please read the README for full details
# on registration and terms of use.
# =====================================================================
#
#
# Setup:
# Make sure the require statement below points to the config file.
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1"); # Get the script location: UNIX /
($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # Get the script location: Windows \
require "/web/sites/155/laksearch/www.laksearch.f2s.com/cgi-bin/admin/links.cfg"; # Change this to full path to links.cfg if you have problems.
require "$db_lib_path/db_utils.pl";
require "$db_lib_path/links.def";
$build_use_templates ?
require "$db_lib_path/site_html_templates.pl" :
require "$db_lib_path/site_html.pl";
};
if ($@) {
print "Content-type: text/plain\n\n";
print "Error including libraries: $@\n";
print "Make sure they exist, permissions are set properly, and paths are set correctly.";
exit;
}
# ========================================================
eval { &main; }; # Trap any fatal errors so the program hopefully
if ($@) { &cgierr("fatal error: $@"); } # never produces that nasty 500 server error page.
exit; # There are only two exit calls in the script, here and in in &cgierr.
sub main {
# --------------------------------------------------------
# Sends an email to the admin, letting him know that there is a dead link.
my %in = &parse_form();
# Check to make sure that there is an admin email address defined.
$db_admin_email or &cgierr("Admin Email Address Not Defined in config file!");
my $to = $db_admin_email;
my $from = $in{$db_cols[$db_contact_email]};
my $subject = "Deadlink ID number: $in{'ID'}\n";
my $msg = qq|
The following link is reported to be dead:
ID number: $in{'ID'}
Site title: $in{'Title'}
Site URL: $in{'URL'}
Category: $in{'Category'}
To check the link, please go to:
$db_cgi_url/jump.cgi?ID=$in{'ID'}
Or to delete the link please go to:
$db_cgi_url/$db_script_path/admin.cgi?db=links&ID=$in{'ID'}&Title=&URL=&Date=&Category=---&Description=&Contact+Name=&Contact+Email=&Hits=&isNew=---&isPopular=---&Rating=&Votes=&ReceiveMail=---&Graphic=&Gwidth=&Gheight=&Priority=---&Password=&MonthHits=&isMonthPopular=---&DateAdded=&keyword=&mh=10&sb=---&so=ascend&delete_form=Search&delete=$in{'ID'}
Sincerely,
Visitor.
|;
# Then mail it away!
require "$db_lib_path/Mailer.pm";
my $mailer = new Mailer ( { smtp => $db_smtp_server,
sendmail => $db_mail_path,
from => $from,
subject => $subject,
to => $to,
msg => $msg,
log => $db_mailer_log
} ) or return;
$mailer->send or return;
print &site_html_deadlink_mail;
}
But when I klicked Report a deadlink link I get this error
CGI ERROR
==========================================
Error Message : fatal error: Undefined subroutine &main::site_html_deadlink_mail called at linkdead.cgi line 93.
Script Location : linkdead.cgi
Perl Version : 5.00503
Form Variables
-------------------------------------------
Environment Variables
-------------------------------------------
DOCUMENT_ROOT : /web/sites/155/laksearch/www.laksearch.f2s.com
GATEWAY_INTERFACE : CGI/1.1
HTTP_ACCEPT : image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-comet, application/pdf, */*
HTTP_ACCEPT_ENCODING: gzip, deflate
HTTP_ACCEPT_LANGUAGE: en-us
HTTP_CONNECTION : Keep-Alive
HTTP_HOST : www.laksearch.f2s.com
HTTP_REFERER : http://www.laksearch.f2s.com/cgi-bin/search.cgi?query=web
HTTP_USER_AGENT : Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
PATH : /usr/local/bin:/usr/bin:/bin
QUERY_STRING : ID=25&URL=http://mackstation.gq.nu&Title=MACKstation&Category=Information/Sri_lanka
REMOTE_ADDR : 202.21.35.236
REMOTE_HOST : modem36.bayrac.eureka.lk
REMOTE_PORT : 4010
REQUEST_METHOD : GET
REQUEST_URI : /cgi-bin/linkdead.cgi?ID=25&URL=http://mackstation.gq.nu&Title=MACKstation&Category=Information/Sri_lanka
SCRIPT_FILENAME : /web/sites/155/laksearch/www.laksearch.f2s.com/cgi-bin/linkdead.cgi
SCRIPT_NAME : /cgi-bin/linkdead.cgi
SERVER_ADDR : 194.106.33.35
SERVER_ADMIN : support@freedom2surf.net
SERVER_NAME : www.laksearch.f2s.com
SERVER_PORT : 80
SERVER_PROTOCOL : HTTP/1.1
SERVER_SOFTWARE : Apache/1.3.12 (Unix)
Here Is My linkdead.cgi Please check it, I dont know where is this error So please check this.
#!/usr/bin/perl
# -------------
# Links
# -------------
# Links Manager
#
# File: linkdead.cgi
# Notifies the webmaster of a deadlink
# Author: Glenn Utteridge
# Based on and designed to be used with
#Links 2 by: Alex Krohn
# Email: alex@gossamer-threads.com
# Web: http://www.gossamer-threads.com/
# Version: 2.0
#
# (c) 1998 Gossamer Threads Inc.
#
# This script is not freeware! Please read the README for full details
# on registration and terms of use.
# =====================================================================
#
#
# Setup:
# Make sure the require statement below points to the config file.
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1"); # Get the script location: UNIX /
($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # Get the script location: Windows \
require "/web/sites/155/laksearch/www.laksearch.f2s.com/cgi-bin/admin/links.cfg"; # Change this to full path to links.cfg if you have problems.
require "$db_lib_path/db_utils.pl";
require "$db_lib_path/links.def";
$build_use_templates ?
require "$db_lib_path/site_html_templates.pl" :
require "$db_lib_path/site_html.pl";
};
if ($@) {
print "Content-type: text/plain\n\n";
print "Error including libraries: $@\n";
print "Make sure they exist, permissions are set properly, and paths are set correctly.";
exit;
}
# ========================================================
eval { &main; }; # Trap any fatal errors so the program hopefully
if ($@) { &cgierr("fatal error: $@"); } # never produces that nasty 500 server error page.
exit; # There are only two exit calls in the script, here and in in &cgierr.
sub main {
# --------------------------------------------------------
# Sends an email to the admin, letting him know that there is a dead link.
my %in = &parse_form();
# Check to make sure that there is an admin email address defined.
$db_admin_email or &cgierr("Admin Email Address Not Defined in config file!");
my $to = $db_admin_email;
my $from = $in{$db_cols[$db_contact_email]};
my $subject = "Deadlink ID number: $in{'ID'}\n";
my $msg = qq|
The following link is reported to be dead:
ID number: $in{'ID'}
Site title: $in{'Title'}
Site URL: $in{'URL'}
Category: $in{'Category'}
To check the link, please go to:
$db_cgi_url/jump.cgi?ID=$in{'ID'}
Or to delete the link please go to:
$db_cgi_url/$db_script_path/admin.cgi?db=links&ID=$in{'ID'}&Title=&URL=&Date=&Category=---&Description=&Contact+Name=&Contact+Email=&Hits=&isNew=---&isPopular=---&Rating=&Votes=&ReceiveMail=---&Graphic=&Gwidth=&Gheight=&Priority=---&Password=&MonthHits=&isMonthPopular=---&DateAdded=&keyword=&mh=10&sb=---&so=ascend&delete_form=Search&delete=$in{'ID'}
Sincerely,
Visitor.
|;
# Then mail it away!
require "$db_lib_path/Mailer.pm";
my $mailer = new Mailer ( { smtp => $db_smtp_server,
sendmail => $db_mail_path,
from => $from,
subject => $subject,
to => $to,
msg => $msg,
log => $db_mailer_log
} ) or return;
$mailer->send or return;
print &site_html_deadlink_mail;
}