bliper

commit e3ecd7e8d14a781c00ab940f3c3cbc890b2a50ac
parent 58434c85c8933140b798d876ef7eb83907ca46ab
Author: Haris <haris@feanor.lan>
Date:   Mon, 18 Nov 2013 15:01:51 +0200

minor alignment output changes

Diffstat:
M
bin/bliper-generate.pl
 | 
10
++++++----

1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/bin/bliper-generate.pl b/bin/bliper-generate.pl
@@ -16,12 +16,14 @@ my @pageb	= qx(cat template/page-bottom);			# bottom section for every page in i
 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";
+print "\n\t\t\tblipper (BLog In PERl) v0.1\n\n";
+print "Entering " . getcwd . "\n\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";
+	print "Processing file: ";
+	printf ("%-30s", $file);
+	print "\t==> output file:\t" . "../$outdir/$file.html\n";
 	my @array = qx(cat $file);
 	open (OUT, '>', "../$outdir/$file.html") or die $!;
 	print OUT @paget;
@@ -41,6 +43,6 @@ print OUT @mainb;
 print OUT @footer;
 close OUT;
 
-print "Leaving " . getcwd . "\n";
+print "\nLeaving " . getcwd . "\n";
 chdir($main_dir) or die "Can't change path to $main_dir $!\n";
 print "Blog generation completed. Files are in output/ dir.\n";