#!/usr/pkg/bin/perl
################################################################
# expire_cache.cgi : report, expire and clear cache files
#
# $Id: expire_cache.cgi,v 1.6 2000/10/18 16:51:41 tom Exp $
################################################################

use strict;
use lib qw(../lib);

use CGI::QueryString;
use CGI::Tools;

use TDS;
use TDS::System;
use TDS::Status;
use TDS::Admin::Authorize;
use TDS::Cache::Expire;

################################################################
TDS::Admin::Authorize->PrintHTTPHeader();

my $status = $TDS::Status;
my $auth = new TDS::Admin::Authorize;

# authorization
$auth->CheckAuthorized;

my $exp = new TDS::Cache::Expire;
$exp->Do(param('command'));

