pricecharts

commit e5c8e104dad45a3decb96243fa7abae51abc312c
parent e35118120309ccb54d23a1b3630de9534a0fbe6a
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Fri, 27 Feb 2015 00:57:36 -0700

PriceChart: misc user agent tweaks

Put http error codes on a new line, don't send the host header because servers
don't like it, print the headers in verbose mode.

Diffstat:
M
PriceChart.pm
 | 
12
++++++++----

1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/PriceChart.pm b/PriceChart.pm
@@ -81,7 +81,8 @@ sub get_dom
 		return HTML::Grabber->new(html => $resp->decoded_content);
 	}
 
-	print "error: GET $url " . $resp->status_line . "\n";
+	print "error: GET $url failed\n";
+	print "error: " . $resp->status_line . "\n";
 	return undef;
 }
 
@@ -95,11 +96,14 @@ sub new_ua
 	$ua->default_header("Accept-Encoding" => scalar HTTP::Message::decodable());
 	$ua->default_header("Accept-Charset" => "utf-8");
 	$ua->default_header("Accept-Language" => "en-US");
-	$ua->default_header("Host" => "localhost:8177");
 	$ua->default_header("User-Agent" => $cfg->{"user_agent"});
 
-	while (my ($name, $value) = each %{$ua->default_headers}) {
-		print "info: new_ua: $name: $value\n";
+	if ($verbose) {
+		print "info: new_ua: user agent http headers are:\n";
+		my $headers = $ua->default_headers;
+		for (sort keys %$headers) {
+			print "              $_: " . $headers->{$_}. "\n";
+		}
 	}
 
 	return $ua;