FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-24 09:09:19 +00:00
Code Issues Releases Wiki Activity

git-svn-id: https://svn.fhem.de/fhem/trunk@3337 2b470e98-0d58-463d-a4d8-8e2adae1ed80

Browse Source
This commit is contained in:
pahenning 2013-06-26 14:03:43 +00:00
parent b22d24ac92
commit 7c8cda0188
1 changed files with 38 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
fhem/FHEM/21_OWCOUNT.pm
View File

@ -80,7 +80,7 @@ use strict;
use warnings; use warnings;
sub Log($$); sub Log($$);
my $owx_version="3.27"; my $owx_version="3.30";
#-- fixed raw channel name, flexible channel name #-- fixed raw channel name, flexible channel name
my @owg_fixed = ("A","B"); my @owg_fixed = ("A","B");
my @owg_channel = ("A","B"); my @owg_channel = ("A","B");
@ -448,7 +448,8 @@ sub OWCOUNT_FormatValues($) {
} }
#-- in any mode store the interpolated value in the midnight store #-- in any mode store the interpolated value in the midnight store
OWXCOUNT_SetPage($hash,14+$i,sprintf("%f",$dval2)); OWCOUNT_SetPage($hash,14+$i,sprintf("%f",$dval2));
#-- string buildup for monthly and yearly logging #-- string buildup for monthly and yearly logging
$dvalue .= sprintf( " %s: %5.1f %s %sm: %%5.1f %s", $owg_channel[$i],$dval,$unit,$owg_channel[$i],$unit); $dvalue .= sprintf( " %s: %5.1f %s %sm: %%5.1f %s", $owg_channel[$i],$dval,$unit,$owg_channel[$i],$unit);
$mvalue .= sprintf( " %s: %%5.1f %s", $owg_channel[$i],$unit); $mvalue .= sprintf( " %s: %%5.1f %s", $owg_channel[$i],$unit);
@ -976,6 +977,41 @@ sub OWCOUNT_Set($@) {
Log 4, "OWCOUNT: Set $hash->{NAME} $key $value"; Log 4, "OWCOUNT: Set $hash->{NAME} $key $value";
} }
#######################################################################################
#
# OWCOUNT_SetPage - Set one value for device
#
# Parameter hash = hash of device addressed
# page = page addressed
# data = data
#
########################################################################################
sub OWCOUNT_SetPage ($$$) {
my ($hash, $page, $data) = @_;
#-- set memory page/counter according to interface type
my $interface= $hash->{IODev}->{TYPE};
my $name = $hash->{NAME};
my $ret;
#-- OWX interface
if( $interface eq "OWX" ){
$ret = OWXCOUNT_SetPage($hash,$page,$data);
#-- OWFS interface
}elsif( $interface eq "OWServer" ){
$ret = OWFSCOUNT_SetPage($hash,$page,$data);
#-- Unknown interface
}else{
return "OWCOUNT: SetPage with wrong IODev type $interface";
}
#-- process results
if( defined($ret) ){
return "OWCOUNT: Could not set device $name, reason: ".$ret;
}
}
######################################################################################## ########################################################################################
# #
# OWCOUNT_Undef - Implements UndefFn function # OWCOUNT_Undef - Implements UndefFn function