#!/usr/bin/perl


###############################
# Hot Links Pro 3 new.cgi
# Created by Mike Ramirez
# Nothing below here is configurable
###############################

require './source/headerfooter.pl';
require './source/config.pl';
require './source/banner.pl';
require './source/linkbuild.pl';
require './lang/langset.pl';

###############################
use CGI;

my $q = CGI->new;
print $q->header;

&header;

print <<"HTML";
	<table width=\"$tablewidth\">
	<tr><td align=left class=catheadertext colspan=2><a href=$indexscript>$shtext1</a> : $nwtext1</td></tr>
	<tr><td align=center>
HTML

if ($displayadverts == 1) {&showall}

print <<"HTML";
	</td></tr>
	<tr><td class=bodytext><br><b>$nwtext1</b> - $nwtext2 $newlength $nwtext3</td></tr>
HTML
##########



my $filetolock = $datafilepath;
my $tempfile = $filetolock . ".lock";

open (LOCK, ">$tempfile");
if ($useflock == 1) {flock (LOCK, 2)}
open (FILE, "$datafilepath");
@newlinks = <FILE>;
close(FILE);
close(LOCK);
unlink ($tempfile);

@newlinks = reverse @newlinks;

foreach $line (@newlinks) {
chomp($line);
@linkinfo = split(/\|/, $line);
    my $udate = $linkinfo[13];
    my $comparedate = time;
    my $endnew = ($newlength * 86400) + $udate;
	if ($endnew >= $comparedate) {
	$addedon = $linkinfo[8];
	$addedon =~ s/_/ /g;
	$sendto = $linkinfo[3];
	$sendto =~ s/([\W])/"%" . uc(sprintf("%2.2x",ord($1)))/eg;
	&dolinkbuild;
		}

}

if ($haslinks != 1) {
	print "<tr><td class=bodytext align=left>$shtext5.</td></tr>";
}
############

print <<"HTML";
	</table>
HTML

&footer;