#! /usr/bin/perl
# 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',
'copyright'=>'copyright 2000, Louis Ha'},
-BGCOLOR=>'#CCCCFF');
print "
";
print "
";
print "IRREGULAR VERB
";
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");
my ($head,$present);
if ($prstem eq "amb"){
$head="Latin : $prstem-io, $instem, $pfstem-i, $sustem-um";
$present="$prstemio | ";
}else{
$head="Latin : $prstem-eo, $instem, $pfstem-i, $sustem-um";
$present="$prstemeo | ";
}
decline ($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
# DECLINE
sub decline{
print "";
print $head;
print "
";
printf "English : %s
\n",
$cgi->escapeHTML ($english);
print $cgi->hr();
print $cgi->blockquote(qq{
|
ACTIVE |
|
|
INDICATIVE |
SUBJUNCTIVE |
|
PRESENT |
|
1.sg |
$prstemeo |
$prstemeam |
2.sg |
$prstemis |
$prstemeas |
3.sg |
$prstemit |
$prstemeat |
1.pl |
$prstemímus |
$prstemeámus |
2.pl |
$prstemítis |
$prstemeátis |
3.pl |
$prstemeunt |
$prstemeant |
|
IMPERFECT |
|
1.sg |
$prstemíbam |
$prstemírem |
2.sg |
$prstemíbas |
$prstemíres |
3.sg |
$prstemíbat |
$prstemíret |
1.pl |
$prstemibámus |
$prstemirémus |
2.pl |
$prstemibátis |
$prstemirétis |
3.pl |
$prstemíbant |
$prstemírent |
|
FUTURE |
|
1.sg |
$prstemíbo |
|
2.sg |
$prstemíbis |
|
3.sg |
$prstemíbit |
|
1.pl |
$prstemíbimus |
|
2.pl |
$prstemíbitis |
|
3.pl |
$prstemíbunt |
|
|
PERFECT |
|
1.sg |
$pfstemi |
$pfstemerim |
2.sg |
$pfstemísti |
$pfstemeris |
3.sg |
$pfstemit |
$pfstemerit |
1.pl |
$pfstemimus |
$pfstemerímus |
2.pl |
$pfstemistis |
$pfstemerítis |
3.pl |
$pfstemérunt |
$pfstemerint |
|
PLUPERFECT |
|
1.sg |
$pfstemeram |
$pfstemssem |
2.sg |
$pfstemeras |
$pfstemsses |
3.sg |
$pfstemerat |
$pfstemsset |
1.pl |
$pfstemerámus |
$pfstemssémus |
2.pl |
$pfstemerátis |
$pfstemssétis |
3.pl |
$pfstemerant |
$pfstemssent |
|
FUTURE PERFECT |
|
1.sg |
$pfstemero |
|
2.sg |
$pfstemeris |
|
3.sg |
$pfstemerit |
|
1.pl |
$pfstemérimus |
|
2.pl |
$pfsteméritis |
|
3.pl |
$pfstemerint |
|
|
ACTIVE |
ACTIVE |
|
IMPERATIVE |
INFINITIVE |
present |
$prstemi, $prstemite |
$prstemire |
perfect |
|
$pfstemsse |
future |
|
$sustemúrus -a -um esse |
|
PARTICIPLE |
PARTICIPLE |
|
|
GERUND |
|
ACTIVE |
PASSIVE |
|
Gen. |
$prstemeundi |
present |
$prstemiens, (-euntis) |
|
|
Dat. |
$prstemeundo |
perfect |
|
|
|
Acc. |
$prstemeundum |
future |
$sustemúrus -a -um |
$prstemeundus -eunda -eundum |
|
Abl. |
$prstemeundo |
});
}
## WEBPAGE OUTPUT