pricecharts

commit 82b8589fe7e3ff7468b9c3efc9c54b896d845192
parent e3b9e8302f0ab0a1b38124892d1885957f6d2134
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Sun, 15 Mar 2015 17:46:44 -0600

gen_index: simplify

Diffstat:
M
gen_index
 | 
33
+++++++++++++--------------------

1 file changed, 13 insertions(+), 20 deletions(-)
diff --git a/gen_index b/gen_index
@@ -19,44 +19,37 @@ my $cfg = get_config();
 my $dbh = get_dbh($cfg->{"general"});
 
 my $http_cfg = $cfg->{"http"};
-my $output =  $http_cfg->{"chroot"} . $http_cfg->{"htdocs"};
-my $include = $output;
-# my $include = "/home/kyle/src/pricechart/html";
-
-print "info: including from: $include\n" if ($args{v});
-print "info: outputting to:  $output\n" if ($args{v});
+my $work_dir =  $http_cfg->{"chroot"} . $http_cfg->{"htdocs"};
+print "info: work dir: $work_dir\n" if ($args{v});
 
 my $config = {
 	INTERPOLATE => 1,
 	POST_CHOMP => 1,
 	EVAL_PERL => 1,
-	INCLUDE_PATH => $include,
-	OUTPUT_PATH => $output
+	INCLUDE_PATH => $work_dir,
+	OUTPUT_PATH => $work_dir
 };
 my $template = Template->new($config);
 
 my $query = "select count(distinct manufacturer) from products";
-my ($manufacturers) = $dbh->selectrow_array($query);
-print "info: $manufacturers manufacturers\n" if ($args{v});
+my ($m) = $dbh->selectrow_array($query);
 
 $query = "select count(part_num) from products";
-my ($products) = $dbh->selectrow_array($query);
-print "info: $products products\n" if ($args{v});
+my ($p) = $dbh->selectrow_array($query);
 
 $query = "select count(distinct vendor) from prices";
-my ($vendors) = $dbh->selectrow_array($query);
-print "info: $vendors vendors\n" if ($args{v});
+my ($v) = $dbh->selectrow_array($query);
 
 my $time = time - (7 * 24 * 60 * 60);
 $query = "select count(part_num) from products where first_seen > ?";
-my ($new_products) = $dbh->selectrow_array($query, undef, $time);
-print "info: $new_products new products (1 week)\n" if ($args{v});
+my ($n) = $dbh->selectrow_array($query, undef, $time);
 
+print "info: $m manufacturers, $p products ($n new), $v vendors\n" if ($args{v});
 my $vars = {
-	num_vendors => $vendors,
-	num_manufacturers => $manufacturers,
-	num_products => $products,
-	new_products => $new_products
+	num_vendors => $v,
+	num_manufacturers => $m,
+	num_products => $p,
+	new_products => $n
 };
 
 $template->process("index.tt2", $vars, "index.html")