pricecharts

track prices of consumer electronics
Log | Files | Refs | README

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:
MPriceChart.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;