Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity
fhem-mirror/FHEM/98_MSwitch.pm
Byte09 c7e27d5781 98_MSwitch.pm:fix "PERL WARNING: -> Perl 5.30" 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@17983 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2018-12-16 04:30:28 +00:00

8969 lines
297 KiB
Perl
Raw Blame History

# $Id$
# 98_MSwitch.pm
#
# copyright #####################################################
#
# 98_MSwitch.pm
#
# written by Byte09
# Maintained by Byte09
#
# 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/>.
#
#################################################################
# Todo's:
#
#---------------------------------------------------------------
#
# info sonderreadings
#
# reading '.info' wenn definiert -> infotext für device
# reading '.change' wenn definiert -> angeforderte deviceänderung
# reading '.change_inf' wenn definiert -> info für angeforderte deviceänderung
# reading '.lock' sperrt das Interface (1 - alles / 2 alles bis auf trigger)
# reading 'Sys_Extension' 'on' gibt Systemerweiterung frei
#
#---------------------------------------------------------------
#
# info conffile - austausch eines/mehrerer devices
# I Information zu Devicetausch
# Q dummy1#zu schaltendes geraet#device
# Q dummy2#zu schaltendes geraet2#device
#
##---------------------------------------------------------------
#
#################################################################
package main;
use Time::Local;
use strict;
use warnings;
use POSIX;
# Version #######################################################
my $preconf="";
my $verzeichnis = "./FHEM/MSwitch";
if(-d $verzeichnis) {
opendir(DIR, $verzeichnis);
while (my $entry = readdir(DIR))
{
my $dat = $entry;
$entry = $verzeichnis.'/'.$entry;
next if $entry eq ".";
next if $entry eq "..";
unless (-f $entry)
{
next;
}
$preconf.=$dat.",";
}
closedir(DIR);
chop ($preconf);
}
else {
$preconf="";
}
if ($preconf && $preconf ne "")
{
$preconf="get_MSwitch_preconf:".$preconf;
}
my $autoupdate = 'off'; #off/on
my $version = '2.07';
my $vupdate = 'V2.00'
; # versionsnummer der datenstruktur . änderung der nummer löst MSwitch_VUpdate aus .
my $savecount = 30
; # anzahl der zugriff im zeitraum zur auslösung des safemodes. kann durch attribut überschrieben werden .
my $standartstartdelay = 60
; # zeitraum nach fhemstart , in dem alle aktionen geblockt werden. kann durch attribut überschrieben werden .
my $eventset = '0';
# standartlist ignorierter Devices . kann durch attribut überschrieben werden .
my @doignore =
qw(notify allowed at watchdog doif fhem2fhem telnet FileLog readingsGroup FHEMWEB autocreate eventtypes readingsproxy svg cul);
##################### ############################################
sub MSwitch_Checkcond_time($$);
sub MSwitch_Checkcond_state($$);
sub MSwitch_Checkcond_day($$$$);
sub MSwitch_Createtimer($);
sub MSwitch_Execute_Timer($);
sub MSwitch_LoadHelper($);
sub MSwitch_debug2($$);
sub MSwitch_ChangeCode($$);
sub MSwitch_Add_Device($$);
sub MSwitch_Del_Device($$);
sub MSwitch_Debug($);
sub MSwitch_Exec_Notif($$$$$);
sub MSwitch_checkcondition($$$);
sub MSwitch_Delete_Delay($$);
sub MSwitch_Check_Event($$);
sub MSwitch_makeAffected($);
sub MSwitch_backup($);
sub MSwitch_backup_this($);
sub MSwitch_backup_all($);
sub MSwitch_backup_done($);
sub MSwitch_checktrigger(@);
sub MSwitch_Cmd(@);
sub MSwitch_toggle($$);
sub MSwitch_Getconfig($);
sub MSwitch_saveconf($$);
sub MSwitch_replace_delay($$);
sub MSwitch_repeat($);
sub MSwitch_Createrandom($$$);
sub MSwitch_Execute_randomtimer($);
sub MSwitch_Clear_timer($);
sub MSwitch_Createnumber($);
sub MSwitch_Createnumber1($);
sub MSwitch_Savemode($);
sub MSwitch_set_dev($);
sub MSwitch_EventBulk($$$$);
sub MSwitch_priority;
sub MSwitch_sort;
sub MSwitch_dec($$);
sub MSwitch_makefreecmd($$);
sub MSwitch_clearlog($);
sub MSwitch_LOG($$$);
sub MSwitch_Getsupport($);
sub MSwitch_confchange($$);
sub MSwitch_setconfig($$);
my %sets = (
"on" => "noArg",
"off" => "noArg",
"reload_timer" => "noArg",
"active" => "noArg",
"inactive" => "noArg",
"devices" => "noArg",
"details" => "noArg",
"del_trigger" => "noArg",
"del_delays" => "noArg",
"trigger" => "noArg",
"filter_trigger" => "noArg",
"add_device" => "noArg",
"del_device" => "noArg",
"addevent" => "noArg",
"backup_MSwitch" => "noArg",
"import_config" => "noArg",
"saveconfig" => "noArg",
"savesys" => "noArg",
"sort_device" => "noArg",
"fakeevent" => "noArg",
"exec_cmd_1" => "noArg",
"exec_cmd_2" => "noArg",
"wait" => "noArg",
"VUpdate" => "noArg",
"confchange" => "noArg",
"clearlog" => "noArg",
"set_trigger" => "noArg",
"change_renamed" => ""
);
# "exec_cmd1+2" => "noArg",
my %gets = (
"active_timer" => "noArg",
"restore_MSwitch_Data" => "noArg",
"get_config" => "noArg"
);
####################
sub MSwitch_Initialize($) {
my ($hash) = @_;
$hash->{SetFn} = "MSwitch_Set";
$hash->{AsyncOutput} = "MSwitch_AsyncOutput";
$hash->{RenameFn} = "MSwitch_Rename";
$hash->{CopyFn} = "MSwitch_Copy";
$hash->{GetFn} = "MSwitch_Get";
$hash->{DefFn} = "MSwitch_Define";
$hash->{UndefFn} = "MSwitch_Undef";
$hash->{DeleteFn} = "MSwitch_Delete";
$hash->{ParseFn} = "MSwitch_Parse";
$hash->{AttrFn} = "MSwitch_Attr";
$hash->{NotifyFn} = "MSwitch_Notify";
$hash->{FW_detailFn} = "MSwitch_fhemwebFn";
$hash->{FW_deviceOverview} = 1;
$hash->{FW_summaryFn} = "MSwitch_summary";
$hash->{NotifyOrderPrefix} = "45-";
$hash->{AttrList} =
" disable:0,1"
. " disabledForIntervals"
. " stateFormat"
. " MSwitch_Comments:0,1"
. " MSwitch_Help:0,1"
. " MSwitch_Debug:0,1,2,3,4"
. " MSwitch_Expert:0,1"
. " MSwitch_Delete_Delays:0,1"
. " MSwitch_Include_Devicecmds:0,1"
. " MSwitch_Include_Webcmds:0,1"
. " MSwitch_Include_MSwitchcmds:0,1"
. " MSwitch_Activate_MSwitchcmds:0,1"
. " MSwitch_Lock_Quickedit:0,1"
. " MSwitch_Ignore_Types:textField-long "
. " MSwitch_Trigger_Filter"
. " MSwitch_Extensions:0,1"
. " MSwitch_Inforoom"
. " MSwitch_Mode:Full,Notify,Toggle,Dummy"
. " MSwitch_Condition_Time:0,1"
. " MSwitch_RandomTime"
. " MSwitch_RandomNumber"
. " MSwitch_Safemode:0,1"
. " MSwitch_Startdelay:0,10,20,30,60,90,120"
. " MSwitch_Wait"
. " setList:textField-long "
. " readingList:textField-long "
. $readingFnAttributes;
$hash->{FW_addDetailToSummary} = 0;
}
####################
sub MSwitch_Rename($) {
# routine nicht in funktion
my ( $new_name, $old_name ) = @_;
my $hash_new = $defs{$new_name};
$modules{MSwitch}{defptr}{$new_name} = $hash_new;
}
####################
sub MSwitch_Copy ($) {
my ( $old_name, $new_name ) = @_;
my $hash = $defs{$new_name};
my @areadings =
qw(.Device_Affected .Device_Affected_Details .Device_Events .First_init .Trigger_Whitelist .Trigger_cmd_off .Trigger_cmd_on .Trigger_condition .Trigger_off .Trigger_on .Trigger_time .V_Check last_exec_cmd Trigger_device Trigger_log last_event state .sysconf Sys_Extension)
; #alle readings
my $cs = "attr $new_name disable 1";
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
Log3( $new_name, 1, "ERROR $cs" );
}
foreach my $key (@areadings) {
my $tmp = ReadingsVal( $old_name, $key, 'undef' );
fhem( "setreading " . $new_name . " " . $key . " " . $tmp );
}
MSwitch_LoadHelper($hash);
}
####################
sub MSwitch_summary($) {
my ( $wname, $name, $room ) = @_;
my $hash = $defs{$name};
my $testroom = AttrVal( $name, 'MSwitch_Inforoom', 'undef' );
if ( $testroom ne $room ) { return; }
my $test = AttrVal( $name, 'comment', '0' );
my $info = AttrVal( $name, 'comment', 'No Info saved at ATTR omment' );
my $image = ReadingsVal( $name, 'state', 'undef' );
my $ret = '';
my $devtitle = '';
my $option = '';
my $html = '';
my $triggerc = 1;
my $timer = 1;
my $trigger = ReadingsVal( $name, 'Trigger_device', 'undef' );
my @devaff = split( / /, MSwitch_makeAffected($hash) );
$option .= "<option value=\"affected devices\">affected devices</option>";
foreach (@devaff) {
$devtitle .= $_ . ", ";
$option .= "<option value=\"$_\">" . $_ . "</option>";
}
chop($devtitle);
chop($devtitle);
my $affected =
"<select style='width: 12em;' title=\""
. $devtitle . "\" >"
. $option
. "</select>";
### time
my $optiontime;
my $devtitletime = '';
my $triggertime = ReadingsVal( $name, 'Trigger_device', 'not defined' );
my $devtime = ReadingsVal( $name, '.Trigger_time', '' );
$devtime =~ s/\[//g;
$devtime =~ s/\]/ /g;
my @devtime = split( /~/, $devtime );
$optiontime .= "<option value=\"Time:\">At: aktiv</option>";
my $count = @devtime;
$devtime[0] =~ s/on/on+cmd1: /g if defined $devtime[0];
$devtime[1] =~ s/off/off+cmd2: /g if defined $devtime[1];
$devtime[2] =~ s/ononly/only cmd1: /g if defined $devtime[2];
$devtime[3] =~ s/offonly/only cmd2: /g if defined $devtime[3];
if ( AttrVal( $name, 'MSwitch_Mode', 'Full' ) ne "Notify" ) {
$optiontime .=
"<option value=\"$devtime[0]\">" . $devtime[0] . "</option>"
if defined $devtime[0];
$optiontime .=
"<option value=\"$devtime[1]\">" . $devtime[1] . "</option>"
if defined $devtime[1];
}
$optiontime .= "<option value=\"$devtime[2]\">" . $devtime[2] . "</option>"
if defined $devtime[2];
$optiontime .= "<option value=\"$devtime[3]\">" . $devtime[3] . "</option>"
if defined $devtime[3];
my $affectedtime = '';
if ( $count == 0 ) {
$timer = 0;
$affectedtime =
"<select style='width: 12em;' title=\""
. $devtitletime
. "\" disabled ><option value=\"Time:\">At: inaktiv</option></select>";
}
else {
chop($devtitletime);
chop($devtitletime);
$affectedtime =
"<select style='width: 12em;' title=\""
. $devtitletime . "\" >"
. $optiontime
. "</select>";
}
if ( $info eq 'No Info saved at ATTR omment' ) {
$ret .=
"<input disabled title=\""
. $info
. "\" name='info' type='button' value='Info' onclick =\"FW_okDialog('"
. $info . "')\">";
}
else {
$ret .=
"<input title=\""
. $info
. "\" name='info' type='button' value='Info' onclick =\"FW_okDialog('"
. $info . "')\">";
}
if ( $trigger eq 'no_trigger' || $trigger eq 'undef' || $trigger eq '') {
$triggerc = 0;
if ( $triggerc != 0 || $timer != 0 ) {
$ret .=
"<select style='width: 18em;' title=\"\" disabled ><option value=\"Trigger:\">Trigger: inaktiv</option></select>";
}
else
{
if ( AttrVal( $name, 'MSwitch_Mode', 'Full' ) ne "Dummy" ) {
$affectedtime = "";
$ret .= "&nbsp;&nbsp;Multiswitchmode (no trigger / no timer)&nbsp;";
}
else
{
$affectedtime = "";
$affected ="";
$ret .= "&nbsp;&nbsp;Dummymode&nbsp;";
}
}
}
else {
$ret .= "<select style='width: 18em;' title=\"\" >";
$ret .= "<option value=\"Trigger:\">Trigger: " . $trigger . "</option>";
$ret .=
"<option value=\"Trigger:\">on+cmd1: "
. ReadingsVal( $name, '.Trigger_on', 'not defined' )
. "</option>";
$ret .=
"<option value=\"Trigger:\">off+cmd2: "
. ReadingsVal( $name, '.Trigger_off', 'not defined' )
. "</option>";
$ret .=
"<option value=\"Trigger:\">only cmd1: "
. ReadingsVal( $name, '.Trigger_cmd_on', 'not defined' )
. "</option>";
$ret .=
"<option value=\"Trigger:\">only cmd2: "
. ReadingsVal( $name, '.Trigger_cmd_off', 'not defined' )
. "</option>";
$ret .= "</select>";
}
$ret .= $affectedtime;
$ret .= $affected;
if ( ReadingsVal( $name, '.V_Check', 'not defined' ) ne $vupdate ) {
$ret .= "
</td><td informId=\"" . $name . "tmp\">Versionskonflikt !
</td><td informId=\"" . $name . "tmp\">
<div class=\"dval\" informid=\"" . $name . "-state\"></div>
</td><td informId=\"" . $name . "tmp\">
<div informid=\"" . $name . "-state-ts\">(please help)</div>
";
}
else {
if ( AttrVal( $name, 'disable', "0" ) eq '1' ) {
$ret .= "
</td><td informId=\"" . $name . "tmp\">State:
</td><td informId=\"" . $name . "tmp\">
<div class=\"dval\" informid=\"" . $name . "-state\"></div>
</td><td informId=\"" . $name . "tmp\">
<div informid=\"" . $name . "-state-ts\">disabled</div>
";
}
else {
$ret .= "
</td><td informId=\"" . $name . "tmp\">
State: </td><td informId=\"" . $name . "tmp\">
<div class=\"dval\" informid=\""
. $name
. "-state\">"
. ReadingsVal( $name, 'state', '' ) . "</div>
</td><td informId=\"" . $name . "tmp\">";
if ( AttrVal( $name, 'MSwitch_Mode', 'Full' ) ne "Notify" ) {
$ret .=
"<div informid=\""
. $name
. "-state-ts\">"
. ReadingsTimestamp( $name, 'state', '' )
. "</div>";
}
else {
$ret .=
"<div informid=\""
. $name
. "-state-ts\">"
. ReadingsTimestamp( $name, 'state', '' )
. "</div>";
}
}
}
$ret .= "<script>
\$( \"td[informId|=\'" . $name . "\']\" ).attr(\"informId\", \'test\');
\$(document).ready(function(){
\$( \".col3\" ).text( \"\" );
\$( \".devType\" ).text( \"MSwitch Inforoom: Anzeige der Deviceinformationen, Änderungen sind nur in den Details möglich.\" );
});
</script>";
$ret =~ s/#dp /:/g;
return $ret;
}
####################
sub MSwitch_LoadHelper($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $oldtrigger = ReadingsVal( $Name, 'Trigger_device', 'undef' );
my $devhash = undef;
my $cdev = '';
my $ctrigg = '';
if ( defined $hash->{DEF} ) {
$devhash = $hash->{DEF};
my @dev = split( /#/, $devhash );
$devhash = $dev[0];
( $cdev, $ctrigg ) = split( / /, $devhash );
if ( defined $ctrigg ) {
$ctrigg =~ s/\.//g;
}
else {
$ctrigg = '';
}
if ( defined $devhash ) {
$hash->{NOTIFYDEV} = $cdev; # stand aug global ... änderung auf ...
readingsSingleUpdate( $hash, "Trigger_device", $cdev, 0 );
if ( defined $cdev && $cdev ne '' ) {
readingsSingleUpdate( $hash, "Trigger_device", $cdev, 0 );
}
}
else {
$hash->{NOTIFYDEV} = 'no_trigger';
readingsSingleUpdate( $hash, "Trigger_device", 'no_trigger', 0 );
}
}
if ( !defined $hash->{NOTIFYDEV}
|| $hash->{NOTIFYDEV} eq 'undef'
|| $hash->{NOTIFYDEV} eq '' )
{
$hash->{NOTIFYDEV} = 'no_trigger';
}
if ( $oldtrigger ne 'undef' ) {
$hash->{NOTIFYDEV} = $oldtrigger;
readingsSingleUpdate( $hash, "Trigger_device", $oldtrigger, 0 );
}
#################
MSwitch_set_dev($hash);
#################
if ( AttrVal( $Name, 'MSwitch_Activate_MSwitchcmds', "0" ) eq '1' ) {
addToAttrList('MSwitchcmd');
}
################erste initialisierung eines devices
if ( ReadingsVal( $Name, '.V_Check', 'undef' ) ne $vupdate
&& $autoupdate eq "on" )
{
MSwitch_VUpdate($hash);
}
################
if ( ReadingsVal( $Name, '.First_init', 'undef' ) ne 'done' ) {
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, ".V_Check", $vupdate );
readingsBulkUpdate( $hash, "state", 'off' );
if ( defined $ctrigg && $ctrigg ne '' ) {
readingsBulkUpdate( $hash, ".Device_Events", $ctrigg );
$hash->{DEF} = $cdev;
}
else {
readingsBulkUpdate( $hash, ".Device_Events", 'no_trigger' );
}
readingsBulkUpdate( $hash, ".Trigger_on", 'no_trigger' );
readingsBulkUpdate( $hash, ".Trigger_off", 'no_trigger' );
readingsBulkUpdate( $hash, ".Trigger_cmd_on", 'no_trigger' );
readingsBulkUpdate( $hash, ".Trigger_cmd_off", 'no_trigger' );
readingsBulkUpdate( $hash, "Trigger_log", 'off' );
readingsBulkUpdate( $hash, ".Device_Affected", 'no_device' );
readingsBulkUpdate( $hash, ".First_init", 'done' );
readingsEndUpdate( $hash, 0 );
# setze ignoreliste
$attr{$Name}{MSwitch_Ignore_Types} = join( " ", @doignore );
# setze attr inforoom
my $testdev = '';
LOOP22:
foreach my $testdevices ( keys %{ $modules{MSwitch}{defptr} } ) #
{
if ( $Name eq $testdevices ) { next LOOP22; }
$testdev = AttrVal( $testdevices, 'MSwitch_Inforoom', '' );
}
if ( $testdev ne '' ) {
$attr{$Name}{MSwitch_Inforoom} = $testdev,;
}
#setze alle attrs
$attr{$Name}{MSwitch_Help} = '0';
$attr{$Name}{MSwitch_Debug} = '0';
$attr{$Name}{MSwitch_Expert} = '0';
$attr{$Name}{MSwitch_Delete_Delays} = '1';
$attr{$Name}{MSwitch_Include_Devicecmds} = '1';
$attr{$Name}{MSwitch_Include_Webcmds} = '0';
$attr{$Name}{MSwitch_Include_MSwitchcmds} = '0';
$attr{$Name}{MSwitch_Include_MSwitchcmds} = '0';
$attr{$Name}{MSwitch_Lock_Quickedit} = '1';
$attr{$Name}{MSwitch_Extensions} = '0';
$attr{$Name}{MSwitch_Mode} = 'Full';
}
# NEU; ZUVOR IN SET
my $testnew = ReadingsVal( $Name, '.Trigger_on', 'undef' );
if ( $testnew eq 'undef' ) {
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, ".Device_Events", 'no_trigger' );
readingsBulkUpdate( $hash, ".Trigger_on", 'no_trigger' );
readingsBulkUpdate( $hash, ".Trigger_off", 'no_trigger' );
readingsBulkUpdate( $hash, "Trigger_log", 'on' );
readingsBulkUpdate( $hash, ".Device_Affected", 'no_device' );
readingsEndUpdate( $hash, 0 );
}
MSwitch_Createtimer($hash); #Neustart aller timer
}
####################
sub MSwitch_Define($$) {
my $loglevel = 0;
my ( $hash, $def ) = @_;
my @a = split( "[ \t][ \t]*", $def );
my $name = $a[0];
my $devpointer = $name;
my $devhash = '';
$modules{MSwitch}{defptr}{$devpointer} = $hash;
$hash->{Version_Modul} = $version;
$hash->{Version_Datenstruktur} = $vupdate;
$hash->{Version_autoupdate} = $autoupdate;
if($init_done && !defined($hash->{OLDDEF}))
{
my $timecond = gettimeofday() + 5;
InternalTimer( $timecond, "MSwitch_LoadHelper", $hash );
}
return;
}
####################
sub MSwitch_Get($$@) {
my ( $hash, $name, $opt, @args ) = @_;
my $ret;
if ( ReadingsVal( $name, '.change', '' ) ne '' ) {
return "Unknown argument, choose one of ";
}
return "\"get $name\" needs at least one argument" unless ( defined($opt) );
####################
if ( $opt eq 'restore_MSwitch_Data' && $args[0] eq "this_Device" ) {
$ret = MSwitch_backup_this($hash);
return $ret;
}
####################
if ( $opt eq 'get_MSwitch_preconf') {
MSwitch_setconfig($hash,$args[0]);
return "MSwitch_preconfig for $name has loaded.\nPlease refresh device.";
}
########################
if ( $opt eq 'restore_MSwitch_Data' && $args[0] eq "all_Devices" ) {
open( BACKUPDATEI, "<MSwitch_backup_$vupdate.cfg" )
|| return "no Backupfile found\n";
close(BACKUPDATEI);
$hash->{helper}{RESTORE_ANSWER} = $hash->{CL};
my $ret = MSwitch_backup_all($hash);
return $ret;
}
####################
if ( $opt eq 'checkevent' ) {
$ret = MSwitch_Check_Event( $hash, $args[0] );
return $ret;
}
####################
if ( $opt eq 'get_config' ) {
$ret = MSwitch_Getconfig($hash);
return $ret;
}
####################
if ( $opt eq 'get_support_info' ) {
$ret = MSwitch_Getsupport($hash);
return $ret;
}
####################
if ( $opt eq 'get_sysextension' ) {
$ret = MSwitch_Sysextension($hash);
return $ret;
}
####################
if ( $opt eq 'checkcondition' ) {
my ( $condstring, $eventstring ) = split( /\|/, $args[0] );
$condstring =~ s/#\[dp\]/:/g;
$condstring =~ s/#\[pt\]/./g;
$condstring =~ s/#\[ti\]/~/g;
$condstring =~ s/#\[sp\]/ /g;
$eventstring =~ s/#\[dp\]/:/g;
$eventstring =~ s/#\[pt\]/./g;
$eventstring =~ s/#\[ti\]/~/g;
$eventstring =~ s/#\[sp\]/ /g;
$condstring =~ s/\(DAYS\)/|/g;
my $ret1 = MSwitch_checkcondition( $condstring, $name, $eventstring );
my $condstring1 = $hash->{helper}{conditioncheck};
my $errorstring = $hash->{helper}{conditionerror};
if ( !defined $errorstring ) { $errorstring = '' }
$condstring1 =~ s/</\&lt\;/g;
$condstring1 =~ s/>/\&gt\;/g;
$errorstring =~ s/</\&lt\;/g;
$errorstring =~ s/>/\&gt\;/g;
if ( $errorstring ne '' && $condstring1 ne 'Klammerfehler' ) {
$ret1 =
'<div style="color: #FF0000">Syntaxfehler:<br>'
. $errorstring
. '</div><br>';
}
elsif ( $condstring1 eq 'Klammerfehler' ) {
$ret1 =
'<div style="color: #FF0000">Syntaxfehler:<br>Fehler in der Klammersetzung, die Anzahl öffnender und schliessender Klammern stimmt nicht überein . </div><br>';
}
else {
if ( $ret1 eq 'true' ) {
$ret1 = 'Bedingung ist Wahr und wird ausgeführt';
}
if ( $ret1 eq 'false' ) {
$ret1 = 'Bedingung ist nicht Wahr und wird nicht ausgeführt';
}
}
$condstring =~ s/~/ /g;
my $condmarker = $condstring1;
my $x = 0; # exit
while ( $condmarker =~ m/(.*)(\d{10})(.*)/ ) {
$x++; # exit
last if $x > 20; # exit
my $timestamp = FmtDateTime($2);
chop $timestamp;
chop $timestamp;
chop $timestamp;
my ( $st1, $st2 ) = split( / /, $timestamp );
$condmarker = $1 . $st2 . $3;
}
$ret =
"eingehender String:<br>$condstring<br><br>If Anweisung Perl:<br>$condstring1<br><br>";
$ret .= "If Anweisung Perl Klarzeiten:<br>$condmarker<br><br>"
if $x > 0;
$ret .= $ret1;
my $condsplit = $condmarker;
my $reads = '<br><br>States der geprüften Readings:<br>';
$x = 0; # exit
while ( $condsplit =~ m/(.*')(.*)',\s'(.*)',\s(.*)/ ) {
$x++; # exit
last if $x > 20; # exit
$reads .= "Reading: [$2:$3] - Inhalt: "
. ReadingsVal( $2, $3, 'undef' );
$reads .=
"<div style=\"color: #FF0000\">Reading nicht vorhanden !</div>"
if ( ReadingsVal( $2, $3, 'undef' ) ) eq "undef";
$reads .= "<br>";
$condsplit = $1 . $4;
}
$ret .= $reads if $x > 0;
my $err1;
my $err2;
if ( $errorstring ne '' ) {
( $err1, $err2 ) = split( /near /, $errorstring );
chop $err2;
chop $err2;
$err2 = substr( $err2, 1 );
$ret =~ s/$err2/<span style="color: #FF0000">$err2<\/span>/ig;
}
$hash->{helper}{conditioncheck} = '';
$hash->{helper}{conditionerror} = '';
return "<span style=\"font-size: medium\">" . $ret . "<\/span>";
}
#################################################
if ( $opt eq 'active_timer' && $args[0] eq 'delete' ) {
MSwitch_Clear_timer($hash);
MSwitch_Createtimer($hash);
MSwitch_Delete_Delay( $hash, 'all' );
$ret .=
"<br>INFO: Alle anstehenden Timer wurden neu berechnet, alle Delays wurden gelöscht<br>";
return $ret;
}
#################################################
if ( $opt eq 'active_timer' && $args[0] eq 'show' ) {
$ret .= "<div nowrap>Systemzeit: " . localtime() . "</div><hr>";
$ret .= "<div nowrap>Schaltzeiten (at - kommandos).</div><hr>";
#timer
my $timehash = $hash->{helper}{timer};
foreach my $a ( sort keys %{$timehash} ) {
my @string=split(/-/,$hash->{helper}{timer}{$a});
my @string1=split(/ID/,$string[1]);
my $number = $string1[0];
my $id = $string1[1];
my $time = FmtDateTime( $string[0] );
my @timers = split( /,/, $a );
if ( $number eq '1' ) {
$ret .=
"<div nowrap>"
. $time
. " switch MSwitch on + execute 'on' cmds</div>";
}
if ( $number eq '2' ) {
$ret .=
"<div nowrap>"
. $time
. " switch MSwitch off + execute 'off' cmds</div>";
}
if ( $number eq '3' ) {
$ret .=
"<div nowrap>" . $time . " execute 'cmd1' commands only</div>";
}
if ( $number eq '4' ) {
$ret .=
"<div nowrap>" . $time . " execute 'cmd2' commands only</div>";
}
if ( $number eq '9' ) {
$ret .=
"<div nowrap>" . $time . " execute 'cmd1+cmd2' commands only</div>";
}
if ( $number eq '10' ) {
$ret .="<div nowrap>" . $time . " execute 'cmd1+cmd2' commands from ID ".$id." only</div>";
}
if ( $number eq '5' ) {
$ret .=
"<div nowrap>"
. $time
. " neuberechnung aller Schaltzeiten </div>";
}
if ( $number eq '6' ) {
$ret .="<div nowrap>" . $time . " execute 'cmd1' commands from ID ".$id." only</div>";
}
if ( $number eq '7' ) {
$ret .="<div nowrap>" . $time . " execute 'cmd2' commands from ID ".$id." only</div>";
}
}
#delays
$ret .= "<br>&nbsp;<br><div nowrap>aktive Delays:</div><hr>";
$timehash = $hash->{helper}{delays};
foreach my $a ( sort keys %{$timehash} ) {
my $b = substr( $hash->{helper}{delays}{$a}, 0, 10 );
my $time = FmtDateTime($b);
my @timers = split( /#\[tr\]/, $a );
$ret .= "<div nowrap>" . $time . " " . $timers[0] . "</div>";
}
if ( $ret ne
"<div nowrap>Schaltzeiten (at - kommandos).</div><hr><div nowrap>aktive Delays:</div><hr>"
)
{
return $ret;
}
return
"<span style=\"font-size: medium\">Keine aktiven Delays/Ats gefunden <\/span>";
}
my $extension = '';
if ( ReadingsVal( $name, 'Sys_Extension', '' ) eq 'on' ) {
$extension = 'get_sysextension:noArg';
}
if ( AttrVal( $name, 'MSwitch_Mode', 'Full' ) eq "Dummy" ) {
return "Unknown argument $opt, choose one of get_support_info:noArg restore_MSwitch_Data:this_Device,all_Devices";
}
if ( ReadingsVal( $name, '.lock', 'undef' ) ne "undef" ) {
return
"Unknown argument $opt, choose one of active_timer:show,delete get_config:noArg restore_MSwitch_Data:this_Device,all_Devices $preconf";
}
else {
return
"Unknown argument $opt, choose one of get_support_info:noArg get_config:noArg active_timer:show,delete restore_MSwitch_Data:this_Device,all_Devices $preconf $extension";
}
}
####################
sub MSwitch_AsyncOutput ($) {
my ( $client_hash, $text ) = @_;
return $text;
}
####################
sub MSwitch_Set($@) {
my ( $hash, $name, $cmd, @args ) = @_;
Log3( $name, 5, "$name Set $cmd, @args " . __LINE__ );
##############################
return ""
if ( IsDisabled($name) && ( $cmd eq 'on' || $cmd eq 'off' ) )
; # Return without any further action if the module is disabled
my $execids = "0";
$hash->{eventsave} = 'unsaved';
##############################
# verry special commands readingactivated (
my $special = '';
my $cs = ReadingsVal( $name, '.sysconf', 'undef' );
if ( $cs ne "undef" ) {
$cs =~ s/#\[tr\]/[tr]/g;
$cs =~ s/#\[wa\]/|/g;
$cs =~ s/#\[sp\]/ /g;
$cs =~ s/#\[nl\]/\n/g;
$cs =~ s/#\[se\]/;/g;
$cs =~ s/#\[dp\]/:/g;
$cs =~ s/#\[st\]/'/g;
$cs =~ s/#\[dst\]/\"/g;
$cs =~ s/#\[tab\]/ /g;
$cs =~ s/#\[ko\]/,/g;
$cs =~ s/#.*\n//g;
$cs =~ s/\n//g;
$cs =~ s/\[tr\]/#[tr]/g;
my $return = "no value";
$return = eval($cs);
if ($@) {
Log3( $name, 1, "$name MSwitch_repeat: ERROR $cs: $@ " . __LINE__ );
}
return if $return eq "exit";
}
############################
if ( !defined $args[0] ) { $args[0] = ''; }
my $setList = AttrVal($name, "setList", " ");
$setList =~ s/\n/ /g;
my $devicemode = AttrVal( $name, 'MSwitch_Mode', 'Full' );
if ( !exists( $sets{$cmd} ) ) {
my @cList;
# Overwrite %sets with setList
my $atts = AttrVal( $name, 'setList', "" );
my %setlist = split( "[: ][ ]*", $atts );
foreach my $k ( sort keys %sets ) {
my $opts = undef;
$opts = $sets{$k};
$opts = $setlist{$k} if ( exists( $setlist{$k} ) );
if ( defined($opts) ) {
push( @cList, $k . ':' . $opts );
}
else {
push( @cList, $k );
}
} # end foreach
if ( ReadingsVal( $name, '.change', '' ) ne '' ) {
return "Unknown argument $cmd, choose one of ";
}
# bearbeite setlist und readinglist
##############################
if ($cmd ne "?")
{
my @sl = split(" ", AttrVal($name, "setList", ""));
my $re = qr/$cmd/;
my @gefischt=grep(/$re/,@sl);
if(@sl && grep /$re/, @sl )
{
my @rl = split(" ", AttrVal($name, "readingList", ""));
if(@rl && grep /$re/, @rl )
{
readingsSingleUpdate( $hash, $cmd, "@args", 1 );
}
else
{
readingsSingleUpdate( $hash, "state", $cmd." @args", 1 );
}
return;
}
##############################
# dummy state setzen und exit
if ( $devicemode eq "Dummy" )
{
readingsSingleUpdate( $hash, "state", $cmd." @args", 1 );
return;
}
#AUFRUF DEBUGFUNKTIONEN
if ( AttrVal( $name, 'MSwitch_Debug', "0" ) eq '4' )
{
MSwitch_Debug($hash);
}
#######################################
my $ic = '';
$ic = $hash->{IncommingHandle};
if ( ( ( $cmd eq 'on' ) || ( $cmd eq 'off' ) )
&& ( $args[0] ne '' )
&& ( $ic ne 'fromnotify' ) )
{
readingsSingleUpdate( $hash, "Parameter", $args[0], 1 );
if ( $cmd eq 'on' ) { $args[0] = "$name:on_with_Parameter:$args[0]"; }
if ( $cmd eq 'off' ) { $args[0] = "$name:off_with_Parameter:$args[0]"; }
}
delete( $hash->{IncommingHandle} );
#######################################
}
############################################
if ( $devicemode eq "Notify" ) {
return
"Unknown argument $cmd, choose one of active:noArg inactive:noArg del_delays:noArg backup_MSwitch:all_devices fakeevent exec_cmd_1 exec_cmd_2 wait reload_timer:noArg change_renamed $setList $special";
}
elsif ( $devicemode eq "Toggle" ) {
return
"Unknown argument $cmd, choose one of active:noArg inactive:noArg on off del_delays:noArg backup_MSwitch:all_devices fakeevent wait reload_timer:noArg change_renamed $setList $special";
}
elsif ( $devicemode eq "Dummy" ) {
return
"Unknown argument $cmd, choose one of state $setList $special";
}
else {
#full
return
"Unknown argument $cmd, choose one of active:noArg inactive:noArg on off del_delays:noArg backup_MSwitch:all_devices fakeevent exec_cmd_1 exec_cmd_2 wait reload_timer:noArg change_renamed $setList $special";
}
}
if ( AttrVal( $name, 'MSwitch_RandomNumber', '' ) ne '' ) {
# randomnunner erzeugen wenn attr an
MSwitch_Createnumber1($hash);
}
##############################
if ( $cmd eq 'inactive' ) {
# setze device auf inaktiv
readingsSingleUpdate( $hash, "state", 'inactive', 1 );
return;
}
##############################
if ( $cmd eq 'active' ) {
# setze device auf aktiv
readingsSingleUpdate( $hash, "state", 'active', 1 );
return;
}
##############################
if ( $cmd eq 'change_renamed' ) {
my $changestring = $args[0] . "#" . $args[1];
MSwitch_confchange( $hash, $changestring );
return;
}
#######################################
if ( $cmd eq 'reload_timer' ) {
MSwitch_Clear_timer($hash);
MSwitch_Createtimer($hash);
return;
}
#######################################
if ( $cmd eq 'VUpdate' ) {
MSwitch_VUpdate($hash);
return;
}
#######################################
if ( $cmd eq 'confchange' ) {
MSwitch_confchange( $hash, $args[0] );
return;
}
###################################
if ( $cmd eq 'clearlog' ) {
MSwitch_clearlog($hash);
return;
}
##############################
if ( $cmd eq 'wait' ) {
readingsSingleUpdate( $hash, "waiting", ( time + $args[0] ), 1 );
return;
}
###############################
if ( $cmd eq 'sort_device' ) {
readingsSingleUpdate( $hash, ".sortby", $args[0], 0 );
return;
}
if ( $cmd eq 'fakeevent' ) {
# fakeevent abarbeiten
MSwitch_Check_Event( $hash, $args[0] );
return;
}
##############################
if ( $cmd eq 'exec_cmd_1' ) {
if ( $args[0] eq 'ID' ) {
$execids = $args[1];
$args[0] = 'ID';
}
# cmd1 abarbeiten
MSwitch_Exec_Notif( $hash, 'on', 'nocheck', '', $execids );
return;
}
##############################
if ( $cmd eq 'exec_cmd_2' ) {
if ( $args[0] eq 'ID' ) {
$execids = $args[1];
$args[0] = 'ID';
}
# cmd2 abarbeiten
MSwitch_Exec_Notif( $hash, 'off', 'nocheck', '', $execids );
return;
}
##############################
if ( $cmd eq 'backup_MSwitch' ) {
# backup erstellen
MSwitch_backup($hash);
return;
}
##############################
if ( $cmd eq 'del_delays' ) {
# löschen aller delays
MSwitch_Delete_Delay( $hash, $name );
MSwitch_Createtimer($hash);
return;
}
##############################
if ( $cmd eq 'saveconfig' ) {
# configfile speichern
$args[0] =~ s/\[s\]/ /g;
MSwitch_saveconf( $hash, $args[0] );
return;
}
##############################
if ( $cmd eq 'savesys' ) {
# sysfile speichern
MSwitch_savesys( $hash, $args[0] );
return;
}
##############################
if ( $cmd eq "addevent" ) {
# event manuell zufügen
my $devName = ReadingsVal( $name, 'Trigger_device', '' );
$args[0] =~ s/\[sp\]/ /g;
# MSwitch_LOG( $name, 0, "args0 ".$args[0] );
# TODO leerzeichen im perteil ersetzen
my @newevents = split( / /, $args[0] );
if ( ReadingsVal( $name, 'Trigger_device', '' ) eq "all_events" ) {
foreach (@newevents) {
$hash->{helper}{events}{all_events}{$_} = "on";
}
}
else {
foreach (@newevents) {
$hash->{helper}{events}{$devName}{$_} = "on";
}
}
my $events = '';
my $eventhash = $hash->{helper}{events}{$devName};
foreach my $name ( keys %{$eventhash} ) {
$events = $events . $name . '#[tr]';
}
chop($events);
chop($events);
chop($events);
chop($events);
chop($events);
readingsSingleUpdate( $hash, ".Device_Events", $events, 1 );
return;
}
##############################
if ( $cmd eq "add_device" ) {
#add device
MSwitch_Add_Device( $hash, $args[0] );
return;
}
##############################
if ( $cmd eq "del_device" ) {
#del device
MSwitch_Del_Device( $hash, $args[0] );
return;
}
##############################
if ( $cmd eq "del_trigger" ) {
#lösche trigger
MSwitch_Delete_Triggermemory($hash);
return;
}
##############################
if ( $cmd eq "filter_trigger" ) {
#filter to trigger
MSwitch_Filter_Trigger($hash);
return;
}
##############################
if ( $cmd eq "set_trigger" ) {
chop( $args[1], $args[2], $args[3], $args[4], $args[5], $args[6] );
my $triggertime = 'on'
. $args[1] . '~off'
. $args[2]
. '~ononly'
. $args[3]
. '~offonly'
. $args[4]
. '~onoffonly'
. $args[5];
my $oldtrigger = ReadingsVal( $name, 'Trigger_device', '' );
readingsSingleUpdate( $hash, "Trigger_device", $args[0], '1' );
readingsSingleUpdate( $hash, ".Trigger_condition", $args[6], 0 );
if ( !defined $args[7] ) {
readingsDelete( $hash, '.Trigger_Whitelist' );
}
else {
readingsSingleUpdate( $hash, ".Trigger_Whitelist", $args[7], 0 );
}
my $testtrig = ReadingsVal( $name, 'Trigger_device', '' );
if ( $oldtrigger ne $args[0] ) {
MSwitch_Delete_Triggermemory($hash); # lösche alle events
}
if ( $args[1] ne ''
|| $args[2] ne ''
|| $args[3] ne ''
|| $args[4] ne ''
|| $args[5] ne '' )
{
readingsSingleUpdate( $hash, ".Trigger_time", $triggertime, 0 );
MSwitch_Createtimer($hash);
}
else {
readingsSingleUpdate( $hash, ".Trigger_time", '', 0 );
MSwitch_Clear_timer($hash);
}
$hash->{helper}{events}{ $args[0] }{'no_trigger'} = "on";
if ( $args[0] ne 'no_trigger' )
{
if ( $args[0] eq "all_events" )
{
delete( $hash->{NOTIFYDEV} );
if ( ReadingsVal( $name, '.Trigger_Whitelist', '' ) ne '' )
{
$hash->{NOTIFYDEV} =
ReadingsVal( $name, '.Trigger_Whitelist', '' );
}
}
else
{
if ( $args[0] ne "MSwitch_Self" ){
$hash->{NOTIFYDEV} = $args[0];
my $devices = MSwitch_makeAffected($hash);
$hash->{DEF} = $args[0] . ' # ' . $devices;
}
else{
$hash->{NOTIFYDEV} = $name;
my $devices = MSwitch_makeAffected($hash);
$hash->{DEF} = $name . ' # ' . $devices;
}
}
}
else {
$hash->{NOTIFYDEV} = 'no_trigger';
delete $hash->{DEF};
}
return;
}
##############################
if ( $cmd eq "trigger" ) {
# setze trigger events
my $triggeron = '';
my $triggeroff = '';
my $triggercmdon = '';
my $triggercmdoff = '';
$args[0] =~ s/~/ /g;
$args[1] =~ s/~/ /g;
$args[2] =~ s/~/ /g;
$args[3] =~ s/~/ /g;
$args[4] =~ s/~/ /g;
if ( !defined $args[1] ) { $args[1] = "" }
if ( !defined $args[3] ) { $args[3] = "" }
$triggeron = $args[0];
$triggeroff = $args[1];
if ( !defined $args[3] ) { $args[3] = "" }
if ( !defined $args[4] ) { $args[4] = "" }
$triggercmdon = $args[3];
$triggercmdoff = $args[4];
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, ".Trigger_on", $triggeron );
readingsBulkUpdate( $hash, ".Trigger_off", $triggeroff );
if ( $args[2] eq 'nein' ) {
readingsBulkUpdate( $hash, "Trigger_log", 'off' );
}
if ( $args[2] eq 'ja' ) {
readingsBulkUpdate( $hash, "Trigger_log", 'on' );
}
readingsBulkUpdate( $hash, ".Trigger_cmd_on", $triggercmdon );
readingsBulkUpdate( $hash, ".Trigger_cmd_off", $triggercmdoff );
readingsEndUpdate( $hash, 0 );
return;
}
##############################
if ( $cmd eq "devices" ) {
# setze devices
my $devices = $args[0];
if ( $devices eq 'null' ) {
readingsSingleUpdate( $hash, ".Device_Affected", 'no_device', 0 );
return;
}
my @olddevices =
split( /,/, ReadingsVal( $name, '.Device_Affected', 'no_device' ) );
my @devices = split( /,/, $args[0] );
my $addolddevice = '';
foreach (@devices) {
my $testdev = $_;
LOOP6: foreach my $olddev (@olddevices) {
my $oldcmd = '';
my $oldname = '';
( $oldname, $oldcmd ) = split( /-AbsCmd/, $olddev );
if ( !defined $oldcmd ) { $oldcmd = '' }
if ( $oldcmd eq '1' ) { next LOOP6 }
if ( $oldname eq $testdev ) {
$addolddevice = $addolddevice . $olddev . ',';
}
}
$_ = $_ . '-AbsCmd1';
}
chop($addolddevice);
$devices = join( ',', @devices ) . ',' . $addolddevice;
my @sortdevices = split( /,/, $devices );
@sortdevices = sort @sortdevices;
$devices = join( ',', @sortdevices );
readingsSingleUpdate( $hash, ".Device_Affected", $devices, 0 );
$devices = MSwitch_makeAffected($hash);
if ( defined $hash->{DEF} ) {
my $devhash = $hash->{DEF};
my @dev = split( /#/, $devhash );
$hash->{DEF} = $dev[0] . ' # ' . $devices;
}
else {
$hash->{DEF} = ' # ' . $devices;
}
return;
}
##############################
if ( $cmd eq "details" ) {
# setze devices details
$args[0] = urlDecode( $args[0] );
$args[0] =~ s/#\[pr\]/%/g;
#devicehasch
my %devhash = split( /#\[DN\]/, $args[0] );
my @devices =
split( /,/, ReadingsVal( $name, '.Device_Affected', '' ) );
my @inputcmds = split( /#\[ND\]/, $args[0] );
my $error = '';
my $key = '';
my $savedetails = '';
LOOP10: foreach (@devices) {
my @devicecmds = split( /#\[NF\]/, $devhash{$_} );
$savedetails = $savedetails . $_ . '#[NF]';
$savedetails = $savedetails . $devicecmds[0] . '#[NF]';
$savedetails = $savedetails . $devicecmds[1] . '#[NF]';
$savedetails = $savedetails . $devicecmds[2] . '#[NF]';
$savedetails = $savedetails . $devicecmds[3] . '#[NF]';
$savedetails = $savedetails . $devicecmds[4] . '#[NF]';
$savedetails = $savedetails . $devicecmds[5] . '#[NF]';
$savedetails = $savedetails . $devicecmds[7] . '#[NF]';
$savedetails = $savedetails . $devicecmds[6] . '#[NF]';
if ( defined $devicecmds[8] ) {
$savedetails = $savedetails . $devicecmds[8] . '#[NF]';
}
else {
$savedetails = $savedetails . '' . '#[NF]';
}
if ( defined $devicecmds[9] ) {
$savedetails = $savedetails . $devicecmds[9] . '#[NF]';
}
else {
$savedetails = $savedetails . '' . '#[NF]';
}
if ( defined $devicecmds[10] ) {
$savedetails = $savedetails . $devicecmds[10] . '#[NF]';
}
else {
$savedetails = $savedetails . '' . '#[NF]';
}
if ( defined $devicecmds[11] ) {
$savedetails = $savedetails . $devicecmds[11] . '#[NF]';
}
else {
$savedetails = $savedetails . '' . '#[NF]';
}
# priority
if ( defined $devicecmds[12] && $devicecmds[12] ne 'undefined' ) {
$savedetails = $savedetails . $devicecmds[12] . '#[NF]';
}
else {
$savedetails = $savedetails . '1' . '#[NF]';
}
# id
if ( defined $devicecmds[13] && $devicecmds[13] ne 'undefined' ) {
$savedetails = $savedetails . $devicecmds[13] . '#[NF]';
}
else {
$savedetails = $savedetails . '0' . '#[NF]';
}
# comment
if ( defined $devicecmds[14] && $devicecmds[14] ne 'undefined' ) {
$savedetails = $savedetails . $devicecmds[14] . '#[NF]';
}
else {
$savedetails = $savedetails . '' . '#[NF]';
}
# exit1
if ( defined $devicecmds[15] && $devicecmds[15] ne 'undefined' ) {
$savedetails = $savedetails . $devicecmds[15] . '#[NF]';
}
else {
$savedetails = $savedetails . '0' . '#[NF]';
}
# exit2
if ( defined $devicecmds[16] && $devicecmds[16] ne 'undefined' ) {
$savedetails = $savedetails . $devicecmds[16] . '#[NF]';
}
else {
$savedetails = $savedetails . '0' . '#[NF]';
}
# show
if ( defined $devicecmds[17] && $devicecmds[17] ne 'undefined' ) {
$savedetails = $savedetails . $devicecmds[17] . '#[ND]';
}
else {
$savedetails = $savedetails . '1' . '#[ND]';
}
# $counter++;
}
chop($savedetails);
chop($savedetails);
chop($savedetails);
chop($savedetails);
chop($savedetails);
# ersetzung sonderzeichen etc mscode
# auskommentierte wurden bereits dur jscript ersetzt
$savedetails =~ s/\n/#[nl]/g;
$savedetails =~ s/\t/ /g;
$savedetails =~ s/ /#[sp]/g;
$savedetails =~ s/\\/#[bs]/g;
$savedetails =~ s/,/#[ko]/g;
$savedetails =~ s/^#\[/#[eo]/g;
$savedetails =~ s/^#\]/#[ec]/g;
$savedetails =~ s/\|/#[wa]/g;
$savedetails =~ s/\|/#[ti]/g;
readingsSingleUpdate( $hash, ".Device_Affected_Details", $savedetails,
0 );
return;
}
##################################################################
my $update = '';
# unbedingt überarbeiten !!!
my @testdetails =
qw(_on _off _onarg _offarg _playback _record _timeon _timeoff _conditionon _conditionoff);
my @testdetailsstandart =
( 'no_action', 'no_action', '', '', 'nein', 'nein', 0, 0, '', '' );
##################################
#neu ausführung on/off
if ( $cmd eq "off" || $cmd eq "on" ) {
# ausführen des off befehls
my $zweig = 'nicht definiert';
$zweig = "cmd1" if $cmd eq "on";
$zweig = "cmd2" if $cmd eq "off";
my $exittest = '';
$exittest = "1" if $cmd eq "on";
$exittest = "2" if $cmd eq "off";
my $ekey = '';
my $out = '0';
MSwitch_Safemode($hash);
MSwitch_LOG( $name, 6, "----------------------------------------" );
MSwitch_LOG( $name, 6, "$name: aufruf on/off -> $cmd" );
MSwitch_LOG( $name, 6, "----------------------------------------" );
my @cmdpool;
my %devicedetails = MSwitch_makeCmdHash($name);
my @devices =
split( /,/, ReadingsVal( $name, '.Device_Affected', '' ) );
# liste anpassen ( reihenfolge ) wenn expert = 1
@devices = MSwitch_priority( $hash, $execids, @devices );
my $expertmode = AttrVal( $name, 'MSwitch_Expert', "0" );
my $randomtime = AttrVal( $name, 'MSwitch_RandomTime', '');
LOOP1: foreach my $device (@devices)
{
$out = '0';
if ( $expertmode eq '1' ) {
$ekey = $device . "_exit" . $exittest;
$out = $devicedetails{$ekey};
}
MSwitch_LOG( $name, 6,
"$name: angesprochener zweig "
. $zweig
. " -> device -> -"
. $device
. "-" );
# teste auf on kommando
next LOOP1 if $device eq "no_device";
my @devicesplit = split( /-AbsCmd/, $device );
my $devicenamet = $devicesplit[0];
my $count = 0;
foreach my $testset (@testdetails) {
if ( !defined( $devicedetails{ $device . $testset } ) ) {
my $key = '';
$key = $device . $testset;
$devicedetails{$key} = $testdetailsstandart[$count];
}
$count++;
}
my $key = $device . "_" . $cmd;
my $timerkey = $device . "_time" . $cmd;
my $testtstate = $devicedetails{$timerkey};
# teste auf delayinhalt
MSwitch_LOG( $name, 6,
"$name: teste auf timerstatus -> $testtstate" );
$testtstate =~ s/[A-Za-z0-9#\.\-_]//g;
if ( $testtstate eq "[:]" || $testtstate eq "[\$:]" ) {
$devicedetails{$timerkey} =
eval MSwitch_Checkcond_state( $devicedetails{$timerkey},
$name );
if ( $devicedetails{$timerkey} =~ m/[0-9]\d:[0-9]\d:[0-9]\d/ ) {
MSwitch_LOG( $name, 6, "$name: format ok " );
my $hdel =
( substr( $devicedetails{$timerkey}, 0, 2 ) ) * 3600;
my $mdel =
( substr( $devicedetails{$timerkey}, 3, 2 ) ) * 60;
my $sdel =
( substr( $devicedetails{$timerkey}, 6, 2 ) ) * 1;
$devicedetails{$timerkey} = $hdel + $mdel + $sdel;
}
else {
MSwitch_LOG( $name, 1,
"$name: ERROR Timerformat "
. $devicedetails{$timerkey}
. " fehlerhaf " );
$devicedetails{$timerkey} = 0;
}
}
MSwitch_LOG( $name, 6,
"$name: timerstatus nach test -> "
. $devicedetails{$timerkey} );
# suche befehl
if ( $devicedetails{$key} ne ""
&& $devicedetails{$key} ne "no_action" ) #befehl gefunden
{
my $cs = '';
$cs =
"set $devicenamet $devicedetails{$device.'_off'} $devicedetails{$device.'_offarg'}"
if $cmd eq "off";
$cs =
"set $devicenamet $devicedetails{$device.'_on'} $devicedetails{$device.'_onarg'}"
if $cmd eq "on";
if ( $devicenamet eq 'FreeCmd' ) {
$cs = "$devicedetails{$device.'_'.$cmd.'arg'}";
$cs = MSwitch_makefreecmd( $hash, $cs );
}
MSwitch_LOG( $name, 6, "$name: befehl gefunden -> " . $cs );
MSwitch_LOG( $name, 6,
"$name: teste auf delay -> " . $devicedetails{$timerkey} );
my $conditionkey = $device . "_condition" . $cmd;
MSwitch_LOG( $name, 6,
"$name: TIMERKEY -> " . $devicedetails{$timerkey} );
if ( $devicedetails{$timerkey} eq "0"
|| $devicedetails{$timerkey} eq "" )
{
# $conditionkey = $device . "_conditionoff";
MSwitch_LOG( $name, 6,
"$name: teste auf condition -> aufruf sub checkcondition mit "
. $devicedetails{$conditionkey} )
if $devicedetails{$conditionkey} ne '';
MSwitch_LOG( $name, 6,
"$name: teste auf condition -> wird nicht getestet - kein eintrag"
. $devicedetails{$conditionkey} )
if $devicedetails{$conditionkey} eq '';
my $execute = "true";
$execute =
MSwitch_checkcondition( $devicedetails{$conditionkey},
$name, $args[0] )
if $devicedetails{$conditionkey} ne '';
MSwitch_LOG( $name, 6,
"$name: ergebniss condition -> ergebniss " . $execute );
if ( $execute eq 'true' ) {
$cs =~ s/\$NAME/$hash->{helper}{eventfrom}/;
$cs =~ s/\$SELF/$name/;
MSwitch_LOG( $name, 6,
"$name: in exec-cmdpool geschrieben ->" . $cs );
push @cmdpool, $cs . '|' . $device;
$update = $device . ',' . $update;
if ( $out eq '1' ) {
MSwitch_LOG( $name, 6,
"$name: Abbruchbefehl erhalten von "
. $device );
last LOOP1;
}
}
}
else {
MSwitch_LOG( $name, 6,
"$name: teste auf condition -> keine vorhanden " );
if ( $randomtime ne ''
&& $devicedetails{$timerkey} eq '[random]' )
{
MSwitch_LOG( $name, 6,
"$name: randomtimer gefunden attr gesetzt -> "
. $devicedetails{$timerkey} );
$devicedetails{$timerkey} =
MSwitch_Execute_randomtimer($hash);
# ersetzt $devicedetails{$timerkey} gegen randomtimer
MSwitch_LOG( $name, 6,
"$name: timerd ersetzt-> "
. $devicedetails{$timerkey} );
}
elsif ( $randomtime eq ''
&& $devicedetails{$timerkey} eq '[random]' )
{
MSwitch_LOG( $name, 6,
"$name: randomtimer gefunden attr nicht gesetzt -> 0"
);
$devicedetails{$timerkey} = 0;
}
# ?
my $execute = "true";
# conditiontest nur dann, wenn cond-test nicht nur nach verzögerung
if ( $devicedetails{ $device . "_delayat" . $cmd } ne
"delay2"
&& $devicedetails{ $device . "_delayat" . $cmd } ne
"at02" )
{
MSwitch_LOG( $name, 6,
"$name: checkcondition bei gefundem delay -> "
. $devicedetails{ $device . "_delayat" . $cmd } );
$execute =
MSwitch_checkcondition( $devicedetails{$conditionkey},
$name, $args[0] );
MSwitch_LOG( $name, 6,
"$name: ergebniss checkcondition für delay-> "
. $execute );
}
MSwitch_LOG( $name, 6,
"$name: ----------------- Delay -> "
. $devicedetails{$timerkey} );
if ( $execute eq 'true' ) {
MSwitch_LOG( $name, 6,
"$name: conidtion ok - Befehl mt at/delay wird ausgefuehrt -> "
. $cs );
my $delaykey = $device . "_delayat" . $cmd;
my $delayinhalt = $devicedetails{$delaykey};
my $delaykey1 = $device . "_delayat" . $cmd . "org";
my $teststateorg = $devicedetails{$delaykey1};
MSwitch_LOG( $name, 6,
"$name: delaykey -> " . $delaykey );
MSwitch_LOG( $name, 6,
"$name: delaykeyinhalt -> " . $delayinhalt );
MSwitch_LOG( $name, 6,
"$name: delaykeyinhaltorg -> " . $teststateorg );
if ( $delayinhalt eq 'at0' || $delayinhalt eq 'at1' ) {
MSwitch_LOG( $name, 6,
"$name: delay mit at erkannt -> "
. $devicedetails{$timerkey} );
MSwitch_LOG( $name, 6,
"$name: delay wird ersetzt " );
$devicedetails{$timerkey} =
MSwitch_replace_delay( $hash, $teststateorg );
MSwitch_LOG( $name, 6,
"$name: delay ersetzt -> "
. $devicedetails{$timerkey} );
}
if ( $delayinhalt eq 'at1' || $delayinhalt eq 'delay0' )
{
MSwitch_LOG( $name, 6,
"$name: delay ohne zusatzprüfung erkannt -> "
. $delayinhalt );
$conditionkey = 'nocheck';
MSwitch_LOG( $name, 6,
"$name: conditionkey ersetzt -> "
. $conditionkey );
}
my $timecond =
gettimeofday() + $devicedetails{$timerkey};
my $msg =
$cs . "#[tr]"
. $name . "#[tr]"
. $conditionkey
. "#[tr]#[tr]"
. $timecond . "#[tr]"
. $device;
# variabelersetzung
$msg =~ s/\$NAME/$hash->{helper}{eventfrom}/;
$msg =~ s/\$SELF/$name/;
$hash->{helper}{delays}{$msg} = $timecond;
InternalTimer( $timecond, "MSwitch_Restartcmd", $msg );
MSwitch_LOG( $name, 6,
"$name: verzögerte befehl gesetzt -> "
. $timecond . " : "
. $msg );
if ( $out eq '1' ) {
MSwitch_LOG( $name, 6,
"$name: Abbruchbefehl erhalten von "
. $device );
last LOOP1;
}
}
}
}
}
if ( $devicemode ne "Notify" ) {
readingsSingleUpdate( $hash, "state", $cmd, 1 );
}
else {
readingsSingleUpdate( $hash, "state", 'active', 1 );
}
#MSwitch_EventBulk($hash,$args[0],'0','MSwitch_set');
my $anzahl = @cmdpool;
MSwitch_LOG( $name, 6,
"$name: anzahl der auszufuehrenden befehle -> " . $anzahl );
MSwitch_LOG( $name, 6, "$name: uebergabe an sub execute " )
if $anzahl > 0;
MSwitch_Cmd( $hash, @cmdpool ) if $anzahl > 0;
#$lastdevice = $device ;
#readingsSingleUpdate( $hash, "last_cmd", $hash->{helper}{priorityids}{$lastdevice}, 1 );
return;
}
return;
}
###################################
sub MSwitch_Cmd(@) {
my ( $hash, @cmdpool ) = @_;
my $Name = $hash->{NAME};
my $lastdevice ;
my %devicedetails = MSwitch_makeCmdHash($Name);
foreach my $cmds (@cmdpool) {
MSwitch_LOG( $Name, 6, "$Name: execute -> " . $cmds );
my @cut = split( /\|/, $cmds );
$cmds = $cut[0];
#ersetze platzhakter vor ausführung
#change # $cmds =~ s/#\[wa\]/|/g; #neu
my $device = $cut[1];
$lastdevice = $device;
my $toggle = '';
if ( $cmds =~ m/set (.*)(MSwitchtoggle)(.*)/ ) {
MSwitch_LOG( $Name, 6,
"$Name: togglemode erkannt -> " . $cmds );
$toggle = $cmds;
$cmds = MSwitch_toggle( $hash, $cmds );
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1'
&& $devicedetails{ $device . '_repeatcount' } ne '' )
{
MSwitch_LOG( $Name, 6,
"$Name: teste auf repeatcount -> "
. $devicedetails{ $device . '_repeatcount' } );
my $x = 0;
while ( $devicedetails{ $device . '_repeatcount' } =~
m/\[(.*)\:(.*)\]/ )
{
$x++; # exit
last if $x > 20; # exitg
my $setmagic = ReadingsVal( $1, $2, 0 );
$devicedetails{ $device . '_repeatcount' } = $setmagic;
}
MSwitch_LOG( $Name, 6,
"$Name: repeatcount nach setmagicersetzung -> "
. $devicedetails{ $device . '_repeatcount' } );
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1'
&& $devicedetails{ $device . '_repeattime' } ne '' )
{
MSwitch_LOG( $Name, 6,
"$Name: teste auf repeattime -> "
. $devicedetails{ $device . '_repeattime' } );
my $x = 0;
while (
$devicedetails{ $device . '_repeattime' } =~ m/\[(.*)\:(.*)\]/ )
{
$x++; # exit
last if $x > 20; # exitg
my $setmagic = ReadingsVal( $1, $2, 0 );
$devicedetails{ $device . '_repeattime' } = $setmagic;
}
MSwitch_LOG( $Name, 6,
"$Name: _repeattime nach setmagicersetzung -> "
. $devicedetails{ $device . '_repeattime' } );
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1'
&& $devicedetails{ $device . '_repeatcount' } > 0
&& $devicedetails{ $device . '_repeattime' } > 0 )
{
my $i;
for (
$i = 0 ;
$i <= $devicedetails{ $device . '_repeatcount' } ;
$i++
)
{
my $msg = $cmds . "|" . $Name;
if ( $toggle ne '' ) {
$msg = $toggle . "|" . $Name;
}
my $timecond = gettimeofday() +
( ( $i + 1 ) * $devicedetails{ $device . '_repeattime' } );
$msg = $msg . "|" . $timecond;
$hash->{helper}{repeats}{$timecond} = "$msg";
MSwitch_LOG( $Name, 6,
"$Name: repeat gesetzt -> "
. $timecond . " : "
. $msg );
InternalTimer( $timecond, "MSwitch_repeat", $msg );
}
}
my $todec = $cmds;
$cmds = MSwitch_dec( $hash, $todec );
MSwitch_LOG( $Name, 6, "$Name: cmd nach decodierung -> " . $cmds );
############################
# debug2 mode , kein execute
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '2' ) {
MSwitch_LOG( $Name, 6, "$Name: exec comand -> " . $cmds );
}
else {
if ( $cmds =~ m/{.*}/ ) {
MSwitch_LOG( $Name, 6,
"$Name: exec als perlcode -> " . $cmds );
my $out = eval($cmds);
if ($@) {
MSwitch_LOG( $Name, 1,
"$Name MSwitch_Set: ERROR $cmds: $@ " . __LINE__ );
}
}
else {
MSwitch_LOG( $Name, 6,
"$Name: execute als fhemcode -> " . $cmds );
my $errors = AnalyzeCommandChain( undef, $cmds );
if ( defined($errors) ) {
MSwitch_LOG( $Name, 1,
"$Name MSwitch_Set: ERROR $cmds: $errors " . __LINE__ );
}
}
}
#############################
}
my $showpool = join( ',', @cmdpool );
if ( length($showpool) > 100 ) {
$showpool = substr( $showpool, 0, 100 ) . '....';
}
readingsSingleUpdate( $hash, "last_exec_cmd", $showpool, 1 ) if $showpool ne '';
if ( AttrVal( $Name, 'MSwitch_Expert', '0' ) eq "1" ) {
readingsSingleUpdate( $hash, "last_cmd", $hash->{helper}{priorityids}{$lastdevice}, 1 );
}
}
####################
sub MSwitch_toggle($$) {
my ( $hash, $cmds ) = @_;
my $Name = $hash->{NAME};
$cmds =~ m/(set) (.*)( )MSwitchtoggle (.*)/;
my @tcmd = split( /\//, $4 );
if ( !defined $tcmd[2] ) { $tcmd[2] = 'state' }
if ( !defined $tcmd[3] ) { $tcmd[3] = $tcmd[0] }
if ( !defined $tcmd[4] ) { $tcmd[4] = $tcmd[1] }
my $cmd1 = $1 . " " . $2 . " " . $tcmd[0];
my $cmd2 = $1 . " " . $2 . " " . $tcmd[1];
my $chk1 = $tcmd[0];
my $chk2 = $tcmd[1];
my $testnew = ReadingsVal( $2, $tcmd[2], 'undef' );
if ( $testnew =~ m/$tcmd[3]/ ) {
$cmds = $cmd2;
}
elsif ( $testnew =~ m/$tcmd[4]/ ) {
$cmds = $cmd1;
}
else {
$cmds = $cmd1;
}
return $cmds;
}
##############################
sub MSwitch_Attr(@) {
my ( $cmd, $name, $aName, $aVal ) = @_;
my $hash = $defs{$name};
if ( $aName eq 'MSwitch_Debug'
&& ( $aVal == 0 || $aVal == 1 || $aVal == 2 || $aVal == 3 ) )
{
delete( $hash->{READINGS}{Bulkfrom} );
delete( $hash->{READINGS}{Device_Affected} );
delete( $hash->{READINGS}{Device_Affected_Details} );
delete( $hash->{READINGS}{Device_Events} );
}
if ( $aName eq 'MSwitch_RandomTime' && $aVal ne '' ) {
if ( $aVal !~
m/([0-9]{2}:[0-9]{2}:[0-9]{2}-[0-9]{2}:[0-9]{2}:[0-9]{2})/ )
{
return 'wrong syntax !<br>the syntax must be: HH:MM:SS-HH:MM:SS';
}
else {
$aVal =~ s/\://g;
my @test = split( /-/, $aVal );
if ( $test[0] >= $test[1] ) {
return
'fist '
. $test[0]
. ' parameter must be lower than second parameter '
. $test[1];
}
}
return;
}
if ( $cmd eq 'set' && $aName eq 'disable' && $aVal == 1 ) {
$hash->{NOTIFYDEV} = 'no_trigger';
MSwitch_Delete_Delay( $hash, 'all' );
MSwitch_Clear_timer($hash);
}
if ( $cmd eq 'set' && $aName eq 'disable' && $aVal == 0 ) {
delete( $hash->{helper}{savemodeblock} );
delete( $hash->{READINGS}{Safemode} );
MSwitch_Createtimer($hash);
}
if ( $cmd eq 'set'
&& $aName eq 'disable'
&& $aVal == 0
&& ReadingsVal( $name, 'Trigger_device', 'no_trigger' ) ne
'no_trigger' )
{
$hash->{NOTIFYDEV} =
ReadingsVal( $name, 'Trigger_device', 'no_trigger' );
}
if ( $cmd eq 'del'
&& $aName eq 'disable'
&& ReadingsVal( $name, 'Trigger_device', 'no_trigger' ) ne
'no_trigger' )
{
$hash->{NOTIFYDEV} =
ReadingsVal( $name, 'Trigger_device', 'no_trigger' );
}
if ( $aName eq 'MSwitch_Activate_MSwitchcmds' && $aVal == 1 ) {
addToAttrList('MSwitchcmd');
}
if ( $aName eq 'MSwitch_Debug' && $aVal eq '0' ) {
unlink("./log/MSwitch_debug_$name.log");
}
if ( $aName eq 'MSwitch_Debug' && $aVal eq '2' || $aVal eq '3' ) {
MSwitch_clearlog($hash);
}
if ( $cmd eq 'set' && $aName eq 'MSwitch_Inforoom' ) {
my $testarg = $aVal;
foreach my $testdevices ( keys %{ $modules{MSwitch}{defptr} } ) {
$attr{$testdevices}{MSwitch_Inforoom} = $testarg;
}
}
if ( $aName eq 'MSwitch_Mode' && ( $aVal eq 'Full' || $aVal eq 'Toggle' ) )
{
my $cs = "setstate $name ???";
my $errors = AnalyzeCommandChain( undef, $cs );
}
if ( $aName eq 'MSwitch_Mode' && ( $aVal eq 'Dummy' ) )
{
MSwitch_Delete_Delay( $hash, 'all' );
MSwitch_Clear_timer($hash);
$hash->{NOTIFYDEV} = 'no_trigger';
}
if ( $aName eq 'MSwitch_Mode' && $aVal eq 'Notify' ) {
readingsSingleUpdate( $hash, "state", 'active', 1 );
my $cs = "setstate $name active";
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
Log3( $name, 1,
"$name MSwitch_Notify: Fehler bei Befehlsausführung $errors -> Comand: $_ "
. __LINE__ );
}
}
#############
if ( $cmd eq 'del' ) {
my $testarg = $aName;
my $errors;
if ( $testarg eq 'MSwitch_Inforoom' ) {
LOOP21:
foreach my $testdevices ( keys %{ $modules{MSwitch}{defptr} } ) {
if ( $testdevices eq $name ) { next LOOP21; }
delete( $attr{$testdevices}{MSwitch_Inforoom} );
}
}
if ( $testarg eq 'disable' ) {
MSwitch_Delete_Delay( $hash, "all" );
MSwitch_Clear_timer($hash);
delete( $hash->{helper}{savemodeblock} );
delete( $hash->{READINGS}{Safemode} );
}
}
return undef;
}
####################
sub MSwitch_Delete($$) {
my ( $hash, $name ) = @_;
RemoveInternalTimer($hash);
return undef;
}
####################
sub MSwitch_Undef($$) {
my ( $hash, $name ) = @_;
RemoveInternalTimer($hash);
delete( $modules{MSwitch}{defptr}{$name} );
return undef;
}
####################
sub MSwitch_Notify($$) {
my $testtoggle = '';
my ( $own_hash, $dev_hash ) = @_;
my $ownName = $own_hash->{NAME}; # own name / hash
my $devName = $dev_hash->{NAME};
my $events = deviceEvents( $dev_hash, 1 );
my $trigevent = '';
my $eventset = '0';
my $execids = "0";
# nur abfragen für eigenes Notify
if ( $init_done
&& $devName eq "global"
&& grep( m/^MODIFIED $ownName$/, @{$events} ) )
{
# reaktion auf eigenes notify start / define / modify
my $timecond = gettimeofday() + 5;
InternalTimer( $timecond, "MSwitch_LoadHelper", $own_hash );
# return;
}
if ( $init_done
&& $devName eq "global"
&& grep( m/^DEFINED $ownName$/, @{$events} ) )
{
# reaktion auf eigenes notify start / define / modify
my $timecond = gettimeofday() + 5;
InternalTimer( $timecond, "MSwitch_LoadHelper", $own_hash );
# return;
}
if ( $devName eq "global"
&& grep( m/^INITIALIZED|REREADCFG$/, @{$events} ) )
{
# reaktion auf eigenes notify start / define / modify
MSwitch_LoadHelper($own_hash);
# return;
}
# nur abfragen für eigenes Notify ENDE
return ""
if ( IsDisabled($ownName) )
; # Return without any further action if the module is disabled
my $devicemode = AttrVal( $ownName, 'MSwitch_Mode', 'Full' );
my $devicefilter = AttrVal( $ownName, 'MSwitch_Trigger_Filter', 'undef' );
my $debugmode = AttrVal( $ownName, 'MSwitch_Debug', "0" ) ;
my $startdelay = AttrVal( $ownName, 'MSwitch_Startdelay', $standartstartdelay );
my $attrrandomnumber= AttrVal( $ownName, 'MSwitch_RandomNumber', '' );
return if ( $devicemode eq 'Dummy' );
return if ( ReadingsVal($ownName,"Trigger_device","no_trigger") eq 'no_trigger' );
return if (!$own_hash->{NOTIFYDEV});
# startverzöferung abwarten
my $diff = int(time) - $fhem_started;
if ( $diff < $startdelay ) {
MSwitch_LOG( $ownName, 6,
'Anfrage fuer '
. $ownName
. ' blockiert - Zeit seit start:'
. $diff );
return;
}
# safemode testen
MSwitch_Safemode($own_hash);
MSwitch_LOG( $ownName, 6, "----------------------------------------" );
MSwitch_LOG( $ownName, 6,
"$ownName: eingehendes Event von -> " . $devName );
MSwitch_LOG( $ownName, 6, "----------------------------------------" );
# versionscheck
if ( ReadingsVal( $ownName, '.V_Check', $vupdate ) ne $vupdate ) {
my $ver = ReadingsVal( $ownName, '.V_Check', '' );
MSwitch_LOG( $ownName, 4,
$ownName
. ' Versionskonflikt, aktion abgebrochen ! erwartet:'
. $vupdate
. ' vorhanden:'
. $ver );
return;
}
if ( $attrrandomnumber ne '' ) {
# create randomnumber wenn attr an
MSwitch_Createnumber1($own_hash);
}
if ( ReadingsVal( $ownName, "waiting", '0' ) > time ) {
MSwitch_LOG( $ownName, 6,
'$ownName: Aktion abgebrochen - wait gesetzt ->'
. ReadingsVal( $ownName, "waiting", '0' ) );
# teste auf attr waiting verlesse wenn gesetzt
return "";
}
else {
# reading löschen
delete( $own_hash->{READINGS}{waiting} );
}
MSwitch_LOG( $ownName, 6, "-------------waiting passiert-----------------" );
my $incommingdevice = '';
if ( defined( $own_hash->{helper}{testevent_device} ) ) {
# unklar
$events = 'x';
$incommingdevice = ( $own_hash->{helper}{testevent_device} );
}
else {
$incommingdevice = $dev_hash->{NAME}; # aufrufendes device
}
return if ( !$events );
my $triggerdevice =
ReadingsVal( $ownName, 'Trigger_device', '' ); # Triggerdevice
my @cmdarray;
my @cmdarray1; # enthält auszuführende befehle nach conditiontest
########### ggf. löschen
my $triggeron = ReadingsVal( $ownName, '.Trigger_on', '' );
my $triggeroff = ReadingsVal( $ownName, '.Trigger_off', '' );
my $triggercmdon = ReadingsVal( $ownName, '.Trigger_cmd_on', '' );
my $triggercmdoff = ReadingsVal( $ownName, '.Trigger_cmd_off', '' );
if ( $devicemode eq "Notify" ) {
# passt triggerfelder an attr an
$triggeron = 'no_trigger';
$triggeroff = 'no_trigger';
}
if ( $devicemode eq "Toggle" ) {
# passt triggerfelder an attr an
$triggeroff = 'no_trigger';
$triggercmdon = 'no_trigger';
$triggercmdoff = 'no_trigger';
}
my $set = "noset";
my $eventcopy = "";
# notify für eigenes device
my $devcopyname = $devName;
$own_hash->{helper}{eventfrom} = $devName;
my @eventscopy;
if ( defined( $own_hash->{helper}{testevent_event} ) ) {
# unklar
# wenn global , sonst ohne 1
@eventscopy = "$own_hash->{helper}{testevent_event}";
}
else {
@eventscopy = ( @{$events} );
}
my $triggerlog = ReadingsVal( $ownName, 'Trigger_log', 'off' );
if ( $incommingdevice eq $triggerdevice || $triggerdevice eq "all_events" )
{
# teste auf triggertreffer oder GLOBAL trigger
my $activecount = 0;
my $anzahl;
EVENT: foreach my $event (@eventscopy) {
$own_hash->{eventsave} = 'unsaved';
MSwitch_LOG( $ownName, 6,
"$ownName: eingehendes Event -> "
. $incommingdevice . " "
. $event );
# durchlauf für jedes ankommende event
#
$event = "" if ( !defined($event) );
$eventcopy = $event;
$eventcopy =~ s/: /:/s; # BUG !!!!!!!!!!!!!!!!!!!!!!!!
$event =~ s/: /:/s;
readingsSingleUpdate( $own_hash, "incomming", $eventcopy, 1 );
# Teste auf einhaltung Triggercondition für ausführung zweig 1 und zweig 2
# kann ggf an den anfang der routine gesetzt werden ? test erforderlich
my $triggercondition =
ReadingsVal( $ownName, '.Trigger_condition', '' );
$triggercondition =~ s/#\[dp\]/:/g;
$triggercondition =~ s/#\[pt\]/./g;
$triggercondition =~ s/#\[ti\]/~/g;
$triggercondition =~ s/#\[sp\]/ /g;
if ( $triggercondition ne '' ) {
MSwitch_LOG( $ownName, 6,
"$ownName: teste Triggercondition -> "
. $triggercondition );
my $ret = MSwitch_checkcondition( $triggercondition, $ownName,
$eventcopy );
MSwitch_LOG( $ownName, 6,
"$ownName: ergebniss Triggercondition -> " . $ret );
if ( $ret eq 'false' ) {
MSwitch_LOG( $ownName, 6,
"$ownName: ergebniss Triggercondition false-> abbruch"
);
MSwitch_LOG( $ownName, 6, "-----------------" );
next EVENT;
}
}
# wird nur ausgefüht wenn ankommende events gelogd werden
if ( $devicefilter ne 'undef' && $devicefilter ne "" )
{
my $eventcopy1 = $eventcopy;
if ( $triggerdevice eq "all_events" ) {
# fügt dem event den devicenamen hinzu , wenn global getriggert wird
$eventcopy1 = "$devName:$eventcopy";
}
my @filters =
split( /,/, $devicefilter )
; # beinhaltet filter durch komma getrennt
MSwitch_LOG( $ownName, 5,
"$ownName: Filtertest Event -> " . $eventcopy );
foreach my $filter (@filters) {
if ( $filter eq "*" ) { $filter = ".*"; }
MSwitch_LOG( $ownName, 5,
"$ownName: eingehendes Event teste Filter -> "
. $filter );
if ( $eventcopy1 =~ m/$filter/ ) {
MSwitch_LOG( $ownName, 6,
"$ownName: eingehendes Event durch MSwitch_Trigger_Filter ausgefiltert: "
. $eventcopy1 );
next EVENT;
}
}
}
if ( $triggerlog eq 'on' ) {
if ( $triggerdevice eq "all_events" ) {
$own_hash->{helper}{events}{'all_events'}
{ $devName . ':' . $eventcopy } = "on";
}
else {
$own_hash->{helper}{events}{$devName}{$eventcopy} = "on";
}
}
############################################################################################################
#anzahl checken / ggf nicht mehr nötig
#check checken / ggf nicht mehr nötig
if ( $event ne '' ) {
my $eventcopy1 = $eventcopy;
if ( $triggerdevice eq "all_events" ) {
# fügt dem event den devicenamen hinzu , wenn global getriggert wird
$eventcopy1 = "$devName:$eventcopy";
}
MSwitch_LOG( $ownName, 5, "rufe eventbulk auf" );
MSwitch_EventBulk( $own_hash, $eventcopy1, '0',
'MSwitch_Notify' );
}
# Teste auf einhaltung Triggercondition ENDE
############################################################################################################
my $eventcopy1 = $eventcopy;
if ( $triggerdevice eq "all_events" ) {
# fügt dem event den devicenamen hinzu , wenn global getriggert wird
$eventcopy1 = "$devName:$eventcopy";
}
my $direktswitch = 0;
my @eventsplit = split( /\:/, $eventcopy );
my $eventstellen = @eventsplit;
my $testvar = '';
my $check = 0;
#test auf zweige cmd1/2 and switch MSwitch on/off
if ( $triggeron ne 'no_trigger' ) {
MSwitch_LOG( $ownName, 6,
"$ownName: checktrigger trigger cmd1 -> " );
$testvar =
MSwitch_checktrigger( $own_hash, $ownName, $eventstellen,
$triggeron, $incommingdevice, 'on', $eventcopy,
@eventsplit );
if ( $testvar ne 'undef' ) {
$set = $testvar;
$check = 1;
$trigevent = $eventcopy;
#readingsSingleUpdate( $own_hash, "incomming", $eventcopy, 0 );
}
MSwitch_LOG( $ownName, 6,
"$ownName: checktrigger ergebniss -> " . $testvar );
}
if ( $triggeroff ne 'no_trigger' ) {
MSwitch_LOG( $ownName, 6,
"$ownName: checktrigger trigger cmd2 -> " );
$testvar =
MSwitch_checktrigger( $own_hash, $ownName, $eventstellen,
$triggeroff, $incommingdevice, 'off', $eventcopy,
@eventsplit );
if ( $testvar ne 'undef' ) {
$set = $testvar;
$check = 1;
$trigevent = $eventcopy;
#readingsSingleUpdate( $own_hash, "incomming", $eventcopy, 0 );
}
MSwitch_LOG( $ownName, 6,
"$ownName: checktrigger ergebniss -> " . $testvar );
}
#test auf zweige cmd1/2 and switch MSwitch on/off ENDE
#test auf zweige cmd1/2 only
# ergebnisse werden in @cmdarray geschrieben
if ( $triggercmdoff ne 'no_trigger' ) {
MSwitch_LOG( $ownName, 6,
"$ownName: checktrigger trigger cmd4 -> " );
$testvar =
MSwitch_checktrigger( $own_hash, $ownName, $eventstellen,
$triggercmdoff, $incommingdevice, 'offonly', $eventcopy,
@eventsplit );
if ( $testvar ne 'undef' ) {
push @cmdarray, $own_hash . ',off,check,' . $eventcopy1;
$check = 1;
}
MSwitch_LOG( $ownName, 6,
"$ownName: checktrigger ergebniss -> " . $testvar );
}
if ( $triggercmdon ne 'no_trigger' ) {
MSwitch_LOG( $ownName, 6,
"$ownName: checktrigger trigger cmd4 -> " );
$testvar =
MSwitch_checktrigger( $own_hash, $ownName, $eventstellen,
$triggercmdon, $incommingdevice, 'ononly', $eventcopy,
@eventsplit );
if ( $testvar ne 'undef' ) {
push @cmdarray, $own_hash . ',on,check,' . $eventcopy1;
$check = 1;
}
MSwitch_LOG( $ownName, 6,
"$ownName: checktrigger ergebniss -> " . $testvar );
}
#test auf zweige cmd1/2 only ENDE
$anzahl = @cmdarray;
MSwitch_LOG( $ownName, 6,
"$ownName: anzahl gefundener Befehle -> " . $anzahl );
MSwitch_LOG( $ownName, 6,
"$ownName: inhalt gefundener Befehle -> @cmdarray" );
$own_hash->{IncommingHandle} = 'fromnotify';
$event =~ s/~/ /g; #?
if ( $devicemode eq "Notify"
and $activecount == 0 )
{
# reading activity aktualisieren
readingsSingleUpdate( $own_hash, "state", 'active', 1 );
$activecount = 1;
}
# abfrage und setzten von blocking
# schalte blocking an , wenn anzahl grösser 0 und MSwitch_Wait gesetzt
my $mswait = $attr{$ownName}{MSwitch_Wait};
if ( !defined $mswait ) { $mswait = '0'; }
if ( $anzahl > 0 && $mswait > 0 ) {
readingsSingleUpdate( $own_hash, "waiting", ( time + $mswait ),
0 );
}
# abfrage und setzten von blocking ENDE
if ( $devicemode eq "Toggle"
&& $set eq 'on' )
{ # umschalten des devices nur im togglemode
my $cmd = '';
my $statetest = ReadingsVal( $ownName, 'state', 'on' );
$cmd = "set $ownName off" if $statetest eq 'on';
$cmd = "set $ownName on" if $statetest eq 'off';
MSwitch_LOG( $ownName, 6,
"$ownName: togglemode execute -> " . $cmd );
if ($debugmode ne '2' ) {
my $errors = AnalyzeCommandChain( undef, $cmd );
if ( defined($errors) ) {
MSwitch_LOG( $ownName, 1,
"$ownName MSwitch_Notify: Fehler bei Befehlsausführung $errors -> Comand: $_ "
. __LINE__ );
}
}
return;
}
}
#ausführen aller cmds in @cmdarray nach triggertest aber vor conditiontest
#my @cmdarray1; #enthält auszuführende befehle nach conditiontest
#schaltet zweig 3 und 4
# ACHTUNG
if ( $anzahl && $anzahl != 0 ) {
MSwitch_LOG( $ownName, 6,
"$ownName: abarbeiten aller befehle aus eventprüfung " );
#aberabeite aller befehlssätze in cmdarray
MSwitch_Safemode($own_hash);
LOOP31: foreach (@cmdarray) {
MSwitch_LOG( $ownName, 6, "$ownName: Befehl -> " . $_ );
if ( $_ eq 'undef' ) { next LOOP31; }
my ( $ar1, $ar2, $ar3, $ar4 ) = split( /,/, $_ );
if ( !defined $ar2 ) { $ar2 = ''; }
if ( $ar2 eq '' ) { next LOOP31; }
my $returncmd = 'undef';
$returncmd =
MSwitch_Exec_Notif( $own_hash, $ar2, $ar3, $ar4, $execids );
if ( defined $returncmd && $returncmd ne 'undef' ) {
# datensatz nur in cmdarray1 übernehme wenn
chop $returncmd; #CHANGE
MSwitch_LOG( $ownName, 5,
"$ownName: ergebniss execnotif datensatz to array -> "
. $returncmd );
push( @cmdarray1, $returncmd );
}
}
my $befehlssatz = join( ',', @cmdarray1 );
foreach ( split( /,/, $befehlssatz ) ) {
my $ecec = $_;
if ( !$ecec =~ m/set (.*)(MSwitchtoggle)(.*)/ ) {
if ( $attrrandomnumber ne '' )
{
MSwitch_Createnumber($own_hash);
}
MSwitch_LOG( $ownName, 6,
"$ownName: Befehlsausfuehrung -> " . $ecec );
if ( $debugmode ne '2' ) {
my $errors = AnalyzeCommandChain( undef, $_ );
if ( defined($errors) ) {
MSwitch_LOG( $ownName, 1,
"$ownName MSwitch_Notify: Fehler bei Befehlsausführung $errors -> Comand: $_ "
. __LINE__ );
}
}
if ( length($ecec) > 100 ) {
$ecec = substr( $ecec, 0, 100 ) . '....';
}
readingsSingleUpdate( $own_hash, "last_exec_cmd", $ecec, 1 )
if $ecec ne '';
}
else {
}
}
}
# ende loopeinzeleventtest
# schreibe gruppe mit events
my $events = '';
my $eventhash = $own_hash->{helper}{events}{$devName};
if ( $triggerdevice eq "all_events" ) {
$eventhash = $own_hash->{helper}{events}{all_events};
}
else {
$eventhash = $own_hash->{helper}{events}{$devName};
}
foreach my $name ( keys %{$eventhash} ) {
$events = $events . $name . '#[tr]';
}
chop($events);
chop($events);
chop($events);
chop($events);
chop($events);
if ( $events ne "" ) {
readingsSingleUpdate( $own_hash, ".Device_Events", $events, 1 );
}
# schreiben ende
# schalte modul an/aus bei entsprechendem notify
# teste auf condition
return if $set eq 'noset'; # keine MSwitch on/off incl cmd1/2 gefunden
###############################################################################################################
# schaltet zweig 1 und 2 , wenn $set befehl enthält , es wird nur MSwitch geschaltet, Devices werden dann 'mitgerissen'
my $cs;
if ( $triggerdevice eq "all_events" ) {
$cs = "set $ownName $set $devName:$trigevent";
}
else {
$cs = "set $ownName $set $trigevent";
}
MSwitch_LOG( $ownName, 6,
"$ownName MSwitch_Notif: Befehlsausfuehrung -> $cs " . __LINE__ );
# variabelersetzung
$cs =~ s/\$NAME/$own_hash->{helper}{eventfrom}/;
$cs =~ s/\$SELF/$ownName/;
if ( $attrrandomnumber ne '' ) {
MSwitch_Createnumber($own_hash);
}
MSwitch_LOG( $ownName, 6, "$ownName: Befehlsausführung -> " . $cs );
if ( $debugmode ne '2' ) {
my $errors = AnalyzeCommandChain( undef, $cs );
}
return;
}
}
#########################
sub MSwitch_fhemwebFn($$$$) {
# my $loglevel = 5;
my ( $FW_wname, $d, $room, $pageHash ) =
@_; # pageHash is set for summaryFn.
my $hash = $defs{$d};
my $Name = $hash->{NAME};
my $jsvarset = '';
my $j1 = '';
my $border = 0;
return if ( AttrVal( $Name, 'MSwitch_Mode', "Full" ) eq 'Dummy' );
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '4' ) {
$border = 0;
}
#versetzen nach ATTR
if ( AttrVal( $Name, 'MSwitch_RandomNumber', '' ) eq '' ) {
delete( $hash->{READINGS}{RandomNr} );
delete( $hash->{READINGS}{RandomNr1} );
}
####################
### teste auf new defined device
my $hidden = '';
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '4' ) {
$hidden = '';
}
else {
$hidden = 'hidden';
}
my $triggerdevices = '';
my $events = ReadingsVal( $Name, '.Device_Events', '' );
my @eventsall = split( /#\[tr\]/, $events );
my $Triggerdevice = ReadingsVal( $Name, 'Trigger_device', '' );
my $triggeron = ReadingsVal( $Name, '.Trigger_on', '' );
if ( !defined $triggeron ) { $triggeron = "" }
my $triggeroff = ReadingsVal( $Name, '.Trigger_off', '' );
if ( !defined $triggeroff ) { $triggeroff = "" }
my $triggercmdon = ReadingsVal( $Name, '.Trigger_cmd_on', '' );
if ( !defined $triggercmdon ) { $triggercmdon = "" }
my $triggercmdoff = ReadingsVal( $Name, '.Trigger_cmd_off', '' );
if ( !defined $triggercmdoff ) { $triggercmdoff = "" }
my $disable = "";
my %korrekt;
foreach (@eventsall) {
$korrekt{$_} = 'ok';
}
$korrekt{$triggeron} = 'ok';
$korrekt{$triggeroff} = 'ok';
$korrekt{$triggercmdon} = 'ok';
$korrekt{$triggercmdoff} = 'ok';
my @eventsallnew;
for my $name ( sort keys %korrekt ) {
push( @eventsallnew, $name );
}
@eventsall = @eventsallnew;
if ( AttrVal( $Name, 'MSwitch_Mode', 'Full' ) eq "Notify" ) {
readingsSingleUpdate( $hash, "state", 'active', 1 );
$triggeroff = "";
$triggeron = "";
}
if ( AttrVal( $Name, 'MSwitch_Mode', 'Full' ) eq "Toggle" ) {
$triggeroff = "";
$triggercmdoff = "";
$triggercmdon = "";
}
#eigene trigger festlegen
my $optionon = '';
my $optiongeneral = '';
my $optioncmdon = '';
my $alltriggers = '';
my $to = '';
my $toc = '';
LOOP12: foreach (@eventsall) {
$alltriggers =
$alltriggers . "<option value=\"$_\">" . $_ . "</option>";
if ( $_ eq 'no_trigger' ) {
next LOOP12;
}
if ( $triggeron eq $_ ) {
$optionon =
$optionon
. "<option selected=\"selected\" value=\"$_\">"
. $_
. "</option>";
$to = '1';
}
else {
$optionon = $optionon . "<option value=\"$_\">" . $_ . "</option>";
}
if ( $triggercmdon eq $_ ) {
$optioncmdon =
$optioncmdon
. "<option selected=\"selected\" value=\"$_\">"
. $_
. "</option>";
$toc = '1';
}
else {
$optioncmdon =
$optioncmdon . "<option value=\"$_\">" . $_ . "</option>";
}
#################### nur bei entsprechender regex
my $test = $_;
if ( $test =~ m/(.*)\((.*)\)(.*)/ ) {
}
else {
if ( index( $_, '*', 0 ) == -1 ) {
if (
ReadingsVal( $Name, 'Trigger_device', '' ) ne "all_events" )
{
$optiongeneral =
$optiongeneral
. "<option value=\"$_\">"
. $_
. "</option>";
}
else {
$optiongeneral =
$optiongeneral
. "<option value=\"$_\">"
. $_
. "</option>";
}
}
}
#####################
}
if ( $to eq '1' ) {
$optionon =
"<option value=\"no_trigger\">no_trigger</option>" . $optionon;
}
else {
$optionon =
"<option selected=\"selected\" value=\"no_trigger\">no_trigger</option>"
. $optionon;
}
if ( $toc eq '1' ) {
$optioncmdon =
"<option value=\"no_trigger\">no_trigger</option>" . $optioncmdon;
}
else {
$optioncmdon =
"<option selected=\"selected\" value=\"no_trigger\">no_trigger</option>"
. $optioncmdon;
}
my $optioncmdoff = '';
my $optionoff = '';
$to = '';
$toc = '';
LOOP14: foreach (@eventsall) {
if ( $_ eq 'no_trigger' ) { next LOOP14 }
if ( $triggeroff eq $_ ) {
$optionoff = $optionoff
. "<option selected=\"selected\" value=\"$_\">$_</option>";
$to = '1';
}
else {
$optionoff = $optionoff . "<option value=\"$_\">$_</option>";
}
if ( $triggercmdoff eq $_ ) {
$optioncmdoff = $optioncmdoff
. "<option selected=\"selected\" value=\"$_\">$_</option>";
$toc = '1';
}
else {
$optioncmdoff = $optioncmdoff . "<option value=\"$_\">$_</option>";
}
}
if ( $to eq '1' ) {
$optionoff =
"<option value=\"no_trigger\">no_trigger</option>" . $optionoff;
}
else {
$optionoff =
"<option selected=\"selected\" value=\"no_trigger\">no_trigger</option>"
. $optionoff;
}
if ( $toc eq '1' ) {
$optioncmdoff =
"<option value=\"no_trigger\">no_trigger</option>" . $optioncmdoff;
}
else {
$optioncmdoff =
"<option selected=\"selected\" value=\"no_trigger\">no_trigger</option>"
. $optioncmdoff;
}
$optionon =~ s/\[bs\]/|/g;
$optionoff =~ s/\[bs\]/|/g;
$optioncmdon =~ s/\[bs\]/|/g;
$optioncmdoff =~ s/\[bs\]/|/g;
####################
# mögliche affected devices und mögliche triggerdevices
my $devicesets;
my $deviceoption = "";
my $selected = "";
my $errors = "";
my $javaform = ""; # erhält javacode für übergabe devicedetail
my $cs = "";
my %cmdsatz; # ablage desbefehlssatzes jedes devices
my $globalon = 'off';
my $globalon1 = 'off';
if ( ReadingsVal( $Name, 'Trigger_device', 'no_trigger' ) eq 'no_trigger' )
{
$triggerdevices =
"<option selected=\"selected\" value=\"no_trigger\">no_trigger</option>";
}
else {
$triggerdevices = "<option value=\"no_trigger\">no_trigger</option>";
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' ) {
if ( ReadingsVal( $Name, 'Trigger_device', 'no_trigger' ) eq 'all_events' )
{
$triggerdevices .="<option selected=\"selected\" value=\"all_events\">GLOBAL</option>";
$globalon = 'on';
}
else
{
$triggerdevices .= "<option value=\"all_events\">GLOBAL</option>";
}
}
if ( ReadingsVal( $Name, 'Trigger_device', 'no_trigger' ) eq 'MSwitch_Self' )
{
$triggerdevices .="<option selected=\"selected\" value=\"MSwitch_Self\">MSwitch_Self ($Name)</option>";
}
else
{
$triggerdevices .= "<option value=\"MSwitch_Self\">MSwitch_Self ($Name)</option>";
}
my $affecteddevices = ReadingsVal( $Name, '.Device_Affected', 'no_device' );
# affected devices to hash
my %usedevices;
my @deftoarray = split( /,/, $affecteddevices );
my $anzahl = @deftoarray;
my $anzahl1 = @deftoarray;
my $anzahl3 = @deftoarray;
my @testidsdev = split( /#\[ND\]/,
ReadingsVal( $Name, '.Device_Affected_Details', 'no_device' ) );
#PRIORITY
# teste auf grössere PRIORITY als anzahl devices
foreach (@testidsdev) {
MSwitch_LOG( $Name, 5, "dev @testidsdev" );
my @testid = split( /#\[NF\]/, $_ );
my $x = 0;
MSwitch_LOG( $Name, 5, "devfelder @testid" );
my $id = $testid[13];
MSwitch_LOG( $Name, 5, "id $id" );
$anzahl = $id if $id > $anzahl;
}
#################################
my $reihenfolgehtml = "";
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' ) {
$reihenfolgehtml = "<select name = 'reihe' id=''>";
for ( my $i = 1 ; $i < $anzahl + 1 ; $i++ ) {
$reihenfolgehtml .= "<option value='$i'>$i</option>";
}
$reihenfolgehtml .= "</select>";
}
#########################################
#SHOW
# teste auf grössere PRIORITY als anzahl devices
foreach (@testidsdev)
#if (1 == 2)
{
MSwitch_LOG( $Name, 5, "dev @testidsdev" );
my @testid = split( /#\[NF\]/, $_ );
my $x = 0;
MSwitch_LOG( $Name, 5, "devfelder @testid" );
my $id = $testid[18];
MSwitch_LOG( $Name, 5, "id $id" );
$anzahl1 = $id if $id > $anzahl;
}
#################################
my $showfolgehtml = "";
$showfolgehtml = "<select name = 'showreihe' id=''>";
for ( my $i = 1 ; $i < $anzahl1 + 1 ; $i++ ) {
$showfolgehtml .= "<option value='$i'>$i</option>";
}
$showfolgehtml .= "</select>";
######################################
#ID
my $idfolgehtml = "";
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' ) {
$idfolgehtml = "<select name = 'idreihe' id=''>";
for ( my $i = -1 ; $i < $anzahl3 + 1 ; $i++ ) {
$idfolgehtml .= "<option value='$i'>$i</option>" if $i > 0;
$idfolgehtml .= "<option value='$i'>-</option>" if $i == 0;
}
$idfolgehtml .= "</select>";
}
foreach (@deftoarray) {
my ( $a, $b ) = split( /-/, $_ );
$usedevices{$a} = 'on';
}
my $notype = AttrVal( $Name, 'MSwitch_Ignore_Types', "" ) ;
my @found_devices;
my $setpattern = "";
my $setpattern1 = "";
###### ersetzung ATTR oder READING
if ($notype =~ /(.*)\[(ATTR|READING):(.*):(.*)\](.*)/)
{
my $devname = $3;
my $firstpart = $1;
my $lastpart = $5;
my $readname = $4;
my $type = $2;
$devname =~ s/\$SELF/$Name/;
my $magic = ".*";
$magic = AttrVal( $devname, $readname, ".*" ) if $type eq "ATTR";
$magic = ReadingsVal( $devname, $readname, '.*' ) if $type eq "READING";
$notype =$firstpart.$magic.$lastpart;
}
if ($notype =~ /(")(.*)(")/)
{
my $reg =$2;
if ($reg =~ /(.*?)(s)(!=|=)([a-zA-Z]{1,10})(:?)(.*)/)
{
$reg = $1.$5.$6;
$setpattern1 = $4;
$setpattern = "=~" if ($3 eq "=");
$setpattern = "!=" if ($3 eq "!=");
chop $reg if $6 eq "";
$reg =~ s/::/:/g;
}
@found_devices =devspec2array("$reg");
}
else
{
$notype =~ s/ /|/g;
@found_devices =devspec2array("TYPE!=$notype");
}
if ($setpattern eq "=~" )
{
my @found_devices_new;
my $re = qr/$setpattern1/;
for my $name (@found_devices)
{
my $cs = "set $name ?";
my $errors = AnalyzeCommandChain( undef, $cs );
if ($errors =~ /$re/)
{
push @found_devices_new, $name;
}
}
@found_devices = @found_devices_new;
}
if ($setpattern eq "!=" )
{
my @found_devices_new;
my $re = qr/$setpattern1/;
for my $name (@found_devices)
{
my $cs = "set $name ?";
my $errors = AnalyzeCommandChain( undef, $cs );
if ($errors !~ /$re/)
{
push @found_devices_new, $name;
}
}
@found_devices = @found_devices_new;
}
if (!grep {$_ eq $Name} @found_devices)
{
MSwitch_LOG( $Name, 5, "grep Devicetest $Name nicht vorhanden -> wird ergänzt" );
push @found_devices, $Name;
}
LOOP9: for my $name ( sort @found_devices) {
my $selectedtrigger = '';
my $devicealias = AttrVal( $name, 'alias', "" );
my $devicewebcmd =
AttrVal( $name, 'webCmd', "noArg" ); # webcmd des devices
my $devicehash = $defs{$name}; #devicehash
my $deviceTYPE = $devicehash->{TYPE};
# triggerfile erzeugen
if ( ReadingsVal( $Name, 'Trigger_device', '' ) eq $name ) {
$selectedtrigger = 'selected=\"selected\"';
if ( $name eq 'all_events' ) { $globalon = 'on' }
}
$triggerdevices .=
"<option $selectedtrigger value=\"$name\">$name (a:$devicealias t:$deviceTYPE)</option>";
# filter auf argumente on oder off ;
if ( $name eq '' ) { next LOOP9; }
my $cs = "set $name ?";
# abfrage und auswertung befehlssatz
if ( AttrVal( $Name, 'MSwitch_Include_Devicecmds', "1" ) eq '1' ) {
$errors = AnalyzeCommandChain( undef, $cs );
if ($errors) { }
}
else {
$errors = '';
}
if ( !defined $errors ) { $errors = '' }
my @tmparg = split( /of /, $errors );
if ( !defined $tmparg[1] ) { $tmparg[1] = "" }
if ( $tmparg[1] ne '' ) {
$errors = $tmparg[1];
}
else {
$errors = '';
}
$errors = '|' . $errors;
$errors =~ s/\| //g;
$errors =~ s/\|//g;
if ( $errors eq ''
&& AttrVal( $Name, 'MSwitch_Include_Webcmds', "1" ) eq '1' )
{
if ( $devicewebcmd ne "noArg" ) {
my $device = '';
my @webcmd = split( /:/, $devicewebcmd );
foreach (@webcmd) {
$_ =~ tr/ /:/;
my @parts = split( /:/, $_ );
if ( !defined $parts[1] || $parts[1] eq '' ) {
$device .= $parts[0] . ':noArg ';
}
else {
$device .= $parts[0] . ':' . $parts[1] . ' ';
}
}
chop $device;
$devicewebcmd = $device;
$errors = $devicewebcmd;
}
}
my $usercmds = AttrVal( $name, 'MSwitchcmd', '' );
if ( $usercmds ne ''
&& AttrVal( $Name, 'MSwitch_Include_MSwitchcmds', "1" ) eq '1' )
{
$usercmds =~ tr/:/ /;
$errors .= ' ' . $usercmds;
}
my $extensions = AttrVal( $Name, 'MSwitch_Extensions', "0" );
if ( $extensions eq '1' ) {
$errors .= ' ' . 'MSwitchtoggle';
}
if ( $errors ne '' ) {
$selected = "";
if ( exists $usedevices{$name} && $usedevices{$name} eq 'on' ) {
$selected = "selected=\"selected\" ";
}
$deviceoption =
$deviceoption
. "<option "
. $selected
. "value=\""
. $name . "\">"
. $name . " (a:"
. $devicealias
. ")</option>";
# befehlssatz für device in scalar speichern
$cmdsatz{$name} = $errors;
}
else { }
}
my $select = index( $affecteddevices, 'FreeCmd', 0 );
$selected = "";
if ( $select > -1 ) { $selected = "selected=\"selected\" " }
$deviceoption =
"<option "
. "value=\"FreeCmd\" "
. $selected
. ">Free Cmd (nicht an ein Device gebunden)</option>"
. $deviceoption;
$select = index( $affecteddevices, 'MSwitch_Self', 0 );
$selected = "";
if ( $select > -1 ) { $selected = "selected=\"selected\" " }
$deviceoption =
"<option "
. "value=\"MSwitch_Self\" "
. $selected
. ">MSwitch_Self ("
. $Name
. ")</option>"
. $deviceoption;
####################
# #devices details
# detailsatz in scalar laden
# my @devicedatails = split(/:/,ReadingsVal($Name, '.Device_Affected_Details', '')); #inhalt decice und cmds # durch komma getrennt
my %savedetails = MSwitch_makeCmdHash($Name);
my $detailhtml = "";
my @affecteddevices =
split( /,/, ReadingsVal( $Name, '.Device_Affected', 'no_device' ) );
#####################################
MSwitch_LOG( $Name, 5, "$Name: -> @affecteddevices" );
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1'
&& ReadingsVal( $Name, '.sortby', 'none' ) eq 'priority' )
{
#sortieren
my $typ = "_priority";
@affecteddevices = MSwitch_sort( $hash, $typ, @affecteddevices );
}
if ( ReadingsVal( $Name, '.sortby', 'none' ) eq 'show' ) {
#sortieren
my $typ = "_showreihe";
@affecteddevices = MSwitch_sort( $hash, $typ, @affecteddevices );
}
MSwitch_LOG( $Name, 5, "$Name: -> @affecteddevices" );
######################################
if ( $affecteddevices[0] ne 'no_device' ) {
$detailhtml =
"<table border='$border' class='block wide' id='MSwitchDetails' nm='MSwitch'>
<tr class='even'>
<td colspan='5'>device actions sortby:
<input type='hidden' id='affected' name='affected' size='40' value ='"
. ReadingsVal( $Name, '.Device_Affected', 'no_device' ) . "'>";
my $select = ReadingsVal( $Name, '.sortby', 'none' );
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) ne '1'
&& $select eq 'priority' )
{
$select = 'none';
readingsSingleUpdate( $hash, ".sortby", $select, 0 );
}
my $nonef = "";
#my $namef ="";
my $priorityf = "";
my $showf = "";
$nonef = 'selected="selected"' if $select eq 'none';
$priorityf = 'selected="selected"' if $select eq 'priority';
$showf = 'selected="selected"' if $select eq 'show';
$detailhtml .= '
<select name="sort" id="sort" onchange="changesort()" >
<option value="none" ' . $nonef . '>None</option>';
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' ) {
$detailhtml .=
'<option value="priority" '
. $priorityf
. '>Field Priority</option>';
}
$detailhtml .=
'<option value="show" ' . $showf . '>Field Show</option>';
$detailhtml .= "<br>&nbsp;</td></tr>"; #start
my $alert;
foreach (@affecteddevices) {
$alert = '';
my @devicesplit = split( /-AbsCmd/, $_ );
my $devicenamet = $devicesplit[0];
# prüfe auf nicht vorhandenes device
if ( $devicenamet ne "FreeCmd"
&& $devicenamet ne "MSwitch_Self"
&& !defined $cmdsatz{$devicenamet} )
{
$alert =
'<div style="color: #FF0000">Achtung: Dieses Device ist nicht vorhanden , bitte mit "set changed_renamed" korrigieren !</div>';
$cmdsatz{$devicenamet} = $savedetails{ $_ . '_on' } . " "
. $savedetails{ $_ . '_off' };
}
my $zusatz = "";
my $add = $devicenamet;
if ( $devicenamet eq "MSwitch_Self" ) {
$devicenamet = $Name;
$zusatz = "MSwitch_Self -> ";
$add = "MSwitch_Self";
}
my $devicenumber = $devicesplit[1];
my @befehlssatz = '';
if ( $devicenamet eq "FreeCmd" ) {
$cmdsatz{$devicenamet} = '';
}
@befehlssatz = split( / /, $cmdsatz{$devicenamet} );
my $aktdevice = $_;
## optionen erzeugen
my $option1html = '';
my $option2html = '';
my $selectedhtml = "";
if ( !defined( $savedetails{ $aktdevice . '_on' } ) ) {
my $key = '';
$key = $aktdevice . "_on";
$savedetails{$key} = 'no_action';
}
if ( !defined( $savedetails{ $aktdevice . '_off' } ) ) {
my $key = '';
$key = $aktdevice . "_off";
$savedetails{$key} = 'no_action';
}
if ( !defined( $savedetails{ $aktdevice . '_onarg' } ) ) {
my $key = '';
$key = $aktdevice . "_onarg";
$savedetails{$key} = '';
}
if ( !defined( $savedetails{ $aktdevice . '_offarg' } ) ) {
my $key = '';
$key = $aktdevice . "_offarg";
$savedetails{$key} = '';
}
if ( !defined( $savedetails{ $aktdevice . '_delayaton' } ) ) {
my $key = '';
$key = $aktdevice . "_delayaton";
$savedetails{$key} = 'delay1';
}
if ( !defined( $savedetails{ $aktdevice . '_delayatoff' } ) ) {
my $key = '';
$key = $aktdevice . "_delayatoff";
$savedetails{$key} = 'delay1';
}
if ( !defined( $savedetails{ $aktdevice . '_timeon' } ) ) {
my $key = '';
$key = $aktdevice . "_timeon";
#$savedetails{$key} = '000000'; #change
$savedetails{$key} = '00:00:00';
}
if ( !defined( $savedetails{ $aktdevice . '_timeoff' } ) ) {
my $key = '';
$key = $aktdevice . "_timeoff";
#$savedetails{$key} = '000000'; #change
$savedetails{$key} = '00:00:00';
}
if ( !defined( $savedetails{ $aktdevice . '_conditionon' } ) ) {
my $key = '';
$key = $aktdevice . "_conditionon";
$savedetails{$key} = '';
}
if ( !defined( $savedetails{ $aktdevice . '_conditionoff' } ) ) {
my $key = '';
$key = $aktdevice . "_conditionoff";
$savedetails{$key} = '';
}
foreach (@befehlssatz) #befehlssatz einfügen
{
my @aktcmdset =
split( /:/, $_ ); # befehl von noarg etc. trennen
$selectedhtml = "";
next if !defined $aktcmdset[0]; #changed 19.06
if ( $aktcmdset[0] eq $savedetails{ $aktdevice . '_on' } ) {
$selectedhtml = "selected=\"selected\"";
}
$option1html = $option1html
. "<option $selectedhtml value=\"$aktcmdset[0]\">$aktcmdset[0]</option>";
$selectedhtml = "";
if ( $aktcmdset[0] eq $savedetails{ $aktdevice . '_off' } ) {
$selectedhtml = "selected=\"selected\"";
}
$option2html = $option2html
. "<option $selectedhtml value=\"$aktcmdset[0]\">$aktcmdset[0]</option>";
}
if ( '' eq $savedetails{ $aktdevice . '_delayaton' } ) {
$savedetails{ $aktdevice . '_delayaton' } = 'delay1';
}
if ( '' eq $savedetails{ $aktdevice . '_delayatoff' } ) {
$savedetails{ $aktdevice . '_delayatoff' } = 'delay1';
}
if ( '' eq $savedetails{ $aktdevice . '_timeoff' } ) {
$savedetails{ $aktdevice . '_timeoff' } = '0';
}
if ( '' eq $savedetails{ $aktdevice . '_timeon' } ) {
$savedetails{ $aktdevice . '_timeon' } = '0';
}
$savedetails{ $aktdevice . '_onarg' } =~ s/#\[ti\]/~/g;
$savedetails{ $aktdevice . '_offarg' } =~ s/#\[ti\]/~/g;
$savedetails{ $aktdevice . '_onarg' } =~ s/#\[wa\]/|/g; #neu
$savedetails{ $aktdevice . '_offarg' } =~ s/#\[wa\]/|/g; #neu
my $dalias = '';
if ( $devicenamet ne "FreeCmd" ) {
$dalias = "(a: " . AttrVal( $devicenamet, 'alias', "no" ) . ")"
if AttrVal( $devicenamet, 'alias', "no" ) ne "no";
}
my $realname = '';
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '4' ) {
$realname =
"<input id='' name='devicename"
. $_
. "' size='20' value ='"
. $_ . "'>";
}
else {
$realname =
"<input type='$hidden' id='' name='devicename"
. $_
. "' size='20' value ='"
. $_ . "'>";
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' ) {
$detailhtml = $detailhtml . "
<tr class='odd'>
<td colspan='4' class='col1' style=\"width: 100%\">";
$detailhtml = $detailhtml
. "$zusatz $devicenamet $realname&nbsp&nbsp;&nbsp;$dalias $alert
</td>";
###################### priority
my $aktfolge = $reihenfolgehtml;
my $newname = "reihe" . $_;
my $tochange =
"<option value='$savedetails{ $aktdevice . '_priority' }'>$savedetails{ $aktdevice . '_priority' }</option>";
my $change =
"<option selected value='$savedetails{ $aktdevice . '_priority' }'>$savedetails{ $aktdevice . '_priority' }</option>";
$aktfolge =~ s/reihe/$newname/g;
$aktfolge =~ s/$tochange/$change/g;
$detailhtml = $detailhtml
. "<td nowrap style='text-align: right;' class='col1'>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$detailhtml = $detailhtml
. "<input name='info' type='button' value='?' onclick=\"javascript: info('priority')\">&nbsp;";
}
$detailhtml = $detailhtml . "priority: " . $aktfolge . "&nbsp;";
# ende
# show
#showfolgehtml
$aktfolge = $showfolgehtml;
$newname = "showreihe" . $_;
$tochange =
"<option value='$savedetails{ $aktdevice . '_showreihe' }'>$savedetails{ $aktdevice . '_showreihe' }</option>";
$change =
"<option selected value='$savedetails{ $aktdevice . '_showreihe' }'>$savedetails{ $aktdevice . '_showreihe' }</option>";
$aktfolge =~ s/showreihe/$newname/g;
$aktfolge =~ s/$tochange/$change/g;
$detailhtml = $detailhtml . "show: " . $aktfolge . "&nbsp;";
# ID
$aktfolge = $idfolgehtml;
$newname = "idreihe" . $_;
$tochange =
"<option value='$savedetails{ $aktdevice . '_id' }'>$savedetails{ $aktdevice . '_id' }</option>";
$change =
"<option selected value='$savedetails{ $aktdevice . '_id' }'>$savedetails{ $aktdevice . '_id' }</option>";
$aktfolge =~ s/idreihe/$newname/g;
$aktfolge =~ s/$tochange/$change/g;
$detailhtml = $detailhtml . "ID: " . $aktfolge;
$detailhtml = $detailhtml . "</td>";
# ende
}
else {
$detailhtml = $detailhtml . "
<tr class='odd'>
<td colspan='5' class='col1'>";
$detailhtml = $detailhtml
. "$zusatz $devicenamet $realname&nbsp&nbsp;&nbsp;$dalias $alert
</td>";
my $aktfolge = $showfolgehtml;
my $newname = "showreihe" . $_;
my $tochange =
"<option value='$savedetails{ $aktdevice . '_showreihe' }'>$savedetails{ $aktdevice . '_showreihe' }</option>";
my $change =
"<option selected value='$savedetails{ $aktdevice . '_showreihe' }'>$savedetails{ $aktdevice . '_showreihe' }</option>";
$aktfolge =~ s/showreihe/$newname/g;
$aktfolge =~ s/$tochange/$change/g;
$detailhtml = $detailhtml
. "<td nowrap style='text-align: right;' class='col1'>";
$detailhtml = $detailhtml . "show: " . $aktfolge . "&nbsp;";
}
$detailhtml = $detailhtml . "</td></tr>";
my $noschow = "style=\"display:none\"";
if ( AttrVal( $Name, 'MSwitch_Comments', "0" ) eq '1' ) {
$noschow = '';
}
$detailhtml = $detailhtml . "<tr class='odd' $noschow>
<td style='vertical-align:middle' colspan='5' class='col1'>
<textarea class=\"devdetails\" cols='100' rows='1' id='cmdcomment"
. $_
. "1' name='cmdcomment"
. $_ . "'>"
. $savedetails{ $aktdevice . '_comment' }
. "</textarea>
</td>
</tr>";
$detailhtml = $detailhtml . "<tr class=''>";
my $rephide = "style='display:none;'";
my $rows = 7;
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' ) {
$rephide = '';
$rows = 8;
}
$detailhtml = $detailhtml
. "<td rowspan='$rows' class='col2'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
if ( $devicenamet ne 'FreeCmd' ) {
$detailhtml = $detailhtml . "</td>
<td nowrap class='col2' style='text-align: left;'>
<table border='0'><tr>
<td nowrap class='col2' style='text-align: left;'>
<br>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$detailhtml = $detailhtml
. "<input name='info' type='button' value='?' onclick=\"javascript: info('onoff')\">&nbsp;";
}
$detailhtml = $detailhtml . "MSwitch 'cmd1':
Set <select class=\"devdetails2\" id='"
. $_
. "_on' name='cmdon"
. $_
. "' onchange=\"javascript: activate(document.getElementById('"
. $_
. "_on').value,'"
. $_
. "_on_sel','"
. $cmdsatz{$devicenamet}
. "','cmdonopt"
. $_
. "1')\" >
<option value='no_action'>no_action</option>";
$detailhtml = $detailhtml . $option1html;
$detailhtml = $detailhtml . "
</select>
<td nowrap valign=bottom id='" . $_ . "_on_sel'>&nbsp;</td>
</tr></table>
<td nowrap>
</td>
<td class='col2' style=\"width: 100%\">&nbsp;<br><input type='$hidden' id='cmdseton"
. $_
. "' name='cmdseton"
. $_
. "' size='20' value ='"
. $cmdsatz{$devicenamet} . "'>
<input type='$hidden' id='cmdonopt"
. $_
. "1' name='cmdonopt"
. $_
. "' size='20' value ='"
. $savedetails{ $aktdevice . '_onarg' }
. "'>&nbsp;&nbsp;&nbsp;";
}
else {
$savedetails{ $aktdevice . '_onarg' } =~ s/'/&#039/g;
$detailhtml = $detailhtml . "</td>
<td class='col2' nowrap style='text-align: left;vertical-align: middle;'>
<table><tr>
<td>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$detailhtml = $detailhtml
. "<input name='info' type='button' value='?' onclick=\"javascript: info('onoff')\">&nbsp;";
}
$detailhtml = $detailhtml . "MSwitch 'cmd1':</td>
<td><textarea class=\"devdetails\" cols='50' rows='3' id='cmdonopt"
. $_
. "1' name='cmdonopt"
. $_ . "'
>" . $savedetails{ $aktdevice . '_onarg' } . "</textarea>
</td>
</tr></table>
</td>";
$detailhtml = $detailhtml . "
<td style='text-align: left;' class='col2' nowrap id='" . $_
. "_on_sel'></td>
<td nowrap><input type='$hidden' id='"
. $_
. "_on' name='cmdon"
. $_
. "' size='20' value ='cmd'></td>
<td class='col2' style=\"width: 100%\">&nbsp;<br><input type='$hidden' id='cmdseton"
. $_ . "' name='cmdseton" . $_ . "' size='20' value ='cmd'>";
}
$detailhtml = $detailhtml . "</td><td></td></tr>";
# block off #$devicename
if ( $devicenamet ne 'FreeCmd' ) {
$detailhtml = $detailhtml . "
<tr class='even'>
<td class='col2' nowrap style='text-align: left;'>
<table><tr>
<td class='col2' nowrap style='text-align: left;'>
";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$detailhtml = $detailhtml
. "<input name='info' type='button' value='?' onclick=\"javascript: info('onoff')\">&nbsp;";
}
$detailhtml = $detailhtml . "MSwitch 'cmd2':
Set <select class=\"devdetails2\" id='"
. $_
. "_off' name='cmdoff"
. $_
. "' onchange=\"javascript: activate(document.getElementById('"
. $_
. "_off').value,'"
. $_
. "_off_sel','"
. $cmdsatz{$devicenamet}
. "','cmdoffopt"
. $_
. "1')\" >
<option value='no_action'>no_action</option>";
$detailhtml = $detailhtml
. $option2html; #achtung tausch $_ devicenamet oben unten
$detailhtml = $detailhtml . "
</select>
</td>
<td class='col2' nowrap id='" . $_ . "_off_sel' >&nbsp;</td>
</tr></table>
</td>
<td></td>
<td class='col2' nowrap>
<input type='$hidden' id='cmdsetoff"
. $_
. "' name='cmdsetoff"
. $_
. "' size='20' value ='"
. $cmdsatz{$devicenamet} . "'>
<input type='$hidden' id='cmdoffopt"
. $_
. "1' name='cmdoffopt"
. $_
. "' size='20' value ='"
. $savedetails{ $aktdevice . '_offarg' }
. "'>&nbsp;&nbsp;&nbsp;";
}
else {
$savedetails{ $aktdevice . '_offarg' } =~ s/'/&#039/g;
$detailhtml = $detailhtml . "
<tr class='even'>
<td class='col2' nowrap style='text-align: left;'>
<table><tr>
<td>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$detailhtml = $detailhtml
. "<input name='info' type='button' value='?' onclick=\"javascript: info('onoff')\">&nbsp;";
}
$detailhtml = $detailhtml . "MSwitch 'cmd2':</td>
<td>
<textarea class=\"devdetails\" cols='50' rows='3' id='cmdoffopt"
. $_ . "1' name='cmdoffopt" . $_ . "'
>" . $savedetails{ $aktdevice . '_offarg' } . "</textarea>
</td>
</tr></table>
</td>
<td style='text-align: left;' class='col2' nowrap id='" . $_
. "_off_sel' ></td>
<td><input type='$hidden' id='"
. $_
. "_off' name='cmdoff"
. $_
. "' size='20' value ='cmd'></td>
<td class='col2' nowrap>
<input type='$hidden' id='cmdsetoff"
. $_
. "' name='cmdsetoff"
. $_
. "' size='20' value ='cmd'>";
}
$detailhtml = $detailhtml . "</td><td></td></tr>";
$detailhtml = $detailhtml . "
<tr class='even'>
<td class='col2' colspan='4' nowrap style='text-align: left;'>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$detailhtml = $detailhtml
. "<input name='info' type='button' value='?' onclick=\"javascript: info('condition')\">&nbsp;";
}
$detailhtml =
$detailhtml
. "'cmd1' condition: <input class=\"devdetails\" type='text' id='conditionon"
. $_
. "' name='conditionon"
. $_
. "' size='55' value ='"
. $savedetails{ $aktdevice . '_conditionon' }
. "' onClick=\"javascript:bigwindow(this.id);\">&nbsp;&nbsp;&nbsp;";
my $exit1 = '';
$exit1 = 'checked' if $savedetails{ $aktdevice . '_exit1' } eq '1';
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' ) {
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$detailhtml = $detailhtml
. "<input name='info' type='button' value='?' onclick=\"javascript: info('exit')\">&nbsp;";
}
$detailhtml =
$detailhtml
. "<input type=\"checkbox\" $exit1 name='exit1"
. $_
. "' /> execute and exit if applies";
}
else {
$detailhtml =
$detailhtml
. "<input hidden type=\"checkbox\" $exit1 name='exit1"
. $_ . "' /> ";
}
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '1' ) {
$detailhtml =
$detailhtml
. "<input name='info' type='button' value='check condition' onclick=\"javascript: checkcondition('conditionon"
. $_
. "',document.querySelector('#checkon"
. $_
. "').value)\"> with \$EVENT=<select id = \"checkon"
. $_
. "\" name=\"checkon"
. $_ . "\">"
. $optiongeneral
. "</select>";
}
#alltriggers
$detailhtml = $detailhtml . "</td></tr>
<tr class='even'>
<td class='col2' colspan='4' nowrap style='text-align: left;'>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$detailhtml = $detailhtml
. "<input name='info' type='button' value='?' onclick=\"javascript: info('condition')\">&nbsp;";
}
$detailhtml =
$detailhtml
. "'cmd2' condition: <input class=\"devdetails\" type='text' id='conditionoff"
. $_
. "' name='conditionoff"
. $_
. "' size='55' value ='"
. $savedetails{ $aktdevice . '_conditionoff' }
. "' onClick=\"javascript:bigwindow(this.id);\">&nbsp;&nbsp;&nbsp;";
my $exit2 = '';
$exit2 = 'checked' if $savedetails{ $aktdevice . '_exit2' } eq '1';
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' ) {
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$detailhtml = $detailhtml
. "<input name='info' type='button' value='?' onclick=\"javascript: info('exit')\">&nbsp;";
}
$detailhtml =
$detailhtml
. "<input type=\"checkbox\" $exit2 name='exit2"
. $_
. "' /> execute and exit if applies";
}
else {
$detailhtml =
$detailhtml
. "<input hidden type=\"checkbox\" $exit2 name='exit1"
. $_ . "' /> ";
}
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '1' ) {
$detailhtml =
$detailhtml
. "<input name='info' type='button' value='check condition' onclick=\"javascript: checkcondition('conditionoff"
. $_
. "',document.querySelector('#checkoff"
. $_
. "').value)\"> with \$EVENT=<select id = \"checkoff"
. $_
. "\" name=\"checkoff"
. $_ . "\">"
. $optiongeneral
. "</select>";
}
#### zeitrechner
my $delaym = 0;
my $delays = 0;
my $delayh = 0;
my $timestroff;
my $testtimestroff = $savedetails{ $aktdevice . '_timeoff' };
if ( $testtimestroff ne '[random]' ) {
$testtimestroff =~ s/[A-Za-z0-9#\.\-_]//g;
if ( $testtimestroff eq "[:]" || $testtimestroff eq "[\$:]" ) {
$timestroff =
$savedetails{ $aktdevice . '_timeoff' }; #sekunden
}
else {
$timestroff =
$savedetails{ $aktdevice . '_timeoff' }; #sekunden
$delaym = int $timestroff / 60;
$delays = $timestroff - ( $delaym * 60 );
$delayh = int $delaym / 60;
$delaym = $delaym - ( $delayh * 60 );
$timestroff =
sprintf( "%02d:%02d:%02d", $delayh, $delaym, $delays );
}
}
else {
$timestroff = "[random]";
}
my $timestron;
my $testtimestron = $savedetails{ $aktdevice . '_timeon' };
if ( $testtimestron ne '[random]' ) {
$testtimestron =~ s/[A-Za-z0-9#\.\-_]//g;
if ( $testtimestron eq "[:]" || $testtimestron eq "[\$:]" ) {
$timestron =
$savedetails{ $aktdevice . '_timeon' }; #sekunden
}
else {
$timestron =
$savedetails{ $aktdevice . '_timeon' }; #sekunden
$delaym = int $timestron / 60;
$delays = $timestron - ( $delaym * 60 );
$delayh = int $delaym / 60;
$delaym = $delaym - ( $delayh * 60 );
$timestron =
sprintf( "%02d:%02d:%02d", $delayh, $delaym, $delays );
}
}
else {
$timestron = "[random]";
}
$detailhtml = $detailhtml . "</td></tr><tr class='even'>
<td class='col2' colspan='4' nowrap style='text-align: left;'>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$detailhtml = $detailhtml
. "<input name='info' type='button' value='?' onclick=\"javascript: info('timer')\">&nbsp;";
}
$detailhtml =
$detailhtml
. "'cmd1'&nbsp;<select id = '' name='onatdelay"
. $_ . "'>";
my $se11 = '';
my $sel2 = '';
my $sel3 = '';
my $sel4 = '';
my $sel5 = '';
my $sel6 = '';
my $testkey = $aktdevice . '_delaylaton';
$se11 = 'selected'
if ( $savedetails{ $aktdevice . '_delayaton' } eq "delay1" );
$sel2 = 'selected'
if ( $savedetails{ $aktdevice . '_delayaton' } eq "delay0" );
$sel5 = 'selected'
if ( $savedetails{ $aktdevice . '_delayaton' } eq "delay2" );
$sel4 = 'selected'
if ( $savedetails{ $aktdevice . '_delayaton' } eq "at0" );
$sel3 = 'selected'
if ( $savedetails{ $aktdevice . '_delayaton' } eq "at1" );
$sel6 = 'selected'
if ( $savedetails{ $aktdevice . '_delayaton' } eq "at2" );
$detailhtml = $detailhtml
. "<option $se11 value='delay1'>delay with Cond-check immediately and delayed: +</option>";
$detailhtml = $detailhtml
. "<option $sel2 value='delay0'>delay with Cond-check immediately only: +</option>";
$detailhtml = $detailhtml
. "<option $sel5 value='delay2'>delay with Cond-check delayed only: +</option>";
$detailhtml = $detailhtml
. "<option $sel4 value='at0'>at with Cond-check immediately and delayed:</option>";
$detailhtml = $detailhtml
. "<option $sel3 value='at1'>at with Cond-check immediately only:</option>";
$detailhtml = $detailhtml
. "<option $sel6 value='at0'>at with Cond-check delayed only:</option>";
$detailhtml =
$detailhtml
. "</select><input type='text' class=\"devdetails\" id='timeseton"
. $_
. "' name='timeseton"
. $_
. "' size='30' value ='"
. $timestron
. "'> (hh:mm:ss)</td></tr>";
$detailhtml = $detailhtml . "
<tr class='even'>
<td class='col2' colspan='4' nowrap style='text-align: left;'>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$detailhtml = $detailhtml
. "<input name='info' type='button' value='?' onclick=\"javascript: info('timer')\">&nbsp;";
}
$detailhtml =
$detailhtml
. "'cmd2'&nbsp;<select id = '' name='offatdelay"
. $_ . "'>";
$se11 = '';
$sel2 = '';
$sel3 = '';
$sel4 = '';
$sel5 = '';
$sel6 = '';
$testkey = $aktdevice . '_delaylatoff';
$se11 = 'selected'
if ( $savedetails{ $aktdevice . '_delayatoff' } eq "delay1" );
$sel2 = 'selected'
if ( $savedetails{ $aktdevice . '_delayatoff' } eq "delay0" );
$sel5 = 'selected'
if ( $savedetails{ $aktdevice . '_delayatoff' } eq "delay2" );
$sel4 = 'selected'
if ( $savedetails{ $aktdevice . '_delayatoff' } eq "at0" );
$sel3 = 'selected'
if ( $savedetails{ $aktdevice . '_delayatoff' } eq "at1" );
$sel6 = 'selected'
if ( $savedetails{ $aktdevice . '_delayatoff' } eq "at2" );
$detailhtml = $detailhtml
. "<option $se11 value='delay1'>delay with Cond-check immediately and delayed: +</option>";
$detailhtml = $detailhtml
. "<option $sel2 value='delay0'>delay with Cond-check immediately only: +</option>";
$detailhtml = $detailhtml
. "<option $sel5 value='delay2'>delay with Cond-check delayed only: +</option>";
$detailhtml = $detailhtml
. "<option $sel4 value='at0'>at with Cond-check immediately and delayed:</option>";
$detailhtml = $detailhtml
. "<option $sel3 value='at1'>at with Cond-check immediately only:</option>";
$detailhtml = $detailhtml
. "<option $sel6 value='at0'>at with Cond-check delayed only:</option>";
$detailhtml =
$detailhtml
. "</select><input type='text' class=\"devdetails\" id='timesetoff"
. $_
. "' name='timesetoff"
. $_
. "' size='30' value ='"
. $timestroff
. "'> (hh:mm:ss)&nbsp;&nbsp;&nbsp;";
$detailhtml = $detailhtml . "</td></tr>";
$detailhtml = $detailhtml . "<tr $rephide class='even'>
<td class='col2' colspan='4' style='text-align: left;'>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$detailhtml = $detailhtml
. "<input name='info' type='button' value='?' onclick=\"javascript: info('repeats')\">&nbsp;";
}
$detailhtml = $detailhtml . "Repeats:
<input type='text' id='repeatcount' name='repeatcount"
. $_
. "' size='10' value ='"
. $savedetails{ $aktdevice . '_repeatcount' } . "'>
&nbsp;&nbsp;&nbsp;
Repeatdelay in sec:
<input type='text' id='repeattime' name='repeattime"
. $_
. "' size='10' value ='"
. $savedetails{ $aktdevice . '_repeattime' } . "'>
</td></tr>";
$detailhtml = $detailhtml . "<tr $rephide class='even'>
<td class='col2' colspan='4' style='text-align: left;'>
<br>
</td></tr>";
$detailhtml = $detailhtml . "<tr class='even'>
<td class='col2' colspan='5' style='text-align: left;'>";
if ( $devicenumber == 1 ) {
$detailhtml =
$detailhtml
. "<input name='info' class=\"randomidclass\" id=\"add_action1_"
. rand(1000000)
. "\" type='button' value='add action for $add' onclick=\"javascript: addevice('$add')\">";
}
$detailhtml =
$detailhtml
. "<input name='info' id=\"del_action1_"
. rand(1000000)
. "\" class=\"randomidclass\" type='button' value='delete this action for $add' onclick=\"javascript: deletedevice('$_')\">";
$detailhtml = $detailhtml . "<br>&nbsp;</td></tr>";
#middle
####################change1 = change.replace(/,/g,'##');
# javazeile für übergabe erzeugen
$javaform = $javaform . "
devices += \$(\"[name=devicename$_]\").val();
devices += '#[DN]';
devices += \$(\"[name=cmdon$_]\").val()+'#[NF]';
devices += \$(\"[name=cmdoff$_]\").val()+'#[NF]';
change = \$(\"[name=cmdonopt$_]\").val();
devices += change+'#[NF]';;
change = \$(\"[name=cmdoffopt$_]\").val();
devices += change+'#[NF]';;
devices += \$(\"[name=onatdelay$_]\").val();
devices += '#[NF]';
devices += \$(\"[name=offatdelay$_]\").val();
devices += '#[NF]';
delay1 = \$(\"[name=timesetoff$_]\").val();
devices += delay1+'#[NF]';
delay2 = \$(\"[name=timeseton$_]\").val();
devices += delay2+'#[NF]';
devices1 = \$(\"[name=conditionon$_]\").val();
devices2 = \$(\"[name=conditionoff$_]\").val();
devices2 = devices2.replace(/\\|/g,'(DAYS)');
devices += devices1+'#[NF]';
devices += devices2;
devices += '#[NF]';
devices3 = \$(\"[name=repeatcount$_]\").val();
devices += devices3;
devices += '#[NF]';
devices += \$(\"[name=repeattime$_]\").val();
devices += '#[NF]';
devices += \$(\"[name=reihe$_]\").val();
devices += '#[NF]';
devices += \$(\"[name=idreihe$_]\").val();
devices += '#[NF]';
devices += \$(\"[name=cmdcomment$_]\").val();
devices += '#[NF]';
devices += \$(\"[name=exit1$_]\").prop(\"checked\") ? \"1\":\"0\";
devices += '#[NF]';
devices += \$(\"[name=exit2$_]\").prop(\"checked\") ? \"1\":\"0\";
devices += '#[NF]';
devices += \$(\"[name=showreihe$_]\").val();
devices += '#[DN]';
";
}
####################
$detailhtml = $detailhtml;
$detailhtml = $detailhtml . "<tr class='even'><td colspan='5'><left>
<input type='button' id='aw_det' value='modify Actions' >
</td></tr></table>"; #end
}
####################
my $triggercondition = ReadingsVal( $Name, '.Trigger_condition', '' );
$triggercondition =~ s/~/ /g;
$triggercondition =~ s/#\[dp\]/:/g;
$triggercondition =~ s/#\[pt\]/./g;
$triggercondition =~ s/#\[ti\]/~/g;
$triggercondition =~ s/#\[sp\]/ /g;
my $triggertime = ReadingsVal( $Name, '.Trigger_time', '' );
$triggertime =~ s/#\[dp\]/:/g;
my @triggertimes = split( /~/, $triggertime );
my $condition = ReadingsVal( $Name, '.Trigger_time', '' );
my $lenght = length($condition);
my $timeon = '';
my $timeoff = '';
my $timeononly = '';
my $timeoffonly = '';
my $timeonoffonly = '';
if ( $lenght != 0 ) {
$timeon = substr( $triggertimes[0], 2 );
$timeoff = substr( $triggertimes[1], 3 );
$timeononly = substr( $triggertimes[2], 6 );
$timeoffonly = substr( $triggertimes[3], 7 );
$timeonoffonly = substr( $triggertimes[4], 9 );
}
my $ret = '';
$ret .= "<p id=\"triggerdevice\">";
########################
my $blocking = '';
$blocking = $hash->{helper}{savemodeblock}{blocking}
if ( defined $hash->{helper}{savemodeblock}{blocking} );
if ( $blocking eq 'on' ) {
$ret .= "<table border='$border' class='block wide' id=''>
<tr class='even'>
<td><center>&nbsp;<br>ACHTUNG: Der Safemodus hat eine Endlosschleife erkannt, welche zum Fhemabsturz führen könnte.<br>Dieses Device wurde automatisch deaktiviert ( ATTR 'disable') !<br>&nbsp;
</td></tr></table><br>&nbsp;<br>
";
}
my $errortest = "";
$errortest = $hash->{helper}{error} if ( defined $hash->{helper}{error} );
if ( $errortest ne "" ) {
$ret .= "<table border='$border' class='block wide' id=''>
<tr class='even'>
<td><center>&nbsp;<br>AT-Kommandos können nicht ausgeführt werden !<br>"
. $errortest
. "<br>&nbsp;
</td></tr></table><br>&nbsp;<br>
";
}
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '2'
|| AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '3' )
{
my $Zeilen = ("");
open( BACKUPDATEI, "./log/MSwitch_debug_$Name.log" );
while (<BACKUPDATEI>) {
$Zeilen = $Zeilen . $_;
}
close(BACKUPDATEI);
my $text = "";
$text =
"Das Device befindet sich im Debug 2 Mode. Es werden keine Befehle ausgeführt, sondern nur protokolliert."
if AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '2';
$text =
"Das Device befindet sich im Debug 3 Mode. Alle Aktionen werden protokolliert."
if AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '3';
$ret .= "<table border='$border' class='block wide' id=''>
<tr class='even'>
<td><center>&nbsp;<br>
$text<br>&nbsp;<br>
<textarea name=\"log\" id=\"log\" rows=\"5\" cols=\"160\" STYLE=\"font-family:Arial;font-size:9pt;\">"
. $Zeilen . "</textarea>
<br>&nbsp;<br>
<input type=\"button\" id=\"\"
value=\"clear log\" onClick=\"clearlog();\">
<br>&nbsp;<br>
</td></tr></table><br>
<br>
";
}
if ( ReadingsVal( $Name, '.info', 'undef' ) ne "undef" ) {
$ret .= "
<table border='$border' class='block wide' id=''>
<tr class='even'>
<td colspan ='3'><center><br>&nbsp;";
$ret .= ReadingsVal( $Name, '.info', '' );
$ret .= "<br>&nbsp;</td></tr></table><br>
<br>
";
}
# anpassung durch configeinspielung
if ( ReadingsVal( $Name, '.change', 'undef' ) ne "undef" ) {
# geräteliste
my $dev;
for my $name ( sort keys %defs ) {
my $devicealias = AttrVal( $name, 'alias', "" );
my $devicewebcmd = AttrVal( $name, 'webCmd', "noArg" );
my $devicehash = $defs{$name};
my $deviceTYPE = $devicehash->{TYPE};
$dev .=
"<option selected=\"\" value=\"$name\">"
. $name . " (a: "
. $devicealias
. ")</option>";
}
my $sel = "<select id = \"CID\" name=\"trigon\">" . $dev . "</select>";
my @change = split( "\\|", ReadingsVal( $Name, '.change', 'undef' ) );
my $out = '';
my $count = 0;
foreach my $changes (@change) {
my @set = split( "#", $changes );
$out .= "<tr class='even'>";
$out .= "<td>";
$out .= $set[1];
$out .= "</td>";
$out .= "<td>";
$out .= "</td>";
$out .= "<td>";
$out .=
"<input type='' id='cdorg"
. $count
. "' name='' value ='$set[0]' disabled> ersetzen durch:";
if ( $set[2] eq "device" ) {
my $newstring = $sel;
my $newname = "cdnew" . $count;
$newstring =~ s/CID/$newname/g;
$out .= $newstring;
}
else {
$out .=
"&nbsp;<input type='' id='cdnew"
. $count
. "' name='' size='20' value =''>";
}
$out .= "</td>";
$out .= "</tr>";
$count++;
}
$ret .= "
<table border='$border' class='block wide' id=''>
<tr class='even'>
<td colspan ='3'><center>&nbsp;<br>Eingriff erforderlich !<br>&nbsp;";
$ret .= ReadingsVal( $Name, '.change_info', '' );
$ret .= "</td></tr>" . $out . "
<tr class='even'>
<td colspan ='3'><center>&nbsp;<br>
<input type=\"button\" id=\"\"
value=\"save changes\" onClick=\"changedevices();\">
<br>&nbsp;<br>
</td></tr></table><br>
<br>
";
$j1 = "<script type=\"text/javascript\">{";
$j1 .=
"var t=\$(\"#MSwitchWebTR\"), ip=\$(t).attr(\"ip\"), ts=\$(t).attr(\"ts\");
FW_replaceWidget(\"[name=aw_ts]\", \"aw_ts\", [\"time\"], \"12:00\");
\$(\"[name=aw_ts] input[type=text]\").attr(\"id\", \"aw_ts\");";
$j1 .= "function changedevices(){
var count = $count;
var string = '';
for (i=0; i<count; i++)
{
var field1 = 'cdorg'+i;
var field2 = 'cdnew'+i;
string += document.getElementById(field1).value + '#' + document.getElementById(field2).value + '|';
}
var strneu = string.substr(0, string.length-1);
strneu = strneu.replace(/ /g,'#[sp]');
var def = \"" . $Name . "\"+\" confchange \"+encodeURIComponent(strneu);
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
}";
$j1 .= "}</script>";
return "$ret" . "$j1";
}
if ( ReadingsVal( $Name, '.wrong_version', 'undef' ) ne "undef" ) {
$ret .= "<table border='$border' class='block wide' id=''>
<tr class='even'>
<td><center>&nbsp;<br>Einspielen des Configfiles nicht möglich !<br>falsche Versionsnummer: "
. ReadingsVal( $Name, '.wrong_version', '' )
. "<br>geforderte Versionsnummer $vupdate<br>&nbsp;
</td></tr></table><br>
<br>
";
fhem("deletereading $Name .wrong_version");
}
if ( ReadingsVal( $Name, '.V_Check', $vupdate ) ne $vupdate ) {
my $ver = ReadingsVal( $Name, '.V_Check', '' );
$ret .= "<table border='$border' class='block wide' id=''>
<tr class='even'>
<td><center>&nbsp;<br>Versionskonflikt erkannt!<br>Das Device führt derzeit keine Aktionen aus. Bitte ein Update des Devices vornehmen.<br>Erwartete Strukturversionsnummer: $vupdate<br>Vorhandene Strukturversionsnummer: $ver <br>&nbsp;<br>
<input type=\"button\" id=\"\"
value=\"try update to $vupdate\" onClick=\"vupdate();\">
<br>&nbsp;<br>
</td></tr></table><br>
<br>
";
$j1 = "<script type=\"text/javascript\">{";
$j1 .=
"var t=\$(\"#MSwitchWebTR\"), ip=\$(t).attr(\"ip\"), ts=\$(t).attr(\"ts\");
FW_replaceWidget(\"[name=aw_ts]\", \"aw_ts\", [\"time\"], \"12:00\");
\$(\"[name=aw_ts] input[type=text]\").attr(\"id\", \"aw_ts\");";
$j1 .= "function vupdate(){
conf='';
var def = \"" . $Name . "\"+\" VUpdate \"+encodeURIComponent(conf);
//alert(def);
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
}";
$j1 .= "}</script>";
return "$ret" . "$j1";
}
$ret .= "<table border='$border' class='block wide' id=''>
<tr class='even'>
<td><center>&nbsp;<br>Device is disabled, configuration avaible<br>&nbsp;<br>
</td></tr></table><br>" if ( IsDisabled($Name) );
####################
$ret .=
"<table border='$border' class='block wide' id='MSwitchWebTR' nm='$hash->{NAME}'>";
$ret .= " <tr class=\"even\">";
$ret .=
"<td colspan=\"3\" id =\"savetrigger\">trigger device/time:&nbsp;&nbsp;&nbsp;";
$ret = $ret . "</td>
</tr>
<tr class=\"even\">
<td></td>
<td></td>
<td></td>
</tr>
<tr class=\"even\">
<td>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$ret = $ret
. "<input name='info' type='button' value='?' onclick=\"javascript: info('trigger')\">&nbsp;";
}
$ret .= "Trigger device: </td>
<td colspan =\"2\">
<select id =\"trigdev\" name=\"trigdev\">" . $triggerdevices . "</select>
</td>
</tr>";
my $visible = 'visible';
if ( $globalon ne 'on' ) {
$visible = 'collapse';
}
my $visible1 = 'visible';
if ( $globalon1 ne 'on' ) {
$visible1 = 'collapse';
}
$ret =
$ret
. "<tr class=\"even\" id='triggerwhitelist' style=\"visibility:"
. $visible . ";\" >
<td nowrap>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$ret = $ret
. "<input name='info' type='button' value='?' onclick=\"javascript: info('whitelist')\">&nbsp;";
}
$ret = $ret . "Trigger Device Global Whitelist:
</td>
<td></td>
<td><input type='text' id ='triggerwhite' name='triggerwhitelist' size='30' value ='"
. ReadingsVal( $Name, '.Trigger_Whitelist', '' )
. "' onClick=\"javascript:bigwindow(this.id);\" >";
$ret = $ret . "</td></tr>";
my $inhalt = "execute 'cmd1' only at :";
my $inhalt1 = "execute 'cmd2' only at :";
my $inhalt6 = "execute 'cmd1+cmd2' only at :";
my $inhalt2 = "execute 'cmd1' only";
my $inhalt3 = "execute 'cmd2' only";
my $inhalt4 = "switch MSwitch on + execute 'cmd1' at :";
my $inhalt5 = "switch $Name on + execute 'cmd1'";
my $displaynot = '';
my $displayntog = '';
my $help = "";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$help =
"<input name='info' type='button' value='?' onclick=\"javascript: info('execcmd')\">&nbsp;";
}
if ( AttrVal( $Name, 'MSwitch_Mode', 'Full' ) eq "Notify" ) {
$displaynot = "style='display:none;'";
$inhalt = "execute 'cmd1' at :";
$inhalt1 = "execute 'cmd2' at :";
$inhalt2 = $help . "execute 'cmd1'";
$inhalt3 = $help . "execute 'cmd2'";
}
if ( AttrVal( $Name, 'MSwitch_Mode', 'Full' ) eq "Toggle" ) {
$displayntog = "style='display:none;'";
$inhalt4 = "toggle $Name + execute 'cmd1/cmd2' at :";
$inhalt5 = "toggle $Name + execute 'cmd1/cmd2'";
}
$ret = $ret . "
<tr class=\"even\">
<td>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$ret = $ret
. "<input name='info' type='button' value='?' onclick=\"javascript: info('trigger')\">&nbsp;";
}
$ret = $ret . "Trigger time: </td>
<td></td>
<td>
</td>
</tr>
<tr " . $displaynot . " class=\"even\">
<td></td>
<td>" . $inhalt4 . "</td>
<td><input type='text' id='timeon' name='timeon' size='60' value ='"
. $timeon . "'></td>
</tr>
<tr " . $displaynot . $displayntog . " class=\"even\">
<td></td>
<td>switch MSwitch off + execute 'cmd2' at :</td>
<td><input type='text' id='timeoff' name='timeoff' size='60' value ='"
. $timeoff . "'></td>
</tr>
<tr " . $displayntog . "class=\"even\">
<td></td>
<td>" . $inhalt . "</td>
<td><input type='text' id='timeononly' name='timeononly' size='60' value ='"
. $timeononly . "'></td>
</tr>
<tr " . $displayntog . "class=\"even\">
<td></td>
<td>" . $inhalt1 . "</td>
<td><input type='text' id='timeoffonly' name='timeoffonly' size='60' value ='"
. $timeoffonly . "'></td>
</tr>
<tr" . $displayntog . "class=\"even\">
<td></td>
<td>" . $inhalt6 . "</td>
<td><input type='text' id='timeonoffonly' name='timeonoffonly' size='60' value ='"
. $timeonoffonly . "'></td>
</tr>";
my $triggerinhalt = "Trigger condition (events only): ";
if ( AttrVal( $Name, 'MSwitch_Condition_Time', "0" ) eq '1' ) {
$triggerinhalt = "Trigger condition (time&events): ";
}
$ret = $ret . "<tr class=\"even\">
<td>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$ret = $ret .=
"<input name='info' type='button' value='?' onclick=\"javascript: info('triggercondition')\">&nbsp;";
}
$ret = $ret . $triggerinhalt . "</td>
<td></td>
<td><input type='text' id='triggercondition' name='triggercondition' size='60' value ='"
. $triggercondition . "' onClick=\"javascript:bigwindow(this.id);\" >";
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '1' ) {
$ret = $ret
. " <input name='info' type='button' value='check condition' onclick=\"javascript: checkcondition('triggercondition','$Name:trigger:conditiontest')\">";
}
$ret = $ret . "</td></tr>";
$ret = $ret . "<tr class=\"even\">
<td colspan=\"3\"><left>
<input type=\"button\" id=\"aw_trig\" value=\"modify Trigger Device\"$disable>
</td>
</tr>
</table></p>";
####################
# triggerdetails
my $selectedcheck3 = "";
my $SELF = $Name;
my $testlog = ReadingsVal( $Name, 'Trigger_log', 'on' );
if ( $testlog eq 'on' ) {
$selectedcheck3 = "checked=\"checked\"";
}
if ( ReadingsVal( $Name, 'Trigger_device', 'no_trigger' ) ne 'no_trigger' )
{
$ret .=
"<table border='$border' class='block wide' id='MSwitchWebTRDT' nm='$hash->{NAME}'>
<tr class=\"even\">
<td id =\"triggerdetails\">trigger details :</td>
<td></td>
<td></td>
</tr>
<tr class=\"even\">
<td></td>
<td></td>
<td></td>
</tr>";
$ret .= "<tr " . $displaynot . " class=\"even\"><td>";
$ret .= $inhalt5 . "</td><td>";
$ret .= "Trigger " . $Triggerdevice . " :
</td>
<td>";
$ret .= "<select id = \"trigon\" name=\"trigon\">" . $optionon . "</select>";
##############
my $fieldon ="";
if ( $triggeron =~ m/{(.*)}/ )
{
my $exec = "\$fieldon = ".$1;
eval ($exec);
$ret .= "<input style='background-color:#e5e5e5;' name='info' readonly value='value = ".$fieldon."'>" ;
}
#####################
$ret .= "</td>
</tr>
<tr " . $displaynot . $displayntog . "class=\"even\">
<td>
switch " . $Name . " off + execute 'cmd2'</td>
<td>
Trigger " . $Triggerdevice . " :
</td>
<td>";
$ret .= "<select id = \"trigoff\" name=\"trigoff\">" . $optionoff . "</select>";
##############
my $fieldoff ="";
if ( $triggeroff =~ m/{(.*)}/ )
{
my $exec = "\$fieldoff = ".$1;
eval ($exec);
$ret .= "<input style='background-color:#e5e5e5;' name='info' readonly value='value = ".$fieldoff."'>" ;
}
#####################
$ret .= "</td>
</tr>";
$ret .= "<tr class=\"even\">
<td colspan=\"3\" >&nbsp</td>
</tr>
<tr " . $displayntog . " class=\"even\">
<td>" . $inhalt2 . "</td>
<td>
Trigger " . $Triggerdevice . " :
</td>
<td>
<select id = \"trigcmdon\" name=\"trigcmdon\">" . $optioncmdon . "</select>";
##############
my $fieldcmdon ="";
if ( $triggercmdon =~ m/{(.*)}/ )
{
my $exec = "\$fieldcmdon = ".$1;
eval ($exec);
$ret .= "<input style='background-color:#e5e5e5;' name='info' readonly value='value = ".$fieldcmdon."'>" ;
}
#####################
$ret .= "</td>
</tr>
<tr " . $displayntog . "class=\"even\">
<td>" . $inhalt3 . "</td>
<td>
Trigger " . $Triggerdevice . " :
</td>
<td>
<select id = \"trigcmdoff\" name=\"trigcmdoff\">"
. $optioncmdoff . "</select>";
##############
my $fieldcmdoff ="";
if ( $triggercmdoff =~ m/{(.*)}/ )
{
my $exec = "\$fieldcmdoff = ".$1;
eval ($exec);
$ret .= "<input style='background-color:#e5e5e5;' name='info' readonly value='value = ".$fieldcmdoff."'>" ;
}
#####################
$ret .= "</td>
</tr>
<tr class=\"even\">
<td colspan=\"1\"><left>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$ret = $ret
. "<input name='info' type='button' value='?' onclick=\"javascript: info('saveevent')\">&nbsp;";
}
$ret = $ret . "Save incomming events :
</td>
<td><input $selectedcheck3 name=\"aw_save\" type=\"checkbox\" $disable></td>
<td></td>
</tr>
<tr class=\"even\">
<td colspan=\"1\"><left>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$ret = $ret
. "<input name='info' type='button' value='?' onclick=\"javascript: info('addevent')\">&nbsp;";
}
$ret .= "Add event manually :
</td>
<td><left>
<input type='text' id='add_event' name='add_event' size='40' value =''>
<input type=\"button\" id=\"aw_addevent\" value=\"add event\"$disable>";
$ret .= "</td>
<td><left>
</td>
</tr>
<tr class=\"even\">
<td colspan=\"2\"><left>
<input type=\"button\" id=\"aw_md\" value=\"modify Trigger\"$disable>
<input type=\"button\" id=\"aw_md1\" value=\"apply filter to saved events\" $disable>
<input type=\"button\" id=\"aw_md2\" value=\"clear saved events\"$disable>&nbsp;&nbsp;&nbsp;
</td>
<td><left>";
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '1'
&& $optiongeneral ne '' )
{
$ret .=
"<select id = \"eventtest\" name=\"eventtest\">"
. $optiongeneral
. "</select><input type=\"button\" id=\"aw_md2\" value=\"test event\"$disable onclick=\"javascript: checkevent(document.querySelector('#eventtest').value)\">";
}
$ret .= "</td></tr> </table></p>";
}
else {
$ret .= "<p id=\"MSwitchWebTRDT\"></p>";
}
# affected devices
$ret .=
"<table border='$border' class='block wide' id='MSwitchWebAF' nm='$hash->{NAME}'>
<tr class=\"even\">
<td>affected devices :</td>
<td></td>
<td></td>
</tr>
<tr class=\"even\">
<td>
</td>
<td>
</td>
<td></td>
</tr>
<tr class=\"even\">
<td>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
$ret .=
"<input name='info' type='button' value='?' onclick=\"javascript: info('affected')\">&nbsp;";
}
$ret .= "multiple selection with ctrl + mousebutton</td>
<td><p id =\"textfie\">
<select id =\"devices\" multiple=\"multiple\" name=\"affected_devices\" size=\"6\" disabled >";
$ret .= $deviceoption;
$ret .= "</select>
</p>
</td>
<td><center>
<input type=\"button\" id=\"aw_great\"
value=\"edit list\" onClick=\"javascript:deviceselect();\">
<br>
<input onChange=\"javascript:switchlock();\" checked=\"checked\" id=\"lockedit\" name=\"lockedit\" type=\"checkbox\" value=\"lockedit\" /> quickedit locked
<br>
<br>
</td>
</tr>
<tr class=\"even\">
<td><leftt>
<input type=\"button\" id=\"aw_dev\" value=\"modify Devices\"$disable>
</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table>";
####################
#javascript$jsvarset
my $triggerdevicehtml = $Triggerdevice;
$triggerdevicehtml =~ s/\(//g;
$triggerdevicehtml =~ s/\)//g;
$j1 = "<script type=\"text/javascript\">{";
if ( AttrVal( $Name, 'MSwitch_Lock_Quickedit', "1" ) eq '0' ) {
$j1 .= "
\$(\"#devices\").prop(\"disabled\", false);
document.getElementById('aw_great').value='schow greater list';
document.getElementById('lockedit').checked = false ;
";
}
if ( $affecteddevices[0] ne 'no_device' ) {
$j1 .= "
var affected = document.getElementById('affected').value
var devices = affected.split(\",\");
var i;
var len = devices.length;
for (i=0; i<len; i++)
{
testname = devices[i].split(\"-\");
if (testname[0] == \"FreeCmd\") {
continue;
}
sel = devices[i] + '_on';
sel1 = devices[i] + '_on_sel';
sel2 = 'cmdonopt' + devices[i] + '1';
sel3 = 'cmdseton' + devices[i];
aktcmd = document.getElementById(sel).value;
aktset = document.getElementById(sel3).value;
activate(document.getElementById(sel).value,sel1,aktset,sel2);
sel = devices[i] + '_off';
sel1 = devices[i] + '_off_sel';
sel2 = 'cmdoffopt' + devices[i] + '1';
sel3 = 'cmdsetoff' + devices[i];
aktcmd = document.getElementById(sel).value;
aktset = document.getElementById(sel3).value;
activate(document.getElementById(sel).value,sel1,aktset,sel2);
};"
}
# java wird bei seitenaufruf ausgeführt
$j1 .= "
var globallock='';
var randomdev=[];
var x = document.getElementsByClassName('randomidclass');
for (var i = 0; i < x.length; i++)
{
var t = x[i].id;
randomdev.push(t);
}";
$j1 .= "
var globaldetails2='undefined';
var x = document.getElementsByClassName('devdetails2');
for (var i = 0; i < x.length; i++)
{
var t = x[i].id;
globaldetails2 +=document.getElementById(t).value;
}
var globaldetails='undefined';
var x = document.getElementsByClassName('devdetails');
for (var i = 0; i < x.length; i++)
{
var t = x[i].id;
globaldetails +=document.getElementById(t).value;
document.getElementById(t).onchange = function()
{
//alert('changed');
var changedetails;
var y = document.getElementsByClassName('devdetails');
for (var i = 0; i < y.length; i++)
{
var t = y[i].id;
changedetails +=document.getElementById(t).value;
}
if( changedetails != globaldetails)
{
globallock =' unsaved device actions';
[ \"aw_trig\",\"aw_md1\",\"aw_md2\",\"aw_addevent\",\"aw_dev\"].forEach (lock,);
randomdev.forEach (lock);
}
if( changedetails == globaldetails)
{
[ \"aw_trig\",\"aw_md1\",\"aw_md2\",\"aw_addevent\",\"aw_dev\"].forEach (unlock,);
randomdev.forEach (unlock);
}
}
}
";
# triggerlock
$j1 .= "
var triggerdetails = document.getElementById('MSwitchWebTRDT').innerHTML;
var saveddevice = '" . $triggerdevicehtml . "';
var sel = document.getElementById('trigdev');
sel.onchange = function()
{
trigdev = this.value;
if (trigdev != '";
$j1 .= $triggerdevicehtml;
$j1 .= "')
{
//document.getElementById('savetrigger').innerHTML = '<font color=#FF0000>trigger device : unsaved!</font> ';
//document.getElementById('MSwitchWebTRDT').innerHTML = '';
globallock =' unsaved trigger';
[\"aw_dev\", \"aw_det\"].forEach (lock);
randomdev.forEach (lock,);
}
else
{
//alert (randomdev);
[\"aw_dev\", \"aw_det\"].forEach (unlock);
randomdev.forEach (unlock);
document.getElementById('savetrigger').innerHTML = 'trigger device :';
document.getElementById('MSwitchWebTRDT').innerHTML = triggerdetails;
}
if (trigdev == 'all_events')
{
document.getElementById(\"triggerwhitelist\").style.visibility = \"visible\";
}
else
{
document.getElementById(\"triggerwhitelist\").style.visibility = \"collapse\";
}
}
";
#####################
$j1 .= "
if (document.getElementById('trigon')){
var trigonfirst = document.getElementById('trigon').value;
var sel2 = document.getElementById('trigon');
sel2.onchange = function()
{
if (trigonfirst != document.getElementById('trigon').value)
{
closetrigger();
}
else{
opentrigger();
}
}
}
if (document.getElementById('trigoff')){
var trigofffirst = document.getElementById('trigoff').value;
var sel3 = document.getElementById('trigoff');
sel3.onchange = function()
{
if (trigofffirst != document.getElementById('trigoff').value)
{
closetrigger();
}
else{
opentrigger();
}
}
}
if (document.getElementById('trigcmdoff')){
var trigcmdofffirst = document.getElementById('trigcmdoff').value;
var sel4 = document.getElementById('trigcmdoff');
sel4.onchange = function()
{
if (trigcmdofffirst != document.getElementById('trigcmdoff').value)
{
closetrigger();
}
else{
opentrigger();
}
}
}
if (document.getElementById('trigcmdon')){
var trigcmdonfirst = document.getElementById('trigcmdon').value;
var sel5 = document.getElementById('trigcmdon');
sel5.onchange = function()
{
if (trigcmdonfirst != document.getElementById('trigcmdon').value)
{
closetrigger();
}
else{
opentrigger();
}
}
}
function closetrigger(){
globallock =' unsaved trigger details';
[\"aw_dev\", \"aw_det\",\"aw_trig\",\"aw_md1\",\"aw_md2\",\"aw_addevent\"].forEach (lock,);
randomdev.forEach (lock);
}
function opentrigger(){
//alert('call unlock');
[ \"aw_dev\",\"aw_det\",\"aw_trig\",\"aw_md1\",\"aw_md2\",\"aw_addevent\"].forEach (unlock,);
randomdev.forEach (unlock);
}
";
#####################
#affected lock
$j1 .= "
var globalaffected;
var auswfirst=document.getElementById('devices');
for (i=0; i<auswfirst.options.length; i++)
{
var pos=auswfirst.options[i];
if(pos.selected)
{
//alert (pos.value);
globalaffected +=pos.value;
}
}
//alert (globalaffected);
var sel1 = document.getElementById('devices');";
$j1 .= "
globallock =' this device is locked !';
[ \"aw_dev\",\"aw_det\",\"aw_trig\",\"aw_md\",\"aw_md1\",\"aw_md2\",\"aw_addevent\"].forEach (lock,);
randomdev.forEach (lock);"
if ( ReadingsVal( $Name, '.lock', 'undef' ) eq "1" );
$j1 .= "
globallock =' only trigger is changeable';
[ \"aw_dev\",\"aw_det\",\"aw_md\",\"aw_md1\",\"aw_md2\",\"aw_addevent\"].forEach (lock,);
randomdev.forEach (lock);"
if ( ReadingsVal( $Name, '.lock', 'undef' ) eq "2" );
$j1 .= "
sel1.onchange = function()
{
var actaffected;
var auswfirst=document.getElementById('devices');
for (i=0; i<auswfirst.options.length; i++)
{
var pos=auswfirst.options[i];
if(pos.selected)
{
//alert (pos.value);
actaffected +=pos.value;
}
}
if (actaffected != globalaffected)
{
globallock =' unsaved affected device';
[ \"aw_det\",\"aw_trig\",\"aw_md\",\"aw_md1\",\"aw_md2\",\"aw_addevent\"].forEach (lock,);
randomdev.forEach (lock);
}
else
{
[ \"aw_det\",\"aw_trig\",\"aw_md\",\"aw_md1\",\"aw_md2\",\"aw_addevent\"].forEach (unlock,);
randomdev.forEach (unlock);
}
}
";
#function lock unlock
$j1 .= "function lock (elem, text){
if (document.getElementById(elem)){
document.getElementById(elem).style.backgroundColor = \"#ADADAD\"
document.getElementById(elem).disabled = true;
if (!document.getElementById(elem).model)
{
document.getElementById(elem).model=document.getElementById(elem).value;
}
document.getElementById(elem).value = 'N/A'+globallock;
}
}";
$j1 .= "function unlock (elem, index){
if (document.getElementById(elem)){
document.getElementById(elem).style.backgroundColor = \"\"
document.getElementById(elem).disabled = false;
document.getElementById(elem).value=document.getElementById(elem).model;
}
}";
#####################
$j1 .= "function saveconfig(conf){
conf = conf.replace(/\\n/g,'#[EOL]');
conf = conf.replace(/:/g,'#c[dp]');
conf = conf.replace(/;/g,'#c[se]');
conf = conf.replace(/ /g,'#c[sp]');
var nm = \$(t).attr(\"nm\");
var def = nm+\" saveconfig \"+encodeURIComponent(conf);
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
}";
$j1 .= "function vupdate(){
conf='';
var nm = \$(t).attr(\"nm\");
var def = nm+\" VUpdate \"+encodeURIComponent(conf);
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
}";
$j1 .= "function clearlog(){
conf='';
var nm = \$(t).attr(\"nm\");
var def = nm+\" clearlog \"+encodeURIComponent(conf);
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
}";
$j1 .= "function savesys(conf){
conf = conf.replace(/:/g,'#[dp]');
conf = conf.replace(/;/g,'#[se]');
conf = conf.replace(/ /g,'#[sp]');
conf = conf.replace(/'/g,'#[st]');
var nm = \$(t).attr(\"nm\");
var def = nm+\" savesys \"+encodeURIComponent(conf);
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
}";
$j1 .= "function checkcondition(condition,event){
//alert(condition,event);
var selected =document.getElementById(condition).value;
// event = \"test:test:test\";
if (selected == '')
{
var textfinal = \"<div style ='font-size: medium;'>Es ist keine Bedingung definiert, das Kommando wird immer ausgeführt.</div>\";
FW_okDialog(textfinal);
return;
}
selected = selected.replace(/\\|/g,'(DAYS)');
selected = selected.replace(/\\./g,'#[pt]');
selected = selected.replace(/:/g,'#[dp]');
selected= selected.replace(/~/g,'#[ti]');
selected = selected.replace(/ /g,'#[sp]');
event = event.replace(/~/g,'#[ti]');
event = event.replace(/ /g,'#[sp]');
cmd ='get " . $Name . " checkcondition '+selected+'|'+event;
FW_cmd(FW_root+'?cmd='+encodeURIComponent(cmd)+'&XHR=1', function(resp){FW_okDialog(resp);});
}
function checkevent(event){
event = event.replace(/ /g,'~');
cmd ='get " . $Name . " checkevent '+event;
FW_cmd(FW_root+'?cmd='+encodeURIComponent(cmd)+'&XHR=1');
}
";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' ) {
my $j1raw .= "
function info(from){
text='Help: ' + from +'<br><br>';
if (from == 'exit'){
text = text + 'Bei Auswahl dieses Feldes ergolgt ein Abbruch des Programms, nach Ausfuehrung dieses Befehles (in Abhaengigkeit der Conditions).<br>Folgende Befehle werden nur dann ausgefuehrt, wenn dieser Befehl nicht ausgefuehrt wurde.<br>Diese Option macht im Grunde nur Sinn in Zusammenhang mit der Priority-Funktion';}
if (from == 'timer'){
text = text + 'Hier kann entweder eine direkte Angabe einer Verzögerungszeit (delay with Cond_check) angegeben werden, oder es kann eine Ausführungszeit (at with Cond-check) für den Befehl angegeben werden<br> Bei der Angabe einer Ausführungszeit wird der Schaltbefehl beim nächsten erreichen der angegebenen Zeit ausgeführt. Ist die Zeit am aktuellen Tag bereits überschritten , wird der angegebene Zeitpunkt am Folgetag gesetzt.<br>Die Auswahl \"with Conf-check\" oder \"without Conf-check\" legt fest, ob unmittelbar vor Befehlsausführung nochmals die Condition für den Befehl geprüft wird oder nicht.<br><brAlternativ kann hier auch ein Verweis auf ein beliebiges Reading eines Devices erfolgen, das entsprechenden Wert enthält. Dieser Verweis muss in folgendem Format erfolgen:<br><br>[NAME.reading] des Devices ->z.B. [dummy.state]<br>Das Reading muss in folgendem Format vorliegen: hh:mm:ss ';}
if (from == 'trigger')
{
text = text + '
Trigger ist das Gerät, oder die Zeit, auf die das Modul reagiert, um andere Devices anzusprechen.<br>Das Gerät kann aus der angebotenen Liste ausgewählt werden, sobald dieses ausgewählt ist werden weitere Optionen angeboten.<br>Soll auf mehrereGerät gleichzeitig getriggert werden , so ist dieses ebenfalls möglich. Hierzu muss das Attribut \"MSwitch_Expert\" auf 1 gesetzt sein und als Auswahl \"GLOBAL\" erfolgen.<br><br>Zeitangaben können ebenso als Trigger genutzt werden, das Format muss wie folgt lauten:<br>
Hierfür stehen folgende Optionen zur Verfügung:<br />
<br>
1. switch MSwitch on + execute \\'cmd1\\' at <br />
das komplette Device wird auf \"on\" geschaltet. Der Zweig \"cmd1\" wird in
allen \"device actions\" ausgeführt.<br />
<br>
2. switch MSwitch off + execute \\'cmd2\\' at <br />
das komplette Device wird auf \"off\" geschaltet. Der Zweig \"cmd2\" wird in
allen \"device actions\" ausgeführt.<br />
<br>
3. execute \\'cmd1\\' only at <br />
es werden alle \"cmd1\" Zweige aller \"device actions\" ausgeführt<br />
<br />
4. execute \\'cmd2\\' only at <br />
es werden alle \"cmd2\" Zweige aller \"device actions\" ausgeführt<br />
<br />
5. execute \\'cmd1+cmd2\\' only at<br />
es werden alle \"cmd1\" und \"cmd2\" Zweige aller \"device actions\" ausgeführt<br />
<br />
Die Syntax muss wie folgt lauten:<br> [STUNDEN:MINUTEN|TAGE|IDx,y]<br />
Tage werden von 1-7 gezählt, wobei 1 für Montag steht, 7 für Sonntag.<br />
Die Angabe der ID ist optional. Wenn eine ID angegeben ist , werden nur
\\'cmds\\' ausgeführt, denen eine ID zugewiesen ist. Ist keine ID angegeben ,
werden nur alle \\'cmds\\' ausgeführt , denen keine ID zugewiesen ist .<br />
Diese Option ist nur in den Feldern \"execute cmd1 only at :\" , \"execute cmd2 only at :\"
und \"execute \\'cmd1+cmd2\\' only at:\" möglich. <br /><br>Die Variable \$we ist anstatt der Tagesangabe verwendbar<br> [STUNDEN:MINUTEN|\$we] - Schaltvorgang nur an Wochenenden.<br>[STUNDEN:MINUTEN|!\$we] - Schaltvorgang nur an Werktagen.<br><br>Mehrere Zeitvorgaben können aneinandergereiht werden.<br>[17:00|1][18:30|23] würde den Trigger Montags um 17 Uhr auslösen und Dienstags,Mittwochs um 18 Uhr 30.<br><br>Sunset - Zeitangaben können mit folgender Sytax eingebunden werden: z.B:<br />
&nbsp;[{sunset()}] , [{sunrise(+1800)}].<br><br>Es ist eine gleichzeitige Nutzung für Trigger durch Zeitangaben und Trigger durch Deviceevents möglich.<br><br>
<strong>Sonderformate:</strong><br>[?20:00-21:00|5] - Zufälliger Schaltvorgang zwischen 20 Uhr und 21 Uhr am Freitag<br>[00:02*04:10-06:30] - Schaltvorgang alle 2 Minuten zwischen 4.10 Uhr und 6.30 Uhr<br><br><br>
'
;}
if (from == 'triggercondition'){
text = text + 'Hier kann die Angabe von Bedingungen erfolgen, die zusätzlich zu dem triggernden Device erfuellt sein müssen.<br> Diese Bedingunge sind eng an DOIF- Bedingungen angelehnt .<br>Zeitabhängigkeit: [19:10-23:00] - Trigger des Devices erfolgt nur in angegebenem Zeitraum<br>Readingabhängige Trigger [Devicename:Reading] =/>/< X oder [Devicename:Reading] eq \"x\" - Trigger des Devicec erfolgt nur bei erfüllter Bedingung.<br>Achtung ! Bei der Abfrage von Readings nach Strings ( on,off,etc. ) ist statt \"=\" \"eq\" zu nutzen und der String muss in \"\" gesetzt werden!<br>Die Kombination mehrerer Bedingungen und Zeiten ist durch AND oder OR möglich.<br>[19.10-23:00] AND [Devicename:Reading] = 10 - beide Bedingungen müssen erfüllt sein<br>[19.10-23:00] OR [Devicename:Reading] = 10 - eine der Bedingungen muss erfüllt sein.<br>Es ist auf korrekte Eingabe der Leerzeichen zu achten.<br><br>sunset - Bedingungen werden mit zusätzlichen {} eingefügt z.B. : [{ sunset() }-23:00].<br><br>Variable \$we:<br>Die globlae Variable \$we ist nutzbar und muss in {} gesetzt werden .<br>{ !\$we } löst den Schaltvorgang nur Werktagen an aus<br>{ \$we } löst den Schaltvorgang nur an Wochenenden, Feiertagen aus<br><br>Soll nur an bestimmten Wochentagen geschaltet werden, muss eine Zeitangsbe gemacht werden und durch z.B. |135 ergänzt werden.<br>[10:00-11:00|13] würde den Schaltvorgang z.B nur Montag und Mitwoch zwischen 10 uhr und 11 uhr auslösen. Hierbei zählen die Wochentage von 1-7 für Montag-Sonntag.<br>Achtung: Bei Anwendung der geschweiften Klammern zur einletung eines Perlasdrucks ist unbedingt auf die Leerzeichen hinter und vor der Klammer zu achten !<br> Überschreitet die Zeitangabe die Tagesgrenze (24.00 Uhr ), so gelten die angegebenen Tage noch bis zum ende der angegebenen Schaltzeit,<br> d.H. es würde auch am Mitwoch noch der schaltvorgang erfolgen, obwohl als Tagesvorgabe Dienstag gesetzt wurde.<br><br>Wird in diesem Feld keine Angabe gemacht , so erfolgt der Schaltvorgang nur durch das triggernde Device ohne weitere Bedingungen.<br><br>Achtung: Conditions gelten nur für auslösende Trigger eines Devices und habe keinen Einfluss auf zeitgesteuerte Auslöser. Um Zeitgesteuerte Auslösr ebenfalls an Bedingungen zu Knüpfen muss dieses in den Attributen aktiviert werden.';}
if (from == 'whitelist'){
text = text + 'Bei der Auswahl \\\'GLOBAL\\\' als Triggerevent werde alle von Fhem erzeugten Events an dieses Device weitergeleitet. Dieses kann eine erhöhte Systemlast erzeugen.<br>In dem Feld \\\'Trigger Device Global Whitelist:\\\' kann dieses eingeschränkt werden , indem Devices oder Module benannt werden , deren Events Berücksichtigt werden. Sobald hier ein Eintrag erfolgt , werden nur noch Diese berücksichtigt , gibt es keinen Eintrag , werden alle berücksichtigt ( Whitelist ).<br> Format: Die einzelnen Angaben müssen durch Komma getrennt werden .<br><br>Mögliche Angaben :<br>Modultypen: TYPE=CUL_HM<br>Devicenamen: NAME<br><br>';}
if (from == 'addevent'){
text = text + 'Hier können manuell Events zugefügt werden , die in den Auswahllisten verfügbar sein sollen und auf die das Modul reagiert.<br>Grundsätzlich ist zu unterscheiden , ob das Device im Normal-, oder Globalmode betrieben wird<br>Im Normalmode bestehen die Events aus 2 Teilen , dem Reading und dem Wert \"state:on\"<br>Wenn sich das Device im GLOBAL Mode befindet müssen die Events aus 3 Teilen bestehen , dem Devicename, dem Reading und dem Wert \"device:state:on\".<br>Wird hier nur ein \"*\" angegeben , reagiert der entsprechende Zweig auf alle eingehenden Events.<br>Weitherhin sind folgende Syntaxmöglichkeiten vorgesehen :<br> device:state:*, device:*:*, *:state:* , etc.<br>Der Wert kann mehrere Auswahlmöglichkeiten haben , durch folgende Syntax: \"device:state:(on/off)\". In diesem Fal reagiert der Zweig sowohl auf den Wert on, als auch auf off.<br><br>Es können mehrere Evebts gleichzeitig angelegt werden . Diese sind durch Leerzeichen zu trennen .<br><br>Seit V1.7 kann hier die gängige RegEx-Formulierung erfolgen.';}
if (from == 'condition'){
text = text + 'Hier kann die Angabe von Bedingungen erfolgen, die erfüllt sein müssen um den Schaltbefehl auszuführen.<br>Diese Bedingunge sind eng an DOIF- Bedingungen angelehnt.<br><br>Zeitabhängiges schalten: [19.10-23:00] - Schaltbefehl erfolgt nur in angegebenem Zeitraum<br>Readingabhängiges schalten [Devicename:Reading] =/>/< X oder [Devicename:Reading] eq \"x\" - Schaltbefehl erfolgt nur bei erfüllter Bedingung.<br>Achtung! Bei der Abfrage von Readings nach Strings ( on,off,etc. ) ist statt \"=\" \"eq\" zu nutzen und der String muss in \"x\" gesetzt werden!<br> Die Kombination mehrerer Bedingungen und Zeiten ist durch AND oder OR möglich:<br> [19.10-23:00] AND [Devicename:Reading] = 10 - beide Bedingungen müssen erfüllt sein<br>[19.10-23:00] OR [Devicename:Reading] = 10 - eine der Bedingungen muss erfüllt sein.<br>Es ist auf korrekte Eingabe der Leerzeichen zu achten.<br><br>sunset - Bedingungen werden mit zusätzlichen {} eingefügt z.B. : [{ sunset() }-23:00].<br><br>Variable \$we:<br>Die globlae Variable \$we ist nutzbar und muss {} gesetzt werden .<br>{ !\$we } löst den Schaltvorgang nur Werktagen aus<br>{ \$we } löst den Schaltvorgang nur Wochenenden, Feiertagen aus<br><br>Soll nur an bestimmten Wochentagen geschaltet werden, muss eine Zeitangsbe gemacht werden und durch z.B. |135 ergänzt werden.<br>[10:00-11:00|13] würde den Schaltvorgang z.B nur Montag und Mitwoch zwischen 10 uhr und 11 uhr auslösen. Hierbei zählen die Wochentage von 1-7 für Montag-Sonntag.<br>Achtung: Bei Anwendung der geschweiften Klammern zur einletung eines Perlasdrucks ist unbedingt auf die Leerzeichen hinter und vor der Klammer zu achten !<br>Überschreitet die Zeitangabe die Tagesgrenze (24.00 Uhr ), so gelten die angegebenen Tage noch bis zum ende der angegebenen Schaltzeit , d.H. es würde auch am Mitwoch noch der schaltvorgang erfolgen, obwohl als Tagesvorgabe Dienstag gesetzt wurde.<br><br>\$EVENT Variable: Die Variable EVENT enthält den auslösenden Trigger, d.H. es kann eine Reaktion in direkter Abhängigkeit zum auslösenden Trigger erfolgen.<br>[\$EVENT] eq \"state:on\" würde den Kommandozweig nur dann ausführen, wenn der auslösende Trigger \"state:on\" war.<br>Wichtig ist dieses, wenn bei den Triggerdetails nicht schon auf ein bestimmtes Event getriggert wird, sondern hier durch die Nutzung eines wildcards (*) auf alle Events getriggert wird, oder auf alle Events eines Readings z.B. (state:*)<br><br>Bei eingestellter Delayfunktion werden die Bedingungen je nach Einstellung sofort,verzögert oder sowohl-als-auch überprüft, d.H hiermit sind verzögerte Ein-, und Ausschaltbefehle möglich die z.B Nachlauffunktionen oder verzögerte Einschaltfunktionen ermöglichen, die sich selbst überprüfen. z.B. [wenn Licht im Bad an -> schalte Lüfter 2 Min später an -> nur wenn Licht im Bad noch an ist]<br><br>Anstatt einer Verzögerung kann hier auch eine festgelegte Schaltzeit erfolgen.';}
if (from == 'onoff'){
text = text + 'Einstellung des auzuführenden Kommandos bei entsprechendem getriggerten Event.<br>Bei angebotenen Zusatzfeldern kann ein Verweis auf ein Reading eines anderen Devices gesetzt werden mit [Device:Reading].<br>\$NAME wird ersetzt durch den Namen des triggernden Devices.<br><br>Bei Nutzung von FreeCmd kann hier entweder reiner FhemCode, oder reiner Perlcode verwendet werden. Perlcode muss mit geschweiften Klammern beginnen und enden. Das Mischen beider Codes ist nicht zulässig.';}
if (from == 'affected'){
text = text + 'Einstellung der Geräte, die auf ein Event oder zu einer bestimmten Zeit reagieren sollen.<br>Die Auswahl von FreeCmd ermöglicht eine deviceungebundene Befehlseingabe oder die Eingabe von reinem Perlcode.';}
if (from == 'repeats'){
text = text + 'Eingabe von Befehlswiederholungen.<br>Bei Belegung der Felder wird ein Befehl um die Angabe \"Repeats\" mit der jeweiligen Verzögerung \"Repeatdelay in sec\" wiederholt.<br>In dem Feld \"Repeats\" ist eine Angabe im \"setmagic\"-Format möglich.';}
if (from == 'priority'){
text = text + 'priority - Auswahl der Reihenfolge der Befehlsabarbeitung. Ein Befehl mit der Nr. 1 wird als erstes ausgeführt , die höchste Nummer zuletzt.<br> Sollte mehrere Befehle die gleiche Nummer haben , so werden diese Befehle in dargestellter Reihenfolge ausgeführt.<br><br>ID - Devices denen eine ID zugewiesen ist , werden in der normalen abarbeitung der Befehle nicht mehr berücksichtigt und somit nicht ausgeführt. Wenn eine ID-Zuweisung erfolgt ist, kann dieser Befehlszweig nur noch über das cmd set DEVICE ID NR on/off erfolgen. Diese Option wird nur in Ausnahmefällen benötigt , wenn die Pipes nicht ausrechend sind um verschiedene Aktionen unter verschiedenen Bedingungen auszuführen. ';}
if (from == 'saveevent'){
text = text + 'Bei Anwahl dieser Option werden alle eingehenden Events des ausgewählten Triggerdevices gespeichert und sind in den Auswahlfeldern \"execute cmd1\" und \"execute cmd2\" sowie in allen \"Test-Condition\" zur Auswahl verfügbar.<br>Diese Auswahl sollte zur Resourcenschonung nach der Einrichtung des MSwitchdevices abgewählt werden , da hier je nach Trigger erhebliche Datenmengen anfallen können und gespeichert werden.';}
if (from == 'execcmd'){
text = text + 'In diesem Feld wird das Event bestimmt, welches zur Ausführung des cmd Zweiges 1 oder 2 führt. Hier stehen entweder gespeicherte Events zur Verfügung ( wenn \"Save incomming events\" aktiviert ist ) , oder es können mit \"Add event manually\" Events hinzugefügt werden. ';}
var textfinal =\"<div style ='font-size: small;'>\"+ text +\"</div>\";
FW_okDialog(textfinal);
return;
}";
$j1raw =~ s/\n//g;
#$j1raw =~ s/\'/\\'/g;
$j1 .= $j1raw;
}
$j1 .= "
function aktvalue(target,cmd){
document.getElementById(target).value = cmd;
return;
}
function noarg(target,copytofield){
document.getElementById(copytofield).value = '';
document.getElementById(target).innerHTML = '';
return;
}
function noaction(target,copytofield){
document.getElementById(copytofield).value = '';
document.getElementById(target).innerHTML = '';
return;}
function slider(first,step,last,target,copytofield){
var selected =document.getElementById(copytofield).value;
var selectfield = \"&nbsp;<br><input type='text' id='\" + target +\"_opt' size='3' value='' readonly>&nbsp;&nbsp;&nbsp;\" + first +\"<input type='range' min='\" + first +\"' max='\" + last + \"' value='\" + selected +\"' step='\" + step + \"' onchange=\\\"javascript: showValue(this.value,'\" + copytofield + \"','\" + target + \"')\\\">\" + last ;
document.getElementById(target).innerHTML = selectfield + '<br>';
var opt = target + '_opt';
document.getElementById(opt).value=selected;
return;
}
function showValue(newValue,copytofield,target){
var opt = target + '_opt';
document.getElementById(opt).value=newValue;
document.getElementById(copytofield).value = newValue;
}
function showtextfield(newValue,copytofield,target){
document.getElementById(copytofield).value = newValue;
}
function textfield(copytofield,target){
//alert(copytofield,target);
var selected =document.getElementById(copytofield).value;
if (copytofield.indexOf('cmdonopt') != -1) {
var selectfield = \"&nbsp;<br><input type='text' size='30' value='\" + selected +\"' onchange=\\\"javascript: showtextfield(this.value,'\" + copytofield + \"','\" + target + \"')\\\">\" ;
document.getElementById(target).innerHTML = selectfield + '<br>';
}
else{
var selectfield = \"<input type='text' size='30' value='\" + selected +\"' onchange=\\\"javascript: showtextfield(this.value,'\" + copytofield + \"','\" + target + \"')\\\">\" ;
document.getElementById(target).innerHTML = selectfield + '<br>';
}
return;
}
function selectfield(args,target,copytofield){
var cmdsatz = args.split(\",\");
var selectstart = \"<select id=\\\"\" +target +\"1\\\" name=\\\"\" +target +\"1\\\" onchange=\\\"javascript: aktvalue('\" + copytofield + \"',document.getElementById('\" +target +\"1').value)\\\">\";
var selectend = '<\\select>';
var option ='<option value=\"noArg\">noArg</option>';
var i;
var len = cmdsatz.length;
var selected =document.getElementById(copytofield).value;
for (i=0; i<len; i++){
if (selected == cmdsatz[i]){
option += '<option selected value=\"' + cmdsatz[i] + '\">' + cmdsatz[i] + '</option>';
}
else{
option += '<option value=\"' + cmdsatz[i] + '\">' + cmdsatz[i] + '</option>';
}
}
var selectfield = selectstart + option + selectend;
document.getElementById(target).innerHTML = selectfield + '<br>';
return;
}
function activate(state,target,options,copytofield) ////aufruf durch selctfield
{
var globaldetails3='undefined';
var x = document.getElementsByClassName('devdetails2');
for (var i = 0; i < x.length; i++)
{
var t = x[i].id;
globaldetails3 +=document.getElementById(t).value;
}
if ( globaldetails2 )
{
if (globaldetails3 != globaldetails2)
{
globallock =' unsaved device actions';
[ \"aw_trig\",\"aw_md1\",\"aw_md2\",\"aw_addevent\",\"aw_dev\"].forEach (lock,);
randomdev.forEach (lock);
}
else
{
[ \"aw_trig\",\"aw_md1\",\"aw_md2\",\"aw_addevent\",\"aw_dev\"].forEach (unlock,);
randomdev.forEach (unlock);
}
}
var ausgabe = target + '<br>' + state + '<br>' + options;
if (state == 'no_action'){noaction(target,copytofield);return}
var optionarray = options.split(\" \");
var werte = new Array();
for (var key in optionarray )
{
var satz = optionarray[key].split(\":\");
werte[satz[0]] = satz[1];
}
var devicecmd = new Array();
if (typeof werte[state] === 'undefined') {werte[state]='textField';}
devicecmd = werte[state].split(\",\");
if (devicecmd[0] == 'noArg'){noarg(target,copytofield);return;}
//else if (devicecmd[0] == 'slider'){slider(devicecmd[1],devicecmd[2],devicecmd[3],target,copytofield);return;}
else if (devicecmd[0] == 'slider'){textfield(copytofield,target);return;}
else if (devicecmd[0] == 'undefined'){textfield(copytofield,target);return;}
else if (devicecmd[0] == 'textField'){textfield(copytofield,target);return;}
else if (devicecmd[0] == 'colorpicker'){textfield(copytofield,target);return;}
else if (devicecmd[0] == 'RGB'){textfield(copytofield,target);return;}
else if (devicecmd[0] == 'no_Action'){noaction();return;}
else {selectfield(werte[state],target,copytofield);return;}
return;
}
function changesort(){
sortby = \$(\"[name=sort]\").val();
var nm = \$(t).attr(\"nm\");
var def = nm+\" sort_device \"+sortby;
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
}
function addevice(device){
var nm = \$(t).attr(\"nm\");
var def = nm+\" add_device \"+device;
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
}
function deletedevice(device){
var nm = \$(t).attr(\"nm\");
var def = nm+\" del_device \"+device;
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
}
";
$j1 .=
"var t=\$(\"#MSwitchWebTR\"), ip=\$(t).attr(\"ip\"), ts=\$(t).attr(\"ts\");
FW_replaceWidget(\"[name=aw_ts]\", \"aw_ts\", [\"time\"], \"12:00\");
\$(\"[name=aw_ts] input[type=text]\").attr(\"id\", \"aw_ts\");
// modify trigger aw_save
\$(\"#aw_md\").click(function(){
var nm = \$(t).attr(\"nm\");
trigon = \$(\"[name=trigon]\").val();
trigon = trigon.replace(/ /g,'~');
trigoff = \$(\"[name=trigoff]\").val();
trigoff = trigoff.replace(/ /g,'~');
trigcmdon = \$(\"[name=trigcmdon]\").val();
trigcmdon = trigcmdon.replace(/ /g,'~');
trigcmdoff = \$(\"[name=trigcmdoff]\").val();
trigcmdoff = trigcmdoff.replace(/ /g,'~');
trigsave = \$(\"[name=aw_save]\").prop(\"checked\") ? \"ja\":\"nein\";
trigwhite = \$(\"[name=triggerwhitelist]\").val();
if (trigcmdon == trigon && trigcmdon != 'no_trigger' && trigon != 'no_trigger'){
FW_okDialog('on triggers for \\'switch Test on + execute on commands\\' and \\'execute on commands only\\' may not be the same !');
return;
}
if (trigcmdoff == trigoff && trigcmdoff != 'no_trigger' && trigoff != 'no_trigger'){
FW_okDialog('off triggers for \\'switch Test off + execute on commands\\' and \\'execute off commands only\\' may not be the same !');
return;
}
if (trigon == trigoff && trigon != 'no_trigger'){
FW_okDialog('trigger for \\'switch Test on + execute on commands\\' and \\'switch Test off + execute off commands\\' must not both be \\'*\\'');
return;
}
var def = nm+\" trigger \"+trigon+\" \"+trigoff+\" \"+trigsave+\" \"+trigcmdon+\" \"+trigcmdoff+\" \" ;
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
});
//delete trigger
\$(\"#aw_md2\").click(function(){
var nm = \$(t).attr(\"nm\");
var def = nm+\" del_trigger \";
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
});
//aplly filter to trigger
\$(\"#aw_md1\").click(function(){
var nm = \$(t).attr(\"nm\");
var def = nm+\" filter_trigger \";
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
});
\$(\"#aw_trig\").click(function(){
var nm = \$(t).attr(\"nm\");
trigdev = \$(\"[name=trigdev]\").val();
//trigdev = trigdev.replace(/\:/g,'#[dp]');
//alert(trigdev);
timeon = \$(\"[name=timeon]\").val();
timeoff = \$(\"[name=timeoff]\").val();
timeononly = \$(\"[name=timeononly]\").val();
timeoffonly = \$(\"[name=timeoffonly]\").val();
timeonoffonly = \$(\"[name=timeonoffonly]\").val();
//alert(timeonoffonly);
trigdevcond = \$(\"[name=triggercondition]\").val();
//trigdevcond = trigdevcond.replace(/:/g,'#[dp]');
trigdevcond = trigdevcond.replace(/\\./g,'#[pt]');
trigdevcond = trigdevcond.replace(/:/g,'#[dp]');
trigdevcond= trigdevcond.replace(/~/g,'#[ti]');
//trigdevcond = trigdevcond.replace(/ /g,'~');
trigdevcond = trigdevcond.replace(/ /g,'#[sp]');
trigdevcond = trigdevcond+':';
timeon = timeon.replace(/ /g, '');
timeoff = timeoff.replace(/ /g, '');
timeononly = timeononly.replace(/ /g, '');
timeoffonly = timeoffonly.replace(/ /g, '');
timeonoffonly = timeonoffonly.replace(/ /g, '');
timeon = timeon.replace(/:/g, '#[dp]');
timeoff = timeoff.replace(/:/g, '#[dp]');
timeononly = timeononly.replace(/:/g, '#[dp]');
timeoffonly = timeoffonly.replace(/:/g, '#[dp]');
timeonoffonly = timeonoffonly.replace(/:/g, '#[dp]');
timeon = timeon+':';
timeoff = timeoff+':';
timeononly = timeononly+':';
timeoffonly = timeoffonly+':';
timeonoffonly = timeonoffonly+':';
trigwhite = \$(\"[name=triggerwhitelist]\").val();
var def = nm+\" set_trigger \"+trigdev+\" \"+timeon+\" \"+timeoff+\" \"+timeononly+\" \"+timeoffonly+\" \"+timeonoffonly+\" \"+trigdevcond+\" \"+trigwhite+\" \" ;
def = encodeURIComponent(def);
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
});
\$(\"#aw_addevent\").click(function(){
var nm = \$(t).attr(\"nm\");
event = \$(\"[name=add_event]\").val();
event= event.replace(/ /g,'[sp]');
event= event.replace(/\\|/g,'[bs]');
if (event == ''){
//alert('no event specified');
return;
}
var def = nm+\" addevent \"+event+\" \";
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
});
\$(\"#aw_dev\").click(function(){
var nm = \$(t).attr(\"nm\");
devices = \$(\"[name=affected_devices]\").val();
var def = nm+\" devices \"+devices+\" \";
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
});
\$(\"#aw_det\").click(function(){
var nm = \$(t).attr(\"nm\");
devices = '';
$javaform
devices = devices.replace(/:/g,'#[dp]');
devices = devices.replace(/;/g,'#[se]');
devices = devices.replace(/ /g,'#[sp]');
devices = devices.replace(/%/g,'#[pr]');
devices = encodeURIComponent(devices);
var def = nm+\" details \"+devices+\" \";
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
});
function switchlock(){
test = document.getElementById('lockedit').checked ;
if (test){
\$(\"#devices\").prop(\"disabled\", 'disabled');
document.getElementById('aw_great').value='edit list';
}
else{
\$(\"#devices\").prop(\"disabled\", false);
document.getElementById('aw_great').value='schow greater list';
}
}
function deviceselect(){
sel ='<div style=\"white-space:nowrap;\"><br>';
var ausw=document.getElementById('devices');
for (i=0; i<ausw.options.length; i++)
{
var pos=ausw.options[i];
if(pos.selected)
{
//targ.options[i].selected = true;
sel = sel+'<input id =\"Checkbox-'+i+'\" checked=\"checked\" name=\"Checkbox-'+i+'\" type=\"checkbox\" value=\"test\" /> '+pos.value+'<br />';
}
else
{
sel = sel+'<input id =\"Checkbox-'+i+'\" name=\"Checkbox-'+i+'\" type=\"checkbox\" /> '+pos.value+'<br />';
}
}
sel = sel+'</div>';
FW_okDialog(sel,'',removeFn) ;
}
function bigwindow(targetid){
targetval =document.getElementById(targetid).value;
sel ='<div style=\"white-space:nowrap;\"><br>';
sel = sel+'<textarea id=\"valtrans\" cols=\"80\" name=\"TextArea1\" rows=\"10\" onChange=\" document.getElementById(\\\''+targetid+'\\\').value=this.value; \">'+targetval+'</textarea>';
sel = sel+'</div>';
FW_okDialog(sel,'');
}
function removeFn() {
var targ = document.getElementById('devices');
for (i = 0; i < targ.options.length; i++) {
test = document.getElementById('Checkbox-' + i).checked;
targ.options[i].selected = false;
if (test) {
targ.options[i].selected = true;
}
}
}
\$(\"#aw_little\").click(function(){
var veraenderung = 3; // Textfeld veraendert sich stets um 3 Zeilen
var sel = document.getElementById('textfie').innerHTML;
var show = document.getElementById('textfie2');
var2 = \"size=\\\"6\\\"\";
var result = sel.replace(/size=\\\"15\\\"/g,var2);
document.getElementById('textfie').innerHTML = result;
});
}
</script>";
return "$ret<br>$detailhtml<br>$j1";
}
####################
sub MSwitch_makeCmdHash($) {
my $loglevel = 5;
my ($Name) = @_;
# detailsatz in scalar laden
my @devicedatails;
@devicedatails =
split( /#\[ND\]/,
ReadingsVal( $Name, '.Device_Affected_Details', 'no_device' ) )
if defined ReadingsVal( $Name, '.Device_Affected_Details', 'no_device' )
; #inhalt decice und cmds durch komma getrennt
my %savedetails;
foreach (@devicedatails) {
# ersetzung
$_ =~ s/#\[sp\]/ /g;
$_ =~ s/#\[nl\]/\n/g;
$_ =~ s/#\[se\]/;/g;
$_ =~ s/#\[dp\]/:/g;
$_ =~ s/\(DAYS\)/|/g;
$_ =~ s/#\[ko\]/,/g; #neu
$_ =~ s/#\[bs\]/\\/g; #neu
my @detailarray = split( /#\[NF\]/, $_ )
; #enthält daten 0-5 0 - name 1-5 daten 7 und9 sind zeitangaben
#MSwitch_LOG( $Name, 0, "$Name: device " .$_ );
#MSwitch_LOG( $Name, 0, "$Name: detailarray8 " .$detailarray[8] );
my $key = '';
my $testtimestroff = $detailarray[7];
$key = $detailarray[0] . "_delayatonorg";
$savedetails{$key} = $detailarray[7];
if ( $testtimestroff ne '[random]' ) {
$testtimestroff =~ s/[A-Za-z0-9#\.\-_]//g;
if ( $testtimestroff ne "[:]" && $testtimestroff ne "[\$:]" ) {
my $hdel = ( substr( $detailarray[7], 0, 2 ) ) * 3600;
my $mdel = ( substr( $detailarray[7], 3, 2 ) ) * 60;
my $sdel = ( substr( $detailarray[7], 6, 2 ) ) * 1;
$detailarray[7] = $hdel + $mdel + $sdel;
}
}
my $testtimestron = $detailarray[8];
$key = $detailarray[0] . "_delayatofforg";
$savedetails{$key} = $detailarray[8];
if ( $testtimestron ne '[random]' ) {
$testtimestron =~ s/[A-Za-z0-9#\.\-_]//g;
if ( $testtimestron ne "[:]" && $testtimestroff ne "[\$:]" ) {
if ($detailarray[8] ne "00:00:00")
{
#MSwitch_LOG( $Name, 0, "$Name: detailarray8 " .$detailarray[8] );
}
my $hdel = substr( $detailarray[8], 0, 2 ) * 3600;
my $mdel = substr( $detailarray[8], 3, 2 ) * 60;
my $sdel = substr( $detailarray[8], 6, 2 ) * 1;
$detailarray[8] = $hdel + $mdel + $sdel;
}
}
$key = $detailarray[0] . "_on";
$savedetails{$key} = $detailarray[1];
$key = $detailarray[0] . "_off";
$savedetails{$key} = $detailarray[2];
$key = $detailarray[0] . "_onarg";
$savedetails{$key} = $detailarray[3];
$key = $detailarray[0] . "_offarg";
$savedetails{$key} = $detailarray[4];
$key = $detailarray[0] . "_delayaton";
$savedetails{$key} = $detailarray[5];
$key = $detailarray[0] . "_delayatoff";
$savedetails{$key} = $detailarray[6];
$key = $detailarray[0] . "_timeon";
$savedetails{$key} = $detailarray[7];
$key = $detailarray[0] . "_timeoff";
$savedetails{$key} = $detailarray[8];
$key = $detailarray[0] . "_repeatcount";
if ( defined $detailarray[11] && $detailarray[11] ne "") {
$savedetails{$key} = $detailarray[11];
}
else {
$savedetails{$key} = 0;
}
$key = $detailarray[0] . "_repeattime";
if ( defined $detailarray[12] && $detailarray[12] ne "" ) {
$savedetails{$key} = $detailarray[12];
}
else {
$savedetails{$key} = 0;
}
$key = $detailarray[0] . "_priority";
if ( defined $detailarray[13] ) {
$savedetails{$key} = $detailarray[13];
}
else {
$savedetails{$key} = 1;
}
$key = $detailarray[0] . "_id";
if ( defined $detailarray[14] ) {
$savedetails{$key} = $detailarray[14];
}
else {
$savedetails{$key} = 0;
}
###
$key = $detailarray[0] . "_exit1";
if ( defined $detailarray[16] ) {
$savedetails{$key} = $detailarray[16];
}
else {
$savedetails{$key} = 0;
}
###
$key = $detailarray[0] . "_exit2";
if ( defined $detailarray[17] ) {
$savedetails{$key} = $detailarray[17];
}
else {
$savedetails{$key} = 0;
}
###
###
$key = $detailarray[0] . "_showreihe";
if ( defined $detailarray[18] ) {
$savedetails{$key} = $detailarray[18];
}
else {
$savedetails{$key} = 0;
}
###
$key = $detailarray[0] . "_comment";
if ( defined $detailarray[15] ) {
$savedetails{$key} = $detailarray[15];
}
else {
$savedetails{$key} = '';
}
$key = $detailarray[0] . "_conditionon";
if ( defined $detailarray[9] ) {
$savedetails{$key} = $detailarray[9];
}
else {
$savedetails{$key} = '';
}
$key = $detailarray[0] . "_conditionoff";
if ( defined $detailarray[10] ) {
$savedetails{$key} = $detailarray[10];
}
else {
$savedetails{$key} = '';
}
}
my @pass = %savedetails;
return @pass;
}
########################################
sub MSwitch_Delete_Triggermemory($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $events = ReadingsVal( $Name, '.Device_Events', '' );
my $Triggerdevice = $hash->{Trigger_device};
my $triggeron = ReadingsVal( $Name, '.Trigger_on', 'no_trigger' );
if ( !defined $triggeron ) { $triggeron = "" }
my $triggeroff = ReadingsVal( $Name, '.Trigger_off', 'no_trigger' );
if ( !defined $triggeroff ) { $triggeroff = "" }
my $triggercmdon = ReadingsVal( $Name, '.Trigger_cmd_on', 'no_trigger' );
if ( !defined $triggercmdon ) { $triggercmdon = "" }
my $triggercmdoff = ReadingsVal( $Name, '.Trigger_cmd_off', 'no_trigger' );
if ( !defined $triggercmdoff ) { $triggercmdoff = "" }
my $triggerdevice = ReadingsVal( $Name, 'Trigger_device', '' );
delete( $hash->{helper}{events} );
$hash->{helper}{events}{$triggerdevice}{'no_trigger'} = "on";
$hash->{helper}{events}{$triggerdevice}{$triggeron} = "on";
$hash->{helper}{events}{$triggerdevice}{$triggeroff} = "on";
$hash->{helper}{events}{$triggerdevice}{$triggercmdon} = "on";
$hash->{helper}{events}{$triggerdevice}{$triggercmdoff} = "on";
readingsSingleUpdate( $hash, ".Device_Events", 'no_trigger', 1 );
my $eventhash = $hash->{helper}{events}{$triggerdevice};
$events = "";
foreach my $name ( keys %{$eventhash} ) {
$name =~ s/#\[tr//ig;
$events = $events . $name . '#[tr]';
}
chop($events);
chop($events);
chop($events);
chop($events);
chop($events);
readingsSingleUpdate( $hash, ".Device_Events", $events, 0 );
return;
}
###########################################################################
sub MSwitch_Exec_Notif($$$$$) {
#Inhalt Übergabe -> push @cmdarray, $own_hash . ',on,check,' . $eventcopy1
my ( $hash, $comand, $check, $event, $execids ) = @_;
my $name = $hash->{NAME};
my $protokoll = '';
my $satz;
MSwitch_LOG( $name, 5,
"$name: execnotif -> $execids " );
if (!$execids){$execids = "0"};
my $debugmode=AttrVal( $name, 'MSwitch_Debug', "0" );
my $expertmode = AttrVal( $name, 'MSwitch_Expert', "0" );
my $delaymode=AttrVal( $name, 'MSwitch_Delete_Delays', '0' );
my $attrrandomtime = AttrVal( $name, 'MSwitch_RandomTime', '' );
my $exittest = '';
$exittest = "1" if $comand eq "on";
$exittest = "2" if $comand eq "off";
my $ekey = '';
my $out = '0';
MSwitch_LOG( $name, 5,
"$name: execnotif -> $hash, $comand, $check, $event,$execids " );
return ""
if ( IsDisabled($name) )
; # Return without any further action if the module is disabled
my %devicedetails = MSwitch_makeCmdHash($name);
# betroffene geräte suchen
my @devices =
split( /,/, ReadingsVal( $name, '.Device_Affected', 'no_device' ) );
my $update = '';
my $testtoggle = '';
MSwitch_LOG( $name, 6,
"$name: zu schaltende devices -> " . @devices . " @devices" );
# liste nach priorität ändern , falls expert
@devices = MSwitch_priority( $hash, $execids, @devices );
my $lastdevice ;
LOOP45: foreach my $device (@devices) {
$out = '0';
if ( $expertmode eq '1' ) {
$ekey = $device . "_exit" . $exittest;
$out = $devicedetails{$ekey};
}
if ( $delaymode eq '1' ) {
MSwitch_Delete_Delay( $hash, $device );
}
my @devicesplit = split( /-AbsCmd/, $device );
my $devicenamet = $devicesplit[0];
# teste auf on kommando
my $key = $device . "_" . $comand;
my $timerkey = $device . "_time" . $comand;
my $testtstate = $devicedetails{$timerkey};
$testtstate =~ s/[A-Za-z0-9#\.\-_]//g;
if ( $testtstate eq "[:]" || $testtstate eq "[\$:]" ) {
$devicedetails{$timerkey} =
eval MSwitch_Checkcond_state( $devicedetails{$timerkey}, $name );
if ( $devicedetails{$timerkey} =~ m/[0-9]\d:[0-9]\d:[0-9]\d/ ) {
MSwitch_LOG( $name, 5, "$name: format ok " );
my $hdel = ( substr( $devicedetails{$timerkey}, 0, 2 ) ) * 3600;
my $mdel = ( substr( $devicedetails{$timerkey}, 3, 2 ) ) * 60;
my $sdel = ( substr( $devicedetails{$timerkey}, 6, 2 ) ) * 1;
$devicedetails{$timerkey} = $hdel + $mdel + $sdel;
}
else {
MSwitch_LOG( $name, 1,
"$name: ERROR Timerformat "
. $devicedetails{$timerkey}
. " fehlerhaf " );
$devicedetails{$timerkey} = 0;
}
}
MSwitch_LOG( $name, 6,
"$name: timer des devices -> " . $devicedetails{$timerkey} );
# teste auf condition
# antwort $execute 1 oder 0 ;
my $conditionkey = $device . "_condition" . $comand;
if ( $devicedetails{$key} ne "" && $devicedetails{$key} ne "no_action" )
{
my $cs = '';
if ( $devicenamet eq 'FreeCmd' ) {
$cs = " $devicedetails{$device.'_'.$comand.'arg'}";
$cs = MSwitch_makefreecmd( $hash, $cs );
}
else {
$cs =
"set $devicenamet $devicedetails{$device.'_'.$comand} $devicedetails{$device.'_'.$comand.'arg'}";
}
#Variabelersetzung
$cs =~ s/\$NAME/$hash->{helper}{eventfrom}/;
$cs =~ s/\$SELF/$name/;
if ( $devicedetails{$timerkey} eq "0"
|| $devicedetails{$timerkey} eq "" )
{
# teste auf condition
# antwort $execute 1 oder 0 ;
$conditionkey = $device . "_condition" . $comand;
my $execute =
MSwitch_checkcondition( $devicedetails{$conditionkey},
$name, $event );
$testtoggle = 'undef';
if ( $execute eq 'true' ) {
$lastdevice = $device ;
$testtoggle = $cs;
#############
Log3( $name, 3,
"$name MSwitch_Restartcm: Befehlsausfuehrung -> $cs "
. __LINE__ );
my $toggle = '';
if ( $cs =~ m/set (.*)(MSwitchtoggle)(.*)/ ) {
$toggle = $cs;
$cs = MSwitch_toggle( $hash, $cs );
}
MSwitch_LOG( $name, 6,
"$name: auszufuehrender Befehl -> " . $cs );
# neu
$devicedetails{ $device . '_repeatcount' } = 0
if !defined $devicedetails{ $device . '_repeatcount' };
$devicedetails{ $device . '_repeattime' } = 0
if !defined $devicedetails{ $device . '_repeattime' };
MSwitch_LOG( $name, 6, "$name: teste auf repeasts " );
my $x = 0;
while ( $devicedetails{ $device . '_repeatcount' } =~
m/\[(.*)\:(.*)\]/ )
{
$x++; # exit
last if $x > 20; # exit
my $setmagic = ReadingsVal( $1, $2, 0 );
$devicedetails{ $device . '_repeatcount' } = $setmagic;
}
$x = 0;
while ( $devicedetails{ $device . '_repeattime' } =~
m/\[(.*)\:(.*)\]/ )
{
$x++; # exit
last if $x > 20; # exit
my $setmagic = ReadingsVal( $1, $2, 0 );
$devicedetails{ $device . '_repeattime' } = $setmagic;
}
if ( $devicedetails{ $device . '_repeatcount' } eq "" ) {
$devicedetails{ $device . '_repeatcount' } = 0;
}
if ( $devicedetails{ $device . '_repeattime' } eq "" ) {
$devicedetails{ $device . '_repeattime' } = 0;
}
MSwitch_LOG( $name, 6,
"$name: anzahl repeats -> "
. $devicedetails{ $device . '_repeatcount' } );
MSwitch_LOG( $name, 6,
"$name: delay repeats -> "
. $devicedetails{ $device . '_repeattime' } );
if ( $expertmode eq '1'
&& $devicedetails{ $device . '_repeatcount' } > 0
&& $devicedetails{ $device . '_repeattime' } > 0 )
{
my $i;
for (
$i = 0 ;
$i <= $devicedetails{ $device . '_repeatcount' } ;
$i++
)
{
my $msg = $cs . "|" . $name;
if ( $toggle ne '' ) {
$msg = $toggle . "|" . $name;
}
my $timecond =
gettimeofday() +
( ( $i + 1 ) *
$devicedetails{ $device . '_repeattime' } );
$msg = $msg . "," . $timecond;
$hash->{helper}{repeats}{$timecond} = "$msg";
MSwitch_LOG( $name, 6,
"$name: repeat gesetzt -> "
. $timecond . " "
. $msg );
InternalTimer( $timecond, "MSwitch_repeat", $msg );
if ( $out eq '1' ) {
MSwitch_LOG( $name, 6,
"$name: Abbruchbefehl erhalten von "
. $device );
$lastdevice = $device ;
last LOOP45;
}
}
}
my $todec = $cs;
$cs = MSwitch_dec( $hash, $todec );
############################
if ( $debugmode eq '2' ) {
MSwitch_LOG( $name, 6, "$name: execute -> " . $cs );
}
else {
if ( $cs =~ m/{.*}/ ) {
eval($cs);
if ($@) {
MSwitch_LOG( $name, 1,
"$name MSwitch_Set: ERROR $cs: $@ "
. __LINE__ );
}
if ( $out eq '1' ) {
MSwitch_LOG( $name, 6,
"$name: Abbruchbefehl erhalten von "
. $device );
$lastdevice = $device ;
last LOOP45;
}
}
else {
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
MSwitch_LOG( $name, 1, "$name Absent_Exec_Notif $comand: ERROR $device: $errors -> Comand: $cs");
}
if ( $out eq '1' ) {
MSwitch_LOG( $name, 6,
"$name: Abbruchbefehl erhalten von "
. $device );
$lastdevice = $device ;
last LOOP45;
}
}
}
my $msg = $cs;
if ( length($msg) > 100 ) {
$msg = substr( $msg, 0, 100 ) . '....';
}
readingsSingleUpdate( $hash, "last_exec_cmd", $msg, 1 )
if $msg ne '';
}
}
else {
if ($attrrandomtime ne ''
&& $devicedetails{$timerkey} eq '[random]' )
{
$devicedetails{$timerkey} =
MSwitch_Execute_randomtimer($hash);
# ersetzt $devicedetails{$timerkey} gegen randomtimer
}
elsif ( $attrrandomtime eq ''
&& $devicedetails{$timerkey} eq '[random]' )
{
$devicedetails{$timerkey} = 0;
}
my $timecond = gettimeofday() + $devicedetails{$timerkey};
my $delaykey = $device . "_delayat" . $comand;
my $delayinhalt = $devicedetails{$delaykey};
my $delaykey1 = $device . "_delayat" . $comand . "org";
my $teststateorg = $devicedetails{$delaykey1};
$conditionkey = $device . "_condition" . $comand;
my $execute = "true";
if ( $delayinhalt ne "delay2" && $delayinhalt ne "at02" ) {
$execute =
MSwitch_checkcondition( $devicedetails{$conditionkey},
$name, $event );
}
if ( $execute eq "true" ) {
if ( $delayinhalt eq 'at0' || $delayinhalt eq 'at1' ) {
$timecond =
MSwitch_replace_delay( $hash, $teststateorg );
}
if ( $delayinhalt eq 'at1' || $delayinhalt eq 'delay0' ) {
$conditionkey = "nocheck";
}
$cs =~ s/,/##/g;
my $msg =
$cs . "#[tr]"
. $name . "#[tr]"
. $conditionkey . "#[tr]"
. $event . "#[tr]"
. $timecond . "#[tr]"
. $device;
$hash->{helper}{delays}{$msg} = $timecond;
$testtoggle = 'undef';
MSwitch_LOG( $name, 6,
"$name: timer gesetzt -> " . $cs );
MSwitch_LOG( $name, 6,
"$name: timer gesetzt name -> " . $name );
MSwitch_LOG( $name, 6,
"$name: timer gesetzt conditionkey-> "
. $conditionkey );
MSwitch_LOG( $name, 6,
"$name: timer gesetzt event-> " . $event );
MSwitch_LOG( $name, 6,
"$name: timer gesetzt timecond-> " . $timecond );
MSwitch_LOG( $name, 6,
"$name: timer gesetzt -> device " . $device );
InternalTimer( $timecond, "MSwitch_Restartcmd", $msg );
if ( $out eq '1' ) {
MSwitch_LOG( $name, 6,
"$name: Abbruchbefehl erhalten von " . $device );
$lastdevice = $device ;
last LOOP45;
}
}
}
}
if ( $testtoggle ne '' && $testtoggle ne 'undef' ) {
$satz .= $testtoggle . ',';
}
}
if ( $expertmode eq "1" && $lastdevice) {
readingsSingleUpdate( $hash, "last_cmd", $hash->{helper}{priorityids}{$lastdevice}, 1 );
}
MSwitch_LOG( $name, 6, "$name: return aus execnotif -> " . $satz ) if $satz;
return $satz;
}
####################
sub MSwitch_Filter_Trigger($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
MSwitch_LOG( $Name, 5, "$Name: filter saved vents " );
my $Triggerdevice = $hash->{Trigger_device};
my $triggeron = ReadingsVal( $Name, '.Trigger_on', 'no_trigger' );
if ( !defined $triggeron ) { $triggeron = "" }
my $triggeroff = ReadingsVal( $Name, '.Trigger_off', 'no_trigger' );
if ( !defined $triggeroff ) { $triggeroff = "" }
my $triggercmdon = ReadingsVal( $Name, '.Trigger_cmd_on', 'no_trigger' );
if ( !defined $triggercmdon ) { $triggercmdon = "" }
my $triggercmdoff = ReadingsVal( $Name, '.Trigger_cmd_off', 'no_trigger' );
if ( !defined $triggercmdoff ) { $triggercmdoff = "" }
my $triggerdevice = ReadingsVal( $Name, 'Trigger_device', '' );
delete( $hash->{helper}{events}{$Triggerdevice} );
$hash->{helper}{events}{$Triggerdevice}{'no_trigger'} = "on";
$hash->{helper}{events}{$Triggerdevice}{$triggeron} = "on";
$hash->{helper}{events}{$Triggerdevice}{$triggeroff} = "on";
$hash->{helper}{events}{$Triggerdevice}{$triggercmdon} = "on";
$hash->{helper}{events}{$Triggerdevice}{$triggercmdoff} = "on";
my $events = ReadingsVal( $Name, '.Device_Events', '' );
MSwitch_LOG( $Name, 5, "$Name: eventfile " . $events );
my @eventsall = split( /#\[tr\]/, $events );
EVENT: foreach my $eventcopy (@eventsall) {
MSwitch_LOG( $Name, 5, "$Name: getestetes event " . $eventcopy );
my @filters =
split( /,/, AttrVal( $Name, 'MSwitch_Trigger_Filter', '' ) )
; # beinhaltet filter durch komma getrennt
foreach my $filter (@filters) {
if ( $filter eq "*" ) { $filter = ".*"; }
MSwitch_LOG( $Name, 5, "$Name: getesteter Filter -> " . $filter );
if ( $eventcopy =~ m/$filter/ ) {
MSwitch_LOG( $Name, 5,
"$Name: eingehendes Event ausgefiltert " );
next EVENT;
}
}
$hash->{helper}{events}{$Triggerdevice}{$eventcopy} = "on";
}
my $eventhash = $hash->{helper}{events}{$Triggerdevice};
$events = "";
foreach my $name ( keys %{$eventhash} ) {
$events = $events . $name . '#[tr]';
}
chop($events);
chop($events);
chop($events);
chop($events);
chop($events);
readingsSingleUpdate( $hash, ".Device_Events", $events, 0 );
return;
}
####################
sub MSwitch_Restartcmd($) {
my $incomming = $_[0];
my @msgarray = split( /#\[tr\]/, $incomming );
my $name = $msgarray[1];
my $hash = $modules{MSwitch}{defptr}{$name};
return "" if ( IsDisabled($name) );
return if ( AttrVal( $name, 'MSwitch_Mode', "Full" ) eq 'Dummy' );
$hash->{eventsave} = 'unsaved';
MSwitch_LOG( $name, 6, "----------------------------------------" );
MSwitch_LOG( $name, 6, "$name: aufruf restartcmd -> " . $incomming );
MSwitch_LOG( $name, 6, "----------------------------------------" );
# checke versionskonflikt der datenstruktur
if ( ReadingsVal( $name, '.V_Check', $vupdate ) ne $vupdate ) {
my $ver = ReadingsVal( $name, '.V_Check', '' );
MSwitch_LOG( $name, 5, "$name: Versionskonflikt - aktion abgebrochen" );
return;
}
my $cs = $msgarray[0];
$cs =~ s/##/,/g;
my $conditionkey = $msgarray[2];
my $event = $msgarray[2];
my $device = $msgarray[5];
#MSwitch_LOG( $name, 0, "$name: conditionkey -> " . $conditionkey );
MSwitch_LOG( $name, 5, "$name: erstelle cmdhash -> " . $name );
my %devicedetails = MSwitch_makeCmdHash($name);
if ( AttrVal( $name, 'MSwitch_RandomNumber', '' ) ne '' ) {
MSwitch_Createnumber1($hash);
}
############ teste auf condition
### antwort $execute 1 oder 0 ;
my $execute = "true";
$devicedetails{$conditionkey} = "nocheck" if $conditionkey eq "nocheck";
MSwitch_LOG( $name, 5,"$name: kein aufruf checkcondition - nicht gesetzt ->".$execute ) if $conditionkey eq "nocheck" || $devicedetails{$conditionkey} eq '' || $devicedetails{$conditionkey} eq 'nocheck';
if ( $msgarray[2] ne 'nocheck' ) {
MSwitch_LOG( $name, 5, "$name: aufruf checkcondition mit -> " . $devicedetails{$conditionkey} );
$execute = MSwitch_checkcondition( $devicedetails{$conditionkey}, $name,
$event );
MSwitch_LOG( $name, 5,"$name: ergebniss checkcondition -> " . $execute );
}
my $toggle = '';
if ( $execute eq 'true' ) {
Log3( $name, 3, "$name MSwitch_Restartcm: Befehlsausfuehrung -> $cs " . __LINE__ );
if ( $cs =~ m/set (.*)(MSwitchtoggle)(.*)/ ) {
$toggle = $cs;
$cs = MSwitch_toggle( $hash, $cs );
}
MSwitch_LOG( $name, 5,
"$name: teste repeat -> "
. $devicedetails{ $device . '_repeatcount' } );
my $x = 0;
while (
$devicedetails{ $device . '_repeatcount' } =~ m/\[(.*)\:(.*)\]/ )
{
$x++; # notausstieg notausstieg
last if $x > 20; # notausstieg notausstieg
my $setmagic = ReadingsVal( $1, $2, 0 );
$devicedetails{ $device . '_repeatcount' } = $setmagic;
}
$x = 0;
while ( $devicedetails{ $device . '_repeattime' } =~ m/\[(.*)\:(.*)\]/ )
{
$x++; # notausstieg notausstieg
last if $x > 20; # notausstieg notausstieg
my $setmagic = ReadingsVal( $1, $2, 0 );
$devicedetails{ $device . '_repeattime' } = $setmagic;
}
MSwitch_LOG( $name, 5,
"$name: repetcount nach test -> "
. $devicedetails{ $device . '_repeatcount' } );
MSwitch_LOG( $name, 5,
"$name: repeattime nach test -> "
. $devicedetails{ $device . '_repeattime' } );
#MSwitch_LOG( $name, 0, "$name repeattime ".$devicedetails{ $device . '_repeattime' } );
#MSwitch_LOG( $name, 0, "$name repeatcount ".$devicedetails{ $device . '_repeatcount' });
######################################
if ( AttrVal( $name, 'MSwitch_Expert', "0" ) eq '1'
&& $devicedetails{ $device . '_repeatcount' } > 0
&& $devicedetails{ $device . '_repeattime' } > 0 )
{
my $i;
for (
$i = 0 ;
$i <= $devicedetails{ $device . '_repeatcount' } ;
$i++
)
{
my $msg = $cs . "|" . $name;
if ( $toggle ne '' ) {
$msg = $toggle . "|" . $name;
}
my $timecond = gettimeofday() +
( ( $i + 1 ) * $devicedetails{ $device . '_repeattime' } );
$msg = $msg . "|" . $timecond;
$hash->{helper}{repeats}{$timecond} = "$msg";
MSwitch_LOG( $name, 5,
"$name: repeat gesetzt -> " . $timecond . " - " . $msg );
InternalTimer( $timecond, "MSwitch_repeat", $msg );
}
}
my $todec = $cs;
$cs = MSwitch_dec( $hash, $todec );
############################
if ( AttrVal( $name, 'MSwitch_Debug', "0" ) eq '2' ) {
MSwitch_LOG( $name, 5, "$name: exec comand -> " . $cs );
}
else {
if ( $cs =~ m/{.*}/ ) {
MSwitch_LOG( $name, 5,
"$name: exec als perlcode -> " . $cs );
eval($cs);
if ($@) {
MSwitch_LOG( $name, 1,
"$name MSwitch_Set: ERROR $cs: $@ " . __LINE__ );
}
}
else {
MSwitch_LOG( $name, 5,
"$name: execute als fhemcode -> " . $cs );
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
MSwitch_LOG( $name, 1,
"$name MSwitch_Restartcmd :Fehler bei Befehlsausfuehrung ERROR $errors "
. __LINE__ );
}
}
}
if ( length($cs) > 100
&& AttrVal( $name, 'MSwitch_Debug', "0" ) ne '4' )
{
$cs = substr( $cs, 0, 100 ) . '....';
}
readingsSingleUpdate( $hash, "last_exec_cmd", $cs, 1 ) if $cs ne '';
}
RemoveInternalTimer($incomming);
delete( $hash->{helper}{delays}{$incomming} );
return;
}
####################
sub MSwitch_checkcondition($$$) {
# antwort execute 0 oder 1
my ( $condition, $name, $event ) = @_;
my $hash = $modules{MSwitch}{defptr}{$name};
my $attrrandomnumber = AttrVal( $name, 'MSwitch_RandomNumber', '' );
#### kompatibilität v < 2.01
$condition =~ s/\[\$EVENT\]/"\$EVENT"/g;
$condition =~ s/\[\$EVTFULL\]/"\$EVTFULL"/g;
$condition =~ s/\[\$EVTPART1\]/"\$EVTPART1"/g;
$condition =~ s/\[\$EVTPART2\]/"\$EVTPART2"/g;
$condition =~ s/\[\$EVTPART3\]/"\$EVTPART3"/g;
MSwitch_LOG( $name, 6,
"$name: Checkcondition - Parameter condition -> " . $condition );
MSwitch_LOG( $name, 6,
"$name: Checkcondition - Parameter event -> " . $event );
if ( !defined($condition) ) { return 'true'; }
if ( $condition eq '' ) { return 'true'; }
#MSwitch_LOG( $name, 0,"$name: searchstring erreicht -> " .$condition );
###### perlersetzung
##############
my $x = 0;
my $field ="";
my $SELF = $name;
while ( $condition =~ m/(.*)\{(.+)\}(.*)/ ) {
my $firstpart = $1;
my $secondpart = $2;
my $lastpart = $3;
my $exec = "\$field = ".$2;
# MSwitch_LOG( $name, 0,"$name: secondpart -> " .$secondpart );
if ($secondpart =~ m/(!\$.*|\$.*)/)
{
#MSwitch_LOG( $name, 0,"$name: found var exec -> " .$field );
$field = $secondpart;
}
else{
eval ($exec);
}
#MSwitch_LOG( $name, 0,"$name: exec -> " .$exec );
#
#if ($field eq "!\$we" || $field eq "\$we" )
if ($field =~ m/([0-9]{2}):([0-9]{2}):([0-9]{2})/)
{
my $hh =$1;
if ($hh > 23){$hh= $hh -24};
if ($hh < 10){$hh= "0".$hh};
$field = $hh.":".$2;
}
$condition = $firstpart . $field . $lastpart;
$x++;
last if $x > 10; #notausstieg
}
#MSwitch_LOG( $name, 0,"$name: searchstring erreicht -> " .$condition );
if ( $attrrandomnumber ne '' ) {
MSwitch_Createnumber($hash);
}
my $anzahlk1 = $condition =~ tr/{//;
my $anzahlk2 = $condition =~ tr/}//;
if ( $anzahlk1 ne $anzahlk2 ) {
$hash->{helper}{conditioncheck} = "Klammerfehler";
return "false";
}
$anzahlk1 = $condition =~ tr/(//;
$anzahlk2 = $condition =~ tr/)//;
if ( $anzahlk1 ne $anzahlk2 ) {
$hash->{helper}{conditioncheck} = "Klammerfehler";
return "false";
}
$anzahlk1 = $condition =~ tr/[//;
$anzahlk2 = $condition =~ tr/]//;
if ( $anzahlk1 ne $anzahlk2 ) {
$hash->{helper}{conditioncheck} = "Klammerfehler";
return "false";
}
my $arraycount = '0';
my $finalstring;
my $answer;
my $i;
my $pos;
my $pos1;
my $part;
my $part1;
my $part2;
my $part3;
my $lenght;
# wildcardcheck
my $we = AnalyzeCommand( 0, '{return $we}' );
my @perlarray;
### perlteile trennen
#######################
my @evtparts;
if ($event){
@evtparts = split( /:/, $event ) ;
}
else
{
$event ="";
$evtparts[0]="";
$evtparts[1]="";
$evtparts[2]="";
}
my $evtsanzahl = @evtparts;
if ( $evtsanzahl < 3 ) {
my $eventfrom = $hash->{helper}{eventfrom};
unshift( @evtparts, $eventfrom );
$evtsanzahl = @evtparts;
}
my $evtfull = join( ':', @evtparts );
$evtparts[2] = '' if !defined $evtparts[2];
$condition =~ s/\$EVENT/$event/ig;
$condition =~ s/\$EVTFULL/$evtfull/ig;
$condition =~ s/\$EVTPART1/$evtparts[0]/ig;
$condition =~ s/\$EVTPART2/$evtparts[1]/ig;
$condition =~ s/\$EVTPART3/$evtparts[2]/ig;
Log3( $name, 5, "condition: " . $condition );
######################################
$condition =~ s/{!\$we}/ !\$we /ig;
$condition =~ s/{\$we}/ \$we /ig;
$condition =~ s/{sunset\(\)}/{ sunset\(\) }/ig;
$condition =~ s/{sunrise\(\)}/{ sunrise\(\) }/ig;
$x = 0;
while ( $condition =~ m/(.*?)(\$NAME)(.*)?/ ) {
my $firstpart = $1;
my $secondpart = $2;
my $lastpart = $3;
$condition = $firstpart . $name . $lastpart;
$x++;
last if $x > 10; #notausstieg
}
$x = 0;
while ( $condition =~ m/(.*?)(\$SELF)(.*)?/ ) {
my $firstpart = $1;
my $secondpart = $2;
my $lastpart = $3;
$condition = $firstpart . $name . $lastpart;
$x++;
last if $x > 10; #notausstieg
}
my $searchstring;
$x = 0;
while ( $condition =~
m/(.*?)(\[\[[a-zA-Z][a-zA-Z0-9_]{0,30}:[a-zA-Z0-9_]{0,30}\]-\[[a-zA-Z][a-zA-Z0-9_]{0,30}:[a-zA-Z0-9_]{0,30}\]\])(.*)?/
)
{
my $firstpart = $1;
$searchstring = $2;
my $lastpart = $3;
$x++;
last if $x > 10; #notausstieg
my $x = 0;
# Searchstring -> [[t1:state]-[t2:state]]
while ( $searchstring =~
m/(.*?)(\[[a-zA-Z][a-zA-Z0-9_]{0,30}:[a-zA-Z0-9_]{0,30}\])(.*)?/ )
{
my $read1 = '';
my $firstpart = $1;
my $secsearchstring = $2;
my $lastpart = $3;
if ( $secsearchstring =~ m/\[(.*):(.*)\]/ ) {
$read1 = ReadingsVal( $1, $2, 'undef' );
}
$searchstring = $firstpart . $read1 . $lastpart;
$x++;
last if $x > 10; #notausstieg
}
$condition = $firstpart . $searchstring . $lastpart;
}
$x = 0;
while ( $condition =~ m/(.*)({ )(.*)(\$we)( })(.*)/ ) {
last if $x > 20; # notausstieg
$condition = $1 . " " . $3 . $4 . " " . $6;
}
###################################################
# ersetzte sunset sunrise
$x = 0; # notausstieg
while (
$condition =~ m/(.*)({ )(sunset\([^}]*\)|sunrise\([^}]*\))( })(.*)/ )
{
$x++; # notausstieg
last if $x > 20; # notausstieg
if ( defined $2 ) {
my $part2 = eval $3;
chop($part2);
chop($part2);
chop($part2);
my ( $testhour, $testmin ) = split( /:/, $part2 );
if ( $testhour > 23 ) {
$testhour = $testhour - 24;
$testhour = '0' . $testhour if $testhour < 10;
$part2 = $testhour . ':' . $testmin;
}
# else{
#$testhour = '0' . $testhour if $testhour < 10;
# $part2 = $testhour . ':' . $testmin;
#}
#MSwitch_LOG( $name, 0,"$name: Checkcondition - Parameter part2 -> " . $part2 );
$condition = $part2;
$condition = $1 . $condition if ( defined $1 );
$condition = $condition . $5 if ( defined $5 );
}
}
my $conditioncopy = $condition;
my @argarray;
$arraycount = '0';
$pos = '';
$pos1 = '';
$part = '';
$part1 = '';
$part2 = '';
$part3 = '';
$lenght = '';
## verursacht fehlerkennung bei angabe von regex [a-zA-Z]
ARGUMENT: for ( $i = 0 ; $i <= 10 ; $i++ ) {
$pos = index( $condition, "[", 0 );
my $x = $pos;
if ( $x == '-1' ) { last ARGUMENT; }
$pos1 = index( $condition, "]", 0 );
$argarray[$arraycount] =
substr( $condition, $pos, ( $pos1 + 1 - $pos ) );
$lenght = length($condition);
$part1 = substr( $condition, 0, $pos );
$part2 = 'ARG' . $arraycount;
$part3 =
substr( $condition, ( $pos1 + 1 ), ( $lenght - ( $pos1 + 1 ) ) );
$condition = $part1 . $part2 . $part3;
$arraycount++;
}
$condition =~ s/ AND / && /ig;
$condition =~ s/ OR / || /ig;
#$condition =~ s/~/ /ig;
$condition =~ s/ = / == /ig;
END:
# teste auf typ
my $count = 0;
my $testarg;
my @newargarray;
foreach my $args (@argarray) {
$testarg = $args;
$testarg =~ s/[0-9]+//gs;
if ( $testarg eq '[:-:|]' || $testarg eq '[:-:]' ) {
# timerformatierung erkannt - auswerten über sub
# my $param = $argarray[$count];
# MSwitch_LOG( $name, 0,
# "$name: Checkcondition - Parameter args -> " . $args );
$newargarray[$count] = MSwitch_Checkcond_time( $args, $name );
}
elsif ( $testarg =~ '[.*:.*]' ) {
# my $param = $argarray[$count];
# stateformatierung erkannt - auswerten über sub
$newargarray[$count] = MSwitch_Checkcond_state( $args, $name );
}
else {
$newargarray[$count] = $args;
}
$count++;
}
$count = 0;
my $tmp;
foreach my $args (@newargarray) {
$tmp = 'ARG' . $count;
$condition =~ s/$tmp/$args/ig;
$count++;
}
$finalstring =
"if (" . $condition . "){\$answer = 'true';} else {\$answer = 'false';} ";
MSwitch_LOG( $name, 6,
"$name: Checkcondition - finalstring -> " . $finalstring );
my $ret = eval $finalstring;
MSwitch_LOG( $name, 6, "$name: Checkcondition - return -> " . $ret );
if ($@) {
MSwitch_LOG( $name, 1, "ERROR: $@ " . __LINE__ );
MSwitch_LOG( $name, 1, "$finalstring " . __LINE__ );
$hash->{helper}{conditionerror} = $@;
return 'false';
}
my $test = ReadingsVal( $name, 'last_event', 'undef' );
$hash->{helper}{conditioncheck} = $finalstring;
return $ret;
}
####################
####################
sub MSwitch_Checkcond_state($$) {
my ( $condition, $name ) = @_;
MSwitch_LOG( $name, 6, "----------------------------------------" );
MSwitch_LOG( $name, 6, "$name: MSwitch_Checkcond_state -> " . $condition );
MSwitch_LOG( $name, 6, "----------------------------------------" );
my $x = 0;
while ( $condition =~ m/(.*?)(\$SELF)(.*)?/ ) {
my $firstpart = $1;
my $secondpart = $2;
my $lastpart = $3;
$condition = $firstpart . $name . $lastpart;
$x++;
last if $x > 10; #notausstieg
}
$condition =~ s/\[//;
$condition =~ s/\]//;
my @reading = split( /:/, $condition );
my $return = "ReadingsVal('$reading[0]', '$reading[1]', '00:00:00')";
my $test = ReadingsVal( $reading[0], $reading[1], 'undef' );
MSwitch_LOG( $name, 6, "$name: MSwitch_Checkcond_state OUT -> " . $return );
return $return;
}
####################
sub MSwitch_Checkcond_time($$) {
my ( $condition, $name ) = @_;
$condition =~ s/\[//;
$condition =~ s/\]//;
my $adday = 0;
my $days = '';
my $daycondition = '';
( $condition, $days ) = split( /\|/, $condition )
if index( $condition, "|", 0 ) > -1;
my $hour1 = substr( $condition, 0, 2 );
my $min1 = substr( $condition, 3, 2 );
my $hour2 = substr( $condition, 6, 2 );
my $min2 = substr( $condition, 9, 2 );
#MSwitch_LOG( $name, 0, "$name: timer-> " . $condition );
#MSwitch_LOG( $name, 0, "$name: hour1-> " . $hour1 );
#MSwitch_LOG( $name, 0, "$name: hour2-> " . $hour2 );
#MSwitch_LOG( $name, 0, "$name: min1-> " . $min1 );
#MSwitch_LOG( $name, 0, "$name: min2-> " . $min2 );
if ( $hour1 eq "24" ) # test auf 24 zeitangabe
{
$hour1 = "00";
}
if ( $hour2 eq "24" ) {
$hour2 = "00";
}
my $time = localtime;
$time =~ s/\s+/ /g;
my ( $day, $month, $date, $n, $time1 ) = split( / /, $time );
my ( $akthour, $aktmin, $aktsec ) = split( /:/, $n );
############ timecondition 1
my $timecondtest;
my $timecond1;
#MSwitch_LOG( $name, 0, "$name: hour1-> " . $hour1 );
#MSwitch_LOG( $name, 0, "$name: hour2-> " . $hour2 );
#my $time1;
my ( $tday, $tmonth, $tdate, $tn ); #my ($tday,$tmonth,$tdate,$tn,$time1);
if ( ( $akthour < $hour1 && $akthour < $hour2 ) && $hour2 < $hour1 ) # und
{
use constant SECONDS_PER_DAY => 60 * 60 * 24;
$timecondtest = localtime( time - SECONDS_PER_DAY );
$timecondtest =~ s/\s+/ /g;
( $tday, $tmonth, $tdate, $tn, $time1 ) = split( / /, $timecondtest );
$timecond1 = timelocal( '00', $min1, $hour1, $tdate, $tmonth, $time1 );
$adday = 1;
}
else {
$timecondtest = localtime;
$timecondtest =~ s/\s+/ /g;
( $tday, $tmonth, $tdate, $tn, $time1 ) = split( / /, $timecondtest );
$timecond1 = timelocal( '00', $min1, $hour1, $tdate, $tmonth, $time1 );
}
############# timecondition 2
my $timecond2;
$timecondtest = localtime;
if ( $hour2 < $hour1 ) {
if ( $akthour < $hour1 && $akthour < $hour2 ) {
$timecondtest = localtime;
$timecondtest =~ s/\s+/ /g;
( $tday, $tmonth, $tdate, $tn, $time1 ) =
split( / /, $timecondtest );
$timecond2 =
timelocal( '00', $min2, $hour2, $tdate, $tmonth, $time1 );
}
else {
use constant SECONDS_PER_DAY => 60 * 60 * 24;
$timecondtest = localtime( time + SECONDS_PER_DAY );
$timecondtest =~ s/\s+/ /g;
my ( $tday, $tmonth, $tdate, $tn, $time1 ) =
split( / /, $timecondtest );
$timecond2 =
timelocal( '00', $min2, $hour2, $tdate, $tmonth, $time1 );
$adday = 1;
}
}
else {
$timecondtest = localtime;
$timecondtest =~ s/\s+/ /g;
( $tday, $tmonth, $tdate, $tn, $time1 ) = split( / /, $timecondtest );
$timecond2 = timelocal( '00', $min2, $hour2, $tdate, $tmonth, $time1 );
}
my $timeaktuell =
timelocal( '00', $aktmin, $akthour, $date, $month, $time1 );
my $return = "($timecond1 < $timeaktuell && $timeaktuell < $timecond2)";
if ( $days ne '' ) {
$daycondition = MSwitch_Checkcond_day( $days, $name, $adday, $day );
$return = "($return $daycondition)";
}
return $return;
}
####################
sub MSwitch_Checkcond_day($$$$) {
my ( $days, $name, $adday, $day ) = @_;
my %daysforcondition = (
"Mon" => 1,
"Tue" => 2,
"Wed" => 3,
"Thu" => 4,
"Fri" => 5,
"Sat" => 6,
"Sun" => 7
);
$day = $daysforcondition{$day};
my @daycond = split //, $days;
my $daycond = '';
foreach my $args (@daycond) {
if ( $adday == 1 ) { $args++; }
if ( $args == 8 ) { $args = 1 }
$daycond = $daycond . "($day == $args) || ";
}
chop $daycond;
chop $daycond;
chop $daycond;
chop $daycond;
$daycond = "&& ($daycond)";
return $daycond;
}
####################
sub MSwitch_Createtimer($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
# keine timer vorhenden
my $condition = ReadingsVal( $Name, '.Trigger_time', '' );
$condition =~ s/#\[dp\]/:/g;
my $x = 0;
while ( $condition =~ m/(.*)(\[)([0-9]?[a-zA-Z]{1}.*)\:(.*)(\])(.*)/ ) {
$x++; # notausstieg notausstieg
last if $x > 20; # notausstieg notausstieg
my $setmagic = ReadingsVal( $3, $4, 0 );
$condition = $1 . '[' . $setmagic . ']' . $6;
}
my $lenght = length($condition);
#remove all timers
MSwitch_Clear_timer($hash);
if ( $lenght == 0 ) {
return;
}
# trenne timerfile
my $key = 'on';
$condition =~ s/$key//ig;
$key = 'off';
$condition =~ s/$key//ig;
$key = 'ly';
$condition =~ s/$key//ig;
$x = 0;
# achtung perl 5.30
while ( $condition =~ m/(.*)\{(.*)\}(.*)/ ) {
$x++; # notausstieg
last if $x > 20; # notausstieg
if ( defined $2 ) {
my $part1 = $1;
my $part3 = $3;
my $part2 = eval $2 ;
if ($part2 !~ m/^[0-9]{2}:[0-9]{2}$|^[0-9]{2}:[0-9]{2}:[0-9]{2}$/)
{
MSwitch_LOG( $Name, 1, "$Name: ERROR wrong format in set timer. There are no timers running. Format must be HH:MM. Format is: $part2 " );
return;
}
$part2 = substr( $part2, 0, 5 );
my $test = substr( $part2, 0, 2 ) * 1;
$part2 = "" if $test > 23;
$condition = $part1 . $part2 . $part3;
}
}
my @timer = split /~/, $condition;
$timer[0] = '' if ( !defined $timer[0] ); #on
$timer[1] = '' if ( !defined $timer[1] ); #off
$timer[2] = '' if ( !defined $timer[2] ); #cmd1
$timer[3] = '' if ( !defined $timer[3] ); #cmd2
$timer[4] = '' if ( !defined $timer[4] ); #cmd1+2
# lösche bei notify und toggle
if ( AttrVal( $Name, 'MSwitch_Mode', 'Full' ) eq "Notify" ) {
$timer[0] = '';
$timer[1] = '';
}
if ( AttrVal( $Name, 'MSwitch_Mode', 'Full' ) eq "Toggle" ) {
$timer[1] = '';
$timer[2] = '';
$timer[3] = '';
$timer[4] = '';
}
my $akttimestamp = TimeNow();
my ( $aktdate, $akttime ) = split / /, $akttimestamp;
my ( $aktyear, $aktmonth, $aktmday ) = split /-/, $aktdate;
$aktmonth = $aktmonth - 1;
$aktyear = $aktyear - 1900;
my $jetzt = gettimeofday();
# aktuelle zeit setzen
my $time = localtime;
$time =~ s/\s+/ /g;
my ( $day, $month, $date, $n, $time1 ) =
split( / /, $time ); # day enthält aktuellen tag als wochentag
my $aktday = $day;
my %daysforcondition = (
"Mon" => 1,
"Tue" => 2,
"Wed" => 3,
"Thu" => 4,
"Fri" => 5,
"Sat" => 6,
"Sun" => 7
);
$day = $daysforcondition{$day}; # enthält aktuellen tag
###
## für jeden Timerfile ( 0 -4 )
my $i = 0;
my $id = "";
LOOP2: foreach my $option (@timer) {
$i++;
$id ="";
#### inhalt array für eine option on , off ...
$key = '\]\[';
$option =~ s/$key/ /ig;
$key = '\[';
$option =~ s/$key//ig;
$key = '\]';
$option =~ s/$key//ig;
if ( $option =~
m/(.*?)([0-9]{2}):([0-9]{2})\*([0-9]{2}:[0-9]{2})-([0-9]{2}:[0-9]{2})\|?([0-9]{0,7})(.*)?/
)
{
my $part1 = '';
$part1 = $1 . ' ' if defined $1;
my $part6 = '';
if ( defined $6 && $part6 ne '' ) { $part6 = '|' . $6 }
my $part7 = '';
$part7 = ' ' . $7 if defined $7;
my $sectoadd = $2 * 3600 + $3 * 60;
my $t1 = $4;
my $t2 = $5;
my $timecondtest = localtime;
$timecondtest =~ s/\s+/ /g;
my ( $tday, $tmonth, $tdate, $tn, $time1 ) =
split( / /, $timecondtest );
my $timecond1 = timelocal(
'00',
substr( $t1, 3, 2 ),
substr( $t1, 0, 2 ),
$tdate, $tmonth, $time1
);
my $timecond2 = timelocal(
'00',
substr( $t2, 3, 2 ),
substr( $t2, 0, 2 ),
$tdate, $tmonth, $time1
);
my @newarray;
while ( $timecond1 < $timecond2 ) {
#my $timestamp = FmtDateTime($timecond1);
my $timestamp =
substr( FmtDateTime($timecond1), 11, 5 ) . $part6;
$timecond1 = $timecond1 + $sectoadd;
push( @newarray, $timestamp );
}
my $newopt = join( ' ', @newarray );
my $newoption = $part1 . $newopt . $part7;
$newoption =~ s/ / /g;
$option = $newoption;
}
my @optionarray = split / /, $option;
# für jede angabe eines files
LOOP3: foreach my $option1 (@optionarray) {
$id ="";
if ( $option1 =~ m/(.*)\|(ID.*)$/)
{
$id = $2;
$option1 =$1;
}
if ( $option1 =~
m/\?(.*)(-)([0-9]{2}:[0-9]{2})(\|[0-9]{0,7})?(.*)?/ )
{
my $testrandom = $1 . $2 . $3;
my $part4 = '';
$part4 = $4 if defined $4;
my $opdays = $part4;
#testrandomsaved erstellen
my $newoption1 = MSwitch_Createrandom( $hash, $1, $3 );
$option1 = $newoption1 . $opdays;
}
if ( $option1 =~ m/{/i || $option1 =~ m/}/i ) {
my $newoption1 = MSwitch_ChangeCode( $hash, $option1 );
$option1 = $newoption1;
}
my ( $time, $days ) = split /\|/, $option1;
$time = '' if ( !defined $time );
$days = '' if ( !defined $days );
if ( $days eq '!$we' || $days eq '$we' ) {
my $we = AnalyzeCommand( 0, '{return $we}' );
if ( $days eq '$we' && $we == 1 ) { $days = $day; }
if ( $days eq '!$we' && $we == 0 ) { $days = $day; }
}
if ( !defined($days) ) { $days = '' }
if ( $days eq '' ) { $days = '1234567' }
if ( index( $days, $day, 0 ) == -1 ) {
next LOOP3;
}
$time = $time . ':00';
delete( $hash->{helper}{error} );
my $timecond = timelocal(
substr( $time, 6, 2 ),
substr( $time, 3, 2 ),
substr( $time, 0, 2 ),
$date, $aktmonth, $aktyear
);
my $test = FmtDateTime($timecond);
my $sectowait = $timecond - $jetzt;
if ( $timecond > $jetzt ) {
my $number = $i;
if ($id ne "" && $i == 3 || $i ==4){ $number =$number +3;}
if ($i == 5 ){ $number = 9;}
if ($id ne "" && $number == 9){ $number = 10;}
my $inhalt = $timecond . "-" . $number.$id;
$hash->{helper}{timer}{$inhalt} = "$inhalt";
my $msg = $Name . " " . $timecond . " " . $number.$id;
InternalTimer( $timecond, "MSwitch_Execute_Timer", $msg );
}
}
}
# berechne zeit bis 23,59 und setze timer auf create timer
my $newask = timelocal( '00', '59', '23', $date, $aktmonth, $aktyear );
$newask = $newask + 70;
my $newassktest = FmtDateTime($newask);
my $msg = $Name . " " . $newask . " " . 5;
my $inhalt = $newask . "-" . 5;
$hash->{helper}{timer}{$newask} = "$inhalt";
InternalTimer( $newask, "MSwitch_Execute_Timer", $msg );
}
##############################
sub MSwitch_Createrandom($$$) {
my ( $hash, $t1, $t2 ) = @_;
my $Name = $hash->{NAME};
my $testrandom = $t1 . "-" . $t2;
my $testt1 = $t1;
my $testt2 = $t2;
$testt1 =~ s/\://g;
$testt2 =~ s/\://g;
my $timecondtest = localtime;
$timecondtest =~ s/\s+/ /g;
my ( $tday, $tmonth, $tdate, $tn, $time1 ) = split( / /, $timecondtest );
my $timecond1 = timelocal(
'00',
substr( $t1, 3, 2 ),
substr( $t1, 0, 2 ),
$tdate, $tmonth, $time1
);
my $timecond2 = timelocal(
'00',
substr( $t2, 3, 2 ),
substr( $t2, 0, 2 ),
$tdate, $tmonth, $time1
);
if ( $testt2 < $testt1 ) { $timecond2 = $timecond2 + 86400 }
my $newtime = int( rand( $timecond2 - $timecond1 ) ) + $timecond1;
my $timestamp = FmtDateTime($newtime);
my $timestamp1 = substr( $timestamp, 11, 5 );
return $timestamp1;
}
###########################
sub MSwitch_Execute_Timer($) {
my ($input) = @_;
my ( $Name, $timecond, $param ) = split( / /, $input );
my $hash = $defs{$Name};
return "" if ( IsDisabled($Name) );
my @string=split(/ID/,$param );
$param = $string[0];
my $execid =0;
$execid = $string[1] if ($string[1]);
$hash->{eventsave} = 'unsaved';
if ( ReadingsVal( $Name, '.V_Check', $vupdate ) ne $vupdate ) {
my $ver = ReadingsVal( $Name, '.V_Check', '' );
Log3( $Name, 1,
$Name
. ' Versionskonflikt, aktion abgebrochen ! erwartet:'
. $vupdate
. ' vorhanden:'
. $ver );
return;
}
if ( AttrVal( $Name, 'MSwitch_RandomNumber', '' ) ne '' ) {
MSwitch_Createnumber1($hash);
}
if ( $param eq '5' ) {
MSwitch_Createtimer($hash);
return;
}
if ( AttrVal( $Name, 'MSwitch_Condition_Time', "0" ) eq '1' ) {
my $triggercondition = ReadingsVal( $Name, '.Trigger_condition', '' );
# $triggercondition =~ s/\./:/g;
$triggercondition =~ s/#\[dp\]/:/g;
$triggercondition =~ s/#\[pt\]/./g;
$triggercondition =~ s/#\[ti\]/~/g;
$triggercondition =~ s/#\[sp\]/ /g;
if ( $triggercondition ne '' ) {
my $ret = MSwitch_checkcondition( $triggercondition, $Name, '' );
if ( $ret eq 'false' ) {
return;
}
}
}
my $extime = POSIX::strftime( "%H:%M", localtime );
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, "EVENT",
$Name . ":execute_timer_P" . $param . ":" . $extime );
readingsBulkUpdate( $hash, "EVTFULL",
$Name . ":execute_timer_P" . $param . ":" . $extime );
readingsBulkUpdate( $hash, "EVTPART1", $Name );
readingsBulkUpdate( $hash, "EVTPART2", "execute_timer_P" . $param );
readingsBulkUpdate( $hash, "EVTPART3", $extime );
readingsEndUpdate( $hash, 1 );
if ( $param eq '1' ) {
my $cs = "set $Name on";
Log3( $Name, 3,
"$Name MSwitch_Execute_Timer: Befehlsausfuehrung -> $cs"
. __LINE__ );
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
Log3( $Name, 1,
"$Name MSwitch_Execute_Timer: Fehler bei Befehlsausfuehrung ERROR $Name: $errors "
. __LINE__ );
}
return;
}
if ( $param eq '2' ) {
my $cs = "set $Name off";
Log3( $Name, 3,
"$Name MSwitch_Execute_Timer: Befehlsausfuehrung -> $cs"
. __LINE__ );
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
Log3( $Name, 1,
"$Name MSwitch_Execute_Timer: Fehler bei Befehlsausfuehrung ERROR $Name: $errors "
. __LINE__ );
}
return;
}
if ( $param eq '3' ) {
MSwitch_Exec_Notif( $hash, 'on', 'nocheck', '', 0 );
return;
}
if ( $param eq '4' ) {
MSwitch_Exec_Notif( $hash, 'off', 'nocheck', '', 0 );
return;
}
if ( $param eq '6' ) {
MSwitch_Exec_Notif( $hash, 'on', 'nocheck', '', $execid );
return;
}
if ( $param eq '7' ) {
MSwitch_Exec_Notif( $hash, 'off', 'nocheck', '', $execid );
return;
}
if ( $param eq '9' ) {
MSwitch_Exec_Notif( $hash, 'on', 'nocheck', '', 0);
MSwitch_Exec_Notif( $hash, 'off', 'nocheck', '', 0 );
return;
}
if ( $param eq '10' ) {
MSwitch_Exec_Notif( $hash, 'on', 'nocheck', '', $execid );
MSwitch_Exec_Notif( $hash, 'off', 'nocheck', '', $execid );
return;
}
return;
}
####################
sub MSwitch_ChangeCode($$) {
my ( $hash, $option ) = @_;
my $Name = $hash->{NAME};
my $x = 0; # exit secure
#achtung perl5.30
while ( $option =~ m/(.*)\{(sunset|sunrise)(.*)\}(.*)/ )
{
$x++; # exit secure
last if $x > 20; # exit secure
if ( defined $2 ) {
my $part2 = eval $2 . $3;
chop($part2);
chop($part2);
chop($part2);
$option = $part2;
$option = $1 . $option if ( defined $1 );
$option = $option . $4 if ( defined $4 );
}
}
return $option;
}
####################
sub MSwitch_Add_Device($$) {
my ( $hash, $device ) = @_;
my $Name = $hash->{NAME};
my @olddevices = split( /,/, ReadingsVal( $Name, '.Device_Affected', '' ) );
my $count = 1;
LOOP7: foreach (@olddevices) {
my ( $devicename, $devicecmd ) = split( /-AbsCmd/, $_ );
if ( $device eq $devicename ) { $count++; }
}
my $newdevices .= ',' . $device . '-AbsCmd' . $count;
my $newset = ReadingsVal( $Name, '.Device_Affected', '' ) . $newdevices;
$newdevices = join( ',', @olddevices ) . ',' . $newdevices;
my @sortdevices = split( /,/, $newdevices );
@sortdevices = sort @sortdevices;
$newdevices = join( ',', @sortdevices );
$newdevices = substr( $newdevices, 1 );
readingsSingleUpdate( $hash, ".Device_Affected", $newdevices, 1 );
return;
}
###################################
sub MSwitch_Del_Device($$) {
my ( $hash, $device ) = @_;
my $Name = $hash->{NAME};
my @olddevices = split( /,/, ReadingsVal( $Name, '.Device_Affected', '' ) );
my @olddevicesset =
split( /#\[ND\]/, ReadingsVal( $Name, '.Device_Affected_Details', '' ) );
my @newdevice;
my @newdevicesset;
my $count = 0;
LOOP8: foreach (@olddevices) {
if ( $device eq $_ ) {
$count++;
next LOOP8;
}
push( @newdevice, $olddevices[$count] );
push( @newdevicesset, $olddevicesset[$count] );
$count++;
}
my ( $devicemaster, $devicedeleted ) = split( /-AbsCmd/, $device );
$count = 1;
my @newdevice1;
LOOP9: foreach (@newdevice) {
my ( $devicename, $devicecmd ) = split( /-AbsCmd/, $_ );
if ( $devicemaster eq $devicename ) {
my $newname = $devicename . '-AbsCmd' . $count;
$count++;
push( @newdevice1, $newname );
next LOOP9;
}
push( @newdevice1, $_ );
}
$count = 1;
my @newdevicesset1;
LOOP10: foreach (@newdevicesset) {
my ( $name, @comands ) = split( /#\[NF\]/, $_ );
my ( $devicename, $devicecmd ) = split( /-AbsCmd/, $name );
if ( $devicemaster eq $devicename ) {
my $newname =
$devicename
. '-AbsCmd'
. $count . '#[NF]'
. join( '#[NF]', @comands );
push( @newdevicesset1, $newname );
$count++;
next LOOP10;
}
push( @newdevicesset1, $_ );
}
my $newaffected = join( ',', @newdevice1 );
if ( $newaffected eq '' ) { $newaffected = 'no_device' }
my $newaffecteddet = join( '#[ND]', @newdevicesset1 );
#return;
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, ".Device_Affected", $newaffected );
readingsBulkUpdate( $hash, ".Device_Affected_Details", $newaffecteddet );
readingsEndUpdate( $hash, 0 );
my $devices = MSwitch_makeAffected($hash);
my $devhash = $hash->{DEF};
my @dev = split( /#/, $devhash );
$hash->{DEF} = $dev[0] . ' # ' . $devices;
}
###################################
sub MSwitch_Debug($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $debug1 = ReadingsVal( $Name, '.Device_Affected', 0 );
my $debug2 = ReadingsVal( $Name, '.Device_Affected_Details', 0 );
my $debug3 = ReadingsVal( $Name, '.Device_Events', 0 );
$debug2 =~ s/:/ /ig;
$debug3 =~ s/,/, /ig;
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, "Device_Affected", $debug1 );
readingsBulkUpdate( $hash, "Device_Affected_Details", $debug2 );
readingsBulkUpdate( $hash, "Device_Events", $debug3 );
readingsEndUpdate( $hash, 0 );
}
###################################
sub MSwitch_Delete_Delay($$) {
my ( $hash, $device ) = @_;
my $Name = $hash->{NAME};
my $timehash = $hash->{helper}{delays};
MSwitch_LOG( $Name, 5, "$Name: Delays geloescht ! " );
if ( $device eq 'all' ) {
foreach my $a ( keys %{$timehash} ) {
my $inhalt = $hash->{helper}{delays}{$a};
RemoveInternalTimer($a);
RemoveInternalTimer($inhalt);
delete( $hash->{helper}{delays}{$a} );
}
}
else {
foreach my $a ( keys %{$timehash} ) {
my $pos = index( $a, "$device", 0 );
if ( $pos != -1 ) {
RemoveInternalTimer($a);
my $inhalt = $hash->{helper}{delays}{$a};
RemoveInternalTimer($a);
RemoveInternalTimer($inhalt);
delete( $hash->{helper}{delays}{$a} );
}
}
}
}
###################################
sub MSwitch_Clear_timer($) {
my ( $hash, $device ) = @_;
my $name = $hash->{NAME};
my $timehash = $hash->{helper}{timer};
foreach my $a ( keys %{$timehash} ) {
my $inhalt = $hash->{helper}{timer}{$a};
RemoveInternalTimer($inhalt);
$inhalt = $hash->{helper}{timer}{$a};
$inhalt =~ s/-/ /g;
$inhalt = $name . ' ' . $inhalt;
RemoveInternalTimer($inhalt);
}
delete( $hash->{helper}{timer} );
}
##################################
# Eventsimulation
sub MSwitch_Check_Event($$) {
my ( $hash, $eventin ) = @_;
my $Name = $hash->{NAME};
$eventin =~ s/~/ /g;
my $dev_hash = "";
if ( ReadingsVal( $Name, 'Trigger_device', '' ) eq "all_events" ) {
my @eventin = split( /:/, $eventin );
$dev_hash = $defs{ $eventin[0] };
$hash->{helper}{testevent_device} = $eventin[0];
$hash->{helper}{testevent_event} = $eventin[1] . ":" . $eventin[2];
$hash->{helper}{testevent_event} = $eventin[1] . ":" . $eventin[2];
}
else {
my @eventin = split( /:/, $eventin );
$dev_hash = $defs{ ReadingsVal( $Name, 'Trigger_device', '' ) };
$hash->{helper}{testevent_device} =
ReadingsVal( $Name, 'Trigger_device', '' );
$hash->{helper}{testevent_event} = $eventin[0] . ":" . $eventin[1];
}
my $we = AnalyzeCommand( 0, '{return $we}' );
MSwitch_Notify( $hash, $dev_hash );
delete( $hash->{helper}{testevent_device} );
delete( $hash->{helper}{testevent_event} );
delete( $hash->{helper}{testevent_event1} );
return;
}
#########################################
sub MSwitch_makeAffected($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $devices = '';
my %saveaffected;
my @affname;
my $affected = ReadingsVal( $Name, '.Device_Affected', 'nodevices' );
my @affected = split( /,/, $affected );
LOOP30: foreach (@affected) {
@affname = split( /-/, $_ );
$saveaffected{ $affname[0] } = 'on';
}
foreach my $a ( keys %saveaffected ) {
$devices = $devices . $a . ' ';
}
chop($devices);
return $devices;
}
#############################
sub MSwitch_checktrigger(@) {
my ( $own_hash, $ownName, $eventstellen, $triggerfield, $device, $zweig,
$eventcopy, @eventsplit )
= @_;
my $triggeron = ReadingsVal( $ownName, '.Trigger_on', '' );
my $triggeroff = ReadingsVal( $ownName, '.Trigger_off', '' );
my $triggercmdon = ReadingsVal( $ownName, '.Trigger_cmd_on', '' );
my $triggercmdoff = ReadingsVal( $ownName, '.Trigger_cmd_off', '' );
my $answer = "";
if ( $triggerfield =~ m/{(.*)}/ )
{
my $SELF = $ownName;
my $exec = "\$triggerfield = ".$1;
eval ($exec);
}
unshift( @eventsplit, $device )
if ReadingsVal( $ownName, 'Trigger_device', '' ) eq "all_events";
if ( ReadingsVal( $ownName, 'Trigger_device', '' ) eq "all_events" ) {
$eventcopy = $device . ":" . $eventcopy;
if ( $triggerfield eq "*" ) {
$triggerfield = "*:*:*";
}
}
if ( $triggerfield eq "*"
&& ReadingsVal( $ownName, 'Trigger_device', '' ) ne "all_events" )
{
$triggerfield = "*:*";
}
$triggerfield =~ s/\*/.*/g;
# erkennunhg der formartierung bis v1.66 ( <1.67)
my $x = 0;
while ( $triggerfield =~ m/(.*)(\()(.*)(\/)(.*)(\))(.*)/ ) {
$x++; # exit secure
last if $x > 20; # exit secure
$triggerfield = $1 . $3 . "|" . $5 . $7;
}
################
if ( $eventcopy =~ m/^$triggerfield/ ) {
$answer = "wahr";
}
return 'on'
if $zweig eq 'on'
&& $answer eq 'wahr'
&& $eventcopy ne $triggercmdoff
&& $eventcopy ne $triggercmdon
&& $eventcopy ne $triggeroff;
return 'off'
if $zweig eq 'off'
&& $answer eq 'wahr'
&& $eventcopy ne $triggercmdoff
&& $eventcopy ne $triggercmdon
&& $eventcopy ne $triggeron;
return 'offonly' if $zweig eq 'offonly' && $answer eq 'wahr';
return 'ononly' if $zweig eq 'ononly' && $answer eq 'wahr';
return 'undef';
}
###############################
sub MSwitch_VUpdate($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
readingsSingleUpdate( $hash, ".V_Check", $vupdate, 0 );
# my $devs = ReadingsVal( $Name, '.Device_Affected_Details', '' );
# # encode from old format
# $devs =~ s/,/#[NF]/g;
# $devs =~ s/\|/#[ND]/g;
# $devs =~ s/~/ /g;
# $devs =~ s/\[cnl\]/\n/g;
# $devs =~ s/\[se\]/;/g;
# $devs =~ s/#\[ko\]/,/g;
# $devs =~ s/#\[sp\]/ /g;
# # decode to new format
# $devs =~ s/#\[wa\]/|/g;
# $devs =~ s/\n/#[nl]/g;
# $devs =~ s/;/#[se]/g;
# $devs =~ s/\:/#[dp]/g;
# $devs =~ s/\t/ /g;
# $devs =~ s/ /#[sp]/g;
# $devs =~ s/\\/#[bs]/g;
# $devs =~ s/,/#[ko]/g;
# $devs =~ s/^#\[/#[eo]/g;
# $devs =~ s/^#\]/#[ec]/g;
# $devs =~ s/\|/#[wa]/g;
# # change timerkey to new format
# my $x = 0;
# while ( $devs =~ m/(.*#\[NF\])([0-9]{2})([0-9]{2})([0-9]{2})(#\[NF\].*)/ ) {
# $x++; # exit
# last if $x > 20; # exit
# $devs = $1 . $2 . "#[dp]" . $3 . "#[dp]" . $4 . $5;
# }
# readingsSingleUpdate( $hash, ".Device_Affected_Details", $devs, 0 );
#fhem("deletereading $Name Exec_cmd");
return;
}
################################
sub MSwitch_backup($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $testreading = $hash->{READINGS} ;
my @areadings = ( keys %{ $testreading });
my %keys;
open( BACKUPDATEI, ">MSwitch_backup_$vupdate.cfg" )
; # Datei zum Schreiben öffnen
print BACKUPDATEI "# Mswitch Devices\n"; #
foreach my $testdevice ( keys %{ $modules{MSwitch}{defptr} } ) #
{
print BACKUPDATEI "$testdevice\n";
}
print BACKUPDATEI "# Mswitch Devices END\n"; #
print BACKUPDATEI "\n"; # HTML-Datei schreiben
foreach my $testdevice ( keys %{ $modules{MSwitch}{defptr} } ) #
{
print BACKUPDATEI "#N -> $testdevice\n"; #
foreach my $key (@areadings) {
my $tmp = ReadingsVal( $testdevice, $key, 'undef' );
print BACKUPDATEI "#S $key -> $tmp\n";
}
my %keys;
foreach my $attrdevice ( keys %{ $attr{$testdevice} } ) #geht
{
print BACKUPDATEI "#A $attrdevice -> "
. AttrVal( $testdevice, $attrdevice, '' ) . "\n";
}
print BACKUPDATEI "#E -> $testdevice\n";
print BACKUPDATEI "\n";
}
close(BACKUPDATEI);
}
################################
sub MSwitch_backup_this($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $Zeilen = ("");
my $Zeilen1 = "";
open( BACKUPDATEI, "<MSwitch_backup_$vupdate.cfg" )
|| return "no Backupfile found!\n";
while (<BACKUPDATEI>) {
$Zeilen = $Zeilen . $_;
}
close(BACKUPDATEI);
$Zeilen =~ s/\n/[NL]/g;
if ( $Zeilen !~ m/#N -> $Name\[NL\](.*)#E -> $Name\[NL\]/ ) {
return "no Backupfile found\n";
}
my @found = split( /\[NL\]/, $1 );
foreach (@found) {
if ( $_ =~ m/#S (.*) -> (.*)/ ) # setreading
{
if ( $2 eq 'undef' || $2 eq '' || $2 eq ' ' ) {
}
else {
$Zeilen1 = $2;
readingsSingleUpdate( $hash, "$1", $Zeilen1, 0 );
}
}
if ( $_ =~ m/#A (.*) -> (.*)/ ) # setattr
{
my $cs = "attr $Name $1 $2";
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
Log3( $Name, 1, "ERROR $cs" );
}
}
}
MSwitch_LoadHelper($hash);
return "MSwitch $Name restored.\nPlease refresh device.";
}
# ################################
sub MSwitch_Getsupport($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $out = '';
$out .= "Modulversion: $version\\n";
$out .= "Datenstruktur: $vupdate\\n";
$out .= "\\n----- Devicename -----\\n";
$out .= "$Name\\n";
$out .= "\\n----- Attribute -----\\n";
my %keys;
foreach my $attrdevice ( keys %{ $attr{$Name} } ) #geht
{
my $tmp = AttrVal( $Name, $attrdevice, '' );
$tmp =~ s/</\\</g;
$tmp =~ s/>/\\>/g;
$tmp =~ s/'/\\'/g;
$out .= "Attribut $attrdevice: " . $tmp . "\\n";
}
$out .= "\\n----- Trigger -----\\n";
$out .= "Trigger device: ";
my $tmp = ReadingsVal( $Name, 'Trigger_device', 'undef' );
$out .= "$tmp\\n";
$out .= "Trigger time: ";
$tmp = ReadingsVal( $Name, '.Trigger_time', 'undef' );
$tmp =~ s/~/ /g;
$out .= "$tmp\\n";
$out .= "Trigger condition: ";
$tmp = ReadingsVal( $Name, '.Trigger_condition', 'undef' );
$out .= "$tmp\\n";
$out .= "Trigger Device Global Whitelist: ";
$tmp = ReadingsVal( $Name, '.Trigger_Whitelist', 'undef' );
$out .= "$tmp\\n";
$out .= "\\n----- Trigger Details -----\\n";
$out .= "Trigger cmd1: ";
$tmp = ReadingsVal( $Name, '.Trigger_on', 'undef' );
$out .= "$tmp\\n";
$out .= "Trigger cmd2: ";
$tmp = ReadingsVal( $Name, '.Trigger_off', 'undef' );
$out .= "$tmp\\n";
$out .= "Trigger cmd3: ";
$tmp = ReadingsVal( $Name, '.Trigger_cmd_on', 'undef' );
$out .= "$tmp\\n";
$out .= "Trigger cmd4: ";
$tmp = ReadingsVal( $Name, '.Trigger_cmd_off', 'undef' );
$out .= "$tmp\\n";
my %savedetails = MSwitch_makeCmdHash($hash);
$out .= "\\n----- Device Actions -----\\n";
my @affecteddevices = split( /#\[ND\]/,
ReadingsVal( $Name, '.Device_Affected_Details', 'no_device' ) );
foreach (@affecteddevices) {
my @devicesplit = split( /#\[NF\]/, $_ );
$devicesplit[4] =~ s/'/\\'/g;
$devicesplit[5] =~ s/'/\\'/g;
$out .= "\\nDevice: " . $devicesplit[0] . "\\n";
$out .= "cmd1: " . $devicesplit[1] . " " . $devicesplit[3] . "\\n";
$out .= "cmd2: " . $devicesplit[2] . " " . $devicesplit[4] . "\\n";
$out .= "cmd1 condition: " . $devicesplit[9] . "\\n";
$out .= "cmd2 condition: " . $devicesplit[10] . "\\n";
$out .= "cmd1 delay: " . $devicesplit[7] . "\\n";
$out .= "cmd2 delay: " . $devicesplit[8] . "\\n";
$out .= "repeats: " . $devicesplit[11] . "\\n";
$out .= "repeats delay: " . $devicesplit[12] . "\\n";
$out .= "priority: " . $devicesplit[13] . "\\n";
$out .= "id: " . $devicesplit[14] . "\\n";
$out .= "comment: " . $devicesplit[15] . "\\n";
$out .= "cmd1 exit: " . $devicesplit[16] . "\\n";
$out .= "cmd2 exit: " . $devicesplit[17] . "\\n";
}
$out =~ s/#\[dp\]/:/g;
$out =~ s/#\[pt\]/./g;
$out =~ s/#\[ti\]/~/g;
$out =~ s/#\[sp\]/ /g;
$out =~ s/#\[nl\]/\\n/g;
$out =~ s/#\[se\]/;/g;
$out =~ s/#\[dp\]/:/g;
$out =~ s/\(DAYS\)/|/g;
$out =~ s/#\[ko\]/,/g; #neu
$out =~ s/#\[bs\]/\\/g; #neu
asyncOutput( $hash->{CL},
"<html><center>Supportanfragen bitte im Forum stellen:<a href=\"https://forum.fhem.de/index.php/topic,86199.0.html\">Fhem-Forum</a><br>Bei Devicespezifischen Fragen bitte untenstehene Datei anhängen, das erleichtert Anfragen erheblich.<br>&nbsp;<br><textarea name=\"edit1\" id=\"edit1\" rows=\""
. "40\" cols=\"180\" STYLE=\"font-family:Arial;font-size:9pt;\">"
. $out
. "</textarea><br></html>" );
return;
}
##################
sub MSwitch_Getconfig($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $testreading = $hash->{READINGS} ;
my @areadings = ( keys %{ $testreading });
my $count = 0;
my $out = "#V $version\\n";
$out .= "#VS $vupdate\\n";
my $testdevice = $Name;
foreach my $key (@areadings) {
my $tmp = ReadingsVal( $testdevice, $key, 'undef' );
if ( $key eq ".Device_Affected_Details" ) {
$tmp =~ s/#\[nl\]/;;/g;
$tmp =~ s/#\[sp\]/ /g;
$tmp =~ s/#\[nl\]/\\n/g;
$tmp =~ s/#\[se\]/;/g;
$tmp =~ s/#\[dp\]/:/g;
$tmp =~ s/\(DAYS\)/|/g;
$tmp =~ s/#\[ko\]/,/g; #neu
$tmp =~ s/#\[wa\]/|/g;
$tmp =~ s/#\[st\]/\\'/g;
$tmp =~ s/'/\\'/g;
$tmp =~ s/#\[bs\]/\\\\/g;
}
if (
$key eq ".Device_Events" ||
$key eq ".info" ||
$key eq ".Trigger_cmd_on" ||
$key eq ".Trigger_cmd_off" ||
$key eq ".Trigger_on" ||
$key eq ".Trigger_off"
)
{
$tmp =~ s/'/\\'/g;
}
if ( $key eq ".sysconf" ) {
}
if ( $key eq ".Device_Events" ) {
$tmp =~ s/#\[tr\]/ /g;
}
$out .= "#S $key -> $tmp\\n";
$count++;
}
# my %keys;
foreach my $attrdevice ( keys %{ $attr{$testdevice} } ) #geht
{
my $tmp = AttrVal( $testdevice, $attrdevice, '' );
$tmp =~ s/</\\</g;
$tmp =~ s/>/\\>/g;
$tmp =~ s/'/\\'/g;
$out .= "#A $attrdevice -> " . $tmp . "\\n";
$count++;
}
$count++;
$count++;
my $client_hash = $hash->{CL};
my $ret = asyncOutput( $hash->{CL},
"<html>Änderungen sollten hier nur von erfahrenen Usern durchgeführt werden.<textarea name=\"edit1\" id=\"edit1\" rows=\""
. $count
. "\" cols=\"160\" STYLE=\"font-family:Arial;font-size:9pt;\">"
. $out
. "</textarea><br>"
."<input name\"edit\" type=\"button\" value=\"save changes\" onclick=\" javascript: saveconfig(document.querySelector(\\\'#edit1\\\').value) \">"
."</html>"
);
return;
}
#######################################################
sub MSwitch_Sysextension($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $count = 30;
my $out = ReadingsVal( $Name, '.sysconf', '' );
$out =~ s/#\[sp\]/ /g;
$out =~ s/#\[nl\]/\\n/g;
$out =~ s/#\[se\]/;/g;
$out =~ s/#\[dp\]/:/g;
$out =~ s/#\[st\]/\\'/g;
$out =~ s/#\[dst\]/\"/g;
$out =~ s/#\[tab\]/ /g;
$out =~ s/#\[ko\]/,/g;
$out =~ s/#\[wa\]/|/g;
$out =~ s/#\[bs\]/\\\\/g;
my $client_hash = $hash->{CL};
asyncOutput( $hash->{CL},
"<html><center>Achtung! Hier angegebener Code greift direkt in das Programm 98_MSwitch ein und wird unmittelbar zu beginn der Routine X_Set ausgeführt<br><textarea name=\"sys\" id=\"sys\" rows=\""
. $count
. "\" cols=\"160\" STYLE=\"font-family:Arial;font-size:9pt;\">"
. $out
. "</textarea><br><input type=\"button\" value=\"save changes\" onclick=\" javascript: savesys(document.querySelector(\\\'#sys\\\').value) \"></html>"
);
return;
}
################################
sub MSwitch_backup_all($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $answer = '';
my $Zeilen = ("");
open( BACKUPDATEI, "<MSwitch_backup_$vupdate.cfg" )
|| return "$Name|no Backupfile MSwitch_backup_$vupdate.cfg found\n";
while (<BACKUPDATEI>) {
$Zeilen = $Zeilen . $_;
}
close(BACKUPDATEI);
foreach my $testdevice ( keys %{ $modules{MSwitch}{defptr} } ) #
{
my $devhash = $defs{$testdevice};
$Zeilen =~ s/\n/[NL]/g;
if ( $Zeilen !~ m/#N -> $testdevice\[NL\](.*)#E -> $testdevice\[NL\]/ )
{
$answer = $answer . "no Backupfile found for $testdevice\n";
}
my @found = split( /\[NL\]/, $1 );
foreach (@found) {
if ( $_ =~ m/#S (.*) -> (.*)/ ) # setreading
{
if ( $2 eq 'undef' || $2 eq '' || $2 eq ' ' ) {
}
else {
readingsSingleUpdate( $devhash, "$1", $2, 0 );
}
}
if ( $_ =~ m/#A (.*) -> (.*)/ ) # setattr
{
my $cs = "attr $testdevice $1 $2";
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
Log3( $testdevice, 1, "ERROR $cs" );
}
}
}
my $cs = "attr $testdevice verbose 0";
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
Log3( $testdevice, 1, "ERROR $cs" );
}
MSwitch_LoadHelper($devhash);
$answer = $answer . "MSwitch $testdevice restored.\n";
}
return $answer;
}
################################################
sub MSwitch_savesys($$) {
my ( $hash, $cont ) = @_;
my $name = $hash->{NAME};
$cont = urlDecode($cont);
#$cont =~ s/#\[tr]/#[nl]/g;
$cont =~ s/\n/#[nl]/g;
$cont =~ s/\t/ /g;
$cont =~ s/ /#[sp]/g;
$cont =~ s/\\/#[bs]/g;
$cont =~ s/,/#[ko]/g;
$cont =~ s/^#\[/#[eo]/g;
$cont =~ s/^#\]/#[ec]/g;
$cont =~ s/\|/#[wa]/g;
if ( !defined $cont ) { $cont = ""; }
if ( $cont ne '' ) {
readingsSingleUpdate( $hash, ".sysconf", $cont, 0 );
}
else {
fhem("deletereading $name .sysconf");
}
return;
}
################################################
sub MSwitch_saveconf($$) {
my ( $hash, $cont ) = @_;
my $name = $hash->{NAME};
my $contcopy = $cont;
$cont =~ s/#c\[sp\]/ /g;
$cont =~ s/#c\[se\]/;/g;
$cont =~ s/#c\[dp\]/:/g;
my @changes;
my $info = "";
my @found = split( /#\[EOL\]/, $cont );
foreach (@found) {
if ( $_ =~ m/#Q (.*)/ ) # setattr
{
push( @changes, $1 );
}
if ( $_ =~ m/#I (.*)/ ) # setattr
{
$info = $1;
}
if ( $_ =~ m/#VS (.*)/ ) # setattr
{
if ( $1 ne $vupdate ) {
readingsSingleUpdate( $hash, ".wrong_version", $1, 0 );
return;
}
}
if ( $_ =~ m/#S (.*) -> (.*)/ ) # setreading
{
if ( $2 eq 'undef' || $2 eq '' || $2 eq ' ' ) {
delete( $hash->{READINGS}{$1} );
}
else {
my $newstring = $2;
if ( $1 eq ".Device_Affected_Details" ) {
$newstring =~ s/;/#[se]/g;
$newstring =~ s/:/#[dp]/g;
$newstring =~ s/\t/ /g;
$newstring =~ s/ /#[sp]/g;
$newstring =~ s/\\/#[bs]/g;
$newstring =~ s/,/#[ko]/g;
$newstring =~ s/^#\[/#[eo]/g;
$newstring =~ s/^#\]/#[ec]/g;
$newstring =~ s/\|/#[wa]/g;
$newstring =~ s/#\[se\]#\[se\]#\[se\]/#[se]#[nl]/g;
$newstring =~ s/#\[se\]#\[se\]/#[nl]/g;
}
if ( $1 eq ".sysconf" ) {
}
if ( $1 eq ".Device_Events" ) {
$newstring =~ s/ /#[tr]/g;
}
readingsSingleUpdate( $hash, "$1", $newstring, 0 );
}
}
if ( $_ =~ m/#A (.*) -> (.*)/ ) # setattr
{
$attr{$name}{$1} = $2;
}
}
MSwitch_set_dev($hash);
if ( @changes > 0 ) {
my $save = join( '|', @changes );
readingsSingleUpdate( $hash, ".change", $save, 0 );
}
if ( $info ne "" ) {
readingsSingleUpdate( $hash, ".change_info", $info, 0 );
}
return;
}
################################################
sub MSwitch_backup_done($) {
my ($string) = @_;
return unless ( defined($string) );
my @a = split( "\\|", $string );
my $Name = $a[0];
my $answer = $a[1];
my $hash = $defs{$Name};
delete( $hash->{helper}{RUNNING_PID} );
my $client_hash = $hash->{helper}{RESTORE_ANSWER};
$answer =~ s/\[nl\]/\n/g;
foreach my $testdevice ( keys %{ $modules{MSwitch}{defptr} } ) #
{
my $devhash = $defs{$testdevice};
MSwitch_Createtimer($devhash);
}
asyncOutput( $client_hash, $answer );
return;
}
###########################################
sub MSwitch_Execute_randomtimer($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $param = AttrVal( $Name, 'MSwitch_RandomTime', '0' );
my $min = substr( $param, 0, 2 ) * 3600;
$min = $min + substr( $param, 3, 2 ) * 60;
$min = $min + substr( $param, 6, 2 );
my $max = substr( $param, 9, 2 ) * 3600;
$max = $max + substr( $param, 12, 2 ) * 60;
$max = $max + substr( $param, 15, 2 );
my $sekmax = $max - $min;
my $ret = $min + int( rand $sekmax );
return $ret;
}
############################################
sub MSwitch_replace_delay($$) {
my ( $hash, $timerkey ) = @_;
my $name = $hash->{NAME};
my $time = time;
my $ltime = TimeNow();
MSwitch_LOG( $name, 5, "----------------------------------------" );
MSwitch_LOG( $name, 5, "$name: MSwitch_replace_delay-> $timerkey" );
MSwitch_LOG( $name, 5, "----------------------------------------" );
my ( $aktdate, $akttime ) = split / /, $ltime;
my $hh = ( substr( $timerkey, 0, 2 ) );
my $mm = ( substr( $timerkey, 2, 2 ) );
my $ss = ( substr( $timerkey, 4, 2 ) );
my $referenz = time_str2num("$aktdate $hh:$mm:$ss");
if ( $referenz < $time ) {
$referenz = $referenz + 86400;
}
if ( $referenz >= $time ) {
}
$referenz = $referenz - $time;
my $timestampGMT = FmtDateTimeRFC1123($referenz);
return $referenz;
}
############################################################
sub MSwitch_repeat($) {
my ( $msg, $name ) = @_;
my $incomming = $_[0];
my @msgarray = split( /\|/, $incomming );
$name = $msgarray[1];
my $time = $msgarray[2];
my $cs = $msgarray[0];
my $hash = $defs{$name};
$cs =~ s/\n//g;
MSwitch_LOG( $name, 5, "----------------------------------------" );
MSwitch_LOG( $name, 5, "$name: Repeat -> " . $cs );
MSwitch_LOG( $name, 5, "----------------------------------------" );
if ( $cs =~ m/set (.*)(MSwitchtoggle)(.*)/ ) {
$cs = MSwitch_toggle( $hash, $cs );
MSwitch_LOG( $name, 5, "$name: fround toggle -> " . $cs );
}
MSwitch_LOG( $name, 5, "$name: execute repeat $time -> " . $cs );
if ( AttrVal( $name, 'MSwitch_Debug', "0" ) ne '2' ) {
if ( $cs =~ m/{.*}/ ) {
eval($cs);
if ($@) {
MSwitch_LOG( $name, 1,
"$name MSwitch_repeat: ERROR $cs: $@ " . __LINE__ );
}
}
else {
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
MSwitch_LOG( $name, 1,
"$name Absent_repeat $cs: ERROR : $errors -> Comand: $cs" );
}
}
}
delete( $hash->{helper}{repeats}{$time} );
}
#########################
sub MSwitch_Createnumber($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $number = AttrVal( $Name, 'MSwitch_RandomNumber', '' ) + 1;
my $number1 = int( rand($number) );
readingsSingleUpdate( $hash, "RandomNr", $number1, 1 );
return;
}
################################
sub MSwitch_Createnumber1($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $number = AttrVal( $Name, 'MSwitch_RandomNumber', '' ) + 1;
my $number1 = int( rand($number) );
readingsSingleUpdate( $hash, "RandomNr1", $number1, 1 );
return;
}
###############################
sub MSwitch_Safemode($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
if ( AttrVal( $Name, 'MSwitch_Safemode', '0' ) == 0 ) { return; }
my $time = gettimeofday();
$time =~ s/\.//g;
my $time1 = int($time);
my $count = 0;
my $timehash = $hash->{helper}{savemode};
foreach my $a ( keys %{$timehash} ) {
$count++;
if ( $a < $time1 - 1000000 ) # für 10 sekunden
{
delete( $hash->{helper}{savemode}{$a} );
$count = $count - 1;
}
}
$hash->{helper}{savemode}{$time1} = $time1;
if ( $count > $savecount ) {
Log3( $Name, 1,
"Das Device "
. $Name
. " wurde automatisch deaktiviert ( Safemode )" );
$hash->{helper}{savemodeblock}{blocking} = 'on';
readingsSingleUpdate( $hash, "Safemode", 'on', 1 );
foreach my $a ( keys %{$timehash} ) {
delete( $hash->{helper}{savemode}{$a} );
}
$attr{$Name}{disable} = '1';
}
return;
}
###############################################################
sub MSwitch_EventBulk($$$$) {
my ( $hash, $event, $update, $from ) = @_;
my $name = $hash->{NAME};
MSwitch_LOG( $name, 5, "aufruf eventbulk eventin: " . $event );
return if !defined $event;
return if !defined $hash;
if ( $hash eq "" ) { return; }
my @evtparts = split( /:/, $event );
$update = '1';
my $evtsanzahl = @evtparts;
MSwitch_LOG( $name, 5, "aufruf eventzahl: " . $evtsanzahl );
if ( $evtsanzahl < 3 ) {
my $eventfrom = $hash->{helper}{eventfrom};
unshift( @evtparts, $eventfrom );
$evtsanzahl = @evtparts;
}
my $evtfull = join( ':', @evtparts );
$evtparts[2] = '' if !defined $evtparts[2];
MSwitch_LOG( $name, 5, "aufruf eventbulk eventfullout: " . $evtfull );
MSwitch_LOG( $name, 5, "aufruf eventbulk event " . $event );
MSwitch_LOG( $name, 5, "aufruf eventbulk eventset " . $hash->{eventsave} );
if ( ReadingsVal( $name, 'last_event', '' ) ne $event
&& $event ne ''
&& $hash->{eventsave} ne 'saved' )
{
$hash->{eventsave} = "saved";
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, "EVENT", $event ) if $event ne '';
readingsBulkUpdate( $hash, "EVTFULL", $evtfull ) if $evtfull ne '';
readingsBulkUpdate( $hash, "EVTPART1", $evtparts[0] )
if $evtparts[0] ne '';
readingsBulkUpdate( $hash, "EVTPART2", $evtparts[1] )
if $evtparts[1] ne '';
readingsBulkUpdate( $hash, "EVTPART3", $evtparts[2] )
if $evtparts[2] ne '';
readingsBulkUpdate( $hash, "last_event", $event ) if $event ne '';
readingsEndUpdate( $hash, $update );
}
return;
}
##########################################################
# setzt reihenfolge und testet ID
sub MSwitch_priority(@) {
my ( $hash, $execids, @devices ) = @_;
my $name = $hash->{NAME};
my @execids = split(/,/,$execids);
MSwitch_LOG( $name, 5, "$name: zuweisung der reihenfolge und der id" );
if ( AttrVal( $name, 'MSwitch_Expert', "0" ) ne '1' ) {
return @devices;
}
my %devicedetails = MSwitch_makeCmdHash($name);
my %new;
foreach my $device (@devices) {
# $execids beinhaltet auszuführende ids gesetzt bei init
my $key1 = $device . "_id";
Log3( $name, 6,
"$name: device hat die ID $device - $devicedetails{$key1}" );
Log3( $name, 6,
"$name: zulässige IDS - @execids " );
next if !(grep {$_ eq $devicedetails{$key1}} @execids);
my $key = $device . "_priority";
my $prio = $devicedetails{$key};
MSwitch_LOG( $name, 6,
"$name: device hat die priority $device - $prio"
);
$new{$device} = $prio;
$hash->{helper}{priorityids}{$device} = $prio;
}
my @new = %new;
my @newlist;
for my $key ( sort { $new{$a} <=> $new{$b} } keys %new ) {
if ( $key ne "" && $key ne " " ) {
push( @newlist, $key );
my $key = $key . "_priority";
}
}
my $anzahl = @newlist;
MSwitch_LOG( $name, 5, "$name: anzahl $anzahl" );
@devices = @newlist if $anzahl > 0;
return @devices;
}
##########################################################
##########################################################
# setzt reihenfolge und testet ID
sub MSwitch_sort(@) {
my ( $hash, $typ, @devices ) = @_;
my $name = $hash->{NAME};
MSwitch_LOG( $name, 5, "$name: zuweisung der reihenfolge" );
my %devicedetails = MSwitch_makeCmdHash($name);
my %new;
foreach my $device (@devices) {
my $key = $device . $typ;
my $prio = $devicedetails{$key};
MSwitch_LOG( $name, 5,
"$name: device hat $typ $device - $devicedetails{$key}" );
$new{$device} = $prio;
}
my @new = %new;
my @newlist;
for my $key ( sort { $new{$a} <=> $new{$b} } keys %new ) {
if ( $key ne "" && $key ne " " ) {
push( @newlist, $key );
}
}
my $anzahl = @newlist;
MSwitch_LOG( $name, 5, "$name: anzahl $anzahl" );
@devices = @newlist if $anzahl > 0;
return @devices;
}
##########################################################
sub MSwitch_set_dev($) {
# setzt NOTIFYDEF
my ($hash) = @_;
my $name = $hash->{NAME};
my $not = ReadingsVal( $name, 'Trigger_device', '' );
if ( $not ne 'no_trigger' ) {
if ( $not eq "all_events" ) {
delete( $hash->{NOTIFYDEV} );
if ( ReadingsVal( $name, '.Trigger_Whitelist', '' ) ne '' ) {
$hash->{NOTIFYDEV} =
ReadingsVal( $name, '.Trigger_Whitelist', '' );
}
}
else {
$hash->{NOTIFYDEV} = $not;
my $devices = MSwitch_makeAffected($hash);
$hash->{DEF} = $not . ' # ' . $devices;
}
}
else {
$hash->{NOTIFYDEV} = 'no_trigger';
delete $hash->{DEF};
}
}
##############################################################
sub MSwitch_dec($$) {
# ersetzungen direkt vor befehlsausführung
my ( $hash, $todec ) = @_;
my $name = $hash->{NAME};
$todec =~ s/\n//g;
$todec =~ s/#\[wa\]/|/g;
$todec =~ s/\$NAME/$hash->{helper}{eventfrom}/;
$todec =~ s/MSwitch_Self/$name/;
my $x = 0;
while ( $todec =~ m/(.*?)(\$SELF)(.*)?/ ) {
my $firstpart = $1;
my $secondpart = $2;
my $lastpart = $3;
$todec = $firstpart . $name . $lastpart;
$x++;
last if $x > 10; #notausstieg
}
# setmagic ersetzun
$x = 0;
while ( $todec =~ m/(.*)\[(.*)\:(.*)\](.*)/ ) {
$x++; # notausstieg notausstieg
last if $x > 20; # notausstieg notausstieg
my $setmagic = ReadingsVal( $2, $3, 0 );
$todec = $1 . $setmagic . $4;
}
return $todec;
}
################################################################
sub MSwitch_clearlog($) {
my ( $hash, $cs ) = @_;
my $name = $hash->{NAME};
open( BACKUPDATEI, ">./log/MSwitch_debug_$name.log" );
print BACKUPDATEI localtime() . " Starte Log\n"; #
close(BACKUPDATEI);
}
################################################################
sub MSwitch_debug2($$) {
my ( $hash, $cs ) = @_;
my $name = $hash->{NAME};
return if $cs eq '';
open( BACKUPDATEI, ">>./log/MSwitch_debug_$name.log" )
; # Datei zum Schreiben öffnen
print BACKUPDATEI localtime() . ": -> $cs\n"; #
close(BACKUPDATEI);
}
##################################
sub MSwitch_LOG($$$) {
my ( $name, $level, $cs ) = @_;
my $hash = $defs{$name};
if (
(
AttrVal( $name, 'MSwitch_Debug', "0" ) eq '2'
|| AttrVal( $name, 'MSwitch_Debug', "0" ) eq '3'
)
&& ( $level eq "6" || $level eq "1" )
)
{
MSwitch_debug2( $hash, $cs );
}
$level = 5 if $level eq "6";
Log3( $name, $level, $cs );
}
#########################
sub MSwitch_confchange($$) {
# change wenn folgende einträge vorhanden
#I testinfo
#Q dummy1#zu schaltendes geraet#device
my ( $hash, $cs ) = @_;
my $name = $hash->{NAME};
MSwitch_clearlog($hash);
$cs = urlDecode($cs);
$cs =~ s/#\[sp\]/ /g;
my @changes = split( /\|/, $cs );
foreach my $change (@changes) {
#MSwitch_LOG( $name, 5, "zu ersetzen: ".$change );
my @names = split( /#/, $change );
# afected devices
my $tochange1 = ReadingsVal( $name, ".Device_Affected", "" );
my $oldname = $names[0] . "-";
my $newname = $names[1] . "-";
my @devices = split( /,/, $tochange1 );
my $x = 0;
foreach (@devices) {
$_ =~ s/$oldname/$newname/g;
$devices[$x] = $_;
$x++;
}
my $newdevices = join( ',', @devices );
readingsSingleUpdate( $hash, ".Device_Affected", $newdevices, 0 );
#details
my $tochange2 = ReadingsVal( $name, ".Device_Affected_Details", "" );
my @devicesdetails = split( /#\[ND\]/, $tochange2 );
$x = 0;
foreach (@devicesdetails) {
$_ =~ s/$oldname/$newname/g;
$devicesdetails[$x] = $_;
$x++;
}
$tochange2 = join( '#[ND]', @devicesdetails );
$x = 0;
while ( $tochange2 =~ m/(.*?)($names[0])(.*)?/ ) {
my $firstpart = $1;
my $secondpart = $2;
my $lastpart = $3;
$tochange2 = $firstpart . $names[1] . $lastpart;
$x++;
last if $x > 10; #notausstieg
}
readingsSingleUpdate( $hash, ".Device_Affected_Details", $tochange2,
0 );
}
fhem("deletereading $name .change");
fhem("deletereading $name .change_info");
}
#########################
sub MSwitch_makefreecmd($$) {
#ersetzungen und variablen für freecmd
my ( $hash, $cs ) = @_;
my $name = $hash->{NAME};
my $ersetzung = "";
# entferne kommntarzeilen
$cs =~ s/\\#/comment/g;
$cs =~ s/#.*\n//g;
$cs =~ s/comment/#/g;
# entferne zeilenumbruch
$cs =~ s/\n//g;
# ersetze Eventvariablen
$ersetzung = ReadingsVal( $name, "EVTPART3", "" );
$cs =~ s/\$EVTPART3/$ersetzung/g;
$ersetzung = ReadingsVal( $name, "EVTPART2", "" );
$cs =~ s/\$EVTPART2/$ersetzung/g;
$ersetzung = ReadingsVal( $name, "EVTPART1", "" );
$cs =~ s/\$EVTPART1/$ersetzung/g;
$ersetzung = ReadingsVal( $name, "EVENT", "" );
$cs =~ s/\$EVENT/$ersetzung/g;
$ersetzung = ReadingsVal( $name, "EVENTFULL", "" );
$cs =~ s/\$EVENTFULL/$ersetzung/g;
$cs =~ s/\$NAME/$hash->{helper}{eventfrom}/;
my $x = 0;
while ( $cs =~ m/(.*?)(\$SELF)(.*)?/ ) {
my $firstpart = $1;
my $secondpart = $2;
my $lastpart = $3;
$cs = $firstpart . $name . $lastpart;
$x++;
last if $x > 10; #notausstieg
}
# setmagic ersetzun
MSwitch_LOG( $name, 5, "vor freecmd: " . $cs );
$x = 0;
while ( $cs =~ m/(.*)\[(.*)\:(.*)\](.*)/ ) {
$x++; # notausstieg notausstieg
last if $x > 20; # notausstieg notausstieg
my $setmagic = ReadingsVal( $2, $3, 0 );
$cs = $1 . $setmagic . $4;
}
MSwitch_LOG( $name, 5, "after freecmd: " . $cs );
return $cs;
}
#################################
sub MSwitch_setconfig($$)
{
my ( $hash, $aVal ) = @_;
my $name = $hash->{NAME};
my %keys;
foreach my $attrdevice ( keys %{ $attr{$name} } ) #geht
{
delete $attr{$name}{$attrdevice};
}
my $testreading = $hash->{READINGS} ;
my @areadings = ( keys %{ $testreading });
#
foreach my $key (@areadings)
{
fhem("deletereading $name $key ");
}
my $Zeilen ='';
open( BACKUPDATEI, "<./FHEM/MSwitch/$aVal" )
|| return "$name|no Backupfile ./MSwitch_Extensions/$aVal found\n";
while (<BACKUPDATEI>) {
$Zeilen = $Zeilen . $_;
}
close(BACKUPDATEI);
$Zeilen =~ s/\n/#[EOL]/g;
MSwitch_saveconf($hash,$Zeilen);
}
#################################
1;
=pod
=item helper
=item summary MultiswitchModul
=item summary_DE Modul zum event und zeitgesteuerten Schalten von Devices etc.
=begin html
<a name="MSwitch"></a>
<h3>MSwitch</h3>
<ul>
<u><b>MSwitch</b></u>
<br />
MSwitch is an auxiliary module that works both event- and time-controlled. <br />
For a detailed description see Wiki
<br /><br />
<a name="MSwitchdefine"></a>
<b>Define</b>
<ul><br />
<code>define &lt; Name &gt; MSwitch;</code>
<br /><br />
Beispiel:
<ul><br />
<code>define Schalter MSwitch</code><br />
</ul>
<br />
The command creates a device of type MSwitch named Switch. <br />
All further configuration takes place at a later time and can be modified and adjusted within the device at any time
</ul>
<br /><br />
<a name="MSwitch set"></a>
<b>Set</b>
<ul>
<li> inactive - sets the device inactive </li>
<li> active - sets the device active </li>
<li> backup MSwitch - creates a backup file with the configuration of all MSwitch devices </li>
<li> del_delays - deletes all pending timed commands </li>
<li> exec_cmd1 - immediate execution of the command branch1 </li>
<li> exec_cmd2 - immediate execution of command branch2 </li>
<li> fakeevent [event] - simulation of an incoming event </li>
<li> wait [sec] - no acceptance of events for given period </li>
<br />
</ul>
<br /><br />
<a name="MSwitch get"></a>
<b>Get</b>
<ul>
<li> active_timer show - displays a list of all pending timers and delays </li>
<li> active_timer delete - deletes all pending timers and delays. Timers are recalculated </li>
<li> get_config - shows the config set associated with the device</li>
<li> restore_Mswitch_date this_device - restore the device from the backupfile </li>
<li> restore_Mswitch_date all_devices - restore all MSwitchdevices from the backupfile </li>
<br />
</ul>
<br /><br />
<a name="MSwitch attribut"></a>
<b>Attribute</b>
<ul>
<li> MSwitch_Help: 0.1 - displays help buttons for all relevant fields </li>
<li> MSwitch_Debug: 0,1,2,3 - 1. switches test fields to Conditions etc. / 2. Testmode, no active cmds / 3. pure development mode </li>
<li> MSwitch_Expert: 0.1 - 1. enables additional options such as global triggering, priority selection, command repetition, etc. </li>
<li> MSwitch_Delete_Delays: 0.1 - 1. deletes all pending delays when another suitable event arrives</li>
<li> MSwitch_Include_Devicecmds: 0,1 - 1. all devices with own command set (set?) are included in affected devices </li>
<li> MSwitch_Include_Webcmds: 0.1 - 1. all devices with existing WbCmds are included in affected devices </li>
<li> MSwitch_Include_MSwitchcmds: 0.1 - 1. all devices with existing MSwitchcmds are included in affected devices </li>
<li> MSwitch_Activate_MSwitchcmds: 0.1 - 1. activates the attribute MSwitchcmds in all devices </li>
<li> MSwitch_Lock_Quickedit: 0,1 - 1. activates the lock of the selection field 'affected devices' </li>
<li> MSwitch_Ignore_Types: - List of all device types that are not displayed in the 'affected devices' </li>
<li> MSwitch_Trigger_Filter - List of events to ignore </li>
<li> MSwitch_Extensions: 0.1 - 1. Enables additional option Devicetogggle </li>
<li>MSwitch_Startdelay - delays the start of MSwitch after Fhemstart by the specified time in seconds. Recommended: 30 seconds</li>
<li> MSwitch_Inforoom - contains a room name where MSwitches are displayed in detail </li>
<li> MSwitch_Mode: Full, Notify, Toggle - Device Operation Mode </li>
<li> MSwitch_Condition_Time: 0.1 - activation of the trigger conditions for timed triggering </li>
<li> MSwitch_Safemode: 0.1 - 1. aborts all actions of the device if more than 20 calls per second take place </li>
<li> MSwitch_RandomTime - see Wiki </li>
<li> MSwitch_RandomNumber - see Wiki </li>
</ul>
</ul>
=end html
=begin html_DE
<a name="MSwitch"></a>
<h3>MSwitch</h3>
<ul>
<u><b>MSwitch</b></u>
<br />
MSwitch ist ein Hilfsmodul , das sowohl event-, als auch zeitgesteuert arbeitet.<br />
Für eine umfangreche Beschreibung siehe Wiki: https://wiki.fhem.de/wiki/MSwitch
<br /><br />
<a name="MSwitchdefine"></a>
<b>Define</b>
<ul><br />
<code>define &lt; Name &gt; MSwitch;</code>
<br /><br />
Beispiel:
<ul><br />
<code>define Schalter MSwitch</code><br />
</ul>
<br />
Der Befehl legt ein Device vom Typ MSwitch an mit dem Namen Schalter.<br />
sämtliche weitere Konfiguration erfolgt zu einem späteren Zeitpunkt und kann innerhalb des Devices jerderzeit verändert und angepasst werden
</ul>
<br /><br />
<a name="MSwitch set"></a>
<b>Set</b>
<ul>
<li>inactive - setzt das Device inaktiv</li>
<li>active - setzt das Device aktiv</li>
<li>backup MSwitch - legt eine Backupdatei mit der Konfiguration aller MSwitchdevices an</li>
<li>del_delays - löscht alle anstehenden timer für zeitversetzte Befehle</li>
<li>exec_cmd1 - sofortiges Ausführen des Kommandozweiges1</li>
<li>exec_cmd2 - sofortiges Ausführen des Kommandozweiges2</li>
<li>fakeevent [event] - simulation eines eingehenden Events</li>
<li>wait [sek] - keine annahme von Events für vorgegebenen Zeitraum</li>
<br />
</ul>
<br /><br />
<a name="MSwitch get"></a>
<b>Get</b>
<ul>
<li>active_timer show - zeigt eine Liste aller anstehenden Timer und Delays</li>
<li>active_timer delete - löscht alle anstehenden Timer und Delays. Timer werden neu berechnet</li>
<li>get_config - zeigt den dem Device zugeordneten Configsatz</li>
<li>restore_Mswitch_date this_device - restore des Devices aus dem Backupfile</li>
<li>restore_Mswitch_date all_devices - restore aller MSwitchdevices aus dem Backupfile</li>
<br />
</ul>
<br /><br />
<a name="MSwitch attribut"></a>
<b>Attribute</b>
<ul>
<li>MSwitch_Help:0,1 - zeigt Hilfebuttons zu allen relevanten Feldern</li>
<li>MSwitch_Debug:0,1,2 - 1. schaltet Prüffelder zu Conditions etc. an / 2. Testmode shreibt alle Aktionen in ein seperates Log, führt diese aber nicht aus / 3. reiner Entwicklungsmode</li>
<li>MSwitch_Expert:0,1 - 1. aktiviert Zusatzoptionenv wi z.B globales triggern, prioritätsauswahl, Befehlswiederholungesn etc. </li>
<li>MSwitch_Delete_Delays:0,1 - 1. löscht alle anstehenden Delays bei erneutem eintreffen eines passenden Events</li>
<li>MSwitch_Include_Devicecmds:0,1 - 1. alles Devices mit eigenem Befehlssatz (set ?) werden in affected Devices einbezogen</li>
<li>MSwitch_Include_Webcmds:0,1 - 1. alles Devices mit vorhandenen WbCmds werden in affected Devices einbezogen</li>
<li>MSwitch_Include_MSwitchcmds:0,1 - 1. alles Devices mit vorhandenen MSwitchcmds werden in affected Devices einbezogen</li>
<li>MSwitch_Activate_MSwitchcmds:0,1 - 1. aktiviert in allen Devices das Attribut MSwitchcmds</li>
<li>MSwitch_Lock_Quickedit:0,1 - 1. aktiviert die sperre des Auswahlfeldes 'affected devices'</li>
<li>MSwitch_Ignore_Types: - Liste aller DeviceTypen , die nicht in den 'affected devices' dargestellt werden'</li>
<li>MSwitch_Trigger_Filter - Liste aller zu ignorierenden Events</li>
<li>MSwitch_Extensions:0,1 - 1. aktiviert zusatzoption Devicetogggle</li>
<li>MSwitch_Startdelay - verzögert den Start von MSwitch nach Fhemstart um die angegebene Zeit in Sekunden . Empfohlen:30 sekunden</li>
<li>MSwitch_Inforoom - beinhalttet einen Raumnamen , in dem MSwitches detailiert dargestellt werden</li>
<li>MSwitch_Mode:Full,Notify,Toggle - Betriebsmodus des Devices</li>
<li>MSwitch_Condition_Time:0,1 - zuschaltung der Triggerconditions für zeitgesteuertes Auslösen</li>
<li>MSwitch_Safemode:0,1 - 1. bricht alle Aktionen des Devices ab, wenn mehr als 20 Aufrufe pro Sekunde erfolgen</li>
<li>MSwitch_RandomTime - siehe Wiki</li>
<li>MSwitch_RandomNumber - siehe Wiki</li>
</ul>
</ul>
=end html_DE
=cut
Reference in New Issue View Git Blame Copy Permalink