#!c:/xampp/perl/bin/perl.exe
use warnings;
use CGI;
use Time::HiRes qw(gettimeofday);
my $query = CGI->new;
my $dir = "C:/Users/41786/OneDrive/Documents/recordz1/";
print $query->header; 

test();
 
sub test {
	my $counter = 10000; #Should be ge from db;
	my $string = "";

    open (FILE, "<$dir/test2.html") or die "cannot open file $dir/test2.html";
	my $content = "";
	my  $nb_page = round ($counter / 40, 1);#Number of objects displayed per page.
	for (my  $i = '0'; $i < $nb_page+ 1;$i++) {
		my $n2 = $i %= 10;
		$min_index += 40;	
		$string .= "<a href=\"/cgi-bin/recordz.cgi?lang=FR&amp;session=1&page=historique&amp;article=1amp;min_index=$min_index&amp;max_index=40\" ><-$n2-></a>&#160;&nbsp;";		
		$nb_page--;
	}
	while (<FILE>) {	
		s/\$ARTICLE{'index'}/$string/g;
		$content .= $_;	
	}
	print $content;
    close (FILE);
}

sub round {
    my $n = shift || '';
    my $r = sprintf("%.0f", $n);    
    return $r;
}