########################################################################
# SGMLSPL script produced automatically by the script sgmlspl.pl
#
# Document Type: inv2html.pl (for HTML/CSS formatting)
# Edited by: mg (25 Aug 1998)
########################################################################
use SGMLS; # Use the SGMLS package.
use SGMLS::Output; # Use stack-based output.
#
# Document Handlers.
#
sgml('start', sub {
output "\n\n";
output " Invitation (sgmlpl/CSS formatting) \n";
output "\n";
output "\n";
output "\n";
});
sgml('end', "");
#
# Element Handlers.
#
# Element: invitation
sgml('', sub {
my ($element,$event) = @_;
# First save the information for further use
# Local variables
my $date = $element->attribute('date')->value;
my $to = $element->attribute('to')->value;
my $where = $element->attribute('where')->value;
my $why = $element->attribute('why')->value;
# Global variable (saved for end of document)
$main::GLsig = $element->attribute('signature')->value;
# Output the HTML commands needed for the front matter
output "\n
INVITATION
\n";
output "
\n\n";
output "
To:
\n
$to
\n";
output "
When:
\n
$date
\n";
output "
Venue:
\n
$where
\n";
output "
Occasion:
\n
$why
\n";
output "\n
\n";
});
sgml('', sub{ # signature and end of document
output "
$main::GLsig
\n";
output "\n";
});
# Elements: par and emph
sgml('', "