|
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);
$level1 = $values{'level1'};
$level2 = $values{'level2'};
$level3 = $values{'level3'};
$formal = 0;
$formalpy = 1;
$casual = 2;
$casualpy = 3;
$graph = 4;
$english = 5;
$relation = "";
if ($level1 ne "nothing") {
$relation .= $level1;
if ($level2 ne "nothing") {
$relation .= $level2;
if ($level3 ne "nothing") {
$relation .= $level3;
}
} else {
}
} else {
}
print "Content-type: text/html; charset=gb2312\n\n";
print <<HEADER;
<HTML>
<HEAD>
<TITLE>Chinese Family Relation Results</TITLE>
</HEAD>
<BODY BGCOLOR=LIGHTYELLOW>
HEADER
open(FAM, "family.txt") or die "Content-type: text/plain\n\nCan't open family.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</TD><TD>Formal Name Pinyin</TD><TD>Informal Name</TD><TD>Informal Name Pinyin</TD><TD>English Equivalent</TD></FONT></TR>\n";
foreach $hit (@hits) {
@fields = split(/\t+/, $hit);
print "<TR><TD>$fields[$formal]</TD><TD>$fields[$formalpy]</TD><TD>$fields[$casual]</TD><TD>$fields[$casualpy]</TD><TD>$fields[$english]</TD></TR>\n";
}
print "</TABLE>";
} else {
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
}
print <<FORM;
<P>
<HR>
<P>
<CENTER>
<TABLE BGCOLOR="GOLD">
<TR>
<TD>
<FORM METHOD="POST" ACTION="http://www.mandarintools.com/cgi-bin/family.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