######################################################################## # 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 "\n\n"; output "\n\n"; output "\n\n"; output "\n\n"; output "\n
To: $to
When: $date
Venue: $where
Occasion: $why
\n"; }); sgml('', sub{ # signature and end of document output "

$main::GLsig

\n"; output "\n"; }); # Elements: par and emph sgml('', "

"); sgml('', "

\n"); sgml('', ""); sgml('', ""); sgml('cdata',sub { output $_[0]; }); 1;