#! /usr/bin/perl ($current, $ini) = (@ARGV); $ini = "genfile.ini" unless $ini; $suffix = "html"; require ($ini); $color = "#DDDDCC" unless $color; $toctitle = "Table of Contents" unless $toctitle; $toccols = 1 unless $toccols; $stoptoc = 0 unless $stoptoc; if ($current ne $combined) { # 1. HTML Header, Menu, Banner &genheader($current); ($index eq $current) && !$stoptoc && &gentoc($current); # 2. Include the Body print "\n"; open (FILE, "<$current.inc"); while () { print; } close (FILE); # 3. HTML Footer, Menu &genfooter($current); } else { # generate combined file &genheader($current); &gentoc($current); print "\n"; for $item (@items) { ($file, $label, $title) = split (/[|]/, $item); open (FILE, "<$file.inc"); print "\n"; while () { print; } close (FILE); } &genfooter(); } ########################################################################## sub gentoc { # creates a table of contents local ($current) = (@_); # if missing, then make internal TOC local ($tocbegin) = "

$toctitle

$label: $title
$title

\n"; print $toc; } sub genmenu { # sets $menu and $maintitle (called by header and footer) return unless $current; ($current eq $combined) && return; local ($current, $top) = @_; # are we at the top? local ($options) = $top ? "name='top'" : ""; $menu = "

\n"; local ($nitems) = 0; local ($delim) = "\n"; for $item (@items) { ($menu .= $delim) if $nitems++; ($file, $label, $title) = split (/[|]/, $item); if ($current eq $file) { $menu .= "\n"; $maintitle = $title; $thisfile = $file; } else { $menu .= "\n"; } } ($menu .= "$delim\n") unless $top; $menu .= "

$label

$label

Top

\n"; } sub genheader { local ($current) = @_; local ($logfile) = $current ? ".$current.$suffix" : ".$index.$suffix"; local ($htmlfile) = $current ? "$current.$suffix" : "$index.$suffix"; local ($mystartdate) = &getstartdate($current); local ($leftlogocell, $rightlogocell); if ($leftlogo) { $leftlogocell = "$leftlogo"; } if ($rightlogo) { $rightlogocell = "$rightlogo"; } &genmenu($current, 1); print ' '; print " \n"; if ($hitcounter) { print "\" />\n"; } local ($BOOKTITLE) = "$booktitle : " if $booktitle; $filekeywords = $keywords{$current}; $filekeywords = $keywords unless $filekeywords; $filekeywords =~ s/^\s*//; $filekeywords =~ s/\s*$//; $filedescription = $description{$current}; $filedescription = $description unless $filedescription; print " $robot $BOOKTITLE$maintitle $style "; if ($booktitle) { print " $leftlogocell $rightlogocell

$booktitle

$booksubtitle

\n"; &genauthors(); print "
\n$authornote\n" if $authornote; print "

\n"; } print "$menu\n"; if ($showtitle) { print "

$maintitle

\n"; print "

$filedescription

" if ($filedescription && $current eq "index"); } if ($showstats) { print "

\n"; print "Last updated:\n"; print "\n"; # print "
\n"; print " \n"; print "Accesses since $mystartdate: \n"; print "\n"; print "

\n"; } if ($content{$thisfile}) { print "

$content{$thisfile}\n"; } } sub genauthors { local ($authno) = 0; local ($author); return unless @authors; if ($attribution) { print "$attribution\n"; } else { print "by\n"; } for $author (@authors) { local ($authorname, $authorurl, $authoremail) = split(/[|]/, $author); print " and \n" if $authno; print "\n"; $authorurl && print ""; print "$authorname"; $authorurl && print ""; print "\n"; print "\n"; $authno++; } } sub genfooter { local ($current) = @_; &genmenu($current, 0); print "

$footer

$menu "; } sub getstartdate # file { local ($target) = (@_); $target = "index" unless $target; local ($item); local ($file, $label, $title, $date); for $item (@items) { ($file, $label, $title, $date) = split (/[|]/, $item); if ($file eq $target) { if ($date) { return ($date); } else { return ($startdate); } } } return ($startdate); }