bliper

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

commit 58434c85c8933140b798d876ef7eb83907ca46ab
parent 6f9c3960a6736b9b4d04be59a3ac946c9368d2cf
Author: haris <haris@metal.lan>
Date:   Sun, 17 Nov 2013 19:24:35 +0200

fixed tabs alignment

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

diff --git a/bin/bliper-generate.pl b/bin/bliper-generate.pl @@ -21,19 +21,19 @@ print "Entering " . getcwd . "\n"; my @files = <*>; 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 - print OUT @pageb; - close OUT; + 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 + print OUT @pageb; + close OUT; - open (OUT, '>>', "../$outdir/index.html") or die $!; # append links to stories - print OUT "<a href=\"$file.html\">$file</a>"; - print OUT "\n"; - print OUT "<br>"; + open (OUT, '>>', "../$outdir/index.html") or die $!; # append links to stories + print OUT "<a href=\"$file.html\">$file</a>"; + print OUT "\n"; + print OUT "<br>"; } open (OUT, '>>', "../$outdir/index.html") or die $!; # close all tags in index.html