mirror of
https://github.com/fhem/fhem-mirror.git
synced 2024-11-22 09:49:50 +00:00
151 lines
3.2 KiB
Perl
151 lines
3.2 KiB
Perl
###############################################
|
|
# Sample fhem module, one-level approach, controlling a single device like a
|
|
# directly attached heating regulator.
|
|
# The alternative is a two level approach, where a physical device like a CUL
|
|
# is a bridge to a large number of logical devices (like FS20 actors, S300
|
|
# sensors, etc)
|
|
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Time::HiRes qw(gettimeofday);
|
|
|
|
sub TAHR_Read($);
|
|
sub TAHR_Ready($);
|
|
sub TAHR_setbits($$);
|
|
|
|
sub
|
|
TAHR_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
require "$attr{global}{modpath}/FHEM/DevIo.pm";
|
|
|
|
$hash->{ReadFn} = "TAHR_Read";
|
|
$hash->{ReadyFn} = "TAHR_Ready";
|
|
$hash->{DefFn} = "TAHR_Define";
|
|
$hash->{UndefFn} = "TAHR_Undef";
|
|
$hash->{SetFn} = "TAHR_Set";
|
|
$hash->{AttrList}= "loglevel:0,1,2,3,4,5,6 ".
|
|
"do_not_notify:1,0 ignore:1,0 dummy:1,0 showtime:1,0 ".
|
|
$readingFnAttributes;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
TAHR_Define($$)
|
|
{
|
|
my ($hash, $def) = @_;
|
|
my @a = split("[ \t][ \t]*", $def);
|
|
|
|
return "wrong syntax: define <name> TAHR [devicename|none]"
|
|
if(@a != 3);
|
|
|
|
DevIo_CloseDev($hash);
|
|
my $name = $a[0];
|
|
my $dev = $a[2];
|
|
|
|
if($dev eq "none") {
|
|
Log 1, "TAHR device is none, commands will be echoed only";
|
|
return undef;
|
|
}
|
|
|
|
$hash->{PARTIAL} = "";
|
|
$hash->{DeviceName} = $dev;
|
|
my $ret = DevIo_OpenDev($hash, 0, "TAHR_InitFn");
|
|
return $ret;
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub
|
|
TAHR_Undef($$)
|
|
{
|
|
my ($hash, $arg) = @_;
|
|
DevIo_CloseDev($hash);
|
|
RemoveInternalTimer($hash);
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
TAHR_Set($@)
|
|
{
|
|
my ($hash, @a) = @_;
|
|
my %tahr_sets = (
|
|
"ww_soll" => "0C07656565%02x6565",
|
|
"ww_betriebsart" => "0C0E%02x6565656565",
|
|
);
|
|
|
|
return "\"set TAHR\" needs at least an argument" if(@a < 2);
|
|
my $cmd = $tahr_sets{$a[1]};
|
|
if(!defined($cmd)) {
|
|
return SetExtensions($hash, join(" ", sort keys %tahr_sets), @a);
|
|
}
|
|
|
|
# FIXME
|
|
DevIo_SimpleWrite($hash, sprintf($cmd, $a[2]));
|
|
return undef;
|
|
}
|
|
|
|
|
|
#####################################
|
|
# called from the global loop, when the select for hash->{FD} reports data
|
|
sub
|
|
TAHR_Read($)
|
|
{
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
my ($data, $crc);
|
|
my $ll5 = GetLogLevel($name,5);
|
|
|
|
my $buf = DevIo_SimpleRead($hash);
|
|
return "" if(!defined($buf));
|
|
|
|
$buf = unpack('H*', $buf);
|
|
Log $ll5, "RAW: $buf";
|
|
|
|
$buf = $hash->{PARTIAL} . $buf;
|
|
while($buf =~ m/^(.*?)\n(.*)$/) {
|
|
my $line = $1;
|
|
$buf = $2;
|
|
######################################
|
|
# Analyze the data
|
|
# FIXME
|
|
Log $ll5, "LINE: $line";
|
|
readingsSingleUpdate($hash, "LINE", $line, 1);
|
|
}
|
|
$hash->{PARTIAL} = $buf;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
TAHR_Ready($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
return DevIo_OpenDev($hash, 1, "TAHR_InitFn")
|
|
if($hash->{STATE} eq "disconnected");
|
|
|
|
# This is relevant for windows/USB only
|
|
my $po = $hash->{USBDev};
|
|
my ($BlockingFlags, $InBytes, $OutBytes, $ErrorFlags) = $po->status;
|
|
return ($InBytes>0);
|
|
}
|
|
|
|
sub
|
|
TAHR_InitFn($)
|
|
{
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
DevIo_SetHwHandshake($hash) if($hash->{USBDev});
|
|
$hash->{PARTIAL} = "";
|
|
$hash->{STATE} = "Initialized";
|
|
return undef;
|
|
}
|
|
|
|
|
|
1;
|