#!/usr/pkg/bin/perl
# $Id: TsDiary.cgi,v 1.37.4.1 2001/02/13 00:48:01 tom Exp $
################################################################

# Copyright(C) 1999,2000 TANAKA Tomonari, TomSoft

# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or any later version.

# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA

################################################################

BEGIN{
#    warn times;
#    $^W = 1;
#    open(STDERR, ">error.log");
}

##BEGIN{ warn times, "********************************"; }

require 5.000;                # perl5 required


use strict;
use lib qw(lib);

use CGI::Tools;
#use CGI::QueryString;
#param('cat', 'TDS');
##BEGIN { &CGI::Tools::SetWarnHandler(); }

##BEGIN{ warn times; }

use TDS;
use TDS::Dynamic;

################################################################
my $dyn = new TDS::Dynamic;

##warn times;
my $start = (times)[0];

##warn times, " Do start";
$dyn->Do;
#warn times;
my $end = (times)[0];

#warn times;
##warn $end-$start;

#for (sort keys %INC){
#    print STDERR "$_,  ";
#}

#print STDERR "\n", $_ = keys %INC;

##warn times, " all done.";
