pricecharts

commit b1ab2080d7203f03aee01dfceb9076455ab668a5
parent fd41172564d3625d7728351561ffce4d106e847d
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Sat, 25 Apr 2015 23:54:39 -0600

pc_html: rename template to www

Diffstat:
M
pc_html
 | 
34
+++++++++++++++-------------------

1 file changed, 15 insertions(+), 19 deletions(-)
diff --git a/pc_html b/pc_html
@@ -32,8 +32,8 @@ my $config = {
 	INTERPOLATE => 1, POST_CHOMP => 1, EVAL_PERL => 1,
 	INCLUDE_PATH => "$work_dir/tt", OUTPUT_PATH => $work_dir
 };
-my $template = Template->new($config)
-	|| die "template: . " . Template->error() . "\n";
+my $www = Template->new($config)
+	|| die Template->error(), "\n";
 
 #
 # manufacturers
@@ -129,7 +129,6 @@ $stale_clause = $args{a} ? "" : "where svg_stale = 1";
 my $sql = "select * from products $stale_clause";
 my $products = $dbh->selectall_hashref($sql, "part_num");
 
-my $n = scalar keys %$products;
 while (my ($part_num, $row) = each %$products) {
 	my $part_link = linkify($part_num);
 	my $manuf_link = linkify($row->{manufacturer});
@@ -137,11 +136,10 @@ while (my ($part_num, $row) = each %$products) {
 	$row->{description} =
 		get_description($row->{manufacturer}, $row->{part_num});
 
-	$template->process("product.tt", $row,
-		"products/$manuf_link/$part_link.html")
-		|| die "template: " . $template->error() . "\n";
+	my $url = "products/$manuf_link/$part_link.html";
+	$www->process("product.tt", $row, $url) or die $www->error(), "\n";
 }
-print "$n processed\n" if ($args{v});
+print scalar(keys %$products) . " processed\n" if ($args{v});
 
 #
 # index
@@ -161,8 +159,7 @@ my ($r) = $dbh->selectrow_array($sql);
 
 my $vars = { nret => $r, nmanuf => $m, nprod => $p, news => $new, upds => $upd };
 print "info: index: $p products, $m manufacturers, $r retailers\n" if ($args{v});
-$template->process("index.tt", $vars, "index.html")
-	or die "template: " . $template->error() . "\n";
+$www->process("index.tt", $vars, "index.html") or die $www->error(), "\n";
 
 #
 # svg
@@ -173,6 +170,7 @@ my ($left, $center, $right, $top, $middle, $bottom) = (3, 957, 40, 15, 150, 20);
 my $width = $right + $center + $left;
 my $height = $top + $middle + $bottom;
 
+my @series_keys = ("retailer", "date");
 $sql = "select retailer, date, price from prices where manufacturer = ? and
 	part_num = ?";
 my $series_sth = $dbh->prepare($sql);
@@ -198,8 +196,7 @@ for (@{$dbh->selectall_arrayref($parts_sql)}) {
 		$dbh->selectrow_array($extremes_sth, undef, $manufacturer, $part_num);
 	next unless (defined $x_min);
 
-	my @key_fields = ("retailer", "date");
-	my $series = $dbh->selectall_hashref($series_sth, \@key_fields, undef,
+	my $series = $dbh->selectall_hashref($series_sth, \@series_keys, undef,
 		$manufacturer, $part_num);
 
 	my $svg = make_svg($series, $x_min, $x_max, $y_min, $y_max, $part_num, $retailer_info);
@@ -216,10 +213,9 @@ for (@{$dbh->selectall_arrayref($parts_sql)}) {
 
 	$rendered++;
 }
-printf "\b%i rendered, %i skipped\n", $rendered, $total - $rendered if ($args{v});
+printf "\b$rendered rendered, %i skipped\n", $total - $rendered if ($args{v});
 
 $dbh->do("update products set svg_stale = 0");
-
 $dbh->disconnect();
 
 #
@@ -255,20 +251,20 @@ sub generate_folder
 			};
 			my $type_link = linkify($type);
 			my $out_path = "$name_lc/$it_link/$type_link.html";
-			$template->process("fine_list.tt", $vars, $out_path)
-				or die "template: " . $template->error() . "\n";
+			$www->process("fine_list.tt", $vars, $out_path)
+				or die $www->error(), "\n";
 		}
 
 		my $summary = $dbh->selectall_arrayref($sql_summary, undef, $it);
 		my $vars = { type => $name_lc, name => $it, info => $summary };
-		$template->process("summary.tt", $vars, "$name_lc/$it_link.html")
-			or die "template: " . $template->error() . "\n";
+		$www->process("summary.tt", $vars, "$name_lc/$it_link.html")
+			or die $www->error(), "\n";
 	}
 	print "\b$num processed\n" if ($args{v});
 
 	my $vars = { name => $name, list => $coarse_list };
-	$template->process("coarse_list.tt", $vars, "$name_lc.html")
-		or die "template: " . $template->error() . "\n";
+	$www->process("coarse_list.tt", $vars, "$name_lc.html")
+		or die $www->error(), "\n";
 }
 
 sub linkify