mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 12:49:34 +00:00
First SVN Commit
git-svn-id: https://svn.fhem.de/fhem/trunk@1134 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dirkho
parent
57dca469c1
commit
01f48ca6dc
234
fhem/contrib/inputevent/89_inputevent.pm
Normal file
234
fhem/contrib/inputevent/89_inputevent.pm
Normal file
@ -0,0 +1,234 @@
|
||||
package main;
|
||||
###########################
|
||||
# 89_inputevent.pm
|
||||
# Modul for FHEM
|
||||
#
|
||||
# contributed by Dirk Hoffmann 2010-2011
|
||||
# $Id: 89_inputEvent.pm,v 0.2 2011/11/27 19:16:16 dirkho Exp $
|
||||
#
|
||||
#
|
||||
# Linux::Input wird benötigt
|
||||
###########################
|
||||
use strict;
|
||||
use Switch;
|
||||
use warnings;
|
||||
|
||||
use IO::Select;
|
||||
use Linux::Input;
|
||||
|
||||
use vars qw{%attr %defs};
|
||||
sub Log($$);
|
||||
our $FH;
|
||||
####################################
|
||||
# INPUTEVENT_Initialize
|
||||
# Implements Initialize function
|
||||
#
|
||||
sub INPUTEVENT_Initialize($) {
|
||||
my ($hash) = @_;
|
||||
Log 1, "INPUT/Event Initialize";
|
||||
|
||||
# Provider
|
||||
$hash->{ReadFn} = "INPUTEVENT_Read";
|
||||
$hash->{ReadyFn} = "INPUTEVENT_Ready";
|
||||
|
||||
# Consumer
|
||||
$hash->{DefFn} = "INPUTEVENT_Define";
|
||||
$hash->{UndefFn} = "INPUTEVENT_Undef";
|
||||
|
||||
$hash->{SetFn} = "INPUTEVENT_Set";
|
||||
$hash->{AttrList}= "model:EVENT loglevel:0,1,2,3,4,5";
|
||||
|
||||
$hash->{READINGS}{uTIME} = 0;
|
||||
$hash->{READINGS}{lastCode} = 0;
|
||||
}
|
||||
|
||||
#####################################
|
||||
# INPUTEVENT_Define
|
||||
# Implements DefFn function
|
||||
#
|
||||
sub INPUTEVENT_Define($$) {
|
||||
my ($hash, $def) = @_;
|
||||
my ($name, undef, $dev, $msIgnore) = split("[ \t][ \t]*", $def);
|
||||
|
||||
if (!$msIgnore) {
|
||||
$msIgnore = 175;
|
||||
}
|
||||
|
||||
delete $hash->{fh};
|
||||
delete $hash->{FD};
|
||||
|
||||
my $fileno;
|
||||
|
||||
if($dev eq "none") {
|
||||
Log 1, "Input device is none, commands will be echoed only";
|
||||
return undef;
|
||||
}
|
||||
|
||||
Log 4, "Opening input device at $dev. Repeated commands within $msIgnore miliseconds was ignored.";
|
||||
|
||||
if ($dev=~/^\/dev\/input/) {
|
||||
my $OS=$^O;
|
||||
if ($OS eq 'MSWin32') {
|
||||
my $logMsg = "Input devices only avilable under Linux OS at this time.";
|
||||
Log 1, $logMsg;
|
||||
return $logMsg;
|
||||
} else {
|
||||
if ($@) {
|
||||
my $logMsg = "Error using Modul Linux::Input";
|
||||
$hash->{STATE} = $logMsg;
|
||||
Log 1, $logMsg;
|
||||
return $logMsg . " Can't open Linux::Input $@\n";
|
||||
}
|
||||
|
||||
my $devObj = Linux::Input->new($dev);
|
||||
if (!$devObj) {
|
||||
my $logMsg = "Error opening device";
|
||||
$hash->{STATE} = "error opening device";
|
||||
Log 1, $logMsg . " $dev";
|
||||
return "Can't open Device $dev: $^E\n";
|
||||
}
|
||||
|
||||
my $select = IO::Select->new($devObj->fh);
|
||||
|
||||
foreach my $fh ($select->handles) {
|
||||
$fileno = $fh->fileno;
|
||||
}
|
||||
|
||||
$selectlist{"$name.$dev"} = $hash;
|
||||
$hash->{fh} = $devObj->fh;
|
||||
$hash->{FD} = $fileno;
|
||||
$hash->{SelectObj} = $select;
|
||||
$hash->{STATE} = "Opened";
|
||||
$hash->{DeviceName}=$name;
|
||||
$hash->{msIgnore}=$msIgnore;
|
||||
Log 4, "$name connected to device $dev";
|
||||
}
|
||||
|
||||
} else {
|
||||
my $logMsg = "$dev is no device and not implemented";
|
||||
$hash->{STATE} = $logMsg;
|
||||
Log 1, $logMsg;
|
||||
return $logMsg;
|
||||
}
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
#####################################
|
||||
# implements UnDef-Function
|
||||
#
|
||||
sub INPUTEVENT_Undef($$) {
|
||||
my ($hash, $arg) = @_;
|
||||
my $name = $hash->{NAME};
|
||||
my $fh = $hash->{fh};
|
||||
delete $hash->{fh};
|
||||
$hash->{STATE}='Closed';
|
||||
|
||||
if ($fh) {
|
||||
$fh->close();
|
||||
}
|
||||
|
||||
Log 5, "$name shutdown complete";
|
||||
return undef;
|
||||
}
|
||||
|
||||
#####################################
|
||||
# INPUTEVENT_Set
|
||||
# implement SetFn
|
||||
# currently nothing to set
|
||||
#
|
||||
sub INPUTEVENT_Ready($$) {
|
||||
my ($hash, $dev) = @_;
|
||||
my $select= $hash->{SelectObj};
|
||||
|
||||
return ($select->can_read(0));
|
||||
}
|
||||
|
||||
#####################################
|
||||
# INPUTEVENT_Set
|
||||
# implement SetFn
|
||||
# currently nothing to set
|
||||
#
|
||||
sub INPUTEVENT_Set($@) {
|
||||
my ($hash, @a) = @_;
|
||||
my $name=$a[0];
|
||||
my $msg = "$name => No Set function implemented";
|
||||
|
||||
Log 1,$msg;
|
||||
return $msg;
|
||||
}
|
||||
|
||||
#####################################
|
||||
# INPUTEVENT_Read
|
||||
# Implements ReadFn, called from global select
|
||||
#
|
||||
sub INPUTEVENT_Read($$) {
|
||||
my ($hash) = @_;
|
||||
|
||||
my $fh = $hash->{fh};
|
||||
my $select= $hash->{SelectObj};
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
my $message = undef;
|
||||
|
||||
if( $select->can_read(0) ){
|
||||
$fh->read($message,16);
|
||||
|
||||
INPUTEVENT_Parse($hash, $message);
|
||||
}
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
#####################################
|
||||
# INPUTEVENT_Parse
|
||||
# decodes complete frame
|
||||
# called directly from INPUTEVENT_Read
|
||||
sub INPUTEVENT_Parse($$) {
|
||||
my ($hash, $msg) = @_;
|
||||
my $name = $hash->{NAME};
|
||||
my $message;
|
||||
|
||||
my ($b0,$b1,$b2,$b3,$b4,$b5,$b6,$b7,$b8,$b9,$b10,$b11,$b12,$b13,$b14,$b15) =
|
||||
map {$_ & 0x7F} unpack("U*",$msg);
|
||||
|
||||
my $sec = sprintf('%10s', $b0 + $b1*256 + $b2*256*256 + $b3*256*256*256);
|
||||
my $ySec = sprintf('%06s', $b4 + $b5*256 + $b6*256*256);
|
||||
my $type = $b8;
|
||||
my $code = $b10;
|
||||
my $value = sprintf('%07s', $b12 + $b13*256 + $b14*256*256);
|
||||
|
||||
if ($type eq 4 && $code eq 3) {
|
||||
$message = "$name => $sec.$ySec, type: $type, code: $code, value: $value";
|
||||
|
||||
# Set $ignoreUSecs => µSec sice last command.
|
||||
my $uTime = $sec * 1000000 + $ySec;
|
||||
my $ignoreUSecs = $uTime - $hash->{READINGS}{uTIME};
|
||||
$hash->{READINGS}{uTIME} = $uTime;
|
||||
|
||||
#Log 4, $hash->{READINGS}{lastCode} . " _ " . $value . " | " . $hash->{READINGS}{uTIME} . " --- " . $uTime . " +++ " . $ignoreUSecs;
|
||||
|
||||
# IR-codes was repeated with short delay. So we ignor commands the next µSeconds set in the define command. (Default 175000)
|
||||
if (($ignoreUSecs > ($hash->{msIgnore} * 1000)) || ($hash->{READINGS}{lastCode} ne $value)) {
|
||||
$hash->{READINGS}{LAST}{VAL} = unpack('H*',$msg);
|
||||
$hash->{READINGS}{LAST}{TIME} = TimeNow();
|
||||
$hash->{READINGS}{RAW}{TIME} = time();
|
||||
$hash->{READINGS}{RAW}{VAL} = unpack('H*',$msg);
|
||||
$hash->{READINGS}{lastCode} = $value;
|
||||
|
||||
Log 4, $message;
|
||||
|
||||
DoTrigger($name, $message);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
#####################################
|
||||
sub INPUTEVENT_List($$) {
|
||||
my ($hash,$msg) = @_;
|
||||
$msg = INPUTEVENT_Get($hash,$hash->{NAME},'list');
|
||||
return $msg;
|
||||
}
|
||||
|
||||
1;
|
||||
21
fhem/contrib/inputevent/inputevent.txt
Normal file
21
fhem/contrib/inputevent/inputevent.txt
Normal file
@ -0,0 +1,21 @@
|
||||
InputEvent - Linux InputEvent handling für fhem
|
||||
===============================================
|
||||
Von Dirk Hoffmann <hoffmann@vmd-jena.de>
|
||||
|
||||
V0.1
|
||||
|
||||
InputEvent ist ein Modul für FHEM um auf Linux Input Events zu reagieren.
|
||||
Damit ist es möglich z.B. auf Tastatur Ereignisse zu reagieren.
|
||||
|
||||
Ich benutze InpuEvent um FHEM mit einer Infrarotfernbedienung an einer DVB-S Karte
|
||||
zu koppeln. Damit lassen sich über FHEM z.B. Befehle an alle unterstützen Geräte
|
||||
Senden.
|
||||
|
||||
in der Datei sample.conf ist eine Beispielkonfiguration enthalten.
|
||||
|
||||
History
|
||||
-----------
|
||||
V0.1 - Initiale Version
|
||||
|
||||
V0.2 - Events werden jetzt nur noch einmal innerhalb einer bestimmten Zeit ausgeführt
|
||||
(Siehe sample.conf)
|
||||
42
fhem/contrib/inputevent/sample.conf
Normal file
42
fhem/contrib/inputevent/sample.conf
Normal file
@ -0,0 +1,42 @@
|
||||
### Sample Settings for DVB-IR-Remote
|
||||
#
|
||||
# the code can be found in output of command evtest /dev/input/eventX
|
||||
# Sampleoutput :
|
||||
# ~> evtest /dev/input/eventX
|
||||
#
|
||||
# Event: time 1322401114.481388, type 4 (Misc), code 3 (?), value 1900585
|
||||
# Event: time 1322401114.481396, type 4 (Misc), code 4 (?), value 41
|
||||
# Event: time 1322401114.595003, type 4 (Misc), code 3 (?), value 1900585
|
||||
# Event: time 1322401114.595006, type 4 (Misc), code 4 (?), value 41
|
||||
|
||||
# Define the inputevent handler
|
||||
# The input device
|
||||
# | Miliseconds between repeated commands ignored (Default 150)
|
||||
# | |
|
||||
define DVB_Remote inputevent /dev/input/event4 160
|
||||
attr DVB_Remote comment DVB-Remote IR Receiver at /dev/input/event4. Repeated commands within 150 miliseconds was ignored.
|
||||
|
||||
# Define a FS20 actor
|
||||
define st1 FS20 44444444 1111
|
||||
attr st1 follow-on-for-timer
|
||||
attr st1 comment Steckdose 1
|
||||
attr st1 model FS20 ST-2
|
||||
|
||||
# Define some notify handler to receive the remote commands
|
||||
|
||||
# Sample settings for FS20 Device st1 Steckdose 1
|
||||
# The IR-Code (see above)
|
||||
# |
|
||||
# |
|
||||
define xsight_st1_off notify DVB_Remote.*value:.*1900586 set st1 off
|
||||
define xsight_st1_on notify DVB_Remote.*value:.*1900585 set st1 on
|
||||
|
||||
# Wohnzimmer Licht 1
|
||||
define xsight_wzLicht1_off notify DVB_Remote.*value:.*1900570 set wzLicht1 off
|
||||
define xsight_wzLicht1_on notify DVB_Remote.*value:.*1900569 set wzLicht1 on
|
||||
define xsight_wzLicht1_dim06 notify DVB_Remote.*value:.*1900590 set wzLicht1 dim06%%
|
||||
define xsight_wzLicht1_dim25 notify DVB_Remote.*value:.*1900589 set wzLicht1 dim25%%
|
||||
define xsight_wzLicht1_dim43 notify DVB_Remote.*value:.*1900574 set wzLicht1 dim43%%
|
||||
define xsight_wzLicht1_dim62 notify DVB_Remote.*value:.*1900573 set wzLicht1 dim62%%
|
||||
define xsight_wzLicht1_dim81 notify DVB_Remote.*value:.*1900558 set wzLicht1 dim81%%
|
||||
define xsight_wzLicht1_dim100 notify DVB_Remote.*value:.*1900557 set wzLicht1 dim100%%
|
||||
18
fhem/contrib/inputevent/vdr-plugin-remote.diff
Normal file
18
fhem/contrib/inputevent/vdr-plugin-remote.diff
Normal file
@ -0,0 +1,18 @@
|
||||
diff -upr remote/remote.c remote_patched/remote.c
|
||||
--- remote/remote.c 2010-09-27 00:42:45.273924974 +0200
|
||||
+++ remote_patched/remote.c 2010-09-27 00:58:26.477924549 +0200
|
||||
@@ -268,14 +268,7 @@ cRemoteDevInput::cRemoteDevInput(const c
|
||||
polldelay = repeatdelay = repeatfreq = repeattimeout = 0;
|
||||
}
|
||||
|
||||
- // grab device if possible (kernel 2.6)
|
||||
-#ifndef EVIOCGRAB
|
||||
- // required if an old /usr/include/linux/input.h is used with a new kernel :-(
|
||||
-#define EVIOCGRAB _IOW('E', 0x90, int) /* Grab/Release device */
|
||||
-#endif
|
||||
data[0] = 1;
|
||||
- if (ioctl(f, EVIOCGRAB, data) == 0)
|
||||
- dsyslog("%s: exclusive access granted", name);
|
||||
|
||||
// setup keymap
|
||||
const char *setupStr = GetSetup();
|
||||
Loading…
Reference in New Issue
Block a user