#!/usr/bin/perl -w
use CGI;
use strict;

my $q = new CGI;
my $page	= "/usr/home/jbevren/.www/index_main.cfg";
open(HANDLE, "$page");
my $comment	= <HANDLE>;
my $title	= <HANDLE>;
my $pagefile	= <HANDLE>;
my $counterfile = <HANDLE>;
close(HANDLE);

open(COUNTER, "$counterfile");
my $data = <COUNTER>;
close(COUNTER);

$data++;

open(COUNTER, ">$counterfile");
flock(COUNTER, 2);

print COUNTER $data;
close(COUNTER);

open(HANDLE, "$pagefile");
print $q->header();
print $q->start_html("<HANDLE>");
while(<HANDLE>) {
	s/{MERGE}/$data/g;
	print;
	}
close(HANDLE);

print "<br><br><br>(index.cgi rev0.1 (C) David Wood 2001) [Portions by jph]";
print $q->end_html();