|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/mandarintools/cgi-bin/ |
Upload File : |
#!/usr/bin/perl
# require "cgi-lib.pl";
# &ReadParse(*values);
use CGI;
my $q = new CGI;
$level1 = $q->param('level1');
$level2 = $q->param('level2');
$level3 = $q->param('level3');
$returntype = $q->param('returntype');
$formal = 0;
$formalt = 1;
$formalpy = 2;
$casual = 3;
$casualt = 4;
$casualpy = 5;
$graph = 6;
$english = 7;
print "Content-type: text/html; charset=utf-8\n\n";
if ($returntype ne "ajax") {
print <<HEADER;
<HTML>
<HEAD>
<TITLE>Chinese Family Relation Results</TITLE>
</HEAD>
<BODY BGCOLOR=LIGHTYELLOW>
HEADER
}
$relation = "";
if ($level1 ne "nothing") {
$relation .= $level1;
if ($level2 ne "nothing") {
$relation .= $level2;
if ($level3 ne "nothing") {
$relation .= $level3;
}
} else {
}
} else {
print "Please enter at least one relation.";
}
open(FAM, "familyu8.txt") or die "Content-type: text/plain\n\nCan't open familyu8.txt\n";
while (<FAM>) {
next if m/^\s*\#/;
next if m/^\s*$/;
@fields = split(/\t+/);
$fields[$graph] =~ s/>sb/\(>ob|>yb|>os|>ys\)/g;
$fields[$graph] =~ s/>si/\(>os|>ys\)/g;
$fields[$graph] =~ s/>b/\(>ob|>yb\)/g;
$fields[$graph] =~ s/>p/\(>f|>m\)/g;
$fields[$graph] =~ s/>c/\(>s|>d\)/g;
if ($relation =~ m/^>$fields[$graph]$/) {
push @hits, $_;
}
}
if ($#hits > -1) {
print "<TABLE>
<TR BGCOLOR=GOLD>
<TD>Formal Name (Simp.)</TD>
<TD>Formal Name (Trad.)</TD>
<TD>Formal Name Pinyin</TD>
<TD>Informal Name (Simp.)</TD>
<TD>Informal Name (Trad.)</TD>
<TD>Informal Name Pinyin</TD>
<TD>English Equivalent</TD>
</TR>\n";
foreach $hit (@hits) {
@fields = split(/\t+/, $hit);
print "<TR>
<TD>$fields[$formal]</TD>
<TD>$fields[$formalt]</TD>
<TD>$fields[$formalpy]</TD>
<TD>$fields[$casual]</TD>
<TD>$fields[$casualt]</TD>
<TD>$fields[$casualpy]</TD>
<TD>$fields[$english]</TD>
</TR>\n";
}
print "</TABLE>";
} else {
if ($relation ne "") {
print <<NOTHING;
Sorry! Your search did not turn up any hits. Make sure you used the most direct path to the relative.
For example, instead of choosing "Father's wife", choose "Mother".
NOTHING
}
}
if ($returntype ne "ajax") {
print <<FORM;
<P>
<HR>
<P>
<CENTER>
<TABLE BGCOLOR="GOLD">
<TR>
<TD>
<FORM METHOD="POST" ACTION="http://www.mandarintools.com/cgi-bin/familyu8.pl">
You ->
<SELECT NAME="level1">
<OPTION SELECTED VALUE="nothing">
<OPTION VALUE=">f">Father
<OPTION VALUE=">m">Mother
<OPTION VALUE=">ob">Older Brother
<OPTION VALUE=">yb">Younger Brother
<OPTION VALUE=">os">Older Sister
<OPTION VALUE=">ys">Younger Sister
<OPTION VALUE=">h">Husband
<OPTION VALUE=">w">Wife
<OPTION VALUE=">s">Son
<OPTION VALUE=">d">Daughter
</SELECT>
->
<SELECT NAME="level2">
<OPTION SELECTED VALUE="nothing">
<OPTION VALUE=">f">Father
<OPTION VALUE=">m">Mother
<OPTION VALUE=">ob">Older Brother
<OPTION VALUE=">yb">Younger Brother
<OPTION VALUE=">os">Older Sister
<OPTION VALUE=">ys">Younger Sister
<OPTION VALUE=">h">Husband
<OPTION VALUE=">w">Wife
<OPTION VALUE=">s">Son
<OPTION VALUE=">d">Daughter
</SELECT>
->
<SELECT NAME="level3">
<OPTION SELECTED VALUE="nothing">
<OPTION VALUE=">f">Father
<OPTION VALUE=">m">Mother
<OPTION VALUE=">ob">Older Brother
<OPTION VALUE=">yb">Younger Brother
<OPTION VALUE=">os">Older Sister
<OPTION VALUE=">ys">Younger Sister
<OPTION VALUE=">h">Husband
<OPTION VALUE=">w">Wife
<OPTION VALUE=">s">Son
<OPTION VALUE=">d">Daughter
</SELECT>
<BR>
</TD></TR>
<TR>
<TD ALIGN=CENTER>
<INPUT VALUE="Look it up!" TYPE="submit">
</FORM>
</TD></TR></TABLE>
</CENTER>
FORM
print <<FOOTER;
</BODY>
</HTML>
FOOTER
}