bliper

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

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

minor alignment output changes

Diffstat:
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";