|
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 -- # -*- perl -*-
require "./cgi-lib.pl";
require "./callib.pl";
&ReadParse(*values);
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD><TITLE>Conversion Results</TITLE></HEAD>\n";
print "<BODY>\n";
if (defined($values{'julian'})) {
$jmonth = $values{month};
$jyear = $values{year};
$jera = $values{era};
$jday = $values{day};
print "Julian Date: $monthnames[$jmonth-1] $jday, $jyear $jera <BR>\n";
$weekday = JulianDate2Day($jera, $jyear, $jmonth, $jday);
print "Julian Day of Week: $weekday <P>";
($gera, $gyear, $gmonth, $gday) = Julian2Gregorian($jera, $jyear, $jmonth, $jday);
print "Gregorian Date: $monthnames[$gmonth-1] $gday, $gyear $gera <BR>\n";
$weekday = GregorianDate2Day($gera, $gyear, $gmonth, $gday);
print "Gregorian Day of Week: $weekday <P>";
$juliandate = JulianPeriod($jera, $jyear, $jmonth, $jday);
print "Day in the Julian Period: $juliandate <BR>\n";
# Find the Chinese Date
($dyn, $ruler, $title, $ryear, $cyear, $cmonthtype, $cmonthcycle, $cday) =
julian_day_to_chinese($juliandate);
$ystem = ($cyear % 10) - 1;
$ybranch = ($cyear % 12) - 1;
print "<HR>\n<H3>Chinese Date</H3>\n";
print "This date is in the Year of the $signs[$ybranch] " .
"<IMG ALIGN=ABSMIDDLE SRC=\"ugif/$signuni[$ybranch].gif\">.";
print "<P>\nDynasty: $dyn<BR>\n";
print "Ruler: $ruler<BR>\n";
print "Reign Title: $title<BR>\n";
print "Year in Reign Title: $ryear<BR>\n";
print "Cyclical Year: <IMG ALIGN=ABSMIDDLE SRC=\"ugif/$stems[$ystem].gif\"><IMG ALIGN=ABSMIDDLE SRC=\"ugif/$branches[$ybranch].gif\"> <P>";
print "Lunar Month: ";
$lmval = ($cmonthcycle + 10) % 12;
if ($lmval == 0) { print "12 <BR>\n"; }
else {print "$lmval <BR>\n"; }
$mstem = ($cmonthcycle % 10) - 1;
$mbranch = ($cmonthcycle % 12) - 1;
print "Cyclical Month: <IMG ALIGN=ABSMIDDLE SRC=\"ugif/$stems[$mstem].gif\"><IMG ALIGN=ABSMIDDLE SRC=\"ugif/$branches[$mbranch].gif\"> <BR>";
print "Leap month: ";
if ($cmonthtype eq "L")
{print "Yes<BR>\n";}
else { print "No<BR>\n";}
print "<P>Day of Month : $cday<BR>\n";
($dstem, $dbranch) = cyclical_day($jera, $jyear, $jmonth, $jday);
print "Cyclical Day: <IMG ALIGN=ABSMIDDLE SRC=\"ugif/$stems[$dstem].gif\"><IMG ALIGN=ABSMIDDLE SRC=\"ugif/$branches[$dbranch].gif\"> <BR>";
} elsif (defined($values{gregorian})) {
$gmonth = $values{month};
$gyear = $values{year};
$gera = $values{era};
$gday = $values{day};
($jera, $jyear, $jmonth, $jday) =
Gregorian2Julian($gera, $gyear, $gmonth, $gday);
print "<H3>Western Calendar</H3>\n";
print "Julian Calendar Date: $monthnames[$jmonth - 1] $jday, $jyear $jera <BR>\n";
$weekday = JulianDate2Day($jera, $jyear, $jmonth, $jday);
print "Julian Day of Week: $weekday <P>";
print "Gregorian Date: $monthnames[$gmonth-1] $gday, $gyear $gera <BR>\n";
$weekday = GregorianDate2Day($gera, $gyear, $gmonth, $gday);
print "Gregorian Day of Week: $weekday <P>";
$juliandate = JulianPeriod($jera, $jyear, $jmonth, $jday);
print "Day in the Julian Period: $juliandate <BR>\n";
# ($ystem, $ybranch) = cyclical_year($jera, $jyear, $jmonth, $jday);
# print "Chinese Cyclical Year: <IMG SRC=\"ugif/$stems[$ystem].gif\"><IMG SRC=\"ugif/$branches[$ybranch].gif\"> <BR>";
($dyn, $ruler, $title, $ryear, $cyear, $cmonthtype, $cmonthcycle, $cday) =
julian_day_to_chinese($juliandate);
$ystem = ($cyear % 10) - 1;
$ybranch = ($cyear % 12) - 1;
print "<HR>\n<H3>Chinese Date</H3>\n";
print "<P>This date is in the Year of the $signs[$ybranch] " .
"<IMG ALIGN=ABSMIDDLE SRC=\"ugif/$signuni[$ybranch].gif\">.";
print "<P>\nDynasty: $dyn<BR>\n";
print "Ruler: $ruler<BR>\n";
print "Reign Title: $title<BR>\n";
print "Year in Reign Title: $ryear<BR>\n";
print "Cyclical Year: <IMG ALIGN=ABSMIDDLE SRC=\"ugif/$stems[$ystem].gif\"><IMG ALIGN=ABSMIDDLE SRC=\"ugif/$branches[$ybranch].gif\"> <P>";
print "Lunar Month: ";
$lmval = ($cmonthcycle + 10) % 12;
if ($lmval == 0) { print "12 <BR>\n"; }
else {print "$lmval <BR>\n"; }
$mstem = ($cmonthcycle % 10) - 1;
$mbranch = ($cmonthcycle % 12) - 1;
print "Cyclical Month: <IMG ALIGN=ABSMIDDLE SRC=\"ugif/$stems[$mstem].gif\"><IMG ALIGN=ABSMIDDLE SRC=\"ugif/$branches[$mbranch].gif\"> <BR>";
print "Leap month: ";
if ($cmonthtype eq "L")
{print "Yes<BR>\n";}
else { print "No<BR>\n";}
print "<P>Day of Month : $cday<BR>\n";
($dstem, $dbranch) = cyclical_day($jera, $jyear, $jmonth, $jday);
print "Cyclical Day: <IMG ALIGN=ABSMIDDLE SRC=\"ugif/$stems[$dstem].gif\"><IMG ALIGN=ABSMIDDLE SRC=\"ugif/$branches[$dbranch].gif\"> <BR>";
} elsif (defined($values{'julianperiod'})) {
($jera, $jyear, $jmonth, $jday) = JulianPeriod2Julian($values{'juliandate'});
print "<H3>Western Date</H3>\n";
print "Julian Period Day: $values{'juliandate'}<P>\n";
print "Julian Calendar Date: $monthnames[$jmonth - 1] $jday, $jyear $jera <BR>\n";
$weekday = JulianDate2Day($jera, $jyear, $jmonth, $jday);
print "Julian Day of Week: $weekday <P>";
($gera, $gyear, $gmonth, $gday) = Julian2Gregorian($jera, $jyear, $jmonth, $jday);
print "Gregorian Calendar Date: $monthnames[$gmonth-1] $gday, $gyear $gera <BR>\n";
$weekday = GregorianDate2Day($gera, $gyear, $gmonth, $gday);
print "Gregorian Day of Week: $weekday <BR>";
# ($ystem, $ybranch) = cyclical_year($jera, $jyear, $jmonth, $jday);
# print "Chinese Cyclical Year: <IMG SRC=\"ugif/$stems[$ystem].gif\"><IMG SRC=\"ugif/$branches[$ybranch].gif\"> <BR>";
($dyn, $ruler, $title, $ryear, $cyear, $cmonthtype, $cmonthcycle, $cday) =
julian_day_to_chinese($values{'juliandate'});
print "<HR>\n<H3>Chinese Date</H3>\n";
print "<P>\nDynasty: $dyn<BR>\n";
print "Ruler: $ruler<BR>\n";
print "Reign Title: $title<BR>\n";
print "Year in Reign Title: $ryear<BR>\n";
$ystem = ($cyear % 10) - 1;
$ybranch = ($cyear % 12) - 1;
print "Cyclical Year: <IMG ALIGN=ABSMIDDLE SRC=\"ugif/$stems[$ystem].gif\"><IMG ALIGN=ABSMIDDLE SRC=\"ugif/$branches[$ybranch].gif\"> <P>";
print "Lunar Month: ";
$lmval = ($cmonthcycle + 10) % 12;
if ($lmval == 0) { print "12 <BR>\n"; }
else {print "$lmval <BR>\n"; }
$mstem = ($cmonthcycle % 10) - 1;
$mbranch = ($cmonthcycle % 12) - 1;
print "Cyclical Month: <IMG ALIGN=ABSMIDDLE SRC=\"ugif/$stems[$mstem].gif\"><IMG ALIGN=ABSMIDDLE SRC=\"ugif/$branches[$mbranch].gif\"> <BR>";
print "Leap month: ";
if ($cmonthtype eq "L")
{print "Yes<BR>\n";}
else { print "No<BR>\n";}
print "<P>Day of Month : $cday<BR>\n";
($dstem, $dbranch) = cyclical_day($jera, $jyear, $jmonth, $jday);
print "Cyclical Day: <IMG ALIGN=ABSMIDDLE SRC=\"ugif/$stems[$dstem].gif\"><IMG ALIGN=ABSMIDDLE SRC=\"ugif/$branches[$dbranch].gif\"> <BR>";
}
print <<EOF;
<HR>
<P>
<H4>Do another conversion:</H4>
<FORM METHOD="POST" ACTION="http://cgibin.erols.com/eepeter/cgi-bin/calconv.pl">
<TABLE>
<TR>
<TD>Day <INPUT TYPE="text" SIZE="3" MAXLENGTH="2" NAME="day"></TD>
<TD>Month
<SELECT NAME="month">
<OPTION VALUE="1"> January
<OPTION VALUE="2"> February
<OPTION VALUE="3"> March
<OPTION VALUE="4"> April
<OPTION VALUE="5"> May
<OPTION VALUE="6"> June
<OPTION VALUE="7"> July
<OPTION VALUE="8"> August
<OPTION VALUE="9"> September
<OPTION VALUE="10"> October
<OPTION VALUE="11"> November
<OPTION VALUE="12"> December
</SELECT>
</TD>
<TD>Year <INPUT TYPE="text" SIZE="5" MAXLENGTH="4" NAME="year"></TD>
<TD>Era
<INPUT TYPE="radio" name="era" value="AD" checked> AD
<INPUT TYPE="radio" name="era" value="BC"> BC
</TD>
</TR>
<TR>
<TD COLSPAN="4" ALIGN=MIDDLE>
<INPUT TYPE="submit" NAME="julian" value="Julian Calendar">
<INPUT TYPE="submit" NAME="gregorian" value="Gregorian Calendar">
</TD>
</TR>
</TABLE>
<HR>
Julian Date:
<INPUT TYPE="text" SIZE="10" MAXLENGTH="7" NAME="juliandate">
<INPUT TYPE="submit" NAME="julianperiod" value="Show Calendar Date"></TD>
</FORM>
</BODY>
</HTML>
EOF