FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-28 05:01:57 +00:00
Code Issues Releases Wiki Activity

FHEM/24_Iluminize.pm: Now using packages and fixed typo in pod

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@17537 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
vk 2018-10-15 16:08:23 +00:00
parent 4e0c1e7b30
commit 2054d0eeff
1 changed files with 62 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
fhem/FHEM/24_Iluminize.pm
View File

@ -33,13 +33,63 @@ package main;
use strict;
use warnings;
sub Iluminize_Initialize($)
{
my ($hash) = @_;
$hash->{DefFn} = "Iluminize::Define";
$hash->{ReadFn} = "Iluminize::Get";
$hash->{SetFn} = "Iluminize::Set";
$hash->{UndefFn} = "Iluminize::Undefine";
$hash->{DeleteFn} = "Iluminize::Delete";
$hash->{AttrFn} = "Iluminize::Attr";
$hash->{AttrList} = "$readingFnAttributes";
}
package Iluminize;
use strict;
use warnings;
use POSIX;
use IO::Socket::INET;
use IO::Socket::Timeout;
use SetExtensions;
use GPUtils qw(:all); # wird für den Import der FHEM Funktionen aus der fhem.pl benötigt
## Import der FHEM Funktionen
BEGIN {
GP_Import(qw(
readingsSingleUpdate
readingsBulkUpdate
readingsBulkUpdateIfChanged
readingsBeginUpdate
readingsEndUpdate
Log3
CommandAttr
AttrVal
ReadingsVal
CommandDefMod
modules
setKeyValue
getKeyValue
getUniqueId
RemoveInternalTimer
InternalTimer
defs
init_done
IsDisabled
deviceEvents
HttpUtils_NonblockingGet
gettimeofday
Dispatch
SetExtensions
))
};
my $on = chr(hex("55")) .
my $on =
chr(hex("55")) .
chr(hex("99")) .
chr(hex("5e")) .
chr(hex("bb")) .
@ -52,7 +102,8 @@ my $on = chr(hex("55")) .
chr(hex("aa")) .
chr(hex("aa"));
my $off= chr(hex("55")) .
my $off=
chr(hex("55")) .
chr(hex("99")) .
chr(hex("5e")) .
chr(hex("bb")) .
@ -66,20 +117,7 @@ my $off= chr(hex("55")) .
chr(hex("aa"));
sub Iluminize_Initialize($)
{
my ($hash) = @_;
$hash->{DefFn} = "Iluminize_Define";
$hash->{ReadFn} = "Iluminize_Get";
$hash->{SetFn} = "Iluminize_Set";
$hash->{UndefFn} = "Iluminize_Undefine";
$hash->{DeleteFn} = "Iluminize_Delete";
$hash->{AttrFn} = "Iluminize_Attr";
$hash->{AttrList} = "$readingFnAttributes";
}
sub Iluminize_Define($$)
sub Define($$)
{
my ($hash, $def) = @_;
my $name= $hash->{NAME};
@ -95,10 +133,10 @@ sub Iluminize_Define($$)
}
# No get so far
sub Iluminize_Get($$) {}
sub Get($$) {}
sub Iluminize_Set($$)
sub Set($$)
{
my ($hash, $name, $cmd, @args) = @_;
my $cmdList = "on off";
@ -134,7 +172,7 @@ sub Iluminize_Set($$)
}
sub Iluminize_Undefine($$)
sub Undefine($$)
{
my ($hash, $arg) = @_;
my $name= $hash->{NAME};
@ -144,7 +182,7 @@ sub Iluminize_Undefine($$)
sub Iluminize_Delete($$) {
sub Delete($$) {
my ($hash, $arg) = @_;
my $name= $hash->{NAME};
Log3 $hash, 0, "Ilumnize: $name deleted.";
@ -153,7 +191,7 @@ sub Iluminize_Delete($$) {
sub Iluminize_Attr($$$$) {
sub Attr($$$$) {
my ($cmd, $name, $aName, $aVal) = @_;
my $hash = $defs{$name};
@ -164,6 +202,8 @@ sub Iluminize_Attr($$$$) {
=pod
=item summary Support for Iluminize wifi controlled led stripe
=item summary_DE Support für die Iluminize wlan LED-Produkte
=begin html
@ -191,6 +231,3 @@ sub Iluminize_Attr($$$$) {
=end html_DE
=item summary Support for Iluminize wifi controlled led stripe
=item summary_DE Support für die Iluminize wlan LED-Produkte