#!/usr/bin/perl
###############################
# Hot Links SQL 2.1 report.cgi
# Created by Mike Ramirez
# Nothing below here is configurable
###############################
use CGI;
use DBI;
$q = CGI->new;
print $q->header;
require './source/headerfooter.pl';
require './source/config.pl';
require './lang/langset.pl';
my $linkid = $q->param("id");
my $action = $q->param("action");
my $dbh = DBI->connect("DBI:mysql:$dbname;$dbhost", $dblogin, $dbpass) || print "Could not connect to database ";
my $sth = $dbh->prepare("SELECT * FROM links WHERE id = '$linkid'") || print "could not access database";
$sth->execute();
while (my $results = $sth->fetchrow_hashref) {
my $linkid = $results->{id};
my $category = $results->{category};
my $sitename = $results->{sitename};
my $url = $results->{url};
my $email = $results->{email};
my $name = $results->{name};
my $password = $results->{password};
my $description = $results->{description};
my $addedon = $results->{addedon};
my $edpick = $results->{edpick};
my $keywords = $results->{keywords};
my $activelink = $results->{activelink};
my $enddate = $results->{enddate};
my $udate = $results->{udate};
my $recipurl = $results->{recipurl};
my $affiliate = $results->{affiliate};
my $image = $results->{image};
$uselink = "$linkid|$category|$sitename|$url|$email|$name|$password|$description|$addedon|$edpick|$keywords|$activelink|$enddate|$udate|$recipurl|$affiliate|$image";
}
$sth->finish;
&header;
print <<"HTML";
HTML
if ($action eq 'submitreport') {
my $linkid = $q->param("linkid");
my $reason = $q->param("reason");
my $url = $q->param("url");
my $description = $q->param("description");
open (MAIL, "|$sendmail -t") || &error("$shtext9");
print MAIL "To: $adminemail\n";
print MAIL "From: $adminemail\n",
"Subject: $rptext7\n\n",
"$rptext8 $linkid\n",
"$rptext9 $url\n",
"$adtext25 $description\n",
"$rptext10 $reason\n";
close (MAIL);
print <<"HTML";
$rptext11
HTML
} else {
if ($uselink) {
my @linkinfo = split(/\|/, $uselink);
print <<"HTML";