FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 20:06:18 +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

42
fhem/FHEM/98_CustomReadings.pm
View File

@ -11,32 +11,43 @@ use SetExtensions;
no if $] >= 5.017011, warnings => 'experimental::smartmatch'; no if $] >= 5.017011, warnings => 'experimental::smartmatch';
#=======================================================================================
sub CustomReadings_Initialize($) { sub CustomReadings_Initialize($) {
my ($hash) = @_; my ($hash) = @_;
$hash->{DefFn} = "CustomReadings_Define"; $hash->{DefFn} = "CustomReadings_Define";
$hash->{UndefFn} = "CustomReadings_Undef"; $hash->{UndefFn} = "CustomReadings_Undef";
$hash->{SetFn} = "CustomReadings_Set";
$hash->{AttrList} = "readingDefinitions " $hash->{AttrList} = "readingDefinitions "
. "interval " . "interval "
. "$readingFnAttributes"; . "$readingFnAttributes";
} }
sub #=======================================================================================
CustomReadings_Define($$) { sub CustomReadings_Define($$) {
my ($hash, $def) = @_; my ($hash, $def) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
CustomReadings_read($hash); CustomReadings_OnTimer($hash);
return undef; return undef;
} }
sub CustomReadings_read($) { #=======================================================================================
sub CustomReadings_OnTimer($) {
my ($hash) = @_; my ($hash) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
RemoveInternalTimer($hash); 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 # Get the readingDefinitions and remove all newlines from the attribute
my $readingDefinitions = AttrVal( $name, "readingDefinitions", ""); my $readingDefinitions = AttrVal( $name, "readingDefinitions", "");
@ -117,7 +128,7 @@ sub CustomReadings_read($) {
} }
#=======================================================================================
sub CustomReadings_Undef($$) { sub CustomReadings_Undef($$) {
my ($hash, $arg) = @_; my ($hash, $arg) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
@ -127,6 +138,7 @@ sub CustomReadings_Undef($$) {
return undef; return undef;
} }
#=======================================================================================
sub CustomReadings_GetHTML ($) { sub CustomReadings_GetHTML ($) {
my ($name) = @_; my ($name) = @_;
my $hash = $main::defs{$name}; my $hash = $main::defs{$name};
@ -144,7 +156,25 @@ sub CustomReadings_GetHTML ($) {
return $result; 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; 1;