bliper

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

commit 34fffb79dd37fa7e36205860711b5c75fdf1f58a
parent 54af98f49e3831df00f84ac7ceedbc4a00e8d097
Author: cipher <haris@2f30.org>
Date:   Tue Dec  3 15:04:37 +0200

saner output messages in Makefile and bliper-generate.pl

Diffstat:
Makefile | 2++
bin/bliper-generate.pl | 8+++++---
2 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/Makefile b/Makefile @@ -4,6 +4,8 @@ bliper.create: @exec perl bin/bliper-generate.pl menu.create: + @echo "" + @echo "Generating menu in the following pages:" @exec sh bin/bliper-menu-creation.sh clean: diff --git a/bin/bliper-generate.pl b/bin/bliper-generate.pl @@ -54,7 +54,7 @@ close OUT or die $!; chdir($main_dir) or die "Can't change path to $main_dir $!\n"; print "\nIndividual page generation completed. "; chdir($indir) or die "Can't change path to $indir $!\n"; -print "Entering " . getcwd . "\n\n"; +print "\nEntering " . getcwd . "\n\n"; my @files = <*>; @files = reverse @files; @@ -77,12 +77,13 @@ foreach my $file (@files) { # Read each file(post) from indir, cat to $outdi } chdir($main_dir) or die "Can't change path to $main_dir $!\n"; +print "\nArticle generation completed. "; chdir($pages_b) or die "Can't change path to $indir $!\n"; -print "Entering " . getcwd . "\n\n"; +print "\nEntering " . getcwd . "\n\n"; my @ind_pages = <*>; foreach my $file (@ind_pages) { # Read each page that we do not want to add in our menu - print "Processing individual page:"; + print "Processing pages:"; printf ("%-30s", $file); print "\t==> output file:\t" . "../$outdir/$file.html\n"; my @array = qx(cat $file); @@ -99,6 +100,7 @@ print OUT @mainb; print OUT @footer; close OUT; +print "\nPages in pages_b/ generation completed. "; print "\nLeaving " . getcwd . "\n"; chdir($main_dir) or die "Can't change path to $main_dir $!\n"; print "Site generation completed. Files are in output/ dir.\n";