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

73_GasCalculator: feature: "set" and "get" - command in GUI implemented.

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11720 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
sailor-fhem 2016-06-27 12:15:07 +00:00
parent d36706c557
commit 5f8de9055b
1 changed files with 63 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
fhem/FHEM/73_GasCalculator.pm
View File

@ -44,6 +44,8 @@
package main;
use strict;
use warnings;
my %GasCalculator_gets;
my %GasCalculator_sets;
###START###### Initialize module ##############################################################################START####
sub GasCalculator_Initialize($)
@ -53,6 +55,7 @@ sub GasCalculator_Initialize($)
$hash->{STATE} = "Init";
$hash->{DefFn} = "GasCalculator_Define";
$hash->{UndefFn} = "GasCalculator_Undefine";
$hash->{GetFn} = "GasCalculator_Get";
$hash->{SetFn} = "GasCalculator_Set";
$hash->{AttrFn} = "GasCalculator_Attr";
$hash->{NotifyFn} = "GasCalculator_Notify";
@ -140,6 +143,47 @@ sub GasCalculator_Attr(@)
}
####END####### Handle attributes after changes via fhem GUI ####################################################END#####
###START###### Manipulate reading after "set" command by fhem #################################################START####
sub GasCalculator_Get($@)
{
my ( $hash, @a ) = @_;
### If not enough arguments have been provided
if ( @a < 2 )
{
return "\"get GasCalculator\" needs at least one argument";
}
my $GasCalcName = shift @a;
my $reading = shift @a;
my $value;
my $ReturnMessage;
if(!defined($GasCalculator_gets{$reading}))
{
my @cList = keys %GasCalculator_sets;
return "Unknown argument $reading, choose one of " . join(" ", @cList);
### Create Log entries for debugging
Log3 $GasCalcName, 5, $GasCalcName. " : GasCalculator - get list: " . join(" ", @cList);
}
if ( $reading ne "?")
{
### Create Log entries for debugging
Log3 $GasCalcName, 5, $GasCalcName. " : GasCalculator - get " . $reading . " with value: " . $value;
### Write current value
$value = ReadingsVal($GasCalcName, $reading, undef);
### Create ReturnMessage
$ReturnMessage = $value;
}
return($ReturnMessage);
}
####END####### Manipulate reading after "set" command by fhem ##################################################END#####
###START###### Manipulate reading after "set" command by fhem #################################################START####
sub GasCalculator_Set($@)
{
@ -156,6 +200,15 @@ sub GasCalculator_Set($@)
my $value = join(" ", @a);
my $ReturnMessage;
if(!defined($GasCalculator_sets{$reading}))
{
my @cList = keys %GasCalculator_sets;
return "Unknown argument $reading, choose one of " . join(" ", @cList);
### Create Log entries for debugging
Log3 $GasCalcName, 5, $GasCalcName. " : GasCalculator - set list: " . join(" ", @cList);
}
if ( $reading ne "?")
{
### Create Log entries for debugging
@ -189,8 +242,6 @@ sub GasCalculator_Notify($$)
return "";
}
### Check whether all required attributes has been provided and if not, create them with standard values
if(!defined($attr{$GasCalcName}{BasicPricePerAnnum}))
{
@ -680,6 +731,14 @@ sub GasCalculator_Notify($$)
Log3 $GasCalcName, 5, $GasCalcName. " : GasCalculator End_________________________________________________________________________________________________________________________________";
}
### Update list of available readings
%GasCalculator_gets = %{$GasCalcDev->{READINGS}};
%GasCalculator_sets = %{$GasCalcDev->{READINGS}};
### Create Log entries for debugging
Log3 $GasCalcName, 5, $GasCalcName. " : GasCalculator - notify x_sets list: " . join(" ", (keys %GasCalculator_sets));
return undef;
}
####END####### Calculate gas meter values on changed events ####################################################END#####