commit 58434c85c8933140b798d876ef7eb83907ca46ab
parent 6f9c3960a6736b9b4d04be59a3ac946c9368d2cf
Author: haris <haris@metal.lan>
Date: Sun, 17 Nov 2013 19:24:35 +0200
fixed tabs alignment
Diffstat:
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