bliper

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

remove useless array

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