#!/usr/pkg/bin/perl
# search.cgi - search by signature-method
# $Id: search.cgi,v 1.7 2000/08/28 10:10:55 tom Exp $
################################################################

use strict;

use lib qw(lib);

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

use TDS;
use TDS::System;
use TDS::Renderer;
use TDS::Collection;
use TDS::Search;

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

my $rend = new TDS::Renderer;
$rend->Read;

my $col;

if (param('keyword')){               # search
    my $search = new TDS::Search;
    $col = $search->Search;
} else {                             # normal jump
    $col = new TDS::Collection;
    $col->Read;
}
print $rend->AsHTML($col);

exit(0);
