2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-07 12:58:13 +00:00

47_OBIS: Attribut alignTime works now

some small code-changes


git-svn-id: https://svn.fhem.de/fhem/trunk@10971 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
icinger 2016-03-02 04:55:03 +00:00
parent 06db9b9800
commit f3bdb2c12e

View File

@ -26,6 +26,14 @@ my %OBIS_channels = ( "21"=>"power_L1",
"4"=>"feed_L2",
"6"=>"feed_L3",
"1"=>"power");
my %OBIS_codes = ( "Serial" => qr/0-0:96\.1\.255\*255\((.*?)\).*/,
"Owner" => qr/1-0:0\.0\.0\*255\((.*?)\).*/,
"Status" => qr/1-0:96\.5\.5\*255\((.*?)\).*/,
"Channels_sum" => qr/1-0:([246])\.1\.7\*255\(([-+]?\d+\.?\d*).*/,
"Channels" => qr/1-0:(\d+)\.7\.\d*\*\d*\(([-+]?\d+\.?\d*).*/,
"Counter" => qr/1-0:([12])\.(8)\.\d\*255\((-?\d+\.?\d*).*/
);
#{"21"=>"energy_L1","41"=>"energy_L2","61"=>"energy_L3","31"=>"power_L1","51"=>"power_L2","71"=>"power_L3","1"=>"energy_current","8.1"=>"energy_total","8.2"=>"feed_total"}
#####################################
@ -54,7 +62,7 @@ sub OBIS_Define($$)
return 'wrong syntax: define <name> OBIS devicename@baudrate[,databits,parity,stopbits]|none [MeterType]'
if(@a < 3);
Log 3,Dumper(%readyfnlist);
# Log 3,Dumper(%readyfnlist);
DevIo_CloseDev($hash);
RemoveInternalTimer($hash);
my $name = $a[0];
@ -103,13 +111,6 @@ sub OBIS_Define($$)
Log3 $hash,4,"OBIS ($name) - Opening device...";
return DevIo_OpenDev($hash, 0, "OBIS_Init");
# my $fd;
# Log 3,"FD: $fd";
# $hash->{FD}= $fd;
# $hash->{helper}{FD2}=$hash->{FD};
# delete($readyfnlist{"$name.$dev"});
# $selectlist{"$name.$dev"} = $hash;
# return $hash->{FD};
}
# Update-Routine
@ -119,14 +120,10 @@ sub GetUpdate($)
my $name = $hash->{NAME};
my $type= $hash->{MeterType};
RemoveInternalTimer($hash);
# Open dev
# if (!$hash->{helper}{FD}) {$hash->{helper}{FD}= DevIo_OpenDev($hash, 0, "OBIS_Init");
# readingsSingleUpdate($hash, "state","opened",1);
# }
my $t=OBIS_adjustAlign($hash,AttrVal($name,"alignTime",undef),$hash->{helper}{DEVICES}[1]);
Log3 ($hash,4,"OBIS ($name) - Internal timer set to ".FmtDateTime($t)) if ($hash->{helper}{DEVICES}[1]>0);
InternalTimer($t, "GetUpdate", $hash, 1) if ($hash->{helper}{DEVICES}[1]>0);
# InternalTimer(gettimeofday()+$hash->{helper}{DEVICES}[1], "GetUpdate", $hash, 0) if ($hash->{helper}{DEVICES}[1]>0);
$hash->{helper}{EoM}=-1;
if ($hash->{helper}{DEVICES}[1] eq "") {return undef;}
DevIo_SimpleWrite($hash,$hash->{helper}{DEVICES}[0],undef) ;
@ -134,14 +131,6 @@ sub GetUpdate($)
sub OBIS_Init($)
{
#nothing here yet
# my ($hash) = @_;
# my $name = $hash->{NAME};
# my $type= $hash->{MeterType};
# my $dev= $hash->{DeviceName};
# ($dev, undef) = split("@", $dev);
# if ($hash->{helper}{DEVICES}[0] eq "") {return undef;}
# DevIo_SimpleWrite($hash,$hash->{helper}{DEVICES}[0],undef) ;
return undef;
}
#####################################
@ -149,8 +138,7 @@ sub OBIS_Undef($$)
{
my ($hash, $arg) = @_;
RemoveInternalTimer($hash);
DevIo_CloseDev($hash) if $hash->{DeviceName} != "none";
$hash->{helper}{FD}=undef;
DevIo_CloseDev($hash) if $hash->{DeviceName} ne "none";
return undef;
}
@ -199,50 +187,39 @@ sub OBIS_Parse($$)
$hash->{helper}{EoM}=0;
}
if ($hash->{helper}{EoM}!=-1) {
# Summe eingespeister Phase: 1-0:2.1.7*255(07568.01*kWh)
if ($rmsg=~ /1-0:([246])\.1\.7\*255\(([-+]?\d+\.?\d*).*/) {
my $L=$hash->{helper}{Channels}{$1} // $OBIS_channels{$1} // "Unknown_Channel_$1";
readingsBulkUpdate($hash, "sum_$L",$2+0);
};
# Einspeisung und Bezug der einzelnen Phasen
if ($rmsg=~ /1-0:(\d+)\.7\.\d*\*\d*\(([-+]?\d+\.?\d*).*/) {
my $L=$hash->{helper}{Channels}{$1} // $OBIS_channels{$1} // "Unknown_Channel_$1";
readingsBulkUpdate($hash, $L,$2+0);
if ($type eq "Hager") {
my $a=$2;
if ($1 =~ /(?:21|41|61)/) {$hash->{helper}{PHSUM} += ($a+0)}
}
};
# Seriennummer
if ($rmsg=~ /0-0:96\.1\.255\*255\((.*?)\).*/) {
if (ReadingsVal($name,"Serial","") ne $1) {readingsBulkUpdate($hash, "Serial" ,$1); }
}
# Eigentumsnummer --> 1-0:0.0.0*255(GETTONE)
if ($rmsg=~ /1-0:0\.0\.0\*255\((.*?)\).*/) {
if (ReadingsVal($name,"Owner","") ne $1) {readingsBulkUpdate($hash, "Owner" ,$1); }
}
# Statusbyte
if ($rmsg=~ /1-0:96\.5\.5\*255\((.*?)\).*/) {
if (ReadingsVal($name,"Status","") ne $1) {readingsBulkUpdate($hash, "Status" ,$1); }
}
# Zählerstand --> 1-0:1.8.0*255(17483.88*kWh)
if ($rmsg=~ /1-0:([12])\.(8)\.\d\*255\((-?\d+\.?\d*).*/) {
my $L=$hash->{helper}{Channels}{$2.".".$1} // $OBIS_channels{$2.".".$1} // "Unknown_Channel_$2.$1";
if($1==1) {
readingsBulkUpdate($hash, $L ,$3 +AttrVal($name,"offset_energy",0));
} elsif ($1==2) {
readingsBulkUpdate($hash, $L ,$3 +AttrVal($name,"offset_feed",0));
}
}
for my $code (keys %OBIS_codes) {
if ($rmsg =~ $OBIS_codes{$code}) {
if ($code eq "Channels_sum") {
my $L=$hash->{helper}{Channels}{$1} // $OBIS_channels{$1} // "Unknown_Channel_$1";
readingsBulkUpdate($hash, "sum_$L",$2+0);
}
elsif ($code eq "Channels") {
my $L=$hash->{helper}{Channels}{$1} // $OBIS_channels{$1} // "Unknown_Channel_$1";
readingsBulkUpdate($hash, $L,$2+0);
my $a=$2;
if ($1 =~ /(?:21|41|61)/) {$hash->{helper}{PHSUM} += ($a+0)}
}
elsif ($code eq "Counter") {
my $L=$hash->{helper}{Channels}{$2.".".$1} // $OBIS_channels{$2.".".$1} // "Unknown_Channel_$2.$1";
if($1==1) {
readingsBulkUpdate($hash, $L ,$3 +AttrVal($name,"offset_energy",0));
} elsif ($1==2) {
readingsBulkUpdate($hash, $L ,$3 +AttrVal($name,"offset_feed",0));
}
} elsif (ReadingsVal($name,$code,"") ne $1)
{readingsBulkUpdate($hash, $code ,$1); }
}
}
}
$hash->{helper}{BUFFER} = substr($hash->{helper}{BUFFER}, index($hash->{helper}{BUFFER},chr(13).chr(10))+2);;
# $hash->{helper}{BUFFER} =~ s/^.*\r\n(.*)/$1/g;
# Log 3,"Buffer is now: $hash->{helper}{BUFFER}";
}
readingsEndUpdate($hash,1);
# Log 3,"Size of Buffer: ".length($hash->{helper}{BUFFER});
if($hash->{helper}{EoM}==1) { $hash->{helper}{BUFFER}="";}
return $name;
}
@ -308,6 +285,7 @@ sub OBIS_Attr(@)
if ($aName eq "alignTime") {
if ($hash->{helper}{DEVICES}[1]>0) {
RemoveInternalTimer($hash);
$hash->{helper}{TRIGGERTIME}=gettimeofday();
my $t=OBIS_adjustAlign($hash,$aVal,$hash->{helper}{DEVICES}[1]);
Log3 ($hash,4,"OBIS ($name) - Internal timer set to ".FmtDateTime($t));
InternalTimer($t, "GetUpdate", $hash, 0);
@ -323,6 +301,7 @@ sub OBIS_Attr(@)
} elsif ($aVal eq "off") {
delete($readyfnlist{"$name.$dev"});
$selectlist{"$name.$dev"} = $hash;
DevIo_OpenDev($hash, 1, "OBIS_Init");
}
}
@ -333,7 +312,7 @@ sub OBIS_Attr(@)
sub OBIS_adjustAlign($$$)
{
my($hash, $attrVal, $interval) = @_;
return gettimeofday()+$interval;
# return gettimeofday()+$interval;
if (!$attrVal) {return gettimeofday()+$interval;}
my ($alErr, $alHr, $alMin, $alSec, undef) = GetTimeSpec($attrVal); # "00:00"
return "$hash->{NAME} alignTime: $alErr" if($alErr);
@ -342,7 +321,7 @@ sub OBIS_adjustAlign($$$)
my (undef, $hr, $min, $sec, undef) = GetTimeSpec($tspec);
my $now = time();
my $step = ($hr*60+$min)*60+$sec;
my $alTime = ($alHr*60+$alMin)*60+$alSec-fhemTzOffset($now);
my $alTime = ($alHr*60+$alMin)*60+$alSec;#-fhemTzOffset($now);
my $ttime = int($hash->{helper}{TRIGGERTIME});
my $off = ($ttime % 86400) - 86400;
@ -350,7 +329,6 @@ sub OBIS_adjustAlign($$$)
$ttime = gettimeofday();#-86400;
$off -= 86400;
}
Log 4,$alTime." - $ttime - $off - $alTime - $step- ".FmtDateTime($ttime % 86400)." - ".FmtDateTime($off)." - ".fhemTzOffset($now);
my $off2=$off;
while($off < $alTime) {
$off += $step;
@ -462,6 +440,9 @@ sub OBIS_adjustAlign($$$)
<code>interval</code><br>
Abrufinterval der Daten.
</li><li>
<code>aglignTime</code><br>
Richtet den Zeitpunkt von <interval> nach einer bestimmten Uhrzeit aus.
</li><li>
<code>pollingMode</code><br>
Hiermit wird von Direktbenachrichtigung auf Polling umgestellt.
Bei Smartmetern, welche von selbst im Sekundentakt senden,