######################################################################## # SGMLSPL script produced automatically by the script sgmlspl.pl # # Document Type: inv1html.pl (for HTML/CSS formatting) # Edited by: mg (24 Aug 98) ######################################################################## use SGMLS; # Use the SGMLS package. use SGMLS::Output; # Use stack-based output. # # Document Handlers. # sgml('start', "\n\n" . " Invitation (sgmlpl/CSS formatting) \n" . "\n" . "\n" . "\n"); sgml('end', ""); # # Element Handlers. # sgml('', "\n

INVITATION

\n"); sgml('
', "\n"); sgml('', "

\n\n"); sgml('', "\n
\n"); sgml('', "To: \n"); sgml('', "\n"); sgml('', "When: \n"); sgml('', "\n"); sgml('', "Venue: \n"); sgml('', "\n"); sgml('', "Occasion: \n"); sgml('', "\n"); sgml('', ""); sgml('', ""); sgml('', "

"); sgml('', "

\n"); sgml('', ""); sgml('', ""); sgml('', ""); sgml('', ""); sgml('', "

"); sgml('', "

\n"); sgml('start_element',sub { die "Unknown element: " . $_[0]->name; }); sgml('cdata',sub { output $_[0]; }); 1;