#!/usr/bin/perl -- -*- coding:cn-gb -*-

use CGI;

require "./neelib.pl";

$query = new CGI;
$tagset = $query->param('tagset');

$filetxt = $query->param('text');

$neetxt = &addNEE($filetxt);
#$neetxt = $filetxt;

if ($tagset eq "HTML") {
    print "Content-type: text/html;charset=gb2312\n\n";
    print "<TABLE>
<TR>
<TD><FONT COLOR=RED>PERSON</FONT></TD>
<TD><FONT COLOR=GREEN>LOCATION</FONT></TD>
<TD><FONT COLOR=BLUE>ORGANIZATION</FONT></TD>
<TD><FONT COLOR=PURPLE>DATE</FONT></TD>
<TD><FONT COLOR=GRAY>TIME</FONT></TD>
<TD><FONT COLOR=ORANGE>PERCENT</FONT></TD>
<TD><FONT COLOR=GOLD>MONEY</FONT></TD>
</TR>
</TABLE><P>";
} else {
    print "Content-type: text/plain;charset=gb2312\n\n";

}

print $neetxt;