From baba0cc0a6e6d2d96dacb7980600075e27107ea3 Mon Sep 17 00:00:00 2001
From: laforce <>
Date: Sat, 25 Feb 2012 17:20:07 +0000
Subject: [PATCH] removed dependencies for LWP::UserAgent and HTTP::Request;
 replaced with GetHttpFile from 99_updatefhem.pm

git-svn-id: https://svn.fhem.de/fhem/trunk@1287 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/24_NetIO230B.pm | 40 +++++++++++----------------------------
 1 file changed, 11 insertions(+), 29 deletions(-)

diff --git a/fhem/FHEM/24_NetIO230B.pm b/fhem/FHEM/24_NetIO230B.pm
index 536f648e2..9ba42bc7b 100644
--- a/fhem/FHEM/24_NetIO230B.pm
+++ b/fhem/FHEM/24_NetIO230B.pm
@@ -37,7 +37,7 @@
 # Changes:
 #---------
 # 2012-02-03	0.1		initial realease
-#
+# 2012-02-25	0.2		removed dependencies for LWP::UserAgent and HTTP::Request;
 
 ################################################################
 package main;
@@ -45,8 +45,7 @@ package main;
 use strict;
 use warnings;
 use Data::Dumper;
-use LWP::UserAgent;
-use HTTP::Request;
+use IO::Socket;
 
 use constant PARAM_NAME 	=> 1;
 use constant PARAM_HOST 	=> 2;
@@ -121,46 +120,29 @@ NetIO230B_Request($@)
 	my $URL='';
 	my $log='';
 
-	$URL="http://".$hash->{HOST}."/tgi/control.tgi?l=p:". $hash->{USER}.":".$hash->{PASS}."&p=";
-	if($cmd eq "set") {
-		$URL .= "$list";
-	} else {
-		$URL .= "l";
-	}
-
-	my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 30);
-	my $header = HTTP::Request->new(GET => $URL);
-	my $request = HTTP::Request->new('GET', $URL, $header);
-	my $response = $agent->request($request);
-
-	$log.= "Can't get $URL -- ".$response->status_line
-		unless $response->is_success;
-
-	if($log ne "")
+	my $response = GetHttpFile($hash->{HOST}.":80","/tgi/control.tgi?l=p:". $hash->{USER}.":".$hash->{PASS}."&p=l");
+	if(!$response or length($response)==0)
 	{
-		Log 3, "NetIO230B_Request: ".$log;
+		Log 3, "NetIO230B_Request failed: ".$log;
 		return("");
   	}
 
-	# read decoded content
-	my $buffer =  $response->decoded_content;
-
 	# strip html tags
-	$buffer =~ s/<(?:[^>'"]*|(['"]).*?\1)*>//gs;
+	$response =~ s/<(?:[^>'"]*|(['"]).*?\1)*>//gs;
 
 	# strip leading whitespace
-	$buffer =~ s/^\s+//;
+	$response =~ s/^\s+//;
 
 	#strip trailing whitespace
-	$buffer =~ s/\s+$//;
+	$response =~ s/\s+$//;
 
-	return $buffer if ($cmd eq "set");
+	return $response if ($cmd eq "set");
 
 	#+++todo
 	#555 FORBIDDEN
 
 	#split the result into an array
-	my @values=split(/ */,$buffer);
+	my @values=split(/ */,$response);
 
 	#save the values to the readings hash
 	my $state = "???";
@@ -183,7 +165,7 @@ NetIO230B_Request($@)
 	#	Log 1,  "$r  S: $k{$r}{VAL}  T: $k{$r}{TIME}";
 	#}
 
-    return $buffer;
+    return $response;
 }
 
 ### _Define routing is called when fhem starts -> 'reloading' of the module does not call the define routine!!