pricecharts

commit 1263dd77c419b623ab1f60aa1559958b3baae0c2
parent d02d8a6ebe0582e9877f94f57a7e3a00f9df1aae
Author: Kyle R W Milz <kyle@getaddrinfo.net>
Date:   Wed, 13 Aug 2014 01:41:11 -0600

product_scraper: use user_agent from config file

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

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/product_scraper.pl b/product_scraper.pl
@@ -13,7 +13,9 @@ use POSIX;
 
 
 my %args;
-getopts("v", \%args);
+getopts("vf:", \%args);
+
+my $cfg = get_config($args{f});
 
 if ($args{v}) {
 	# Disable buffering on STDOUT
@@ -35,9 +37,7 @@ $dbh->do("create table if not exists products(" .
 	"first_seen int, " . 
 	"last_seen int)") or die $DBI::errstr;
 
-# Chrome 36 Win7 64bit
-my $user_agent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.125 Safari/537.36";
-my $ua = LWP::UserAgent->new(agent => $user_agent);
+my $ua = LWP::UserAgent->new(agent => $cfg->{general}{user_agent});
 $ua->default_header("Accept" => "*/*");
 
 #