# This module provides some useful things for building home pages
# The homepage_table filter formats the main body of the page
!on filter 'homepage_table';; $name='table'; \
$params='noheadings; style="plain"; cellpadding=0; cellspacing=0;' . \
'colaligns="RLL"; coltags="B"; colvaligns="Top"' . \
$params
# The homepage_title macro builds a nice looking title
!block script
@_homepage_title_MacroArgs = (
'Name Type Default Rule',
'title string _NULL_',
);
sub homepage_title_Macro {
local(%arg) = @_;
local(@text);
# Get the title
my $title = $arg{'title'} || $var{'HTML_TITLE'};
# Generate the text and return it
@text = ("{{INLINE:<B>\n");
for $word (split(/\s+/, $title)) {
$word =~ s/(.)/$1 /g;
push(@text, "<TT><FONT SIZE=+2>$word</FONT></TT><BR>\n");
}
push(@text, '</B>}}');
return @text;
}
!endblock