Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-07 22:29:19 +00:00
Code

FileLog and Plot

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2334 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
fladdy 2012-12-16 09:42:51 +00:00
parent 44b746ffcc
commit 00ff83e6d3
1 changed files with 37 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
fhem/contrib/58_GPIO4.pm
View File

@ -1,6 +1,6 @@
############################################################################# #############################################################################
# GPIO4.pm written by Peter J. Flathmann # # GPIO4.pm written by Peter J. Flathmann #
# Version 0.2, 2012-12-14 # # Version 0.3, 2012-12-16 #
# # # #
# define RPi GPIO4 BUSMASTER # # define RPi GPIO4 BUSMASTER #
# # # #
@ -40,14 +40,19 @@ sub GPIO4_Define($$) {
return "syntax: define <name> GPIO4 <id>|BUSMASTER" if (int(@a) != 3); return "syntax: define <name> GPIO4 <id>|BUSMASTER" if (int(@a) != 3);
$hash->{NAME} = $a[0]; $hash->{NAME} = $a[0];
$hash->{TYPE} = $a[1]; $hash->{TYPE} = $a[1];
if ($a[2] eq "BUSMASTER") { if ($a[2] eq "BUSMASTER") {
$hash->{STATE} = "Initialized"; $hash->{STATE} = "Initialized";
InternalTimer(gettimeofday()+10, "GPIO4_GetSlaves", $hash, 0);
# check connected devices after fhem.cfg completely loaded to avoid duplicates (5s)
InternalTimer(gettimeofday()+5, "GPIO4_GetSlaves", $hash, 0);
} }
else { else {
my ($family, $id) = split('-',$a[2]); my ($family, $id) = split('-',$a[2]);
if ($family eq "28" || $family eq "10") { if ($family eq "28" || $family eq "10") {
InternalTimer(gettimeofday()+10, "GPIO4_DeviceUpdateLoop", $hash, 0);
# start polling device after fhem.cfg completely loaded to ensure pollingInterval attribute is assigned (5s)
InternalTimer(gettimeofday()+5, "GPIO4_DeviceUpdateLoop", $hash, 0);
} }
else { else {
return "GPIO4: device family $family not supported"; return "GPIO4: device family $family not supported";
@ -63,20 +68,24 @@ sub GPIO4_GetSlaves($) {
my @slaves = <SLAVES>; my @slaves = <SLAVES>;
chomp(@slaves); chomp(@slaves);
close(SLAVES); close(SLAVES);
$hash->{CLIENTS}=join(',',@slaves); $hash->{SLAVES} = join(',',@slaves);
foreach my $slave (@slaves) { foreach my $slave (@slaves) {
GPIO_GetSlave($slave); GPIO_GetSlave($hash,$slave);
} }
return undef; return undef;
} }
sub GPIO_GetSlave($) { sub GPIO_GetSlave($$) {
my ($slave) = @_; my ($hash,$slave) = @_;
Log 2, "GPIO4: GPIO4_GetSlave($slave)"; Log 2, "GPIO4: GPIO4_GetSlave($slave)";
my ($family, $id) = split("-", $slave); my ($family, $id) = split("-", $slave);
# return if device exists
foreach my $devicename (keys %defs) { foreach my $devicename (keys %defs) {
return undef if ($defs{$devicename}{DEF} eq $slave); return undef if (exists $defs{$devicename}{DEF} && $defs{$devicename}{DEF} eq $slave);
} }
# device does not exist, create it
Log 2, "GPIO4: create $slave"; Log 2, "GPIO4: create $slave";
CommandDefine(undef,"gpio4_$id GPIO4 $slave"); CommandDefine(undef,"gpio4_$id GPIO4 $slave");
if ($family eq "28") { if ($family eq "28") {
@ -86,6 +95,21 @@ sub GPIO_GetSlave($) {
$attr{"gpio4_$id"}{model} = "DS1820"; $attr{"gpio4_$id"}{model} = "DS1820";
} }
$attr{"gpio4_$id"}{room} = "GPIO4"; $attr{"gpio4_$id"}{room} = "GPIO4";
$defs{"gpio4_$id"}{MASTER} = $hash->{NAME};
# create logfile temp4:Temp
my @logfile = split('/',$attr{autocreate}{filelog});
pop(@logfile);
my $logdir = join('/',@logfile);
CommandDefine(undef,"FileLog_gpio4_$id FileLog $logdir/gpio4_$id-%Y.log gpio4_$id:T:.*");
$attr{"FileLog_gpio4_$id"}{room} = "GPIO4";
$attr{"FileLog_gpio4_$id"}{logtype} = "temp4:Temp,text";
# create plot
CommandDefine(undef,"weblink_gpio4_$id weblink fileplot FileLog_gpio4_$id:temp4:CURRENT");
$attr{"weblink_gpio4_$id"}{label} = '"'."gpio4_$id: ".'Min $data{min1}, Max $data{max1}, Last $data{currval1}"';
$attr{"weblink_gpio4_$id"}{room} = "GPIO4";
return undef; return undef;
} }
@ -104,7 +128,11 @@ sub GPIO4_Get($) {
open DATA, "/sys/bus/w1/devices/$hash->{DEF}/w1_slave"; open DATA, "/sys/bus/w1/devices/$hash->{DEF}/w1_slave";
if (<DATA> =~ /YES/) { if (<DATA> =~ /YES/) {
<DATA> =~ /t=(\d+)/; <DATA> =~ /t=(\d+)/;
readingsSingleUpdate($hash,"state",$1/1000.0,1); my $temp = sprintf("%.1f", $1/1000.0);
readingsBeginUpdate($hash);
readingsBulkUpdate($hash,"state","T: $temp");
readingsBulkUpdate($hash,"temperature",$temp);
readingsEndUpdate($hash,1);
} }
close(DATA); close(DATA);
return undef; return undef;