#!/usr/pkg/bin/perl

use strict;

use lib qw(lib);

use CGI::Tools;

use TDS;
use TDS::Summary;
use TDS::Collection;

$TDS::Collection::AutoReplace = 0;

################################################################
PrintHTTPHeader();

my $summary = new TDS::Summary;
$summary->Read;

print $summary->AsHTML;

# end of summary.cgi


