############################################################################## # The Faq-O-Matic is Copyright 1997 by Jon Howell, all rights reserved. # # # # This program is free software; you can redistribute it and/or # # modify it under the terms of the GNU General Public License # # as published by the Free Software Foundation; either version 2 # # of the License, or (at your option) any later version. # # # # This program is distributed in the hope that it will be useful, # # but WITHOUT ANY WARRANTY; without even the implied warranty of # # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # # GNU General Public License for more details. # # # # You should have received a copy of the GNU General Public License # # along with this program; if not, write to the Free Software # # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.# # # # Jon Howell can be contacted at: # # 6211 Sudikoff Lab, Dartmouth College # # Hanover, NH 03755-3510 # # jonh@cs.dartmouth.edu # # # # An electronic copy of the GPL is available at: # # http://www.gnu.org/copyleft/gpl.html # # # ############################################################################## ### ### Appearance.pm ### ### These and variables functions supply some of the appearance ### of Faq-O-Matic pages. ### package FAQ::OMatic::Appearance; # These control the overall appearance of the page (background color/gif, # title string). Please leave the string in the footer that identifies # the author and the homepage of Faq-O-Matic. sub cPageHeader { my $params = shift; my $suppressType = shift || ''; # this is a func because FAQ::OMatic::fomTitle() isn't well-defined at # global initialization time. my $type = ($suppressType) ? '' : "Content-type: text/html\n\n"; return $type ."".FAQ::OMatic::fomTitle() .FAQ::OMatic::pageDesc($params)."\n" ."\n"; } sub cPageFooter { my $params = shift; # hash ref my $showLinks = shift; my $page= "\n" .partStart({}) .""; if ($showLinks) { #my $boxColor = "bgcolor=\"$FAQ::OMatic::Config::backgroundColor\""; my $boxColor = ''; my $filename = $params->{'file'} || '1'; my $recurse = $params->{'_recurse'} || ''; my $item = new FAQ::OMatic::Item($filename); if ($item->isCategory() and (not $recurse)) { $page.="\n"; } else { $page.="\n"; } $page.=""; $page.=""; $page.=""; } else { $page.="\n"; } $page .= "
\n" ."The Faq-O-Matic is by Jon Howell.\n" ."" .FAQ::OMatic::makeAref('-command'=>'faq', '-params'=>$params, '-changedParams'=>{'_recurse'=>1}) ."Show This Entire Category" ."" .FAQ::OMatic::makeAref('-command'=>'searchForm', '-params'=>$params) ."Search" ."" .FAQ::OMatic::makeAref('-command'=>'appearanceForm', '-params'=>$params) ."Appearance" .""; if ($params->{'showEditCmds'}) { $page.=FAQ::OMatic::makeAref('-command'=>'faq', '-params'=>$params, '-changedParams'=>{'showEditCmds'=>''}) ."Hide Edit Commands"; } else { $page.=FAQ::OMatic::makeAref('-command'=>'faq', '-params'=>$params, '-changedParams'=>{'showEditCmds'=>'1'}) ."Show Edit Commands"; } $page.="
" .partEnd({}) ."\n"; return $page; } # This is called before every item is printed. (There are multiple # items in the "[Show All Items Below Here]" display and the search # output.) sub itemStart { my $params = shift; my $alreadyStart = $params->{'_as'} || ''; # info hidden away in $params if (not $alreadyStart) { $params->{'_as'} = 1; if (not $params->{'simple'}) { return "
" ." \n"; } else { return ""; } } else { if (not $params->{'simple'}) { return "
" ." \n"; } else { return "

"; } } } # This is called only once, after the last item is drawn. sub itemEnd { my $params = shift; if (not $params->{'simple'}) { return "

\n"; } else { return "
"; } } # These are called before and after drawing each part. sub partStart { my $params = shift; my $part = shift; # can examine the part to see if it's a directory if (not $params->{'simple'}) { if (($part->{'Type'} || '') eq 'directory') { return "
\n"; } else { return "
\n"; } } else { return "
\n"; } } sub partEnd { my $params = shift; if (not $params->{'simple'}) { return "
\n"; } else { return "
"; } } # These surround the editing buttons. I make them smaller so they'll # not look as much like part of the item being displayed, and more # like little intruders. $editStart = ""; $editEnd = ""; # These surround words in the document that were in a search query. $highlightColor = $FAQ::OMatic::Config::highlightColor || "#a01010"; $highlightStart = ""; $highlightEnd = ""; $graphHistory = 60; # default graphs show data going back two months $graphWidth = 250; # image size of stats graphs $graphHeight = 180; 1;