mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 18:59:33 +00:00
644 lines
20 KiB
Perl
644 lines
20 KiB
Perl
################################################################
|
|
#
|
|
# Copyright notice
|
|
#
|
|
# (c) 2009 Copyright: Kai 'wusel' Siering (wusel+fhem at uu dot org)
|
|
# All rights reserved
|
|
#
|
|
# This code 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.
|
|
#
|
|
# The GNU General Public License can be found at
|
|
# http://www.gnu.org/copyleft/gpl.html.
|
|
# A copy is found in the textfile GPL.txt and important notices to the license
|
|
# from the author is found in LICENSE.txt distributed with these scripts.
|
|
#
|
|
# This script 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.
|
|
#
|
|
# This copyright notice MUST APPEAR in all copies of the script!
|
|
###############################################
|
|
|
|
###########################
|
|
# 70_SISPM.pm
|
|
# Module for FHEM
|
|
#
|
|
# Contributed by Kai 'wusel' Siering <wusel+fhem@uu.org> in 2010
|
|
# Based in part on work for FHEM by other authors ...
|
|
# $Id$
|
|
###########################
|
|
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
|
|
#####################################
|
|
sub
|
|
SISPM_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
# Consumer
|
|
$hash->{DefFn} = "SISPM_Define";
|
|
$hash->{Clients} =
|
|
":SIS_PMS:";
|
|
my %mc = (
|
|
"1:SIS_PMS" => "^socket ..:..:..:..:.. .+ state o.*",
|
|
);
|
|
$hash->{MatchList} = \%mc;
|
|
$hash->{AttrList}= "model:SISPM loglevel:0,1,2,3,4,5,6";
|
|
$hash->{ReadFn} = "SISPM_Read";
|
|
$hash->{WriteFn} = "SISPM_Write";
|
|
$hash->{UndefFn} = "SISPM_Undef";
|
|
}
|
|
|
|
#####################################
|
|
sub FixSISPMSerial($) {
|
|
my $serial=$_[0];
|
|
|
|
if(length($serial)!=length("..:..:..:..:..")){
|
|
my ($sn1, $sn2, $sn3, $sn4, $sn5) = split(":", $serial);
|
|
$serial=sprintf("%2s:%2s:%2s:%2s:%2s", substr($sn1, -2, 2), substr($sn2, -2, 2), substr($sn3, -2, 2), substr($sn4, -2, 2), substr($sn5, -2, 2));
|
|
$serial =~ s/ /0/g;
|
|
}
|
|
|
|
return $serial;
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub
|
|
SISPM_GetCurrentConfig($)
|
|
{
|
|
my ($hash) = @_;
|
|
my $numdetected=0;
|
|
my $currentdevice=0;
|
|
my $FH;
|
|
my $i;
|
|
my $dev = sprintf("%s", $hash->{DeviceName});
|
|
|
|
Log 3, "SISPM_GetCurrentConfig: Using \"$dev\" as parameter to open(); trying ...";
|
|
|
|
# First, clear the old data! As we're addressing by hashes, keeping old data would be unwise.
|
|
if(defined($hash->{NUMUNITS}) && $hash->{NUMUNITS}>0) {
|
|
for($i=0; $i<$hash->{NUMUNITS}; $i++) {
|
|
my $serial;
|
|
|
|
if(defined($hash->{UNITS}{$i}{SERIAL})) {
|
|
$serial=$hash->{UNITS}{$i}{SERIAL};
|
|
delete $hash->{SERIALS}{$serial}{UNIT};
|
|
delete $hash->{SERIALS}{$serial}{USB};
|
|
}
|
|
|
|
if(defined($hash->{UNITS}{$i}{USB})) {
|
|
delete $hash->{UNITS}{$i}{USB};
|
|
delete $hash->{UNITS}{$i}{SERIAL};
|
|
}
|
|
}
|
|
}
|
|
$hash->{NUMUNITS}=0;
|
|
|
|
my $tmpdev=sprintf("%s -s 2>&1 |", $dev);
|
|
open($FH, $tmpdev);
|
|
if(!$FH) {
|
|
Log 3, "SISPM_GetCurrentConfig: Can't start $tmpdev: $!";
|
|
return "Can't start $tmpdev: $!";
|
|
}
|
|
|
|
my $tmpnr=-1;
|
|
local $_;
|
|
while (<$FH>) {
|
|
if(/^(No GEMBIRD SiS-PM found.)/) {
|
|
Log 3, "SISPM_GetCurrentConfig: Whoops? $1";
|
|
}
|
|
|
|
if(/^Gembird #(\d+) is USB device (\d+)./) {
|
|
Log 3, "SISPM_GetCurrentConfig: Found SISPM device number $1 as USB $2";
|
|
$hash->{UNITS}{$1}{USB}=$2;
|
|
$currentdevice=$1;
|
|
$numdetected++;
|
|
$hash->{NUMUNITS}=$numdetected;
|
|
}
|
|
if(/^Gembird #(\d+)$/) {
|
|
Log 3, "SISPM_GetCurrentConfig: Found SISPM device number $1 (sispmctl v3)";
|
|
$currentdevice=$1;
|
|
$numdetected++;
|
|
$hash->{NUMUNITS}=$numdetected;
|
|
}
|
|
if(/^USB information: bus .*, device (\d+)/) {
|
|
Log 3, "SISPM_GetCurrentConfig: SISPM device number $currentdevice is USB device $1 (sispmctl v3)";
|
|
$hash->{UNITS}{$currentdevice}{USB}=$1;
|
|
}
|
|
|
|
if(/^This device has a serial number of (.*)/) {
|
|
my $serial=$1;
|
|
Log 3, "SISPM_GetCurrentConfig: Device number " . $currentdevice . " has serial $serial";
|
|
if(length($serial)!=length("..:..:..:..:..")){
|
|
$serial = FixSISPMSerial($serial);
|
|
Log 3, "SISPM_GetCurrentConfig: Whoopsi, weird serial format; fixing to $serial.";
|
|
}
|
|
$hash->{UNITS}{$currentdevice}{SERIAL}=$serial;
|
|
$hash->{SERIALS}{$serial}{UNIT}=$currentdevice;
|
|
$hash->{SERIALS}{$serial}{USB}=$hash->{UNITS}{$currentdevice}{USB};
|
|
}
|
|
if(/^serial number:\s+(.*)/) { # sispmctl v3
|
|
my $serial=$1;
|
|
Log 3, "SISPM_GetCurrentConfig: Device number " . $currentdevice . " has serial $serial (sispmctl v3)";
|
|
if(length($serial)!=length("..:..:..:..:..")){
|
|
$serial = FixSISPMSerial($serial);
|
|
Log 3, "SISPM_GetCurrentConfig: Whoopsi, weird serial format; fixing to $serial.";
|
|
}
|
|
$hash->{UNITS}{$currentdevice}{SERIAL}=$serial;
|
|
$hash->{SERIALS}{$serial}{UNIT}=$currentdevice;
|
|
$hash->{SERIALS}{$serial}{USB}=$hash->{UNITS}{$currentdevice}{USB};
|
|
}
|
|
}
|
|
close($FH);
|
|
Log 3, "SISPM_GetCurrentConfig: Initial read done";
|
|
|
|
if ($numdetected==0) {
|
|
Log 3, "SISPM_GetCurrentConfig: No SISPM devices found.";
|
|
return "no SISPM devices found.";
|
|
}
|
|
|
|
$hash->{NUMUNITS} = $numdetected;
|
|
$hash->{STATE} = "initialized";
|
|
return undef;
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub
|
|
SISPM_Define($$)
|
|
{
|
|
my ($hash, $def) = @_;
|
|
my @a = split("[ \t][ \t]*", $def);
|
|
my $numdetected=0;
|
|
my $currentdevice=0;
|
|
my $retval;
|
|
|
|
return "Define the /path/to/sispmctl as a parameter" if(@a != 3);
|
|
|
|
my $FH;
|
|
my $dev = sprintf("%s", $a[2]);
|
|
$hash->{DeviceName} = $dev;
|
|
Log 3, "SISPM using \"$dev\" as parameter to open(); trying ...";
|
|
|
|
$retval=SISPM_GetCurrentConfig($hash);
|
|
|
|
Log 3, "SISPM GetCurrentConfing done";
|
|
|
|
if(defined($retval)) {
|
|
Log 3, "SISPM: An error occured: $retval";
|
|
return $retval;
|
|
}
|
|
|
|
if($hash->{NUMUNITS} < 1) {
|
|
return "SISPM no SISPM devices found.";
|
|
}
|
|
|
|
$hash->{Timer} = 30;
|
|
|
|
Log 3, "SISPM setting callback timer";
|
|
|
|
my $oid = $init_done;
|
|
$init_done = 1;
|
|
InternalTimer(gettimeofday()+ $hash->{Timer}, "SISPM_GetStatus", $hash, 1);
|
|
$init_done = $oid;
|
|
|
|
Log 3, "SISPM initialized";
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
SISPM_Undef($$)
|
|
{
|
|
my ($hash, $def) = @_;
|
|
my @a = split("[ \t][ \t]*", $def);
|
|
my $name = $hash->{NAME};
|
|
|
|
if(defined($hash->{FD})) {
|
|
close($hash->{FD});
|
|
delete $hash->{FD};
|
|
}
|
|
delete $selectlist{"$name.pipe"};
|
|
|
|
$hash->{STATE}='undefined';
|
|
Log 3, "$name shutdown complete";
|
|
return undef;
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub
|
|
SISPM_GetStatus($)
|
|
{
|
|
my ($hash) = @_;
|
|
my $dnr = $hash->{DEVNR};
|
|
my $name = $hash->{NAME};
|
|
my $dev = $hash->{DeviceName};
|
|
my $FH;
|
|
my $i;
|
|
|
|
# Call us in n seconds again.
|
|
# InternalTimer(gettimeofday()+ $hash->{Timer}, "SISPM_GetStatus", $hash, 1);
|
|
|
|
Log 4, "SISPM contacting device";
|
|
|
|
my $tmpdev=sprintf("%s -s ", $dev);
|
|
|
|
for($i=0; $i<$hash->{NUMUNITS}; $i++) {
|
|
$tmpdev=sprintf("%s -d %d -g all ", $tmpdev, $i);
|
|
}
|
|
$tmpdev=sprintf("%s 2>&1 |", $tmpdev);
|
|
open($FH, $tmpdev);
|
|
if(!$FH) {
|
|
return "SISPM Can't open pipe: $dev: $!";
|
|
}
|
|
|
|
$hash->{FD}=$FH;
|
|
$selectlist{"$name.pipe"} = $hash;
|
|
Log 4, "SISPM pipe opened";
|
|
$hash->{STATE} = "running";
|
|
$hash->{pipeopentime} = time();
|
|
# InternalTimer(gettimeofday() + 6, "SISPM_Read", $hash, 1);
|
|
# return $hash->{STATE};
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
SISPM_Read($)
|
|
{
|
|
my ($hash) = @_;
|
|
my $dnr = $hash->{DEVNR};
|
|
my $name = $hash->{NAME};
|
|
my $dev = $hash->{DeviceName};
|
|
my $FH;
|
|
my $inputline;
|
|
|
|
Log 4, "SISPM Read entered";
|
|
|
|
if(!defined($hash->{FD})) {
|
|
Log 3, "Oops, SISPM FD undef'd";
|
|
return undef;
|
|
}
|
|
if(!$hash->{FD}) {
|
|
Log 3, "Oops, SISPM FD empty";
|
|
return undef;
|
|
}
|
|
$FH = $hash->{FD};
|
|
|
|
Log 4, "SISPM reading started";
|
|
|
|
my @lines;
|
|
my $eof;
|
|
my $i=0;
|
|
my $tn = TimeNow();
|
|
my $reading;
|
|
my $readingforstatus;
|
|
my $currentserial="none";
|
|
my $currentdevice=0;
|
|
my $currentusbid=0;
|
|
my $renumbered=0;
|
|
my $newPMfound=0;
|
|
my $tmpnr=-1;
|
|
|
|
($eof, @lines) = nonblockGetLinesSISPM($FH);
|
|
|
|
if(!defined($eof)) {
|
|
Log 4, "SISPM FIXME: eof undefined?!";
|
|
$eof=0;
|
|
}
|
|
Log 4, "SISPM reading ended with eof==$eof";
|
|
|
|
# FIXME! Current observed behaviour is "would block", then read of only EOF.
|
|
# Not sure if it's always that way; more correct would be checking
|
|
# for empty $inputline or undef'd $rawreading,$val. -wusel, 2010-01-04
|
|
if($eof != 1) {
|
|
foreach my $inputline ( @lines ) {
|
|
$inputline =~ s/\s+$//;
|
|
Log 5, "SISPM_Read: read /$inputline/";
|
|
|
|
# wusel, 2010-01-16: Seems as if reading not always works as expected;
|
|
# throw away the whole readings if there's a NULL
|
|
# serial number.
|
|
if($currentserial eq "00:00:00:00:00") {
|
|
next;
|
|
}
|
|
|
|
# wusel, 2010-01-19: Multiple (2) SIS PM do work now. But USB renumbering will still
|
|
# break things rather badly. Thinking about dropping it altogether,
|
|
# that is wipe old state data ($hash->{UNITS} et. al.) and rebuild
|
|
# data each time from scratch. That should work as SIS_PMS uses the
|
|
# serial as key; unfortunately, sispmctl doesn't offer this (and it
|
|
# wont work due to those FFFFFFxx readings), so we need to keep
|
|
# track of unit number <-> serial ... But if between reading this
|
|
# data and a "set" statement something changes, we still could switch
|
|
# the wrong socket.
|
|
#
|
|
# As sispmctl 2.7 is broken already for multiple invocations with -d,
|
|
# I consider fixing both the serial number issue as well as add the
|
|
# serial as selector ... Drat. Instead of getting the ToDo list shorter,
|
|
# it just got longer ;-)
|
|
|
|
if($inputline =~ /^(No GEMBIRD SiS-PM found.)/) {
|
|
Log 3, "SISPM Whoopsie? $1";
|
|
next;
|
|
}
|
|
|
|
if($inputline =~ /^Gembird #(\d+) is USB device (\d+)\./ ||
|
|
$inputline =~ /^Accessing Gembird #(\d+) USB device (\d+)/) {
|
|
Log 5, "SISPM found SISPM device number $1 as USB $2";
|
|
if($1 < $hash->{NUMUNITS}) {
|
|
if($hash->{UNITS}{$1}{USB}!=$2) {
|
|
Log 3, "SISPM: USB ids changed (unit $1 is now USB $2 but was " . $hash->{UNITS}{$1}{USB} . "); will fix.";
|
|
$renumbered=1;
|
|
$hash->{FIXRENUMBER}="yes";
|
|
}
|
|
} else { # Something wonderful has happened, we have a new SIS PM!
|
|
Log 3, "SISPM: Wuuuhn! Found a new unit $1 as USB $2. Will assimilate it.";
|
|
$newPMfound=1;
|
|
$hash->{FIXNEW}="yes";
|
|
}
|
|
$currentdevice=$1;
|
|
$currentusbid=$2;
|
|
$currentserial="none";
|
|
if(defined($hash->{UNITS}{$currentdevice}{SERIAL})) {
|
|
$currentserial=$hash->{UNITS}{$currentdevice}{SERIAL};
|
|
}
|
|
}
|
|
|
|
# New for SiS PM Control for Linux 3.1
|
|
if($inputline =~ /^Gembird #(\d+)$/) {
|
|
Log 5, "SISPM found SISPM device number $1 (sispmctl v3)";
|
|
$tmpnr=$1;
|
|
}
|
|
if($tmpnr >= 0 && $inputline =~ /^USB information: bus 001, device (\d+)/) {
|
|
Log 5, "SISPM found SISPM device number $tmpnr as USB $1";
|
|
if($tmpnr < $hash->{NUMUNITS}) {
|
|
if($hash->{UNITS}{$tmpnr}{USB}!=$1) {
|
|
Log 3, "SISPM: USB ids changed (unit $tmpnr is now USB $1 but was " . $hash->{UNITS}{$tmpnr}{USB} . "); will fix.";
|
|
$renumbered=1;
|
|
$hash->{FIXRENUMBER}="yes";
|
|
}
|
|
} else { # Something wonderful has happened, we have a new SIS PM!
|
|
Log 3, "SISPM: Wuuuhn! Found a new unit $tmpnr as USB $1 with sispmctl v3. Will assimilate it.";
|
|
$newPMfound=1;
|
|
$hash->{FIXNEW}="yes";
|
|
}
|
|
$currentdevice=$tmpnr;
|
|
$currentusbid=$1;
|
|
$currentserial="none";
|
|
if(defined($hash->{UNITS}{$currentdevice}{SERIAL})) {
|
|
$currentserial=$hash->{UNITS}{$currentdevice}{SERIAL};
|
|
}
|
|
$tmpnr=-1;
|
|
}
|
|
|
|
if($inputline =~ /^This device has a serial number of (.*)/ ||
|
|
$inputline =~ /^serial number:\s+(.*)/) {
|
|
$currentserial=FixSISPMSerial($1);
|
|
if($currentserial eq "00:00:00:00:00") {
|
|
Log 3, "SISPM Whooopsie! Your serial nullified ($currentserial). Skipping ...";
|
|
next;
|
|
}
|
|
|
|
if($newPMfound==1) {
|
|
$hash->{UNITS}{$currentdevice}{USB}=$currentusbid;
|
|
$hash->{UNITS}{$currentdevice}{SERIAL}=$currentserial;
|
|
$hash->{SERIALS}{$currentserial}{UNIT}=$currentdevice;
|
|
$hash->{SERIALS}{$currentserial}{USB}=$currentusbid;
|
|
$hash->{NUMUNITS}+=1;
|
|
}
|
|
}
|
|
|
|
if($inputline =~ /^Status of outlet (\d):\s+(.*)/) {
|
|
if($currentserial ne "none") {
|
|
Log 5, "SISPM found socket $1 on $currentserial, state $2";
|
|
my $dmsg="socket " . $currentserial . " $1 state " . $2;
|
|
my %addvals;
|
|
Dispatch($hash, $dmsg, \%addvals);
|
|
} else {
|
|
Log 3, "SISPM Whooopsie! Found socket $1, state $2, but no serial (serial is $currentserial)?";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if($eof) {
|
|
close($FH);
|
|
delete $hash->{FD};
|
|
delete $selectlist{"$name.pipe"};
|
|
InternalTimer(gettimeofday()+ $hash->{Timer}, "SISPM_GetStatus", $hash, 1);
|
|
$hash->{STATE} = "read";
|
|
Log 4, "SISPM done reading pipe";
|
|
if(defined($hash->{FIXRENUMBER}) || defined($hash->{FIXNEW})) {
|
|
my $retval;
|
|
|
|
Log 3, "SISPM now adapts to new environment ...";
|
|
$retval=SISPM_GetCurrentConfig($hash);
|
|
if(defined($retval)) {
|
|
Log 3, "SISPM an error occured during reconfiguration: $retval";
|
|
}
|
|
if(defined($hash->{FIXRENUMBER})) {
|
|
delete $hash->{FIXRENUMBER};
|
|
}
|
|
if(defined($hash->{FIXNEW})) {
|
|
delete $hash->{FIXNEW};
|
|
}
|
|
}
|
|
} else {
|
|
$hash->{STATE} = "reading";
|
|
Log 4, "SISPM (further) reading would block";
|
|
}
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub SISPM_Write($$$) {
|
|
my ($hash,$fn,$msg) = @_;
|
|
my $dev = $hash->{DeviceName};
|
|
|
|
# Log 3, "SISPM_Write entered for $hash->{NAME} with $fn and $msg";
|
|
|
|
my ($serial, $socket, $what) = split(' ', $msg);
|
|
|
|
my $deviceno;
|
|
my $cmdline;
|
|
my $cmdletter="t";
|
|
|
|
if($what eq "on") {
|
|
$cmdletter="o";
|
|
} elsif($what eq "off") {
|
|
$cmdletter="f";
|
|
}
|
|
|
|
if(defined($hash->{SERIALS}{$serial}{UNIT})) {
|
|
$deviceno=($hash->{SERIALS}{$serial}{UNIT});
|
|
$cmdline=sprintf("%s -d %d -%s %d 2>&1 >/dev/null", $dev, $deviceno, $cmdletter, $socket);
|
|
system($cmdline);
|
|
} else {
|
|
Log 2, "SISPM_Write can not find SISPM device with serial $serial";
|
|
}
|
|
return;
|
|
}
|
|
|
|
|
|
# From http://www.perlmonks.org/?node_id=713384 / http://davesource.com/Solutions/20080924.Perl-Non-blocking-Read-On-Pipes-Or-Files.html
|
|
#
|
|
# Used, hopefully, with permission ;)
|
|
#
|
|
# An non-blocking filehandle read that returns an array of lines read
|
|
# Returns: ($eof,@lines)
|
|
my %nonblockGetLines_lastSISPM;
|
|
sub nonblockGetLinesSISPM {
|
|
my ($fh,$timeout) = @_;
|
|
|
|
$timeout = 0 unless defined $timeout;
|
|
my $rfd = '';
|
|
$nonblockGetLines_lastSISPM{$fh} = ''
|
|
unless defined $nonblockGetLines_lastSISPM{$fh};
|
|
|
|
vec($rfd,fileno($fh),1) = 1;
|
|
return unless select($rfd, undef, undef, $timeout)>=0;
|
|
# I'm not sure the following is necessary?
|
|
return unless vec($rfd,fileno($fh),1);
|
|
my $buf = '';
|
|
my $n = sysread($fh,$buf,1024*1024);
|
|
# If we're done, make sure to send the last unfinished line
|
|
return (1,$nonblockGetLines_lastSISPM{$fh}) unless $n;
|
|
# Prepend the last unfinished line
|
|
$buf = $nonblockGetLines_lastSISPM{$fh}.$buf;
|
|
# And save any newly unfinished lines
|
|
$nonblockGetLines_lastSISPM{$fh} =
|
|
(substr($buf,-1) !~ /[\r\n]/ && $buf =~ s/([^\r\n]*)$//)
|
|
? $1 : '';
|
|
$buf ? (0,split(/\n/,$buf)) : (0);
|
|
}
|
|
|
|
|
|
1;
|
|
|
|
=pod
|
|
=item summary Control the Silver Shield Power Manager over sispmctl
|
|
=begin html
|
|
|
|
<a name="SISPM"></a>
|
|
<h3>SISPM</h3>
|
|
<ul>
|
|
<br>
|
|
|
|
<a name="SISPMdefine"></a>
|
|
<b>Define</b>
|
|
<ul>
|
|
<code>define <name> SISPM </path/to/sispmctl></code>
|
|
<br><br>
|
|
|
|
<div>
|
|
When <i>using multiple SIS PMs on one host</i>, sispmctl up to and including V 2.7 has a bug:
|
|
<pre>plug-2:# sispmctl -v -s -d 1 -g all -d 2 -g all
|
|
|
|
SiS PM Control for Linux 2.7
|
|
|
|
(C) 2004, 2005, 2006, 2007, 2008 by Mondrian Nuessle, (C) 2005, 2006 by Andreas Neuper.
|
|
This program is free software.
|
|
[...]
|
|
|
|
Gembird #0 is USB device 013.This device is a 4-socket SiS-PM.
|
|
[...]
|
|
|
|
Gembird #1 is USB device 015.This device is a 4-socket SiS-PM.
|
|
[...]
|
|
|
|
Accessing Gembird #1 USB device 015
|
|
Status of outlet 1: on
|
|
Status of outlet 2: on
|
|
Status of outlet 3: on
|
|
Status of outlet 4: on
|
|
Error performing requested action
|
|
Libusb error string: error sending control message: Invalid argument
|
|
Terminating
|
|
*** glibc detected *** sispmctl: double free or corruption (fasttop): 0x000251e0 ***
|
|
[...]</pre>
|
|
Well, the fix is simple and will be sent upstream, but in case it's not incorporated
|
|
at the time you need it, here it is; it's easy to apply even by hand ;-)
|
|
<pre>
|
|
--- src/main.c-old 2010-01-19 16:56:15.000000000 +0100
|
|
+++ src/main.c 2010-01-19 16:54:56.000000000 +0100
|
|
@@ -441,7 +441,7 @@
|
|
}
|
|
break;
|
|
case 'd': // replace previous (first is default) device by selected one
|
|
- if(udev!=NULL) usb_close (udev);
|
|
+ if(udev!=NULL) { usb_close (udev); udev=NULL; }
|
|
devnum = atoi(optarg);
|
|
if(devnum>=count) devnum=count-1;
|
|
break;
|
|
</pre></div><br>
|
|
|
|
Defines a path to the program "sispmctl", which is used to control (locally attached)
|
|
"Silver Shield Power Manager" devices. Usually these are connected to the local computer
|
|
via USB, more than one "sispm" device per computer is supported. (Please note that, due
|
|
to neglections in their USB driver, AVM's Fritz!Box 7170 (and derivates, like Deutsche
|
|
Telekom's Speedport W901V) <b>is not</b> able to talk to these devices ... The Fritz!Box
|
|
72xx and 73xx should be fine.)
|
|
|
|
The communication between FHEM and the Power Manager device is done by using the open
|
|
source <a href="http://sispmctl.sourceforge.net/">sispmctl</a> program. Thus, for the
|
|
time being, THIS functionality is only available running FHEM on Linux (or any other platform
|
|
where you can get the sispmctl program compiled and running). On the bright side: by
|
|
interfacing via commandline, it is possible to define multiple SISPM devices, e. g. with
|
|
a wrapper that does execute sispmctl on a remote (Linux) system. And: sispmctl runs happily
|
|
on Marvells SheevaPlug ;) <i>Please note:</i> if you're not running FHEM as root, you most likely
|
|
have to make sispmctl setuid root (<code>chmod 4755 /path/to/sispmctl</code>) or fiddle with
|
|
udev so that the devices of the Power Manager are owned by the user running FHEM.
|
|
|
|
After defining a SISPM device, a first test is done, identifying attached PMs. If this
|
|
succeeds, an internal task is scheduled to read the status every 30 seconds. (Reason
|
|
being that someone else could have switched sockets externally to FHEM.)
|
|
|
|
To actually control any power sockets, you need to define a <a href="#SIS_PMS">SIS_PMS</a>
|
|
device ;) If autocreate is enabled, those should be autocreated for your convenience as
|
|
soon as the first scan took place (30 seconds after the define).
|
|
|
|
Implementation of SISPM.pm tries to be nice, that is it reads from the pipe only
|
|
non-blocking (== if there is data), so it should be safe even to use it via ssh or
|
|
a netcat-pipe over the Internet, but this, as well, has not been tested extensively yet.
|
|
<br><br>
|
|
|
|
Attributes:
|
|
<ul>
|
|
<li><code>model</code>: <code>SISPM</code> (ignored for now)</li>
|
|
</ul>
|
|
<br>
|
|
Example:
|
|
<ul>
|
|
<code>define PMS_Terrarium SISPM /usr/bin/sispmctl</code><br>
|
|
</ul>
|
|
<br>
|
|
</ul>
|
|
|
|
<a name="SISPMset"></a>
|
|
<b>Set</b> <ul>N/A</ul><br>
|
|
|
|
<a name="SISPMget"></a>
|
|
<b>Get</b> <ul>N/A</ul><br>
|
|
|
|
<a name="SISPMattr"></a>
|
|
<b>Attributes</b>
|
|
<ul>
|
|
<li><a href="#model">model</a> (SISPM)</li>
|
|
</ul>
|
|
<br>
|
|
</ul>
|
|
|
|
=end html
|
|
=cut
|