#!/usr/bin/perl # Default title - will be overwritten by category name $title = "Home Page"; unshift(@INC, "lib"); require 'config.pl'; require 'bib.pl'; require 'web.pl'; print "Content-type: text/html\n\n"; &bib::load("CATEGORY", "KEYWORDS", "TITLE", "AUTHOR", "META"); # Get the categories @categories = &bib::get_categories(); &error($bib::error) unless defined @categories; # Get the keywords @keywords = &bib::get_keywords(1); &error($bib::error) unless defined @keywords; # Get the keyword modifiers @modifiers = &bib::get_modifiers(); &error($bib::error) unless defined @modifiers; # Construct a list of all titles foreach $category (@categories) { $CATEGORY = uc($category); $cats .= ", " if $cats; $cats .= sprintf("%s", "$bib::cgi/home2.cgi/$category", $CATEGORY); } # Get the category from the URL name ($category = $ENV{PATH_INFO}) =~ s!.*/!!; if ($category) { $CATEGORY = uc($category); $title = "$CATEGORY"; $all .= sprintf("