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