#! /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',
'content'=>"text/html; charset=utf-8",'keywords'=>'Latin Grammar','copyright'=>'copyright 2000, Louis Ha'},
-BGCOLOR=>'#CCCCFF');
print "
";
print "
";
print "FOURTH CONJUGATION VERB (deponents)
";
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-ior, $instem, $sustem-us sum});
printf "English : %s
\n",
$cgi->escapeHTML ($english);
print $cgi->hr();
print $cgi->blockquote(qq{
|
ACTIVE |
|
|
INDICATIVE |
SUBJUNCTIVE |
|
PRESENT |
|
1.sg |
$prstemior |
$prstemiar |
2.sg |
$prstemīris |
$prstemiāris |
3.sg |
$prstemītur |
$prstemiātur |
1.pl |
$prstemīmur |
$prstemiāmur |
2.pl |
$prstemīmini |
$prstemiāmini |
3.pl |
$prstemiūntur |
$prstemiāntur |
|
IMPERFECT |
|
1.sg |
$prstemiēbar |
$prstemirer |
2.sg |
$prstemiebāris |
$prstemirēris |
3.sg |
$prstemiebātur |
$prstemirētur |
1.pl |
$prstemiebāmur |
$prstemirēmur |
2.pl |
$prstemiebāmini |
$prstemirēmini |
3.pl |
$prstemiebántur |
$prstemirēntur |
|
FUTURE |
|
1.sg |
$prstemiar |
|
2.sg |
$prstemiēris |
|
3.sg |
$prstemiētur |
|
1.pl |
$prstemiēmur |
|
2.pl |
$prstemiēmini |
|
3.pl |
$prstemiēntur |
|
|
PERFECT |
|
1.sg |
$sustemus sum |
$sustemus sim |
2.sg |
$sustemus es |
$sustemus sis |
3.sg |
$sustemus est |
$sustemus sit |
1.pl |
$sustemi sumus |
$sustemi simus |
2.pl |
$sustemi estis |
$sustemi sitis |
3.pl |
$sustemi sunt |
$sustemi sint |
|
PLUPERFECT |
|
1.sg |
$sustemus eram |
$sustemus essem |
2.sg |
$sustemus eras |
$sustemus esses |
3.sg |
$sustemus erat |
$sustemus esset |
1.pl |
$sustemi eramus |
$sustemi essemus |
2.pl |
$sustemi eratis |
$sustemi essetis |
3.pl |
$sustemi erant |
$sustemi essent |
|
FUTURE PERFECT |
|
1.sg |
$sustemus ero |
|
2.sg |
$sustemus eris |
|
3.sg |
$sustemus erit |
|
1.pl |
$sustemi erimus |
|
2.pl |
$sustemi eritis |
|
3.pl |
$sustemi erunt |
|
|
ACTIVE |
ACTIVE |
|
IMPERATIVE |
INFINITIVE |
present |
$prstemire, $prstemimini |
$prstemiri |
perfect |
|
$sustemus -a -um esse |
future |
|
$sustemūrus -a -um esse |
|
PARTICIPLE |
PARTICIPLE |
|
|
GERUND |
SUPINE |
|
ACTIVE |
PASSIVE |
|
Gen. |
$prstemiēndi |
|
present |
$prstemiens, (-tis) |
|
|
Dat. |
$prstemiēndo |
|
perfect |
$sustemus -a -um |
|
|
Acc. |
$prstemiēndum |
$sustemum |
future |
$sustemūrus -a -um |
$prstemiēndus -a -um |
|
Abl. |
$prstemiēndo |
$sustemu |
});
}
## WEBPAGE OUTPUT