tombo/htdocs/pagegen.pl

#! /usr/bin/perl

$base  ="http://tombo.sourceforge.jp";
$pjhome="http://sourceforge.jp/projects/tombo";

$menufile = "menu.txt";
$topfile = "title.txt";
$headerfile = "header.txt";


if ($#ARGV != 1 || !-d $ARGV[0] || !-d $ARGV[1]) {
        print "Usage : pagegen.pl <TMPLDIR> <OUTDIR>\n";
        exit 1;
}

$srcdir = $ARGV[0];
$dstdir = $ARGV[1];

opendir(DIR_S, $srcdir) || die;
while($file = readdir(DIR_S)) {
        next unless ($file =~ /\.tmpl/);
        pagegen($file);
}
closedir(DIR_S);

exit 0;

sub pagegen() {
        my ($file) = @_;

        my ($outfile) = $file;

        $outfile =~ s/\.tmpl$/\.html/;

        open(OUT, ">$dstdir/$outfile") || die "$dstdir/$outfile : $!";

        open(BODY, "$srcdir/$file") || die;
        while(<BODY>) {
                chop;
                if (/^<!-- TOP -->$/) {
                        include_top(OUT);
                        next;
                }
                if (/^<!-- MENU -->$/) {
                        include_menu(OUT);
                        next;
                }
                if (/^<!-- HEADER -->$/) {
                        include_header(OUT);
                        next;
                }
                if (/^<!-- FOOTER +(\$.+\$) +-->$/) {
                        include_footer(OUT, $1);
                        next;
                }
                print OUT "$_\n";
        }
        close(BODY);
        close(OUT);
}

sub include_top()
{
        my ($stream) = @_;
        open(TOP, "$srcdir/$topfile") || die;
        while(<TOP>) {
                print $stream $_;
        }
        close(TOP);
}

sub include_header()
{
        my($stream) = @_;
        open(HEADER, "$srcdir/$headerfile") || die;
        while(<HEADER>) {
                print $stream $_;
        }
        close(HEADER);
}

sub include_menu()
{
        my($stream) = @_;
        print $stream '<table width="100%"><tr valign="top">'."\n";
        print $stream '<td width="20%" bgcolor="#FAF0E6"'."\n";

        open(MENU, "$srcdir/$menufile") || die;
        while(<MENU>) {
                s/_PJHOME_/$pjhome/g;
                s/_BASE_/$base/g;
                print $stream $_;
        }
        close(MENU);

        print $stream '</td>'."\n";
        print $stream '<td width="2%">'."\n";
        print $stream '<td width="78%" bgcolor="#FFFFFF">'."\n";
}

sub include_footer()
{
        my($stream, $lastupd) = @_;
        print $stream <<"HTML_FOOTER";
</td>
</tr>
</table>
<hr>
<table width="100%">
Copyright (C) 2000-2003, Tomohisa Hirami All rights reserved.<br>
Copyright (C) 2004, TOMBO maintainers All rights reserved.<br>
Last-Update: $lastupd
</table>
</body>
</html>
HTML_FOOTER
}