mirror of
https://github.com/fhem/fhem-mirror.git
synced 2024-06-17 05:40:11 +00:00
c32308cbab
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@16372 2b470e98-0d58-463d-a4d8-8e2adae1ed80
1009 lines
41 KiB
Perl
1009 lines
41 KiB
Perl
# $Id$
|
|
|
|
##############################################################################
|
|
#
|
|
# 66_ECMD.pm
|
|
# Copyright by Dr. Boris Neubert
|
|
# e-mail: omega at online dot de
|
|
#
|
|
# This file is part of fhem.
|
|
#
|
|
# Fhem is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Fhem is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with fhem. If not, see <http://www.gnu.org/licenses/>.
|
|
#
|
|
##############################################################################
|
|
|
|
package main;
|
|
|
|
|
|
=for comment
|
|
|
|
General rule:
|
|
|
|
ECMD handles raw data, i.e. data that might contain control and non-printable characters.
|
|
User input for raw data, e.g. setting attributes, and display of raw data is perl-encoded.
|
|
Perl-encoded raw data in logs is not enclosed in double quotes.
|
|
|
|
A carriage return/line feed (characters 13 and 10) is encoded as
|
|
\r\n
|
|
and logged as
|
|
\r\n (\010\012)
|
|
|
|
Decoding is handled by dq(). Encoding is handled by cq().
|
|
|
|
changes as of 27 Nov 2016:
|
|
- if split is used, the strings at which the messages are split are still part of the messages
|
|
- no default attributes for requestSeparator and responseSeparator
|
|
- input of raw data as perl-encoded string (for setting attributes)
|
|
- be more verbose and explicit at loglevel 5
|
|
- documentation corrected and amended
|
|
|
|
=cut
|
|
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Time::HiRes qw(gettimeofday);
|
|
use DevIo;
|
|
|
|
|
|
sub ECMD_Attr($@);
|
|
sub ECMD_Clear($);
|
|
#sub ECMD_Parse($$$$$);
|
|
sub ECMD_Read($);
|
|
sub ECMD_ReadAnswer($$);
|
|
sub ECMD_Ready($);
|
|
sub ECMD_Write($$$);
|
|
|
|
|
|
use vars qw {%attr %defs};
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
# Provider
|
|
$hash->{WriteFn} = "ECMD_Write";
|
|
$hash->{ReadFn} = "ECMD_Read";
|
|
$hash->{Clients} = ":ECMDDevice:";
|
|
|
|
# Consumer
|
|
$hash->{DefFn} = "ECMD_Define";
|
|
$hash->{UndefFn} = "ECMD_Undef";
|
|
$hash->{ReadyFn} = "ECMD_Ready";
|
|
$hash->{GetFn} = "ECMD_Get";
|
|
$hash->{SetFn} = "ECMD_Set";
|
|
$hash->{AttrFn} = "ECMD_Attr";
|
|
$hash->{AttrList}= "classdefs split logTraffic:0,1,2,3,4,5 timeout partial requestSeparator responseSeparator autoReopen stop:0,1";
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_Define($$)
|
|
{
|
|
my ($hash, $def) = @_;
|
|
my @a = split("[ \t]+", $def);
|
|
|
|
my $name = $a[0];
|
|
my $protocol = $a[2];
|
|
|
|
if(@a < 4 || @a > 4 || (($protocol ne "telnet") && ($protocol ne "serial"))) {
|
|
my $msg = "wrong syntax: define <name> ECMD telnet <ipaddress[:port]> or define <name> ECMD serial <devicename[\@baudrate]>";
|
|
Log 2, $msg;
|
|
return $msg;
|
|
}
|
|
|
|
$hash->{fhem}{".requestSeparator"}= undef;
|
|
$hash->{fhem}{".responseSeparator"}= undef;
|
|
$hash->{fhem}{".split"}= undef;
|
|
|
|
DevIo_CloseDev($hash);
|
|
|
|
$hash->{Protocol}= $protocol;
|
|
my $devicename= $a[3];
|
|
$hash->{DeviceName} = $devicename;
|
|
|
|
my $ret = DevIo_OpenDev($hash, 0, undef);
|
|
return $ret;
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_Undef($$)
|
|
{
|
|
my ($hash, $arg) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
# deleting port for clients
|
|
foreach my $d (sort keys %defs) {
|
|
if(defined($defs{$d}) &&
|
|
defined($defs{$d}{IODev}) &&
|
|
$defs{$d}{IODev} == $hash) {
|
|
my $lev = ($reread_active ? 4 : 2);
|
|
Log3 $hash, $lev, "deleting port for $d";
|
|
delete $defs{$d}{IODev};
|
|
}
|
|
}
|
|
|
|
DevIo_CloseDev($hash);
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_DoInit($)
|
|
{
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
my $msg = undef;
|
|
|
|
ECMD_Clear($hash);
|
|
|
|
$hash->{STATE} = "Initialized" if(!$hash->{STATE});
|
|
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
oq($)
|
|
{
|
|
my ($s)= @_;
|
|
return join("", map { sprintf("\\%03o", ord($_)) } split("", $s));
|
|
}
|
|
|
|
sub
|
|
dq($)
|
|
{
|
|
my ($s)= @_;
|
|
return defined($s) ? ( $s eq "" ? "empty string" : escapeLogLine($s) . " (" . oq($s) . ")" ) : "<nothing>";
|
|
}
|
|
|
|
sub
|
|
cq($)
|
|
{
|
|
my ($s)= @_;
|
|
|
|
$s =~ s/\\(\d)(\d)(\d)/chr($1*64+$2*8+$3)/eg;
|
|
$s =~ s/\\a/\a/g;
|
|
$s =~ s/\\e/\e/g;
|
|
$s =~ s/\\f/\f/g;
|
|
$s =~ s/\\n/\n/g;
|
|
$s =~ s/\\r/\r/g;
|
|
$s =~ s/\\t/\t/g;
|
|
$s =~ s/\\\\/\\/g;
|
|
|
|
return $s;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_Log($$$)
|
|
{
|
|
my ($hash, $loglevel, $logmsg)= @_;
|
|
my $name= $hash->{NAME};
|
|
$loglevel= AttrVal($name, "logTraffic", undef) unless(defined($loglevel));
|
|
return unless(defined($loglevel));
|
|
Log3 $hash, $loglevel, "$name: $logmsg";
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_Ready($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
return DevIo_OpenDev($hash, 1, "ECMD_DoInit")
|
|
if($hash->{STATE} eq "disconnected");
|
|
|
|
# This is relevant for windows/USB only
|
|
my $po = $hash->{USBDev};
|
|
my ($BlockingFlags, $InBytes, $OutBytes, $ErrorFlags);
|
|
if($po) {
|
|
($BlockingFlags, $InBytes, $OutBytes, $ErrorFlags) = $po->status;
|
|
}
|
|
return ($InBytes && $InBytes>0);
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_isStopped($)
|
|
{
|
|
my $dev = shift; # name or hash
|
|
$dev = $dev->{NAME} if(defined($dev) && ref($dev) eq "HASH");
|
|
my $isDisabled = AttrVal($dev, "stop", 0);
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_SimpleRead($)
|
|
{
|
|
my $hash = shift;
|
|
return undef if ECMD_isStopped($hash);
|
|
my $answer= DevIo_SimpleRead($hash);
|
|
ECMD_Log $hash, undef, "read " . dq($answer);
|
|
return $answer;
|
|
}
|
|
|
|
sub
|
|
ECMD_SimpleWrite($$)
|
|
{
|
|
my ($hash, $msg) = @_;
|
|
return undef if ECMD_isStopped($hash);
|
|
ECMD_Log $hash, undef, "write " . dq($msg);
|
|
DevIo_SimpleWrite($hash, $msg, 0);
|
|
}
|
|
|
|
sub
|
|
ECMD_SimpleExpect($$$)
|
|
{
|
|
my ($hash, $msg, $expect) = @_;
|
|
|
|
my $name= $hash->{NAME};
|
|
return undef if ECMD_isStopped($name);
|
|
|
|
my $timeout= AttrVal($name, "timeout", 3.0);
|
|
my $partialTimeout= AttrVal($name, "partial", 0.0);
|
|
|
|
ECMD_Log $hash, undef, "write " . dq($msg) . ", expect $expect";
|
|
my $answer= DevIo_Expect($hash, $msg, $timeout );
|
|
|
|
#Debug "$name: Expect got \"" . escapeLogLine($answer) . "\".";
|
|
|
|
# complete partial answers
|
|
if($partialTimeout> 0) {
|
|
my $t0= gettimeofday();
|
|
while(!defined($answer) || ($answer !~ /^$expect$/)) {
|
|
#Debug "$name: waiting for a match...";
|
|
my $a= DevIo_SimpleReadWithTimeout($hash, $partialTimeout); # we deliberately use partialTimeout here!
|
|
#Debug "$name: SimpleReadWithTimeout got \"" . escapeLogLine($a) . "\".";
|
|
if(defined($a)) {
|
|
$answer= ( defined($answer) ? $answer . $a : $a );
|
|
}
|
|
#Debug "$name: SimpleExpect has now answer \"" . escapeLogLine($answer) . "\".";
|
|
last if(gettimeofday()-$t0> $partialTimeout);
|
|
}
|
|
}
|
|
|
|
if(defined($answer)) {
|
|
ECMD_Log $hash, undef, "read " . dq($answer);
|
|
if($answer !~ m/^$expect$/) {
|
|
ECMD_Log $hash, 1, "unexpected answer " . dq($answer) . " received (wrote " .
|
|
dq($msg) . ", expected $expect)";
|
|
}
|
|
} else {
|
|
ECMD_Log $hash, 1, "no answer received (wrote " .
|
|
dq($msg) . ", expected $expect)";
|
|
}
|
|
|
|
return $answer;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_SetState($$$$)
|
|
{
|
|
my ($hash, $tim, $vt, $val) = @_;
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_Clear($)
|
|
{
|
|
my $hash = shift;
|
|
return undef if ECMD_isStopped($hash);
|
|
|
|
# Clear the pipe
|
|
DevIo_TimeoutRead($hash, 0.1);
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_Get($@)
|
|
{
|
|
my ($hash, @a) = @_;
|
|
|
|
return "get needs at least one parameter" if(@a < 2);
|
|
|
|
my $name = $a[0];
|
|
my $cmd= $a[1];
|
|
my $arg = ($a[2] ? $a[2] : "");
|
|
my @args= @a; shift @args; shift @args;
|
|
my ($answer, $err);
|
|
|
|
return "No get $cmd for dummies" if(IsDummy($name));
|
|
|
|
if($cmd eq "raw") {
|
|
return "get raw needs an argument" if(@a< 3);
|
|
my $ecmd= join " ", @args;
|
|
$ecmd= AnalyzePerlCommand(undef, $ecmd);
|
|
# poor man's error catching...
|
|
if($ecmd =~ "^Bareword \"") {
|
|
$answer= $ecmd;
|
|
} else {
|
|
$answer= ECMD_SimpleExpect($hash, $ecmd, ".*");
|
|
}
|
|
} else {
|
|
return "Unknown argument $cmd, choose one of raw";
|
|
}
|
|
|
|
$hash->{READINGS}{$cmd}{VAL} = $answer;
|
|
$hash->{READINGS}{$cmd}{TIME} = TimeNow();
|
|
|
|
return "$name $cmd => $answer";
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_EvalClassDef($$$)
|
|
{
|
|
my ($hash, $classname, $filename)=@_;
|
|
my $name= $hash->{NAME};
|
|
|
|
# refuse overwriting existing definitions
|
|
if(defined($hash->{fhem}{classDefs}{$classname})) {
|
|
my $err= "$name: class $classname is already defined.";
|
|
Log3 $hash, 1, $err;
|
|
return $err;
|
|
}
|
|
|
|
# try and open the class definition file
|
|
if(!open(CLASSDEF, $filename)) {
|
|
my $err= "$name: cannot open file $filename for class $classname.";
|
|
Log3 $hash, 1, $err;
|
|
return $err;
|
|
}
|
|
my @classdef= <CLASSDEF>;
|
|
close(CLASSDEF);
|
|
|
|
# add the class definition
|
|
Log3 $hash, 5, "$name: adding new class $classname from file $filename";
|
|
$hash->{fhem}{classDefs}{$classname}{filename}= $filename;
|
|
|
|
# format of the class definition:
|
|
# params <params> parameters for device definition
|
|
# get <cmdname> cmd {<perlexpression>} defines a get command
|
|
# get <cmdname> params <params> parameters for get command
|
|
# get <cmdname> expect regex expected regex for get command
|
|
# get <cmdname> postproc { <perl command> } postprocessor for get command
|
|
# set <cmdname> cmd {<perlexpression>} defines a set command
|
|
# set <cmdname> expect regex expected regex for set command
|
|
# set <cmdname> params <params> parameters for get command
|
|
# set <cmdname> postproc { <perl command> } postprocessor for set command
|
|
# all lines are optional
|
|
#
|
|
# eaxmple class definition 1:
|
|
# get adc cmd {"adc get %channel"}
|
|
# get adc params channel
|
|
#
|
|
# eaxmple class definition 1:
|
|
# params btnup btnstop btndown
|
|
# set up cmd {"io set ddr 2 ff\nio set port 2 1%btnup\nwait 1000\nio set port 2 00"}
|
|
# set stop cmd {"io set ddr 2 ff\nio set port 2 1%btnstop\nwait 1000\nio set port 2 00"}
|
|
# set down cmd {"io set ddr 2 ff\nio set port 2 1%btndown\nwait 1000\nio set port 2 00"}
|
|
|
|
my $cont= "";
|
|
foreach my $line (@classdef) {
|
|
# kill trailing newline
|
|
chomp $line;
|
|
# kill comments and blank lines
|
|
$line=~ s/\#.*$//;
|
|
$line=~ s/\s+$//;
|
|
$line= $cont . $line;
|
|
if($line=~ s/\\$//) { $cont= $line; undef $line; }
|
|
next unless($line);
|
|
$cont= "";
|
|
Log3 $hash, 5, "$name: evaluating >$line<";
|
|
# split line into command and definition
|
|
my ($cmd, $def)= split("[ \t]+", $line, 2);
|
|
#if($cmd eq "nonl") {
|
|
# Log3 $hash, 5, "$name: no newline";
|
|
# $hash->{fhem}{classDefs}{$classname}{nonl}= 1;
|
|
#}
|
|
|
|
#
|
|
# params
|
|
#
|
|
if($cmd eq "params") {
|
|
Log3 $hash, 5, "$name: parameters are $def";
|
|
$hash->{fhem}{classDefs}{$classname}{params}= $def;
|
|
#
|
|
# state
|
|
#
|
|
} elsif($cmd eq "state") {
|
|
Log3 $hash, 5, "$name: state is determined as $def";
|
|
$hash->{fhem}{classDefs}{$classname}{state}= $def;
|
|
#
|
|
# reading
|
|
#
|
|
} elsif($cmd eq "reading") {
|
|
my ($readingname, $spec, $arg)= split("[ \t]+", $def, 3);
|
|
#
|
|
# match
|
|
#
|
|
if($spec eq "match") {
|
|
if($arg !~ m/^"(.*)"$/s) {
|
|
Log3 $hash, 1, "$name: match for reading $readingname is not enclosed in double quotes.";
|
|
next;
|
|
}
|
|
$arg = $1;
|
|
Log3 $hash, 5, "$name: reading $readingname will match $arg";
|
|
$hash->{fhem}{classDefs}{$classname}{readings}{$readingname}{match}= $arg;
|
|
#
|
|
# postproc
|
|
#
|
|
} elsif($spec eq "postproc") {
|
|
if($arg !~ m/^{.*}$/s) {
|
|
Log3 $hash, 1, "$name: postproc command for reading $readingname is not a perl command.";
|
|
next;
|
|
}
|
|
$arg =~ s/^(\\\n|[ \t])*//; # Strip space or \\n at the beginning
|
|
$arg =~ s/[ \t]*$//;
|
|
Log3 $hash, 5, "$name: reading $readingname postprocessor defined as $arg";
|
|
$hash->{fhem}{classDefs}{$classname}{readings}{$readingname}{postproc}= $arg;
|
|
#
|
|
# anything else
|
|
#
|
|
} else {
|
|
Log3 $hash, 1,
|
|
"$name: illegal spec $spec for reading $readingname for class $classname in file $filename.";
|
|
}
|
|
#
|
|
# set, get
|
|
#
|
|
} elsif($cmd eq "set" || $cmd eq "get") {
|
|
my ($cmdname, $spec, $arg)= split("[ \t]+", $def, 3);
|
|
if($spec eq "params") {
|
|
if($cmd eq "set") {
|
|
Log3 $hash, 5, "$name: set $cmdname has parameters $arg";
|
|
$hash->{fhem}{classDefs}{$classname}{sets}{$cmdname}{params}= $arg;
|
|
} elsif($cmd eq "get") {
|
|
Log3 $hash, 5, "$name: get $cmdname has parameters $arg";
|
|
$hash->{fhem}{classDefs}{$classname}{gets}{$cmdname}{params}= $arg;
|
|
}
|
|
} elsif($spec eq "cmd") {
|
|
if($arg !~ m/^{.*}$/s) {
|
|
Log3 $hash, 1, "$name: command for $cmd $cmdname is not a perl command.";
|
|
next;
|
|
}
|
|
$arg =~ s/^(\\\n|[ \t])*//; # Strip space or \\n at the beginning
|
|
$arg =~ s/[ \t]*$//;
|
|
if($cmd eq "set") {
|
|
Log3 $hash, 5, "$name: set $cmdname command defined as $arg";
|
|
$hash->{fhem}{classDefs}{$classname}{sets}{$cmdname}{cmd}= $arg;
|
|
} elsif($cmd eq "get") {
|
|
Log3 $hash, 5, "$name: get $cmdname command defined as $arg";
|
|
$hash->{fhem}{classDefs}{$classname}{gets}{$cmdname}{cmd}= $arg;
|
|
}
|
|
} elsif($spec eq "postproc") {
|
|
if($arg !~ m/^{.*}$/s) {
|
|
Log3 $hash, 1, "$name: postproc command for $cmd $cmdname is not a perl command.";
|
|
next;
|
|
}
|
|
$arg =~ s/^(\\\n|[ \t])*//; # Strip space or \\n at the beginning
|
|
$arg =~ s/[ \t]*$//;
|
|
if($cmd eq "set") {
|
|
Log3 $hash, 5, "$name: set $cmdname postprocessor defined as $arg";
|
|
$hash->{fhem}{classDefs}{$classname}{sets}{$cmdname}{postproc}= $arg;
|
|
} elsif($cmd eq "get") {
|
|
Log3 $hash, 5, "$name: get $cmdname postprocessor defined as $arg";
|
|
$hash->{fhem}{classDefs}{$classname}{gets}{$cmdname}{postproc}= $arg;
|
|
}
|
|
} elsif($spec eq "expect") {
|
|
if($arg !~ m/^"(.*)"$/s) {
|
|
Log3 $hash, 1, "$name: expect for $cmd $cmdname is not enclosed in double quotes.";
|
|
next;
|
|
}
|
|
$arg = $1;
|
|
if($cmd eq "set") {
|
|
Log3 $hash, 5, "$name: set $cmdname expects $arg";
|
|
$hash->{fhem}{classDefs}{$classname}{sets}{$cmdname}{expect}= $arg;
|
|
} elsif($cmd eq "get") {
|
|
Log3 $hash, 5, "$name: get $cmdname expects $arg";
|
|
$hash->{fhem}{classDefs}{$classname}{gets}{$cmdname}{expect}= $arg;
|
|
}
|
|
} else {
|
|
Log3 $hash, 1,
|
|
"$name: illegal spec $spec for $cmd $cmdname for class $classname in file $filename.";
|
|
}
|
|
} else {
|
|
Log3 $hash, 1, "$name: illegal tag $cmd for class $classname in file $filename.";
|
|
}
|
|
}
|
|
|
|
# store class definitions in attribute
|
|
$attr{$name}{classdefs}= "";
|
|
my @a;
|
|
foreach my $c (keys %{$hash->{fhem}{classDefs}}) {
|
|
push @a, "$c=$hash->{fhem}{classDefs}{$c}{filename}";
|
|
}
|
|
$attr{$name}{"classdefs"}= join(":", @a);
|
|
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_Attr($@)
|
|
{
|
|
|
|
my @a = @_;
|
|
my $hash= $defs{$a[1]};
|
|
my $name= $hash->{NAME};
|
|
|
|
if($a[0] eq "set") {
|
|
if($a[2] eq "classdefs") {
|
|
my @classdefs= split(/:/,$a[3]);
|
|
delete $hash->{fhem}{classDefs};
|
|
|
|
foreach my $classdef (@classdefs) {
|
|
my ($classname,$filename)= split(/=/,$classdef,2);
|
|
ECMD_EvalClassDef($hash, $classname, $filename);
|
|
}
|
|
} elsif($a[2] eq "requestSeparator") {
|
|
my $c= cq($a[3]);
|
|
$hash->{fhem}{".requestSeparator"}= $c;
|
|
Log3 $hash, 5, "$name: requestSeparator set to " . dq($c);
|
|
} elsif($a[2] eq "responseSeparator") {
|
|
my $c= cq($a[3]);
|
|
$hash->{fhem}{".responseSeparator"}= $c;
|
|
Log3 $hash, 5, "$name: responseSeparator set to " . dq($c);
|
|
} elsif($a[2] eq "split") {
|
|
my $c= cq($a[3]);
|
|
$hash->{fhem}{".split"}= $c;
|
|
Log3 $hash, 5, "$name: split set to " . dq($c);
|
|
}
|
|
} elsif($a[0] eq "del") {
|
|
if($a[2] eq "requestSeparator") {
|
|
$hash->{fhem}{".requestSeparator"}= undef;
|
|
Log3 $hash, 5, "$name: requestSeparator deleted";
|
|
} elsif($a[2] eq "responseSeparator") {
|
|
$hash->{fhem}{".responseSeparator"}= undef;
|
|
Log3 $hash, 5, "$name: responseSeparator deleted";
|
|
} elsif($a[2] eq "split") {
|
|
$hash->{fhem}{".split"}= undef;
|
|
Log3 $hash, 5, "$name: split deleted";
|
|
}
|
|
}
|
|
|
|
return undef;
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_Reopen($)
|
|
{
|
|
my ($hash) = @_;
|
|
return undef if ECMD_isStopped($hash);
|
|
DevIo_CloseDev($hash);
|
|
DevIo_OpenDev($hash, 1, undef);
|
|
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_Set($@)
|
|
{
|
|
my ($hash, @a) = @_;
|
|
my $name = $a[0];
|
|
|
|
# usage check
|
|
#my $usage= "Usage: set $name classdef <classname> <filename> OR set $name reopen";
|
|
my $usage= "Unknown argument $a[1], choose one of reopen classdef";
|
|
if((@a == 2) && ($a[1] eq "reopen")) {
|
|
return ECMD_Reopen($hash);
|
|
}
|
|
|
|
return $usage if(@a != 4);
|
|
return $usage if($a[1] ne "classdef");
|
|
|
|
# from the definition
|
|
my $classname= $a[2];
|
|
my $filename= $a[3];
|
|
|
|
return ECMD_EvalClassDef($hash, $classname, $filename);
|
|
}
|
|
|
|
#####################################
|
|
# called from the global loop, when the select for hash->{FD} reports data
|
|
sub ECMD_Read($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
return undef unless($hash->{STATE} eq "opened"); # avoid reading from closed device
|
|
|
|
my $buf = ECMD_SimpleRead($hash);
|
|
return unless(defined($buf));
|
|
return if($buf eq "");
|
|
|
|
ECMD_Log $hash, 5, "Spontaneously received " . dq($buf);
|
|
Dispatch($hash, $buf, undef); # dispatch result to ECMDDevices
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
ECMD_Write($$$)
|
|
{
|
|
my ($hash,$msg,$expect) = @_;
|
|
my $name= $hash->{NAME};
|
|
|
|
my $lastWrite= defined($hash->{fhem}{".lastWrite"}) ? $hash->{fhem}{".lastWrite"} : 0;
|
|
my $now= gettimeofday();
|
|
|
|
my $autoReopen= AttrVal($name, "autoReopen", undef);
|
|
if(defined($autoReopen)) {
|
|
my ($timeout,$delay)= split(',',$autoReopen);
|
|
ECMD_Reopen($hash) if($now>$lastWrite+$timeout);
|
|
sleep($delay);
|
|
}
|
|
|
|
$hash->{fhem}{".lastWrite"}= $now;
|
|
|
|
my $answer;
|
|
my $ret= "";
|
|
my $requestSeparator= $hash->{fhem}{".requestSeparator"};
|
|
my $responseSeparator= $hash->{fhem}{".responseSeparator"};
|
|
my @ecmds;
|
|
if(defined($requestSeparator)) {
|
|
@ecmds= split $requestSeparator, $msg;
|
|
} else {
|
|
push @ecmds, $msg;
|
|
}
|
|
ECMD_Log $hash, 5, "command split into " . ($#ecmds+1) . " parts, requestSeparator is " .
|
|
dq($requestSeparator) if($#ecmds>0);
|
|
foreach my $ecmd (@ecmds) {
|
|
ECMD_Log $hash, 5, "sending command " . dq($ecmd);
|
|
my $msg .= $ecmd;
|
|
if(defined($expect)) {
|
|
$answer= ECMD_SimpleExpect($hash, $msg, $expect);
|
|
$answer= "" unless(defined($answer));
|
|
ECMD_Log $hash, 5, "received answer " . dq($answer);
|
|
$answer.= $responseSeparator if(defined($responseSeparator) && ($#ecmds>0));
|
|
$ret.= $answer;
|
|
} else {
|
|
ECMD_SimpleWrite($hash, $msg);
|
|
}
|
|
}
|
|
return $ret;
|
|
}
|
|
|
|
#####################################
|
|
|
|
1;
|
|
|
|
=pod
|
|
=item device
|
|
=item summary configurable request/response-like communication (physical device)
|
|
=item summary_DE konfigurierbare Frage/Antwort-Kommunikation (physisches Gerät)
|
|
=begin html
|
|
|
|
<a name="ECMD"></a>
|
|
<h3>ECMD</h3>
|
|
<ul>
|
|
Any physical device with request/response-like communication capabilities
|
|
over a serial line or TCP connection can be defined as ECMD device. A practical example
|
|
of such a device is the AVR microcontroller board AVR-NET-IO from
|
|
<a href="http://www.pollin.de">Pollin</a> with
|
|
<a href="http://www.ethersex.de/index.php/ECMD">ECMD</a>-enabled
|
|
<a href="http://www.ethersex.de">Ethersex</a> firmware. The original
|
|
NetServer firmware from Pollin works as well. There is a plenitude of use cases.<p>
|
|
|
|
A physical ECMD device can host any number of logical ECMD devices. Logical
|
|
devices are defined as <a href="#ECMDDevice">ECMDDevice</a>s in fhem.
|
|
ADC 0 to 3 and I/O port 0 to 3 of the above mentioned board
|
|
are examples of such logical devices. ADC 0 to 3 all belong to the same
|
|
device class ADC (analog/digital converter). I/O port 0 to 3 belong to the device
|
|
class I/O port. By means of extension boards you can make your physical
|
|
device drive as many logical devices as you can imagine, e.g. IR receivers,
|
|
LC displays, RF receivers/transmitters, 1-wire devices, etc.<p>
|
|
|
|
Defining one fhem module for any device class would create an unmanageable
|
|
number of modules. Thus, an abstraction layer is used. You create a device class
|
|
on the fly and assign it to a logical ECMD device. The
|
|
<a href="#ECMDClassdef">class definition</a>
|
|
names the parameters of the logical device, e.g. a placeholder for the number
|
|
of the ADC or port, as well as the get and set capabilities. Worked examples
|
|
are to be found in the documentation of the <a href="#ECMDDevice">ECMDDevice</a> device.
|
|
<br><br>
|
|
|
|
Note: this module requires the Device::SerialPort or Win32::SerialPort module
|
|
if the module is connected via serial Port or USB.<p>
|
|
|
|
<a name="ECMDcharcoding"></a>
|
|
<b>Character coding</b><br><br>
|
|
|
|
ECMD is suited to process any character including non-printable and control characters.
|
|
User input for raw data, e.g. for setting attributes, and the display of raw data, e.g. in the log,
|
|
is perl-encoded according to the following table (ooo stands for a three-digit octal number):<BR>
|
|
<table>
|
|
<tr><th>character</th><th>octal</th><th>code</th></tr>
|
|
<tr><td>Bell</td><td>007</td><td>\a</td></tr>
|
|
<tr><td>Backspace</td><td>008</td><td>\008</td></tr>
|
|
<tr><td>Escape</td><td>033</td><td>\e</td></tr>
|
|
<tr><td>Formfeed</td><td>014</td><td>\f</td></tr>
|
|
<tr><td>Newline</td><td>012</td><td>\n</td></tr>
|
|
<tr><td>Return</td><td>015</td><td>\r</td></tr>
|
|
<tr><td>Tab</td><td>011</td><td>\t</td></tr>
|
|
<tr><td>backslash</td><td>134</td><td>\134 or \\</td></tr>
|
|
<tr><td>any</td><td>ooo</td><td>\ooo</td></tr>
|
|
</table><br>
|
|
In user input, use \134 for backslash to avoid conflicts with the way FHEM handles continuation lines.
|
|
<br><br>
|
|
|
|
<a name="ECMDdefine"></a>
|
|
<b>Define</b><br><br>
|
|
<ul>
|
|
<code>define <name> ECMD telnet <IPAddress:Port></code><br><br>
|
|
or<br><br>
|
|
<code>define <name> ECMD serial <SerialDevice>[<@BaudRate>]</code>
|
|
<br><br>
|
|
|
|
Defines a physical ECMD device. The keywords <code>telnet</code> or
|
|
<code>serial</code> are fixed.<br><br>
|
|
|
|
Examples:
|
|
<ul>
|
|
<code>define AVRNETIO ECMD telnet 192.168.0.91:2701</code><br>
|
|
<code>define AVRNETIO ECMD serial /dev/ttyS0</code><br>
|
|
<code>define AVRNETIO ECMD serial /dev/ttyUSB0@38400</code><br>
|
|
</ul>
|
|
<br>
|
|
</ul>
|
|
|
|
<a name="ECMDset"></a>
|
|
<b>Set</b><br><br>
|
|
<ul>
|
|
<code>set <name> classdef <classname> <filename></code>
|
|
<br><br>
|
|
Creates a new device class <code><classname></code> for logical devices.
|
|
The class definition is in the file <code><filename></code>. You must
|
|
create the device class before you create a logical device that adheres to
|
|
that definition.
|
|
<br><br>
|
|
Example:
|
|
<ul>
|
|
<code>set AVRNETIO classdef /etc/fhem/ADC.classdef</code><br>
|
|
</ul>
|
|
<br>
|
|
<code>set <name> reopen</code>
|
|
<br><br>
|
|
Closes and reopens the device. Could be handy if connection is lost and cannot be
|
|
reestablished automatically.
|
|
<br><br>
|
|
</ul>
|
|
|
|
|
|
<a name="ECMDget"></a>
|
|
<b>Get</b><br><br>
|
|
<ul>
|
|
<code>get <name> raw <command></code>
|
|
<br><br>
|
|
Sends the command <code><command></code> to the physical ECMD device
|
|
<code><name></code> and reads the response. In the likely case that
|
|
the command needs to be terminated by a newline character, you have to
|
|
resort to a <a href="#perl"><perl special></a>.
|
|
<br><br>
|
|
Example:
|
|
<ul>
|
|
<code>get AVRNETIO raw { "ip\n" }</code><br>
|
|
</ul>
|
|
</ul>
|
|
<br><br>
|
|
|
|
<a name="ECMDattr"></a>
|
|
<b>Attributes</b><br><br>
|
|
<ul>
|
|
<li>classdefs<br>A colon-separated list of <classname>=<filename>.
|
|
The list is automatically updated if a class definition is added. You can
|
|
directly set the attribute. Example: <code>attr myECMD classdefs ADC=/etc/fhem/ADC.classdef:GPIO=/etc/fhem/AllInOne.classdef</code></li>
|
|
<li>split <separator><br>
|
|
Some devices send several readings in one transmission. The split attribute defines the
|
|
separator to split such transmissions into separate messages. The regular expression for
|
|
matching a reading is then applied to each message in turn. After splitting, the separator
|
|
<b>is</b> still part of the single messages. Separator can be a single- or multi-character string,
|
|
e.g. \n or \r\n.
|
|
Example: <code>attr myECMD split \n</code> splits <code>foo 12\nbar off\n</code> into
|
|
<code>foo 12\n</code> and <code>bar off\n</code>.</li>
|
|
<li>logTraffic <loglevel><br>Enables logging of sent and received datagrams with the given loglevel. Control characters in the logged datagrams are <a href="#ECMDcharcoding">escaped</a>, i.e. a double backslash is shown for a single backslash, \n is shown for a line feed character, etc.</li>
|
|
<li>timeout <seconds><br>Time in seconds to wait for a response from the physical ECMD device before FHEM assumes that something has gone wrong. The default is 3 seconds if this attribute is not set.</li>
|
|
<li>partial <seconds><br>Some physical ECMD devices split responses into several transmissions. If the partial attribute is set, this behavior is accounted for as follows: (a) If a response is expected for a get or set command, FHEM collects transmissions from the physical ECMD device until either the response matches the expected response (<code>reading ... match ...</code> in the <a href="#ECMDClassdef">class definition</a>) or the time in seconds given with the partial attribute has expired. (b) If a spontaneous transmission does not match the regular expression for any reading, the transmission is recorded and prepended to the next transmission. If the line is quiet for longer than the time in seconds given with the partial attribute, the recorded transmission is discarded. Use regular expressions that produce exact matches of the complete response (after combining partials and splitting).</li>
|
|
<li>requestSeparator <separator><br>
|
|
A single command from FHEM to the device might need to be broken down into several requests.
|
|
A command string is split at all
|
|
occurrences of the request separator. The request separator itself is removed from the command string and thus is
|
|
not part of the request. The default is to have no request separator. Use a request separator that does not occur in the actual request.
|
|
</li>
|
|
<li>responseSeparator <separator><br>
|
|
In order to identify the single responses from the device for each part of the command broken down by request separators, a response separator can be appended to the response to each single request.
|
|
The response separator is only appended to commands split by means of a
|
|
request separator. The default is to have no response separator, i.e. responses are simply concatenated. Use a response separator that does not occur in the actual response.
|
|
</li>
|
|
<li>autoReopen <timeout>,<delay><br>
|
|
If this attribute is set, the device is automatically reopened if no bytes were written for <timeout> seconds or more. After reopening
|
|
FHEM waits <delay> seconds before writing to the device. Use the delay with care because it stalls FHEM completely.
|
|
</li>
|
|
<li>stop<br>
|
|
Disables read/write access to the device if set to 1. No data is written to the physical ECMD device. A read request always returns an undefined result.
|
|
This attribute can be used to temporarily disable a device that is not available.
|
|
</li>
|
|
<li><a href="#verbose">verbose</a></li>
|
|
</ul>
|
|
<br><br>
|
|
|
|
<b>Separators</b>
|
|
<br><br>
|
|
<i>When to use the split and partial attributes?</i><p>
|
|
|
|
Set the <code>partial</code> attribute in combination with <code>reading ... match ...</code> in the <a href="#ECMDClassdef">class definition</a>, if you receive datagrams with responses which are broken into several transmissions, like <code>resp</code> followed by <code>onse\r\n</code>.<p>
|
|
|
|
Set the <code>split</code> attribute if you
|
|
receive several responses in one transmission, like <code>reply1\r\nreply2\r\n</code>.<p>
|
|
|
|
<i>When to use the requestSeparator and responseSeparator attributes?</i><p>
|
|
|
|
Set the <code>requestSeparator</code> attribute, if you want to send several requests in one command, with one transmission per request. The strings sent to the device for <code>set</code> and <code>get</code> commands
|
|
as defined in the <a href="#ECMDClassdef">class definition</a> are broken down into several request/response
|
|
interactions with the physical device. The request separator is not sent to the physical device.<p>
|
|
|
|
Set the <code>responseSeparator</code> attribute to separate the responses received for a command
|
|
broken down into several requests by means of a request separator. This is useful for easier postprocessing.<p>
|
|
|
|
Example: you want to send the requests <code>request1</code> and <code>request2</code> in one command. The
|
|
physical device would respond with <code>response1</code> and <code>response2</code> respectively for each
|
|
of the requests. You set the request separator to \000 and the response separator to \001 and you define
|
|
the command as <code>request1\000request2\000</code>. The command is broken down into <code>request1</code>
|
|
and <code>request2</code>. <code>request1</code> is sent to the physical device and <code>response1</code>
|
|
is received, followed by sending <code>request2</code> and receiving <code>response2</code>. The final
|
|
result is <code>response1\001response2\001</code>.<p>
|
|
|
|
You can think of this feature as of a macro. Splitting and partial matching is still done per single
|
|
request/response within the macro.<p>
|
|
|
|
<a name="ECMDDatagram"></a>
|
|
<b>Datagram monitoring and matching</b>
|
|
<br><br>
|
|
|
|
Data to and from the physical device is processed as is. In particular, if you need to send a line feed you have to explicitely send a \n control character. On the other hand, control characters like line feeds are not stripped from the data received. This needs to be considered when defining a <a href="#ECMDClassdef">class definition</a>.<p>
|
|
|
|
For debugging purposes, especially when designing a <a href="#ECMDClassdef">class definition</a>, it is advisable to turn traffic logging on. Use <code>attr myECMD logTraffic 3</code> to log all data to and from the physical device at level 3.<p>
|
|
|
|
Datagrams and attribute values are logged with non-printable and control characters encoded as <a href="#ECMDcharcoding">here</a> followed by the octal representation in parantheses.
|
|
Example: <code>#!foo\r\n (\043\041\146\157\157\015\012)</code>.<p>
|
|
|
|
Data received from the physical device is processed as it comes in chunks. If for some reason a datagram from the device is split in transit, pattern matching and processing will most likely fail. You can use the <code>partial</code> attribute to make FHEM collect and recombine the chunks.
|
|
<br><br>
|
|
|
|
<a name="ECMDConnection"></a>
|
|
<b>Connection error handling</b>
|
|
<br><br>
|
|
|
|
This modules handles unexpected disconnects of devices as follows (on Windows only for TCP connections):<p>
|
|
|
|
Disconnects are detected if and only if data from the device in reply to data sent to the device cannot be received with at most two attempts. FHEM waits at most 3 seconds (or the time specified in the <code>timeout</code> attribute, see <a href="#ECMDattr">Attributes</a>). After the first failed attempt, the connection to the device is closed and reopened again. The state of the device
|
|
is <code>failed</code>. Then the data is sent again to the device. If still no reply is received, the state of the device is <code>disconnected</code>, otherwise <code>opened</code>. You will have to fix the problem and then use <code>set myECMD reopen</code> to reconnect to the device.<p>
|
|
|
|
Please design your class definitions in such a way that the double sending of data does not bite you in any case.
|
|
<br><br>
|
|
|
|
<a name="ECMDClassdef"></a>
|
|
<b>Class definition</b>
|
|
<br><br>
|
|
|
|
The class definition for a logical ECMD device class is contained in a text file.
|
|
The text file is made up of single lines. Empty lines and text beginning with #
|
|
(hash) are ignored. Therefore make sure not to use hashes in commands.<br>
|
|
|
|
The following commands are recognized in the device class definition:<br><br>
|
|
<ul>
|
|
<li><code>params <parameter1> [<parameter2> [<parameter3> ... ]]</code><br><br>
|
|
Declares the names of the named parameters that must be present in the
|
|
<a href="#ECMDDevicedefine">definition of the logical ECMD device</a>.
|
|
<br><br>
|
|
</li>
|
|
|
|
<li><code>state <reading></code><br><br>
|
|
Normally, the state reading is set to the latest command or reading name followed
|
|
by the value, if any. This command sets the state reading to the value of the
|
|
named reading if and only if the reading is updated.<br><br>
|
|
</li>
|
|
|
|
<li><code>set <commandname> cmd { <a href="#perl"><perl special></a> }</code><br>
|
|
<code>get <commandname> cmd { <a href="#perl"><perl special></a> }</code>
|
|
<br><br>
|
|
Declares a new set or get command <code><commandname></code>. If the user invokes the set or get command <code><commandname></code>, the string that results from the execution of the <perl special> is sent to the physical device.<p>
|
|
A request separator (see <a href="#ECMDattr">Attributes</a>)
|
|
can be used to split the command into chunks. This is required for sending multiple <a href="http://www.ethersex.de/index.php/ECMD">Ethersex commands</a> for one command in the class definition.
|
|
The result string for the command is the
|
|
concatenation of all responses received from the physical device, optionally with response separators
|
|
(see <a href="#ECMDattr">Attributes</a>) in between.
|
|
<br><br>
|
|
</li>
|
|
|
|
<li>
|
|
<code>set <commandname> expect "<regex>"</code><br>
|
|
<code>get <commandname> expect "<regex>"</code>
|
|
<br><br>
|
|
Declares what FHEM expects to receive after the execution of the get or set command <code><commandname></code>. <code><regex></code> is a Perl regular expression. The double quotes around the regular expression are mandatory and they are not part of the regular expression itself.
|
|
<code><regex></code> must match the entire reply, as in <code>m/^<regex>$/</code>.
|
|
Particularly, broken connections can only be detected if something is expected (see <a href="#ECMDConnection">Connection error handling</a>).
|
|
<br><br>
|
|
</li>
|
|
|
|
<li>
|
|
<code>set <commandname> postproc { <a href="#perl"><perl special></a> }</code><br>
|
|
<code>get <commandname> postproc { <a href="#perl"><perl special></a> }</code>
|
|
<br><br>
|
|
Declares a postprocessor for the command <code><commandname></code>. The data received from the physical device in reply to the get or set command <code><commandname></code> is processed by the Perl code <code><perl command></code>. The perl code operates on <code>$_</code>. Make sure to return the result in <code>$_</code> as well. The result of the perl command is shown as the result of the get or set command.
|
|
<br><br>
|
|
</li>
|
|
|
|
<li>
|
|
<code>set <commandname> params <parameter1> [<parameter2> [<parameter3> ... ]]</code><br>
|
|
<code>get <commandname> params <parameter1> [<parameter2> [<parameter3> ... ]]</code>
|
|
<br><br>
|
|
Declares the names of the named parameters that must be present in the
|
|
set or get command <code><commandname></code></a>. Be careful not to use a parameter name that
|
|
is already used in the device definition (see <code>params</code> above).
|
|
<br><br>
|
|
</li>
|
|
|
|
<li>
|
|
<code>reading <reading> match "<regex>"</code>
|
|
<br><br>
|
|
Declares a new reading named <code><reading></code>. A spontaneous data transmission from the physical device that matches the Perl regular expression <code><regex></code> is evaluated to become the value of the named reading. All ECMDDevice devices belonging to the ECMD device with readings with matching regular expressions will receive an update of the said readings.
|
|
<code><regex></code> must match the entire reply, as in <code>m/^<regex>$/</code>.
|
|
<br><br>
|
|
</li>
|
|
|
|
<li>
|
|
<code>reading <reading> postproc { <a href="#perl"><perl special></a> }</code>
|
|
<br><br>
|
|
Declares a postprocessor for the reading <code><reading></code>. The data received for the named reading is processed by the Perl code <code><perl command></code>. This works analogously to the <code>postproc</code> spec for set and get commands.
|
|
<br><br>
|
|
</li>
|
|
|
|
|
|
|
|
|
|
</ul>
|
|
|
|
The perl specials in the definitions above can
|
|
contain macros:<br><br>
|
|
<ul>
|
|
<li>The macro <code>%NAME</code> will expand to the device name.</li>
|
|
<li>The macro <code>%TYPE</code> will expand to the device type.</li>
|
|
<li>The macro <code>%<parameter></code> will expand to the
|
|
current value of the named parameter. This can be either a parameter
|
|
from the device definition or a parameter from the set or get
|
|
command.</li>
|
|
<li>The macro substitution occurs before perl evaluates the
|
|
expression. It is a plain text substitution. Be careful not to use parameters with overlapping names like
|
|
<code>%pin</code> and <code>%pin1</code>.</li>
|
|
<li>If in doubt what happens, run the commands with loglevel 5 and
|
|
inspect the log file.</li>
|
|
</ul><br><br>
|
|
|
|
The rules outlined in the <a href="#perl">documentation of perl specials</a>
|
|
for the <code><perl command></code> in the postprocessor definitions apply.
|
|
<b>Note:</b> Beware of undesired side effects from e.g. doubling of semicolons!
|
|
</ul>
|
|
|
|
=end html
|
|
=cut
|