From e8ce313ccf54131ca4241e8c29e8b1345de3d240 Mon Sep 17 00:00:00 2001 From: tpoitzsch Date: Tue, 20 Jan 2015 19:44:05 +0000 Subject: [PATCH] PROPLANTA: user agent git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@7641 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/59_PROPLANTA.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/fhem/FHEM/59_PROPLANTA.pm b/fhem/FHEM/59_PROPLANTA.pm index 4dc365b13..abd21f648 100644 --- a/fhem/FHEM/59_PROPLANTA.pm +++ b/fhem/FHEM/59_PROPLANTA.pm @@ -492,7 +492,8 @@ sub PROPLANTA_HtmlAcquire($$) PROPLANTA_Log $hash, 4, "Start capturing of $URL"; my $err_log = ""; - my $agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http'], timeout => 10 ); + my $agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http'], timeout => 10 + , agent => "Mozilla/5.0 (Windows NT 5.1) [de-DE,de;q=0.8,en-US;q=0.6,en;q=0.4]" ); my $request = HTTP::Request->new( GET => $URL ); my $response = $agent->request($request); $err_log = "Can't get $URL -- " . $response->status_line