#!/usr/pkg/bin/perl
# $Id: update_log.cgi,v 1.2 2000/12/25 05:46:48 tom Exp $
################################################################


use strict;
use lib qw(../lib);
use CGI::QueryString;
use CGI::Tools;

use TDS;
use TDS::AccessLog::AnalysisUpdate;

$| = 1;

################
my $anal;

$anal = new TDS::AccessLog::AnalysisUpdate(year=>param('year'),
					   month=>param('month'),
					   part=>param('part'),
					   limit=>param('limit')
					   );

################
# authorization
$anal->PrintHTTPHeader;
$anal->CheckAuthorized;

$anal->Read;
$anal->ReadLogFile;
print $anal->AsHTML;

# end of log
