sub check_links_results {

    print $query->header;

	use LWP::Parallel::UserAgent qw(:CALLBACK);

	my $ua = LWP::Parallel::UserAgent->new;
	$ua->nonblock(1);
	$ua->agent("OpticDB LinkCheck/0.1");

	connect_to_db();

	my $clock_start = time();

	$sth = $dbh->prepare("SELECT url_en,id FROM $DB_MYSQL_NAME");
	$sth->execute ();

	my %ids;
	
	while( my ($url, $id) = $sth->fetchrow_array ) {
		$ids{$url} = $id;
		$ua->register(HTTP::Request->new(GET => $url));
	}

	$sth->finish;
	$dbh->disconnect;

	my $responses = $ua->wait;

	my $clock_finish = time - $clock_start;				# end timer and compare
	$time_taken = sprintf ("%.2f", $clock_finish);		# trim time to 2 decimal points

	my ($count, $htmlout) = (0, "");

	while( (undef, my $entry) = each %$responses ) {
		my $req = $entry->request;
		my $res = $entry->response;
		my $id = $ids{$req->url};
		next if $res->code == 200;
		++$count;
		$tmpl_show_record .=  qq|
					<table width="95%" border="0" cellspacing="0" cellpadding="2">
					<tr> 
					<td width="2%" align="middle">&nbsp;</td>
					<td width="6%" bgcolor="#EEEECC" align="right" valign="top"><font face="Arial, Helvetica, sans-serif" size="2">$ref->{id}</font>&nbsp;</td>
					<td width="58%" bgcolor="#E9EBEF">&nbsp;<font face="Arial, Helvetica, sans-serif" size="2">$ref->{'name_en'}</font></td>
					<td width="20%" bgcolor="#FFDDDD">&nbsp;<font face="Arial, Helvetica, sans-serif" size="2">$res_code : $res_msg</font></td>
					<td width="14%" bgcolor="#EEEECC" valign="top" align="center"><a href="odb.cgi?action=edit_record&id=$ref->{'id'}"><img src="/images/icons/edit.gif" width="15" height="15" alt="[ edit ]" border="0"></a>
					&nbsp;
					<a href="odb.cgi?action=del_record&id=$ref->{'id'}" onClick="return confirm('Delete record $ref->{'id'}?')"><img src="/images/icons/delete.gif" width="15" height="15" alt="[ delete ]" border="0"></a>
					&nbsp;
					<a href="odb.cgi?action=toggle_live&id=$ref->{'id'}">
				|;

				if ($data_status eq "Live") {
					$tmpl_show_record .= "<img src=\"/images/icons/liveyes.gif\" border=\"0\">";
				} 
				else {
					$tmpl_show_record .= "<img src=\"/images/icons/liveno.gif\" border=\"0\">";
				} 
			
				$tmpl_show_record .=  qq|

					</a>
					</td>
					</tr>
					</table>
					<BR>
		|;
	}

	$num_dead = $count;

	if( $count == 0 ) {
		&error_html("No dead links found!");
		exit;
	}

	$dbh->disconnect;

	&parse_template("$PATH_TEMPLATE/check_links_results.tmpl");

}