#! /usr/bin/perl
# co129_search - find co129 keywords
# PREAMBLE
use CGI;
use strict;
my ($cgi) = new CGI;
print $cgi->header ();
print $cgi->start_html (-title=>'LATIN DECLENSION',
-author=>'keloon@catholic.org.hk',
-base=>'true',
-meta=>{'keywords'=>'Latin Grammar',
'content'=>"text/html; charset=utf-8",'keywords'=>'Latin Grammar','copyright'=>'copyright 2000, Louis Ha'},
-BGCOLOR=>'#CCCCFF');
print "
";
print "";
print "SECOND CONJUGATION VERB
(Impersonal verbs)";
print "";
# MAIN-BODY
my ($prstem) = $cgi->param ("prstem");
my ($pfstem) = $cgi->param ("pfstem");
my ($sustem) = $cgi->param ("sustem");
my ($instem) = $cgi->param ("instem");
my ($english) = $cgi->param ("english");
declense ($prstem,$pfstem,$sustem,$instem,$english) if ($prstem,$pfstem,$sustem,$instem,$english);
# ending
print $cgi->hr();
print 'Return to Main page
';
print 'The present website is compiled for an introductory Latin course at the Chinese University of Hong Kong by Dr. Louis Ha.
';
print 'Copyright by Louis Ha, 2000.
';
print $cgi->center ('* * *');
print '
';
## MAIN-BODY
# DECLENSE
sub declense{
print "";
# printf "Latin : %s
\n",
# $cgi->escapeHTML ($key_word).", -is, -e";
print $cgi->blockquote(qq{Latin : $prstem-et, $instem, $pfstem-it});
printf "English : %s
\n",
$cgi->escapeHTML ($english);
print $cgi->hr();
print $cgi->blockquote(qq{
|
ACTIVE |
|
|
INDICATIVE |
SUBJUNCTIVE |
|
PRESENT |
|
| 3.sg |
$prstemet |
$prstemeat |
|
IMPERFECT |
|
| 3.sg |
$prstemēbat |
$prstemēret |
|
FUTURE |
|
| 3.sg |
$prstemēbit |
|
|
PERFECT |
|
| 3.sg |
$pfstemit |
$pfstemerit |
|
PLUPERFECT |
|
| 3.sg |
$pfstemerat |
$pfstemīsset |
|
FUTURE PERFECT |
|
| 3.sg |
$pfstemerit |
|
|
INFINITIVE |
| present |
$prstemēre |
| perfect |
$pfstemīsse |
| future |
|
|
PARTICIPLE |
| present |
$prstemens, (-tis) |
| perfect |
|
| future |
|
});
}
# WEBPAGE OUTPUT