#!/usr/bin/perl

# $rcs = ' $Id: categories.cgi,v 1.3 1998/06/20 03:54:24 fitz Exp $ ' ;

unshift(@INC, "lib");

require 'bib.pl';
require 'web.pl';
require 'cgi-lib.pl';


&ReadParse; # Read the script input
print "Content-type: text/html\n";

&bib::load("CATEGORY", "KEYWORDS");

# Get the categories and descriptions
%categories = &bib::read_category_desc();

# Get the keywords
%keywords = &bib::read_keyword_desc();

# Get the keyword modifiers
%modifiers = &bib::read_modifier_desc();

# Tables for the categories, keywords, and modifiers
foreach $category (sort { uc($a) cmp uc($b) } keys %categories)
{
    #$category =~ s/\W//g;
    $categories .=
      sprintf("<TR><TH ALIGN=left>%s</TH><TD>%s</TD></TR>\n",
              &untaint($category), &untaint($categories{$category}))
        if $categories{$category};
}
foreach $keyword (sort  { uc($a) cmp uc($b) } keys %keywords)
{
    #$keyword =~ s/\W//g;
    $keywords .=
      sprintf("<TR><TH ALIGN=left>%s</TH><TD>%s</TD></TR>\n",
              &untaint($keyword), &untaint($keywords{$keyword}))
        if $keywords{$keyword};
}
foreach $modifier (sort { uc($a) cmp uc($b) } keys %modifiers)
{
    #$modifier =~ s/\W//g;
    $modifiers .=
      sprintf("<TR><TH ALIGN=left>%s</TH><TD>%s</TD></TR>\n",
              &untaint($modifier), &untaint($modifiers{$modifier}))
        if $modifiers{$modifier};
}

$data = &bib::template("categories.html",
                       "CATEGORIES", $categories,
                       "KEYWORDS", $keywords,
                       "MODIFIERS", $modifiers,);

$data = &bib::template("categories-display.html",
                       "DATA", $data,);

print "\n", &bib::template("basic.html",
                           "TITLE", "Keyword Descriptions",
                           "DATA", $data,);

exit 0;