#!/usr/local/bin/perl   
# redact.cgi
##
use locale;

$datafile="../lib/htext/dbtext.txt";
$redtext="../lib/htext/red.txt";
print "Content-Type:text/html \n\n";

#
#
open (TEXT,$redtext)
or die "Couldn't open for reading \n";
@text = ();
@parag = <TEXT>; 
foreach (@parag) {
@tmp = split(' ');
$t = shift @tmp;
push (@text,"<p class=little><font color=\"#990000\"><b> $t <\/b><\/font>"," @tmp </p> ");
}
$txt = " @text ";
##
#
open(DATA,$datafile);
while(<DATA>){
chomp;
($name,$file)=split;
$name =~ s/\s+$//;
$txt =~ s/$name/<A href=cgi-bin\/htconvert.cgi\?$file.txt>$name<\/a>/g; 
}
close DATA;
print "  $txt   \n";