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

15
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,9 +120,9 @@ 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";
Log 4,"$name: $text"; Log 4,"$name: $text";
if (!$hash->{local}){ if (!$hash->{local}){
@ -122,7 +131,7 @@ ALL4000T_GetStatus($)
$hash->{READINGS}{$sensor}{VAL} = $current." (Celsius)";; $hash->{READINGS}{$sensor}{VAL} = $current." (Celsius)";;
DoTrigger($name, undef) if($init_done); DoTrigger($name, undef) if($init_done);
} }
$hash->{STATE} = "T:".$current; $hash->{STATE} = "T: ".$current;
return($text); return($text);
} }