#!/usr/bin/perl # # htgrep --- cgi-bin script to query a database of HTML paragraphs # # Author: Oscar Nierstrasz (oscar@cui.unige.ch) 11/5/94 require("htgrepb.pl"); $mydir="/issues"; &htgrep'setvalidtags('isindex'); # Pick up tags from the environment: &htgrep'settags($ENV{'PATH_INFO'}); &htgrep'settags($ENV{'QUERY_STRING'}); $htgrep'tags{'file'}=$mydir.'/issues.htg'; $htgrep'tags{'htgrep'}=$mydir.'/search.cgi'; $htgrep'tags{'firstline'}=1; $htgrep'tags{'style'} = "ul"; $htgrep'tags{'boolean'} = 1; &htgrep'doit;