use LWP::UserAgent;

use GT::Mail;

# Make sure we are allowed to rate it.
if ($CFG->{user_rate_required} and ! $USER) {
print $IN->redirect( Links::redirect_login_url ('rate') );
return;
}

# Now figure out what to do.
if ($IN->param('reason')) {
my $results = GT::Plugins->dispatch ($CFG->{admin_root_path} . '/Plugins', 'bad_link', \&report_it, {});
if (defined $results->{error}) {
print $IN->header();
print Links::SiteHTML::display ('badlink_error', $results);
}
else {
print $IN->header();
print Links::SiteHTML::display ('badlink_success', $results);
}
}
elsif (defined $id and ($id =~ /^\d+$/)) {
print $IN->header();
my $db = $DB->table('Links');
my $rec = $db->get ($id);
$rec ?
print Links::SiteHTML::display ('badlink', $rec) :
print Links::SiteHTML::display ('badlink_error', { error => Links::language('BADLINK_INVALIDID', $id) });
}
else {
$IN->param('d') ?
print $IN->redirect ("$CFG->{db_cgi_url}/page.cgi") :
print $IN->redirect ($CFG->{build_root_url});
}
}

sub report_it {
# --------------------------------------------------------
# report a link as bad
#
# get the link id
my $id = $IN->param('ID');
# user submitted form fields from template badlink.html
my $reason = $IN->param('reason');
my $comment = $IN->param('comment');
my $usermail = $IN->param('usermail');
# auto generated url of refering page where the user clicked on the link 'report link as bad'
my $goback = $IN->param('goback');

# Let's get the link information.
my $db = $DB->table('Links');
my $rec = $db->get ($id);
$rec or return { error => Links::language('BADLINK_INVALIDID', $id) };

# Lets try to spider the url and see what happens
my ($ua,$req,$res,$page,$message);
$ua = LWP::UserAgent->new();
$ua->agent('Your personal spiders name');
$ua->timeout(30); # set this to what you want in seconds.
$req = new HTTP::Request('GET',(${$rec}{'URL'}));
$res = $ua->request($req);
$message = $res->status_line;


###################################
# send mail to admin
my ($to, $from, $subject, $msg, $host, $refer, $error);
$to = $CFG->{db_admin_email};
$from = $usermail;
$subject = "Bad Link: ID $id -> $reason\n";
$host = defined $ENV{REMOTE_HOST} ? "$ENV{REMOTE_HOST} ($ENV{REMOTE_ADDR})" : 'none';
$refer = defined $ENV{HTTP_REFERER} ? $ENV{HTTP_REFERER} : 'none';
$msg = qq|
The following link was reported as bad:
ID: $id
Title: $rec->{'Title'}
URL: $rec->{'URL'}
Description: $rec->{'Description'}
----------------------------------------------
Problem: $reason
Spider Diagnosis: $message
--[comment]---------------------------------
$comment
----------------------------------------------
User-Mail: $usermail
To change this link go to:
$CFG->{admin_root_url}/admin.cgi

Sincerely,

Links Manager.
|;

# Send to the admin.
require GT::Mail;
$GT::Mail::error ||= ''; # Silence -w
GT::Mail->send (
smtp => $CFG->{db_smtp_server},
sendmail => $CFG->{db_mail_path},
from => $from,
subject => $subject,
to => $to,
msg => $msg,
debug => $Links::DEBUG
) or Links::fatal ("Unable to send mail: $GT::Mail::error");
####################################################

return $rec;
}

<form action="<%db_cgi_url%>/badlink.cgi" method="POST">
<input type=hidden name="ID" value="<%ID%>">
<input type="hidden" name="goback" value="<%ref_page%>">

<h3>Report Bad Link</h3>

<p>On this page you can report the following link as bad:</p>

<ul><li><a href="<%URL%>"><%Title%></a>
<%if Description%>

<%Description%>
<%endif%>
</ul>

<p>We will check this link and correct or delete it accordingly.</p>
<p>Please select the problem you are encountering when visiting the page
<a href="<%URL%>"><%Title%></a>.</p>

<p>Problem description:
<select name="reason">
<option>page not found (error 404)</option>
<option>page has new URL</option>
<option>server not found (DNS error)</option>
<option>server not responding</option>
<option>authorization required (error 401)</option>
<option>internal server error (error 500)</option>
<option>link description is not correct</option>
<option>other problem</option>
</select>
</p>
<p>Your comment (eg. a new URL, or what you'd like to see as the link's description etc.):

<textarea name="comment" rows="4" cols="38"></textarea></p>
<p>Your email: <input type="text" name="usermail" size="30"></p>
<p><input type=submit value="Report it!"></p>
</FORM>

<%error%>

<A HREF="<%goback%>">go back</a>

<h3>Thank you!</h3>
<BLOCKQUOTE>
<P>You successfully reported the following link as bad:</p>
<ul><li><a href="<%URL%>"><%Title%></a>
<%if Description%>

<%Description%>
<%endif%>
</ul>
<p>We will check this link and correct or delete it accordingly.</P>
<P>[<A HREF="<%goback%>">go back</a>]</P>
</BLOCKQUOTE>

sub {
# Displays the refering URL
my $refoutput = $ENV{HTTP_REFERER};
return $refoutput;
}