commit eff312c3183e7f9e9a1f2b8be0b27f1633ae9112
parent 048f6a2bfff1765e4fc492ecdb6c737833f6f186
Author: Kyle Milz <kyle@getaddrinfo.net>
Date: Fri, 24 Apr 2015 00:32:35 -0600
pc_html: last minute fixups
- sort recently updated by last scraped descending
- spin in better places
Diffstat:
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/pc_html b/pc_html
@@ -140,6 +140,7 @@ print "info: products: " if ($args{v});
while (my ($part_num, $row) = each %$products) {
my $part_num_lc = lc($part_num);
my $manufacturer_lc = lc($row->{manufacturer});
+ spin() if ($args{v});
$row->{description} =
get_description($row->{manufacturer}, $row->{part_num});
@@ -157,7 +158,7 @@ print "\b$n processed\n" if ($args{v});
$sql = "select manufacturer, part_num from products where first_seen > ? limit 10";
my $new = $dbh->selectall_arrayref($sql, undef, time - (7 * 24 * 60 * 60));
-$sql = "select manufacturer, part_num from products where last_seen > ? order by last_seen";
+$sql = "select manufacturer, part_num from products where last_scraped > ? order by last_scraped desc";
my $upd = $dbh->selectall_arrayref($sql, undef, time - (0.5 * 60 * 60));
my $cutoff = time - (30 * 24 * 60 * 60);
@@ -277,11 +278,11 @@ sub generate_folder
my $stale_list = $dbh->selectcol_arrayref($sql_stale_outer);
my $num = scalar @$stale_list;
for my $it (@$stale_list) {
- spin() if ($args{v});
my $it_link = linkify($it);
my $types = $dbh->selectcol_arrayref($sql_types, undef, $it);
for my $type (sort @$types) {
+ spin() if ($args{v});
my $products = $dbh->selectall_arrayref($sql_products, undef, $type, $it);
$_->[2] = get_description($_->[0], $_->[1]) for (@$products);