mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Formating fixes

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@759 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
sachag
2010-11-30 12:49:57 +00:00
parent 8de597b79c
commit e5ec15c8af
1 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/88_ALL4000T.pm
View File

@@ -35,6 +35,15 @@ use HTTP::Request;
sub Log($$); sub Log($$);
##################################### #####################################
sub
trim($)
{
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}
sub sub
ALL4000T_Initialize($) ALL4000T_Initialize($)
{ {
@@ -111,7 +120,7 @@ ALL4000T_GetStatus($)
my $body = $response->content; my $body = $response->content;
my $data = $xml->XMLin($body); my $data = $xml->XMLin($body);
my $current=$data->{BODY}->{FORM}->{TEXTAREA}->{xml}->{data}->{$host_port}; my $current=trim($data->{BODY}->{FORM}->{TEXTAREA}->{xml}->{data}->{$host_port});
$text="Temperature: ".$current; $text="Temperature: ".$current;
my $sensor="temperature"; my $sensor="temperature";