#!/usr/bin/perl --
# nick_counter.pl
# read the nick_hits.sav file and display the contents.

use CGI;
$query = new CGI;
$default_file = 'nick_hits.sav'; # The file name.
$hits_file = 'nick_hits.dat'; # Save the dates of past hits.

print $query->header;
print $query->start_html("Hit Counter");

# Read the stuff from the saved file.
$query = &restore_parameters($query);

print "<P>";
$value = $query->param('hits') + 1;

#print "This Intranet site has been viewed ";
#print $value." Times<BR>";

if ($value > 1)
{
  $query->param('hits',$value);
  &save_parameters($query);
}
&save_past_hits();

# Here we print out a bit at the end
print $query->end_html;

# The subroutine which reads from the file.
sub restore_parameters
{
    local($query) = @_;
	local($filename) = $default_file;
    if (open(FILE,$filename))
	{
	  $query = new CGI(FILE);
	  close FILE;
    }
	else
	{
	  # fill with a default value initially.
      print "$default_file does not exist.";
    }
    return $query;
}

#
sub save_parameters
{
    local($query) = @_;
    local($filename) = $default_file;
    if (open(FILE,">$filename"))
	{
	  $query->save(FILE);
	  close FILE;
    }
	else
	{
	  print "<STRONG>Error:</STRONG> couldn't write to file $filename: $!\n";
    }
}

#
sub save_past_hits
{
	local($filename) = $hits_file;

	$the_date = localtime(time());

	if (open(FILE,">>$filename"))
	{
		print FILE $the_date."\n";
		close(FILE);
	}
}

# EOF