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

Cost Control

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@348 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
klaus01 2009-02-06 18:18:22 +00:00
parent 416faabc25
commit d55fd42811
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/FHEM/15_CUL_EM.pm
View File

@ -29,8 +29,8 @@ CUL_EM_Define($$)
my ($hash, $def) = @_; my ($hash, $def) = @_;
my @a = split("[ \t][ \t]*", $def); my @a = split("[ \t][ \t]*", $def);
return "wrong syntax: define <name> CUL_EM <code> [corr1 corr2]" return "wrong syntax: define <name> CUL_EM <code> [corr1 corr2 CostPerUnit BasicFeePerMonth]"
if(int(@a) < 3 || int(@a) > 5); if(int(@a) < 3 || int(@a) > 7);
return "Define $a[0]: wrong CODE format: valid is 1-12" return "Define $a[0]: wrong CODE format: valid is 1-12"
if($a[2] !~ m/^\d$/ || $a[2] < 1 || $a[2] > 12); if($a[2] !~ m/^\d$/ || $a[2] < 1 || $a[2] > 12);
@ -56,6 +56,9 @@ CUL_EM_Define($$)
$hash->{corr1} = 1; $hash->{corr1} = 1;
$hash->{corr2} = 1; $hash->{corr2} = 1;
} }
$hash->{CostPerUnit} = (int(@a) > 5 ? $a[5] : 0);
$hash->{BasicFeePerMonth} = (int(@a) > 6 ? $a[6] : 0);
$defptr{$a[2]} = $hash; $defptr{$a[2]} = $hash;
AssignIoPort($hash); AssignIoPort($hash);
return undef; return undef;
@ -179,16 +182,19 @@ CUL_EM_Parse($$)
#----- save actual tsecs #----- save actual tsecs
my $tsecs= time(); # number of non-leap seconds since January 1, 1970, UTC my $tsecs= time(); # number of non-leap seconds since January 1, 1970, UTC
$readings{tsecs} = $tsecs; $readings{tsecs} = $tsecs;
#----- get cost parameter
my $cost = $hash->{CostPerUnit};
my $basicfee = $hash->{BasicFeePerMonth};
#----- check whether day or month was changed #----- check whether day or month was changed
if(!defined($hash->{READINGS}{cum_day})) { if(!defined($hash->{READINGS}{cum_day})) {
#----- init cum_day if it is not set #----- init cum_day if it is not set
$val = sprintf("CUM_DAY: %0.3f CUM: %0.3f", 0,$total); $val = sprintf("CUM_DAY: %0.3f CUM: %0.3f COST: %0.2f", 0,$total,0);
$readings{cum_day} = $val; $readings{cum_day} = $val;
} else { } else {
if( (localtime($tsecs_prev))[3] != (localtime($tsecs))[3] ) { if( (localtime($tsecs_prev))[3] != (localtime($tsecs))[3] ) {
#----- day has changed (#3) #----- day has changed (#3)
my @cmv = split(" ", $hash->{READINGS}{cum_day}{VAL}); my @cmv = split(" ", $hash->{READINGS}{cum_day}{VAL});
$val = sprintf("CUM_DAY: %0.3f CUM: %0.3f", $total-$cmv[3], $total); $val = sprintf("CUM_DAY: %0.3f CUM: %0.3f COST: %0.2f", $total-$cmv[3], $total, ($total-$cmv[3])*$cost);
$readings{cum_day} = $val; $readings{cum_day} = $val;
$hash->{CHANGED}[$c++] = "$val"; $hash->{CHANGED}[$c++] = "$val";
Log GetLogLevel($n,3), "CUL_EM $n: $val"; Log GetLogLevel($n,3), "CUL_EM $n: $val";
@ -197,11 +203,11 @@ CUL_EM_Parse($$)
#----- month has changed (#4) #----- month has changed (#4)
if(!defined($hash->{READINGS}{cum_month})) { if(!defined($hash->{READINGS}{cum_month})) {
# init cum_month if not set # init cum_month if not set
$val = sprintf("CUM_MONTH: %0.3f CUM: %0.3f", 0,$total); $val = sprintf("CUM_MONTH: %0.3f CUM: %0.3f COST: %0.2f", 0,$total,0);
$readings{cum_month} = $val; $readings{cum_month} = $val;
} else { } else {
@cmv = split(" ", $hash->{READINGS}{cum_month}{VAL}); @cmv = split(" ", $hash->{READINGS}{cum_month}{VAL});
$val = sprintf("CUM_MONTH: %0.3f CUM: %0.3f", $total-$cmv[3],$total); $val = sprintf("CUM_MONTH: %0.3f CUM: %0.3f COST: %0.2f", $total-$cmv[3],$total,($total-$cmv[3])*$cost+$basicfee);
$readings{cum_month} = $val; $readings{cum_month} = $val;
$hash->{CHANGED}[$c++] = "$val"; $hash->{CHANGED}[$c++] = "$val";
Log GetLogLevel($n,3), "CUL_EM $n: $val"; Log GetLogLevel($n,3), "CUL_EM $n: $val";
@ -229,3 +235,4 @@ CUL_EM_Parse($$)
} }
1; 1;