FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

use SetExtensions

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2605 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
ntruchsess 2013-01-30 14:31:49 +00:00
parent 48a61a46f6
commit 7ed80a5816
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fhem/FHEM/20_FRM_OUT.pm
View File

@ -5,6 +5,7 @@ use strict;
use warnings;
use Device::Firmata;
use Device::Firmata::Constants qw/ :all /;
use SetExtensions;
#####################################
sub
@ -39,21 +40,25 @@ sub
FRM_OUT_Set($@)
{
my ($hash, @a) = @_;
my $name = $hash->{NAME};
shift @a;
my $cmd = $a[0];
my $value;
if ($a[1] eq "on") {
if ($cmd eq "on") {
$value=PIN_HIGH;
} elsif ($a[1] eq "off") {
} elsif ($cmd eq "off") {
$value=PIN_LOW;
} else {
return "illegal value '".$a[1]."', allowed are 'on' and 'off'";
my $list = "on off";
return SetExtensions($hash, $list, $name, @a);
}
my $iodev = $hash->{IODev};
if (defined $iodev and defined $iodev->{FirmataDevice} and defined $iodev->{FD}) {
$iodev->{FirmataDevice}->digital_write($hash->{PIN},$value);
main::readingsSingleUpdate($hash,"state",$a[1], 1);
} else {
return $hash->{NAME}." no IODev assigned" if (!defined $iodev);
return $hash->{NAME}.", ".$iodev->{NAME}." is not connected";
return $name." no IODev assigned" if (!defined $iodev);
return $name.", ".$iodev->{NAME}." is not connected";
}
return undef;
}

2
fhem/FHEM/SetExtensions.pm
View File

@ -23,7 +23,7 @@ SetExtensions($$@)
);
my $hasOn = ($list =~ m/\bon\b/);
my $hasOff = ($list =~ m/\bon\b/);
my $hasOff = ($list =~ m/\boff\b/);
if(!$hasOn || !$hasOff) {
my $em = AttrVal($name, "eventMap", undef);
if($em) {