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

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

Browse Source
This commit is contained in:
pahenning 2012-03-08 09:07:43 +00:00
parent 8dd8f494aa
commit 44f0e8bc58
4 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/contrib/1-Wire/00_OWX.pm
View File

@ -6,7 +6,7 @@
# via an active DS2480/DS2490/DS9097U bus master interface or # via an active DS2480/DS2490/DS9097U bus master interface or
# via a passive DS9097 interface # via a passive DS9097 interface
# #
# Version 1.05 - March, 2012 # Version 1.06 - March, 2012
# #
# Prof. Dr. Peter A. Henning, 2012 # Prof. Dr. Peter A. Henning, 2012
# #

10
fhem/contrib/1-Wire/21_OWAD.pm
View File

@ -14,7 +14,7 @@
# #
# Prof. Dr. Peter A. Henning, 2012 # Prof. Dr. Peter A. Henning, 2012
# #
# Version 1.05 - March, 2012 # Version 1.06 - March, 2012
# #
# Setup bus device in fhem.cfg as # Setup bus device in fhem.cfg as
# #
@ -175,13 +175,13 @@ sub OWAD_Define ($$) {
if(int(@a) < 2 || int(@a) > 5); if(int(@a) < 2 || int(@a) > 5);
#-- check if this is an old style definition, e.g. <model> is missing #-- check if this is an old style definition, e.g. <model> is missing
my $a2 = lc($a[2]); my $a2 = $a[2];
my $a3 = defined($a[3]) ? lc($a[3]) : ""; my $a3 = defined($a[3]) ? $a[3] : "";
if( $a2 =~ m/^[0-9|a-f]{12}$/ ) { if( $a2 =~ m/^[0-9|a-f|A-F]{12}$/ ) {
$model = "DS2450"; $model = "DS2450";
$id = $a[2]; $id = $a[2];
if(int(@a)>=4) { $interval = $a[3]; } if(int(@a)>=4) { $interval = $a[3]; }
} elsif( $a3 =~ m/^[0-9|a-f]{12}$/ ) { } elsif( $a3 =~ m/^[0-9|a-f|A-F]{12}$/ ) {
$model = $a[2]; $model = $a[2];
return "OWAD: Wrong 1-Wire device model $model" return "OWAD: Wrong 1-Wire device model $model"
if( $model ne "DS2450"); if( $model ne "DS2450");

10
fhem/contrib/1-Wire/21_OWID.pm
View File

@ -12,7 +12,7 @@
# #
# Prof. Dr. Peter A. Henning, 2012 # Prof. Dr. Peter A. Henning, 2012
# #
# Version 1.05 - March, 2012 # Version 1.06 - March, 2012
# #
# Setup bus device in fhem.cfg as # Setup bus device in fhem.cfg as
# #
@ -99,7 +99,7 @@ sub OWID_Initialize ($) {
sub OWID_Define ($$) { sub OWID_Define ($$) {
my ($hash, $def) = @_; my ($hash, $def) = @_;
#-- define <name> OWID <id> #-- define <name> OWID <FAM_ID> <ROM_ID>
my @a = split("[ \t][ \t]*", $def); my @a = split("[ \t][ \t]*", $def);
my ($name,$fam,$id,$crc,$ret); my ($name,$fam,$id,$crc,$ret);
@ -113,12 +113,12 @@ sub OWID_Define ($$) {
if(int(@a) !=4 ); if(int(@a) !=4 );
#-- check id #-- check id
if( $a[2] =~ m/^[0-9|a-f]{2}$/ ) { if( $a[2] =~ m/^[0-9|a-f|A-F]{2}$/ ) {
$fam = $a[2]; $fam = $a[2];
} else { } else {
return "OWID: $a[0] ID $a[2] invalid, specify a 2 digit value"; return "OWID: $a[0] family id $a[2] invalid, specify a 2 digit value";
} }
if( $a[3] =~ m/^[0-9|a-f]{12}$/ ) { if( $a[3] =~ m/^[0-9|a-f|A-F]{12}$/ ) {
$id = $a[3]; $id = $a[3];
} else { } else {
return "OWID: $a[0] ID $a[3] invalid, specify a 12 digit value"; return "OWID: $a[0] ID $a[3] invalid, specify a 12 digit value";

12
fhem/contrib/1-Wire/21_OWTEMP.pm
View File

@ -16,7 +16,7 @@
# Martin Fischer, 2011 # Martin Fischer, 2011
# Prof. Dr. Peter A. Henning, 2012 # Prof. Dr. Peter A. Henning, 2012
# #
# Version 1.05 - March, 2012 # Version 1.06 - March, 2012
# #
# Setup bus device in fhem.cfg as # Setup bus device in fhem.cfg as
# #
@ -123,7 +123,7 @@ sub OWTEMP_Initialize ($) {
$hash->{SetFn} = "OWTEMP_Set"; $hash->{SetFn} = "OWTEMP_Set";
#offset = a temperature offset added to the temperature reading for correction #offset = a temperature offset added to the temperature reading for correction
#scale = a unit of measure: C/F/K/R #scale = a unit of measure: C/F/K/R
$hash->{AttrList}= "IODev do_not_notify:0,1 showtime:0,1 model:DS18S20 loglevel:0,1,2,3,4,5 ". $hash->{AttrList}= "IODev do_not_notify:0,1 showtime:0,1 loglevel:0,1,2,3,4,5 ".
"tempOffset tempUnit:Celsius,Fahrenheit,Kelvin,Reaumur"; "tempOffset tempUnit:Celsius,Fahrenheit,Kelvin,Reaumur";
} }
@ -155,17 +155,17 @@ sub OWTEMP_Define ($$) {
if(int(@a) < 2 || int(@a) > 6); if(int(@a) < 2 || int(@a) > 6);
#-- check if this is an old style definition, e.g. <model> is missing #-- check if this is an old style definition, e.g. <model> is missing
my $a2 = lc($a[2]); my $a2 = $a[2];
my $a3 = defined($a[3]) ? lc($a[3]) : ""; my $a3 = defined($a[3]) ? $a[3] : "";
if( ($a2 eq "none") || ($a3 eq "none") ) { if( ($a2 eq "none") || ($a3 eq "none") ) {
return "OWTEMP: ID = none is obsolete now, please redefine"; return "OWTEMP: ID = none is obsolete now, please redefine";
} elsif( $a2 =~ m/^[0-9|a-f]{12}$/ ) { } elsif( $a2 =~ m/^[0-9|a-f|A-F]{12}$/ ) {
$model = "DS1820"; $model = "DS1820";
$id = $a[2]; $id = $a[2];
if(int(@a)>=4) { $interval = $a[3]; } if(int(@a)>=4) { $interval = $a[3]; }
Log 1, "OWTEMP: Parameter [alarminterval] is obsolete now - must be set with I/O-Device" Log 1, "OWTEMP: Parameter [alarminterval] is obsolete now - must be set with I/O-Device"
if(int(@a) == 5); if(int(@a) == 5);
} elsif( $a3 =~ m/^[0-9|a-f]{12}$/ ) { } elsif( $a3 =~ m/^[0-9|a-f|A-F]{12}$/ ) {
$model = $a[2]; $model = $a[2];
$id = $a[3]; $id = $a[3];
if(int(@a)>=5) { $interval = $a[4]; } if(int(@a)>=5) { $interval = $a[4]; }