2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-07 00:38:44 +00:00

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

This commit is contained in:
pahenning 2012-05-20 16:24:46 +00:00
parent b59ab0dab4
commit cfcd276e92
6 changed files with 18 additions and 13 deletions

View File

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

View File

@ -14,7 +14,7 @@
#
# Prof. Dr. Peter A. Henning, 2012
#
# Version 1.13 - May, 2012
# Version 1.14 - May, 2012
#
# Setup bus device in fhem.cfg as
#

View File

@ -18,7 +18,7 @@
#
# Prof. Dr. Peter A. Henning, 2012
#
# Version 1.13 - May, 2012
# Version 1.14 - May, 2012
#
# Setup bus device in fhem.cfg as
#

View File

@ -12,7 +12,7 @@
#
# Prof. Dr. Peter A. Henning, 2012
#
# Version 1.13 - May, 2012
# Version 1.14 - May, 2012
#
# Setup bus device in fhem.cfg as
#

View File

@ -12,7 +12,7 @@
#
# Prof. Dr. Peter A. Henning, 2012
#
# Version 1.13 - May, 2012
# Version 1.14 - May, 2012
#
# Setup bus device in fhem.cfg as
#
@ -74,6 +74,7 @@ my $lcdcontroller = "KS0073";
my $lcdlines = 4;
my $lcdchars = 20;
my @lcdpage = (0,32,64,96);
#my @lcdpage = (0,64,20,84);
#-- declare variables
my %gets = (
@ -296,8 +297,12 @@ sub OWLCD_Set($@) {
if( int(@a)<3 );
$line = ($a[2] =~ m/\d/) ? $a[2] : 0;
$value = $a[3];
for( $i=4; $i< int(@a); $i++){
$value .= " ".$a[$i];
if( defined($value) ){
for( $i=4; $i< int(@a); $i++){
$value .= " ".$a[$i];
}
}else{
$value="";
}
#-- check syntax for setting memory
} elsif( $key eq "memory" ){
@ -310,7 +315,7 @@ sub OWLCD_Set($@) {
}
#-- check syntax for setting alert
} elsif( $key eq "alert" ){
return "OWLCD: Set needs a parameter when setting alert: <type>"
return "OWLCD: Set needs a parameter when setting alert: <type>/none/off"
if( int(@a)<3 );
#-- check syntax for setting icon
} elsif ( $key eq "icon" ){
@ -436,16 +441,16 @@ sub OWLCD_Set($@) {
#-- set alert
if($key eq "alert") {
if($value eq "beep") {
if(lc($value) eq "beep") {
OWXLCD_SetFunction($hash,"gpio",14);
return undef;
}elsif($value eq "red") {
}elsif(lc($value) eq "red") {
OWXLCD_SetFunction($hash,"gpio",13);
return undef;
}elsif($value eq "yellow") {
}elsif(lc($value) eq "yellow") {
OWXLCD_SetFunction($hash,"gpio",11);
return undef;
}elsif($value eq "off") {
}elsif( (lc($value) eq "off") || (lc($value) eq "none") ) {
OWXLCD_SetFunction($hash,"gpio",15);
return undef;
}else{

View File

@ -16,7 +16,7 @@
# Prof. Dr. Peter A. Henning, 2012
# Martin Fischer, 2011
#
# Version 1.13 - May, 2012
# Version 1.14 - May, 2012
#
# Setup bus device in fhem.cfg as
#