bliper

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

fixed tabs alignment

Diffstat:
M
bin/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;