1# This module provides some useful things for building home pages
2
3# The homepage_table filter formats the main body of the page
4!on filter 'homepage_table';; $name='table'; \
5       $params='noheadings; style="plain"; cellpadding=0; cellspacing=0;' . \
6       'colaligns="RLL"; coltags="B"; colvaligns="Top"' . \
7       $params
8
9# The homepage_title macro builds a nice looking title
10!block script
11@_homepage_title_MacroArgs = (
12    'Name       Type        Default     Rule',
13    'title      string      _NULL_',
14);
15sub homepage_title_Macro {
16    local(%arg) = @_;
17    local(@text);
18
19    # Get the title
20    my $title = $arg{'title'} || $var{'HTML_TITLE'};
21
22    # Generate the text and return it
23    @text = ("{{INLINE:<B>\n");
24    for $word (split(/\s+/, $title)) {
25        $word =~ s/(.)/$1 /g;
26        push(@text, "<TT><FONT SIZE=+2>$word</FONT></TT><BR>\n");
27    }
28    push(@text, '</B>}}');
29    return @text;
30}
31!endblock
32