bliper

static html page generation in perl
git clone git://git.2f30.org/bliper
Log | Files | Refs | README | LICENSE

commit 9adc240cd6f83400d9208f1a6fcfce9642f96bdf
parent e29ed92388c93f1d1bf779693e317dfd6d7c967c
Author: haris <haris@metal.lan>
Date:   Sun, 17 Nov 2013 18:55:26 +0200

fixed tabs alignment

Diffstat:
Mbin/bliper-generate.pl | 22+++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/bin/bliper-generate.pl b/bin/bliper-generate.pl @@ -5,28 +5,28 @@ use Cwd; my $main_dir = getcwd; my $main_page = 'output/index.html'; -my $indir = 'input'; # the input directory name -my $outdir = 'output'; # the output directory name -my @maint = qx(cat template/main-top); # top section for main page -my @mainb = qx(cat template/main-bottom); # bottom section for main page -my @footer = qx(cat template/footer); # footer for every page incl main -my @paget = qx(cat template/page-top); # top section for every page in input/ -my @pageb = qx(cat template/page-bottom); # bottom section for every page in input/ +my $indir = 'input'; # the input directory name +my $outdir = 'output'; # the output directory name +my @maint = qx(cat template/main-top); # top section for main page +my @mainb = qx(cat template/main-bottom); # bottom section for main page +my @footer = qx(cat template/footer); # footer for every page incl main +my @paget = qx(cat template/page-top); # top section for every page in input/ +my @pageb = qx(cat template/page-bottom); # bottom section for every page in input/ -open (OUT, '>', "$outdir/index.html") or die $!; # create the index.html page +open (OUT, '>', "$outdir/index.html") or die $!; # create the index.html page print OUT @maint; chdir($indir) or die "Can't change path to $indir $!\n"; print "\t\t\tblipper (BLog In PERl) v0.1\n"; print "Entering " . getcwd . "\n"; my @files = <*>; -foreach my $file (@files) { # Read each file(post) from indir, cat to $outdir/$file.html +foreach my $file (@files) { # Read each file(post) from indir, cat to $outdir/$file.html print "Processing file: " . $file . "\t==> output file:\t" . "../$outdir/$file.html" . "\n"; my @array = qx(cat $file); open (OUT, '>', "../$outdir/$file.html") or die $!; print OUT @paget; - my @html = qx(Markdown.pl $file); # markdown to html - print OUT @html; # append content + my @html = qx(Markdown.pl $file); # markdown to html + print OUT @html; # append content print OUT @pageb; close OUT;