FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues 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 2b4e5afe9f
commit d33b38aa54
1 changed files with 12 additions and 3 deletions
Show Stats 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
trim($)
{
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}
sub
ALL4000T_Initialize($)
{
@ -111,7 +120,7 @@ ALL4000T_GetStatus($)
my $body = $response->content;
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;
my $sensor="temperature";