#!/usr/pkg/bin/perl
# counter.cgi : showa or increment counter
#
# $Id: counter.cgi,v 1.8 2000/10/01 14:30:27 tom Exp $
################################################################

use strict;
use lib qw(lib);
use Template;
use CGI::Tools;

use TDS;
use TDS::AccessLog::Logging;
use TDS::AccessLog::Counter;

################################################################
print "content-type: text/html\n\n";

my $templ = new Template;

my $log = new TDS::AccessLog::Logging;
$log->Add;
#die;

my $counter = new TDS::AccessLog::Counter;

print $templ->Expand($TDS::AccessLog::Counter::Template,
		     {all=>$counter->All,
		      today=>$counter->Today,
		      times=>$TDS::Status->id->GetTimes
		      });
exit(0);

