bliper

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

commit fda177e9fe5f06794fe9da641a5a67af9105cfbc
parent a7cbb337cdb463604f68d8d1d30a2174fae40da3
Author: cipher <haris@2f30.org>
Date:   Tue Feb 18 18:37:21 +0200

remove useless array

Diffstat:
bin/bliper-generate.pl | 15+++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/bin/bliper-generate.pl b/bin/bliper-generate.pl @@ -37,8 +37,8 @@ foreach my $page (@pages) { my @array = qx(cat $page); open (OUT, '>', "../$outdir/$page.html") or die $!; print OUT @paget; - my @html = qx(Markdown.pl $page); - print OUT @html; + my $html = qx(Markdown.pl $page); + print OUT $html; print OUT @pageb; close OUT; @@ -69,13 +69,12 @@ foreach my $file (@files) { # Read each file(post) from indir, cat to $outdi open (OUT, '>', "../$outdir/$file.html") or die $!; print OUT @articlet; - my @html = qx(Markdown.pl $file); # markdown to html - my $preview = qx(Markdown.pl $file); - print OUT @html; # append content + my $html = qx(Markdown.pl $file); + print OUT $html; # append content print OUT @articleb; close OUT; - my @preview_array = split(/\n{2,}/, $preview); # Pull title and first paragraph from article. + my @preview_array = split(/\n{2,}/, $html); # Pull title and first paragraph from article. $preview_array[0] =~ s/<h1/<h3/g; # change h1 to h3 for the index page. open (OUT, '>>', "../$outdir/index.html") or die $!; # append links to stories in index.html @@ -103,8 +102,8 @@ foreach my $file (@ind_pages) { # Read each page that we do not want to add my @array = qx(cat $file); open (OUT, '>', "../$outdir/$file.html") or die $!; print OUT @articlet; - 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 @articleb; close OUT; }