FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-16 10:46:03 +00:00
Code Issues Releases Wiki Activity

98_CustomReadings: added „set update“

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@15098 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
HCS 2017-09-19 16:46:33 +00:00
parent 64b60260db
commit 7f4ed0896f
1 changed files with 37 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
fhem/FHEM/98_CustomReadings.pm
View File

@ -11,32 +11,43 @@ use SetExtensions;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
#=======================================================================================
sub CustomReadings_Initialize($) {
my ($hash) = @_;
$hash->{DefFn} = "CustomReadings_Define";
$hash->{UndefFn} = "CustomReadings_Undef";
$hash->{SetFn} = "CustomReadings_Set";
$hash->{AttrList} = "readingDefinitions "
. "interval "
. "$readingFnAttributes";
}
sub
CustomReadings_Define($$) {
#=======================================================================================
sub CustomReadings_Define($$) {
my ($hash, $def) = @_;
my $name = $hash->{NAME};
CustomReadings_read($hash);
CustomReadings_OnTimer($hash);
return undef;
}
sub CustomReadings_read($) {
#=======================================================================================
sub CustomReadings_OnTimer($) {
my ($hash) = @_;
my $name = $hash->{NAME};
RemoveInternalTimer($hash);
InternalTimer(gettimeofday()+ AttrVal( $name, "interval", 5), "CustomReadings_read", $hash, 0);
InternalTimer(gettimeofday()+ AttrVal( $name, "interval", 5), "CustomReadings_OnTimer", $hash, 0);
CustomReadings_Read($hash);
}
#=======================================================================================
sub CustomReadings_Read($) {
my ($hash) = @_;
my $name = $hash->{NAME};
# Get the readingDefinitions and remove all newlines from the attribute
my $readingDefinitions = AttrVal( $name, "readingDefinitions", "");
@ -117,7 +128,7 @@ sub CustomReadings_read($) {
}
#=======================================================================================
sub CustomReadings_Undef($$) {
my ($hash, $arg) = @_;
my $name = $hash->{NAME};
@ -127,6 +138,7 @@ sub CustomReadings_Undef($$) {
return undef;
}
#=======================================================================================
sub CustomReadings_GetHTML ($) {
my ($name) = @_;
my $hash = $main::defs{$name};
@ -144,7 +156,25 @@ sub CustomReadings_GetHTML ($) {
return $result;
}
#=======================================================================================
sub CustomReadings_Set($@) {
my ($hash, @a) = @_;
my $name = shift @a;
my $cmd = shift @a;
my $arg = join(" ", @a);
my $list = "update";
return $list if( $cmd eq '?' || $cmd eq '');
if ($cmd eq "update") {
CustomReadings_Read($hash);
}
else {
return "Unknown argument $cmd, choose one of ".$list;
}
return undef;
}
1;