#!/usr/local/bin/perl   
# redact2.cgi
##
use locale;
$datafile="../determinator/dbimage.txt";
$redtext="../lib/htext/green.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=\"#009933\"><b> $t <\/b><\/font>"," @tmp </p> ");
}
$txt = " @text ";
##
#

@list = ();
open(DATA,$datafile);
while(<DATA>){
chomp;
($name,$file,$describ)=split("#");
$name =~ s/\s+$//;
$describ =~ s/"/\\"/g;
chomp($describ);
if ($txt =~ m/\s$name/) {
## est takoj object
# dobavit v massiv znachenie
$anket_str=join('|',($name,$file,$describ));
chomp ($anket_str);
#chomp ($anket_str);
$anket_str = "\'" . $anket_str . "\'";
push (@list,$anket_str);
$txt =~ s/\s$name/<a href=\"javascript:void(0)\" onClick=\"opfoto(\'$name\')\"> $name<\/a>/g;
	}
}
close DATA;
chomp(@list);
$l = @list;
if ($l > 0) {
$out_str = commify(@list);
print " <script language=\"JavaScript\"> \n" ;
print "<\!-- \n" ;
print " var animals \= new Array ( $out_str ) \n" ;
print "\/\/--> \n" ;
print " <\/script> \n" ;
	}
##
print "  $txt   \n";

sub commify {
(@_ == 0) ? ""		:
(@_ == 1) ? $_[0]		:
(@_ == 2) ? join(",",@_):
		join (",", @_[0 ..($#_ - 1)]," $_[-1]");
}