pricecharts

commit 1975c3f9e33f400e66214a1161b81aefb1d3df02
parent 8f63ecc1ef714504c4520b646688e592624bdaf1
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Mon, 13 Oct 2014 23:11:28 -0600

product_scraper: print debug output when -v present

Diffstat:
M
product_scraper.pl
 | 
8
+++++++-

1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/product_scraper.pl b/product_scraper.pl
@@ -36,12 +36,15 @@ $dbh->do("create table if not exists products(" .
 # Memory Express
 #
 
+my $vendor = "Memory Express";
 my %product_map = ("televisions" => "Televisions",
 	"laptops" => "LaptopsNotebooks",
 	"hard_drives" => "HardDrives");
 
+print "$vendor:\n" if ($args{v});
+
 my $email;
-$email .= "*** Memory Express ***\n\n";
+$email .= "*** $vendor ***\n\n";
 $email .= "type            scraped total new\n";
 $email .= "------------    ------- ----- ---\n";
 
@@ -110,6 +113,7 @@ for (keys %product_map) {
 			$dbh->do("update products set last_seen = ? where part_num = ?",
 				undef, time, $part_num);
 			# also update title, brand here?
+			print "  " if ($args{v});
 			$old++;
 		}
 		else {
@@ -118,9 +122,11 @@ for (keys %product_map) {
 				"values (?, ?, ?, ?, ?, ?, ?)", undef,
 				$part_num, $brand, $title, $_, time, time, 0);
 			push @new, ([$_, $brand, $title, $part_num]);
+			print "+ " if ($args{v});
 			$new++;
 		}
 
+		print "($part_num) $brand $title\n" if ($args{v});
 		last;
 	}