FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-13 02:12:00 +00:00
Code Issues Releases Wiki Activity
fhem-mirror/fhem/FHEM/98_MSwitch.pm
Byte09 54fe2afd81 98_MSwitch.pm:Update -> some minor changes 
git-svn-id: https://svn.fhem.de/fhem/trunk@21323 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2020-03-01 17:53:08 +00:00

12474 lines
413 KiB
Perl
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

# $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/>.
#################################################################
#
# MSwitchtoggle Suchmuster ab V3 [Befehl 1,Befehl 2,Befehl 3]:[1,2,3]:[reading]
# [auszuführender Befehl]:[Inhalt reading]:[Name des readings]
#
#################################################################
# 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;
use SetExtensions;
use LWP::Simple;
my $preconffile="https://raw.githubusercontent.com/Byte009/MSwitch_Addons/master/MSwitch_Preconf.conf";
my $autoupdate = 'off'; #off/on
my $version = '3.02';
my $vupdate = 'V2.00'; # versionsnummer der datenstruktur . änderung der nummer löst MSwitch_VUpdate aus .
my $savecount = 50; # anzahl der zugriff im zeitraum zur auslösung des safemodes. kann durch attribut überschrieben werden .
my $savemodetime = 10000000; # Zeit für Zugriffe im Safemode
my $rename = "on"; # on/off rename in der FW_summary möglich
my $standartstartdelay = 30; # zeitraum nach fhemstart , in dem alle aktionen geblockt werden. kann durch attribut überschrieben werden .
my $eventset = '0';
my $deletesavedcmds = 1800; # zeitraum nachdem gespeicherte devicecmds gelöscht werden ( beschleunugung des webinterfaces )
my $deletesavedcmdsstandart = "automatic"; # standartverhalten des attributes "MSwitch_DeleteCMDs" <manually,nosave,automatic>
# 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);
my $startmode = "Notify";# Startmodus des Devices nach Define
# degug
my $ip = qx(hostname -I);
chop ($ip);
chop ($ip);
my $debugging = "0";
$debugging = "0" if $ip ne "192.168.178.109";
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($$);
sub MSwitch_check_setmagic_i($$);
sub MSwitch_Eventlog($$);
sub MSwitch_Writesequenz($);
sub MSwitch_del_singlelog($$);
sub MSwitch_Checkcond_history($$);
sub MSwitch_fhemwebconf($$$$);
##############################
my %sets = (
"wizard" => "noArg",
"on" => "noArg",
"reset_device" => "noArg",
"off" => "noArg",
"reload_timer" => "noArg",
"active" => "noArg",
"inactive" => "noArg",
"devices" => "noArg",
"details" => "noArg",
"del_trigger" => "noArg",
"del_delays" => "noArg",
"del_function_data" => "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",
"del_repeats" => "noArg",
"wait" => "noArg",
"VUpdate" => "noArg",
"Writesequenz" => "noArg",
"confchange" => "noArg",
"clearlog" => "noArg",
"set_trigger" => "noArg",
"reset_cmd_count" => "",
"delcmds" => "",
"deletesinglelog" => "noArg",
"change_renamed" => ""
);
my %gets = (
"active_timer" => "noArg",
"restore_MSwitch_Data" => "noArg",
"Eventlog" => "sequenzformated,timeline,clear",
"restore_MSwitch_Data" => "noArg",
"deletesinglelog" => "noArg",
"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->{ShutdownFn} = "MSwitch_Shutdown";
$hash->{FW_deviceOverview} = 1;
$hash->{FW_summaryFn} = "MSwitch_summary";
$hash->{NotifyOrderPrefix} = "45-";
$hash->{AttrList} =
" disable:0,1"
. " disabledForIntervals"
. " MSwitch_Language:EN,DE"
. " stateFormat:textField-long"
. " MSwitch_Comments:0,1"
. " MSwitch_Read_Log:0,1"
. " MSwitch_Hidecmds"
. " 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_generate_Events: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_Reset_EVT_CMD1_COUNT"
. " MSwitch_Reset_EVT_CMD2_COUNT"
. " MSwitch_Trigger_Filter"
. " MSwitch_Extensions:0,1"
. " MSwitch_Inforoom"
. " MSwitch_DeleteCMDs:manually,automatic,nosave"
. " MSwitch_Mode:Full,Notify,Toggle,Dummy"
. " MSwitch_Condition_Time:0,1"
. " MSwitch_Selftrigger_always:0,1"
. " MSwitch_RandomTime"
. " MSwitch_RandomNumber"
. " MSwitch_Safemode:0,1"
. " MSwitch_Startdelay:0,10,20,30,60,90,120"
. " MSwitch_Wait"
. " MSwitch_Event_Id_Distributor:textField-long "
. " MSwitch_Sequenz:textField-long "
. " MSwitch_Sequenz_time"
. " MSwitch_setList:textField-long "
. " setList:textField-long "
. " readingList:textField-long "
. " MSwitch_Eventhistory:0,1,2,3,4,5,10,20,30,40,50,60,70,80,90,100,150,200"
. " 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};
my $hashold = $defs{$new_name}{$old_name};
RemoveInternalTimer($hashold);
Log3( $old_name, 5, "clear rename ! $old_name $new_name" );
my $inhalt = $hashold->{helper}{repeats};
foreach my $a ( sort keys %{$inhalt} )
{
my $key = $hashold->{helper}{repeats}{$a};
RemoveInternalTimer($key);
}
delete( $hashold->{helper}{repeats} );
RemoveInternalTimer($hash_new);
Log3( $old_name, 5, "clear rename ! $old_name $new_name" );
my $inhalt1 = $hash_new->{helper}{repeats};
foreach my $a ( sort keys %{$inhalt1} )
{
my $key = $hash_new->{helper}{repeats}{$a};
RemoveInternalTimer($key);
}
delete( $hash_new->{helper}{repeats} );
delete( $modules{MSwitch}{defptr}{$old_name} );
$modules{MSwitch}{defptr}{$new_name} = $hash_new;
return undef;
}
#####################################
sub MSwitch_Shutdown($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
# speichern gesetzter delays
my $delays = $hash->{helper}{delays};
my $x = 1;
my $seq;
foreach $seq ( keys %{$delays} )
{
readingsSingleUpdate( $hash, "SaveDelay_$x", $seq, 1 );
$x++;
}
delete( $hash->{helper}{devicecmds1} );
delete( $hash->{helper}{last_devicecmd_save} );
return undef;
}
####################
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) )
{
MSwitch_LOG( $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 ,$test1) = @_;
my $hash = $defs{$name};
my $testroom = AttrVal( $name, 'MSwitch_Inforoom', 'undef' );
if (exists $hash->{helper}{mode} && $hash->{helper}{mode} eq "absorb")
{
return "Device ist im Konfigurationsmodus.";
}
my @areadings = ( keys %{$test1} );
if ( !grep /group/, @areadings )
{
return;
}
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', 'Notify' ) 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 . "')\">";
}
$ret .= " <input disabled name='Text1' size='10' type='text' value='Mode: ". $hash->{MODEL} . "'> ";
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', 'Notify' ) 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', 'Notify' ) 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_check_init($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
Log3( $Name, 5, "start checkinit !" );#LOG
my $oldtrigger = ReadingsVal( $Name, 'Trigger_device', 'undef' );
if ( $oldtrigger ne 'undef')
{
$hash->{NOTIFYDEV} = $oldtrigger;
readingsSingleUpdate( $hash, "Trigger_device", $oldtrigger, 0 );
}
}
####################
sub MSwitch_LoadHelper($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $oldtrigger = ReadingsVal( $Name, 'Trigger_device', 'undef' );
my $devhash = undef;
my $cdev = '';
my $ctrigg = '';
if ( $hash->{INIT} eq "def" )
{
return;
}
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 auf global ... änderung auf ...
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' )
{
$hash->{helper}{config} ="no_config";
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, ".V_Check", $vupdate );
readingsBulkUpdate( $hash, "state", 'active' );
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' );
readingsBulkUpdate( $hash, ".V_Check", $vupdate );
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_Eventhistory} = '0';
$attr{$Name}{MSwitch_Safemode} = '1';
$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} = $startmode;
fhem("attr $Name room MSwitch_Devices") ;
}
# 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
#### savedelays einlesen
my $counter = 1;
while ( ReadingsVal( $Name, 'SaveDelay_' . $counter, 'undef' ) ne "undef" )
{
my $del = ReadingsVal( $Name, 'SaveDelay_' . $counter, 'undef' );
my @msgarray = split( /#\[tr\]/, $del );
my $timecond = $msgarray[4];
if ( $timecond > time )
{
$hash->{helper}{delays}{$del} = $timecond;
InternalTimer( $timecond, "MSwitch_Restartcmd", $del );
}
$counter++;
}
fhem("deletereading $Name SaveDelay_.*");
}
####################
sub MSwitch_Define($$) {
my $loglevel = 0;
my ( $hash, $def ) = @_;
my @a = split( "[ \t][ \t]*", $def );
my $name = $a[0];
my $devpointer = $name;
my $devhash = '';
my $defstring = '';
foreach (@a)
{
next if $_ eq $a[0];
next if $_ eq $a[1];
$defstring = $defstring . $_ . " ";
}
$modules{MSwitch}{defptr}{$devpointer} = $hash;
$hash->{Version_Modul} = $version;
$hash->{Version_Datenstruktur} = $vupdate;
$hash->{Version_autoupdate} = $autoupdate;
$hash->{MODEL} = $startmode;
$hash->{Support_Fhemforum} = "https://forum.fhem.de/index.php/topic,86199.0.html";
if ( $defstring ne "" and $defstring =~ m/(\(.+?\))/ ) {
Log3( $name, 0, "ERROR MSwitch define over onelinemode deactivated" );#LOG
return "This mode is deactivated";
# $hash->{INIT} = 'define';
# MSwitch_Define1( $hash, $defstring );
return;
}
else
{
$hash->{INIT} = 'fhem.save';
}
if ( $init_done && !defined( $hash->{OLDDEF} ) )
{
my $timecond = gettimeofday() + 5;
InternalTimer( $timecond, "MSwitch_check_init", $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;
}
####################
my $KLAMMERFEHLER;
my $CONDTRUE;
my $CONDTRUE1;
my $KLARZEITEN;
my $READINGSTATE;
my $NOREADING;
my $INHALT;
my $INCOMMINGSTRING;
my $STATEMENTPERL;
my $SYNTAXERROR;
my $DELAYDELETE;
my $NOTIMER;
my $SYSTEMZEIT;
my $SCHALTZEIT;
if (AttrVal( $name, 'MSwitch_Language',AttrVal( 'global', 'language', 'EN' ) ) eq "DE")
{
$KLAMMERFEHLER ="Fehler in der Klammersetzung, die Anzahl öffnender und schliessender Klammern stimmt nicht überein.";
$CONDTRUE="Bedingung ist Wahr und wird ausgeführt";
$CONDTRUE1="Bedingung ist nicht Wahr und wird nicht ausgeführt";
$KLARZEITEN="If Anweisung Perl Klarzeiten:";
$READINGSTATE="Status der geprüften Readings:";
$NOREADING="Reading nicht vorhanden !";
$INHALT="Inhalt:";
$INCOMMINGSTRING="eingehender String:";
$STATEMENTPERL="If Anweisung Perl:";
$SYNTAXERROR="Syntaxfehler:";
$DELAYDELETE="INFO: Alle anstehenden Timer wurden neu berechnet, alle Delays wurden gelöscht";
$NOTIMER="Timer werden nicht ausgeführt";
$SYSTEMZEIT="Systemzeit:";
$SCHALTZEIT="Schaltzeiten (at - kommandos)";
}
else
{
$KLAMMERFEHLER ="Error in brace replacement, number of opening and closing parentheses does not match.";
$CONDTRUE="Condition is true and is executed";
$CONDTRUE1="Condition is not true and will not be executed";
$KLARZEITEN="If statement Perl clears:";
$READINGSTATE="States of the checked readings:";
$NOREADING="Reading not available!";
$INHALT="content:";
$INCOMMINGSTRING="Incomming String:";
$STATEMENTPERL="If statement Perl:";
$SYNTAXERROR="Syntaxerror:";
$DELAYDELETE="INFO: All pending timers have been recalculated, all delays have been deleted";
$NOTIMER="Timers are not running";
$SYSTEMZEIT="system time:";
$SCHALTZEIT="Switching times (at - commands)";
}
if ( $opt eq 'MSwitch_preconf' )
{
MSwitch_setconfig( $hash, $args[0] );
return"MSwitch_preconfig for $name has loaded.\nPlease refresh device.";
}
####################
if ( $opt eq 'Eventlog' )
{
$ret = MSwitch_Eventlog($hash,$args[0]);
return $ret;
}
########################
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 'deletesinglelog' )
{
$ret = MSwitch_delete_singlelog( $hash, $args[0] );
return $ret;
}
####################
if ( $opt eq 'config' )
{
$ret = MSwitch_Getconfig($hash);
return $ret;
}
####################
if ( $opt eq 'support_info' )
{
$ret = MSwitch_Getsupport($hash);
return $ret;
}
####################
if ( $opt eq '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">'.$SYNTAXERROR.'<br>'. $errorstring. '</div><br>';
}
elsif ( $condstring1 eq 'Klammerfehler' )
{
$ret1 ='<div style="color: #FF0000">'.$SYNTAXERROR.'<br>'.$KLAMMERFEHLER.'</div><br>';
}
else
{
if ( $ret1 eq 'true' )
{
$ret1 = $CONDTRUE;
}
if ( $ret1 eq 'false' )
{
$ret1 = $CONDTRUE1;
}
}
$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 =$INCOMMINGSTRING."<br>$condstring<br><br>".$STATEMENTPERL."<br>$condstring1<br><br>";
$ret .= $KLARZEITEN."<br>$condmarker<br><br>" if $x > 0;
$ret .= $ret1;
my $condsplit = $condmarker;
my $reads = '<br><br>'.$READINGSTATE.'<br>';
$x = 0; # exit
while ( $condsplit =~ m/(if \()(.*)(\()(.*')(.*)',\s'(.*)',\s(.*)/ )
{
$x++; # exit
last if $x > 20; # exit
$reads .= "ReadingVal: [$5:$6] - ".$INHALT." " . ReadingsVal( $5, $6, 'undef' ) . "<br>";
$reads .= "ReadingNum: [$5:$6:d] - ".$INHALT." ". ReadingsNum( $5, $6, 'undef' );
$reads .="<div style=\"color: #FF0000\">".$NOREADING."</div>" if ( ReadingsVal( $5, $6, 'undef' ) ) eq "undef";
$reads .= "<br>";
$condsplit = $1 . $2 . $3 . $4 . $7;
}
$ret .= $reads if $x > 0;
## anzeige funktionserkennung
if ( defined $hash->{helper}{eventhistory}{DIFFERENCE} )
{
$ret .= "<br>";
$ret .= $hash->{helper}{eventhistory}{DIFFERENCE};
$ret .= "<br>";
delete( $hash->{helper}{eventhistory}{DIFFERENCE} );
}
if ( defined $hash->{helper}{eventhistory}{TENDENCY} )
{
$ret .= "<br>";
$ret .= $hash->{helper}{eventhistory}{TENDENCY};
$ret .= "<br>";
delete( $hash->{helper}{eventhistory}{TENDENCY} );
}
if ( defined $hash->{helper}{eventhistory}{AVERAGE} )
{
$ret .= "<br>";
$ret .= $hash->{helper}{eventhistory}{AVERAGE};
$ret .= "<br>";
delete( $hash->{helper}{eventhistory}{AVERAGE} );
}
if ( defined $hash->{helper}{eventhistory}{INCREASE} )
{
$ret .= "<br>";
$ret .= $hash->{helper}{eventhistory}{INCREASE};
$ret .= "<br>";
delete( $hash->{helper}{eventhistory}{INCREASE} );
}
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>".$DELAYDELETE."<br>";
return $ret;
}
#################################################
if ( $opt eq 'active_timer' && $args[0] eq 'show' ) {
if ( defined $hash->{helper}{wrongtimespec} and $hash->{helper}{wrongtimespec} ne "" )
{
$ret = $hash->{helper}{wrongtimespec};
$ret .= "<br>".$NOTIMER."<br>";
return $ret;
}
$ret .= "<div nowrap>".$SYSTEMZEIT." " . localtime() . "</div><hr>";
$ret .= "<div nowrap>".$SCHALTZEIT."</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 with 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 with 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>".$SCHALTZEIT."</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 = 'sysextension:noArg';
}
#! deaktiviere preconf ab V3 über wizard
# if (exists $hash->{helper}{config} && $hash->{helper}{config} eq "no_config")
# {
# 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 = "MSwitch_preconf:" . $preconf;
# }
# my $preconf = "";
#return "Unknown argument $opt, choose one of config:noArg restore_MSwitch_Data:this_Device,all_Devices $preconf";
#}
if ( AttrVal( $name, 'MSwitch_Mode', 'Notify' ) eq "Dummy" )
{
return "Unknown argument $opt, choose one of Eventlog:timeline,clear config:noArg support_info:noArg restore_MSwitch_Data:this_Device,all_Devices active_timer:show,delete";
}
if ( ReadingsVal( $name, '.lock', 'undef' ) ne "undef" )
{
return "Unknown argument $opt, choose one of active_timer:show,delete config:noArg restore_MSwitch_Data:this_Device,all_Devices ";
}
else
{
return "Unknown argument $opt, choose one of Eventlog:sequenzformated,timeline,clear support_info:noArg config:noArg active_timer:show,delete restore_MSwitch_Data:this_Device,all_Devices $extension";
}
}
####################
sub MSwitch_AsyncOutput ($) {
my ( $client_hash, $text ) = @_;
return $text;
}
####################
sub MSwitch_Set($@) {
my ( $hash, $name, $cmd, @args ) = @_;
#MSwitch_LOG( $name, 6, "$name Set $cmd, @args " . __LINE__ );
my $dynlist ="";
if ($cmd ne "?"){
MSwitch_LOG( $name, 6, "########## Ausführung Routine SET " . __LINE__ );
MSwitch_LOG( $name, 6, "Befehl: Set $cmd, @args " . __LINE__ );
}
#lösche saveddevicecmd
MSwitch_del_savedcmds($hash);
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';
my $ic = 'leer';
$ic = $hash->{IncommingHandle} if ( $hash->{IncommingHandle} );
my $showevents = AttrVal( $name, "MSwitch_generate_Events", 1 );
my $devicemode = AttrVal( $name, 'MSwitch_Mode', 'Notify' );
my $delaymode = AttrVal( $name, 'MSwitch_Delete_Delays', '0' );
###################################################################################
# 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";
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eval line" . __LINE__ );
}
$return = eval($cs);
if ($@)
{
MSwitch_LOG( $name, 1,"$name MSwitch_repeat: ERROR $cs: $@ " . __LINE__ );
}
return if $return eq "exit";
}
##########################
# mswitch dyn setlist
my $mswitchsetlist = AttrVal( $name, 'MSwitch_setList', "undef" );
my @arraydynsetlist;
my @arraydynreadinglist;
my $dynsetlist ;
if ($mswitchsetlist ne "undef")
{
my @dynsetlist = split( / /,$mswitchsetlist);
foreach my $test (@dynsetlist)
{
if ( $test =~ m/(.*)\[(.*)\]:?(.*)/ )
{
my @found_devices = devspec2array($2);
if ($1 ne "")
{
my $reading = $1;
chop ($reading);
push @arraydynsetlist, $reading;
$dynlist =join( ',', @found_devices );
$dynsetlist=$dynsetlist.$reading.":".$dynlist." ";
}
if ($3 ne "")
{
my $sets = $3;
foreach my $test1 (@found_devices)
{
push @arraydynsetlist, $test1;
$dynsetlist=$dynsetlist.$test1.":".$sets." ";
}
@arraydynreadinglist=@found_devices;
}
}
else
{
$dynsetlist=$dynsetlist.$test;
}
}
}
###########################
# nur bei funktionen in setlist !!!!
if ( AttrVal( $name, "MSwitch_Selftrigger_always", 0 ) eq "1" and $cmd ne "?" )
{
# && defined $setlist{$cmd}
my $atts = AttrVal( $name, 'setList', "" );
my @testarray = split( " ", $atts );
my %setlist;
foreach (@testarray)
{
my ($arg1,$arg2) = split( ":", $_ );
if (!defined $arg2 or $arg2 eq "") {$arg2 = "noArg"}
$setlist{$arg1} = $arg2;
}
MSwitch_Check_Event( $hash, "MSwitch_self:".$cmd.":".$args[0] ) if defined $setlist{$cmd};
}
if ( AttrVal( $name, "MSwitch_Selftrigger_always", 0 ) eq "1" and $cmd ne "?" )
{
# && defined $setlist{$cmd}
my %setlist;
foreach (@arraydynsetlist)
{
my ($arg1,$arg2) = split( ":", $_ );
if (!defined $arg2 or $arg2 eq "") {$arg2 = "noArg"}
$setlist{$arg1} = $arg2;
}
MSwitch_Check_Event( $hash, "MSwitch_self:".$cmd.":".$args[0] ) if defined $setlist{$cmd};
}
my %setlist;
if ( !defined $args[0] ) { $args[0] = ''; }
my $setList = AttrVal( $name, "setList", " " );
$setList =~ s/\n/ /g;
if ( !exists( $sets{$cmd} ) )
{
my @cList;
# Overwrite %sets with setList
my $atts = AttrVal( $name, 'setList', "" );
my @testarray = split( " ", $atts );
foreach (@testarray)
{
my ($arg1,$arg2) = split( ":", $_ );
if (!defined $arg2 or $arg2 eq "") {$arg2 = "noArg"}
$setlist{$arg1} = $arg2;
}
##########################
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 " if ($name eq "test");
}
# 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;
}
@gefischt = grep( /$re/, @arraydynsetlist );
if ( @arraydynsetlist && grep /$re/, @arraydynsetlist )
{
my @rl = split( " ", AttrVal( $name, "readingList", "" ) );
if (( @rl && grep /$re/, @rl ) || ( @arraydynreadinglist && grep /$re/, @arraydynreadinglist ))
{
readingsSingleUpdate( $hash, $cmd, "@args", 1 );
}
else
{
readingsSingleUpdate( $hash, "state", $cmd . " @args", 1 );
}
return;
}
##############################
# dummy state setzen und exit
if ( $devicemode eq "Dummy" )
{
if ($cmd eq "on" || $cmd eq "off")
{
readingsSingleUpdate( $hash, "state", $cmd . " @args", 1 );
return;
}
else
{
if ( AttrVal( $name, 'useSetExtensions', "0" ) eq '1' )
{
return SetExtensions($hash, $setList, $name, $cmd, @args);
}
else
{
return;
}
}
}
#AUFRUF DEBUGFUNKTIONEN
if ( AttrVal( $name, 'MSwitch_Debug', "0" ) eq '4' )
{
MSwitch_Debug($hash);
}
delete( $hash->{IncommingHandle} );
}
############################################
if (exists $hash->{helper}{config} && $hash->{helper}{config} eq "no_config")
{
return "Unknown argument $cmd, choose one of wizard:noArg"
}
if ( $devicemode eq "Notify" )
{
return "Unknown argument $cmd, choose one of $dynsetlist reset_device:noArg active:noArg inactive:noArg del_function_data:noArg del_delays:noArg backup_MSwitch:all_devices fakeevent exec_cmd_1 exec_cmd_2 wait reload_timer:noArg del_repeats:noArg change_renamed reset_cmd_count:1,2,all $setList $special";
}
elsif ( $devicemode eq "Toggle" )
{
return "Unknown argument $cmd, choose one of $dynsetlist reset_device:noArg active:noArg del_function_data:noArg inactive:noArg on off del_delays:noArg backup_MSwitch:all_devices fakeevent wait reload_timer:noArg del_repeats:noArg change_renamed $setList $special";
}
elsif ( $devicemode eq "Dummy" )
{
if ( AttrVal( $name, 'useSetExtensions', "0" ) eq '1' )
{
return SetExtensions($hash, $setList, $name, $cmd, @args);
}
else
{
return "Unknown argument $cmd, choose one of $dynsetlist del_repeats:noArg del_delays:noArg exec_cmd_1 exec_cmd_2 reset_device:noArg state backup_MSwitch:all_devices $setList $special";
}
}
else
{
#full
return "Unknown argument $cmd, choose one of $dynsetlist del_repeats:noArg reset_device:noArg active:noArg del_function_data:noArg inactive:noArg on off del_delays:noArg backup_MSwitch:all_devices fakeevent exec_cmd_1 exec_cmd_2 wait del_repeats:noArg reload_timer:noArg change_renamed reset_cmd_count:1,2,all $setList $special";
}
}
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]";
}
}
if ( AttrVal( $name, 'MSwitch_RandomNumber', '' ) ne '' )
{
# randomnunner erzeugen wenn attr an
MSwitch_Createnumber1($hash);
}
#############################
#absorb
if ( $cmd eq 'wizard' )
{
$hash->{helper}{mode} ='absorb';
$hash->{helper}{modesince} =time;
}
##############################
if ( $cmd eq 'reset_device' )
{
if ($args[0] eq 'checked' )
{
$hash->{helper}{config} ="no_config";
#readings
my $testreading = $hash->{READINGS};
delete $hash->{DEF};
MSwitch_Delete_Delay( $hash, $name );
my $inhalt = $hash->{helper}{repeats};
foreach my $a ( sort keys %{$inhalt} )
{
my $key = $hash->{helper}{repeats}{$a};
RemoveInternalTimer($key);
}
delete( $hash->{helper}{repeats} );
delete( $hash->{helper}{devicecmds1} );
delete( $hash->{helper}{last_devicecmd_save} );
delete( $hash->{helper}{eventhistory});
delete( $hash->{IncommingHandle} );
delete( $hash->{helper}{eventtoid} );
delete( $hash->{helper}{savemodeblock} );
delete( $hash->{helper}{sequenz});
delete( $hash->{helper}{history} );
delete( $hash->{helper}{eventlog} );
delete( $hash->{helper}{mode} );
delete( $hash->{helper}{reset} );
delete( $hash->{READINGS} );
# attribute
my %keys;
my $oldinforoom = AttrVal( $name, 'MSwitch_Inforoom', 'undef' );
my $oldroom =AttrVal( $name, 'MSwitch_Inforoom', 'undef' );
foreach my $attrdevice ( keys %{ $attr{$name} } )#geht
{
fhem("deleteattr $name $attrdevice ");
}
$hash->{Version_Modul} = $version;
$hash->{Version_Datenstruktur} = $vupdate;
$hash->{Version_autoupdate} = $autoupdate;
$hash->{MODEL} = $startmode;
$hash->{Support_Fhemforum} = "https://forum.fhem.de/index.php/topic,86199.0.html";
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, ".Device_Events", "no_trigger", 1 );
readingsBulkUpdate( $hash, ".Trigger_cmd_off", "no_trigger", 1 );
readingsBulkUpdate( $hash, ".Trigger_cmd_on", "no_trigger", 1 );
readingsBulkUpdate( $hash, ".Trigger_off", "no_trigger", 1 );
readingsBulkUpdate( $hash, ".Trigger_on", "no_trigger", 1 );
readingsBulkUpdate( $hash, "Trigger_device", "no_trigger", 1 );
readingsBulkUpdate( $hash, "Trigger_log", "off", 1 );
readingsBulkUpdate( $hash, "state", "active", 1 );
readingsBulkUpdate( $hash, ".V_Check", $vupdate, 1 );
readingsBulkUpdate( $hash, ".First_init", 'done' );
readingsEndUpdate( $hash, 0 );
my $attrdefinelist =
" disable:0,1"
. " disabledForIntervals"
. " stateFormat:textField-long"
. " MSwitch_Comments:0,1"
. " MSwitch_Read_Log:0,1"
. " MSwitch_Hidecmds"
. " 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_generate_Events: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_Reset_EVT_CMD1_COUNT"
. " MSwitch_Reset_EVT_CMD2_COUNT"
. " MSwitch_Trigger_Filter"
. " MSwitch_Extensions:0,1"
. " MSwitch_Inforoom"
. " MSwitch_DeleteCMDs:manually,automatic,nosave"
. " MSwitch_Mode:Full,Notify,Toggle,Dummy"
. " MSwitch_Condition_Time:0,1"
. " MSwitch_Selftrigger_always:0,1"
. " MSwitch_RandomTime"
. " MSwitch_RandomNumber"
. " MSwitch_Safemode:0,1"
. " MSwitch_Startdelay:0,10,20,30,60,90,120"
. " MSwitch_Wait"
. " MSwitch_Event_Id_Distributor:textField-long "
. " MSwitch_Sequenz:textField-long "
. " MSwitch_Sequenz_time"
. " MSwitch_setList:textField-long "
. " setList:textField-long "
. " readingList:textField-long "
. " MSwitch_Eventhistory:0,1,2,3,4,5,10,20,30,40,50,60,70,80,90,100,150,200"
. " textField-long "
. $readingFnAttributes;
setDevAttrList( $name, $attrdefinelist );
$hash->{NOTIFYDEV} = 'no_trigger';
$attr{$name}{MSwitch_Eventhistory} = '0';
$attr{$name}{MSwitch_Safemode} = '1';
$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_Lock_Quickedit} = '1';
$attr{$name}{MSwitch_Extensions} = '0';
$attr{$name}{room} = $oldroom if $oldroom ne "undef";
$attr{$name}{MSwitch_Mode} = $startmode;
$attr{$name}{MSwitch_Ignore_Types} = join( " ", @doignore );
fhem("attr $name MSwitch_Inforoom $oldinforoom") if $oldinforoom ne "undef";
return;
}
my $client_hash = $hash->{CL};
$hash->{helper}{tmp}{reset}="on";
return;
}
##############################
if ( $cmd eq 'del_delays' )
{
# löschen aller delays
MSwitch_Delete_Delay( $hash, $name );
MSwitch_Createtimer($hash);
return;
}
##############################
if ( $cmd eq 'del_repeats' )
{
my $inhalt = $hash->{helper}{repeats};
foreach my $a ( sort keys %{$inhalt} )
{
my $key = $hash->{helper}{repeats}{$a};
RemoveInternalTimer($key);
}
delete( $hash->{helper}{repeats} );
return;
# MSwitch_Delete_Delay( $hash, $name );
}
##############################
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 'reset_cmd_count' )
{
if ( $args[0] eq "1" )
{
readingsSingleUpdate( $hash, "EVT_CMD1_COUNT", 0, 1 );
}
if ( $args[0] eq "2" )
{
readingsSingleUpdate( $hash, "EVT_CMD2_COUNT", 0, 1 );
}
if ( $args[0] eq "all" )
{
readingsSingleUpdate( $hash, "EVT_CMD1_COUNT", 0, 1 );
readingsSingleUpdate( $hash, "EVT_CMD2_COUNT", 0, 1 );
}
return;
}
#######################################
if ( $cmd eq 'reload_timer' )
{
MSwitch_Clear_timer($hash);
MSwitch_Createtimer($hash);
return;
}
#######################################
if ( $cmd eq 'Writesequenz' )
{
MSwitch_Writesequenz($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 'deletesinglelog' )
{
my $ret = MSwitch_delete_singlelog( $hash, $args[0] );
return ;
}
##############################
if ( $cmd eq 'wait' )
{
readingsSingleUpdate( $hash, "waiting", ( time + $args[0] ),$showevents );
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';
}
if ( $args[0] eq "" )
{
MSwitch_Exec_Notif( $hash, 'on', 'nocheck', '', 0 );
return;
}
if ( $args[0] ne 'ID' || $args[0] ne '' )
{
if ( $args[1] !~ m/\d/ )
{
Log3($name,1,"error at id call $args[1]: format must be exec_cmd_1 <ID x,z,y>" );
return;
}
}
# 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';
}
if ( $args[0] eq "" )
{
MSwitch_Exec_Notif( $hash, 'off', 'nocheck', '', 0 );
return;
}
if ( $args[0] ne '' || $args[0] ne "ID" )
{
if ( $args[1] !~ m/\d/ )
{
Log3($name,1,"error at id call $args[1]: format must be exec_cmd_2 <ID x,z,y>");
return;
}
}
# cmd2 abarbeiten
MSwitch_Exec_Notif( $hash, 'off', 'nocheck', '', $execids );
return;
}
##############################
if ( $cmd eq 'backup_MSwitch' )
{
# backup erstellen
MSwitch_backup($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 "delcmds" )
{
delete( $hash->{helper}{devicecmds1} );
delete( $hash->{helper}{last_devicecmd_save} );
return;
}
##############################
if ( $cmd eq "del_function_data" )
{
delete( $hash->{helper}{eventhistory} );
fhem("deletereading $name DIFFERENCE");
fhem("deletereading $name TENDENCY");
fhem("deletereading $name AVERAGE");
return;
}
##############################
if ( $cmd eq "addevent" )
{
delete( $hash->{helper}{config} );
# event manuell zufügen
my $devName = ReadingsVal( $name, 'Trigger_device', '' );
$args[0] =~ s/\[sp\]/ /g;
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, 0 );
return;
}
##############################
if ( $cmd eq "add_device" )
{
delete( $hash->{helper}{config} );
#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" )
{
delete( $hash->{helper}{config} );
delete( $hash->{helper}{wrongtimespeccond} );
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" ) {
delete( $hash->{helper}{config} );
# 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 $hash->{INIT} ne 'define';
my $definition = $hash->{DEF};
$definition =~ s/\n/#[nl]/g;
$definition =~ m/(\(.+?\))(.*)/;
my $part1 = $1;
my $part2 = $2;
my $device = ReadingsVal( $name, 'Trigger_device', '' );
my $newtrigger = "([" . $device . ":" . $args[3] . "])" . $part2;
$newtrigger =~ s/#\[nl\]/\n/g;
$hash->{DEF} = $newtrigger;
fhem( "modify $name " . $newtrigger );
return;
}
##############################
if ( $cmd eq "devices" )
{
delete( $hash->{helper}{config} );
# 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" )
{
delete( $hash->{helper}{config} );
# 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 = '';
my $devicecmd = '';
LOOP10: foreach (@devices)
{
my @devicecmds = split( /#\[NF\]/, $devhash{$_} );
if ( $_ eq "FreeCmd-AbsCmd1" )
{
$devicecmd = $devicecmds[2];
}
$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] . '#[NF]';
}
else
{
$savedetails = $savedetails . '1' . '#[NF]';
}
# show
if ( defined $devicecmds[18] && $devicecmds[18] ne 'undefined' )
{
$savedetails = $savedetails . $devicecmds[18] . '#[ND]';
}
else
{
$savedetails = $savedetails . '0' . '#[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 if $hash->{INIT} ne 'define';
my $definition = $hash->{DEF};
$definition =~ m/(\(.+?\))(.*)/;
my $part1 = $1;
my $part2 = $2;
$devicecmd =~ s/#\[sp\]/ /g;
$devicecmd =~ s/#\[nl\]/\\n/g;
$devicecmd =~ s/#\[se\]/;/g;
$devicecmd =~ s/#\[dp\]/:/g;
$devicecmd =~ s/#\[st\]/\\'/g;
$devicecmd =~ s/#\[dst\]/\"/g;
$devicecmd =~ s/#\[tab\]/ /g;
$devicecmd =~ s/#\[ko\]/,/g;
$devicecmd =~ s/#\[wa\]/|/g;
$devicecmd =~ s/#\[bs\]/\\\\/g;
my $newdef = $part1 . " ($devicecmd)";
$hash->{DEF} = $newdef;
fhem( "modify $name " . $newdef );
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" )
{
if ( $devicemode eq "Dummy" && AttrVal( $name, "MSwitch_Selftrigger_always", 0 ) eq "0" )
{
readingsSingleUpdate( $hash, "state", $cmd, 1 );
return;
}
if ( $devicemode eq "Dummy" )
{
if ($cmd eq "on" && ReadingsVal( $name, '.Trigger_cmd_on', 'no_trigger' ) eq "no_trigger")
{
readingsSingleUpdate( $hash, "state", $cmd, 1 );
return;
}
if ($cmd eq "off" && ReadingsVal( $name, '.Trigger_cmd_off', 'no_trigger' ) eq "no_trigger")
{
readingsSingleUpdate( $hash, "state", $cmd, 1 );
return;
}
}
###################################################
### neu
if ( $delaymode eq '1' )
{
MSwitch_Delete_Delay( $hash, $name );
}
############
if ( $ic ne 'fromnotify' && $ic ne 'fromtimer' )
{
readingsSingleUpdate( $hash, "last_activation_by", 'manual',$showevents );
}
delete( $hash->{IncommingHandle} );
# 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, "On/Off Kommando gefunden -> $cmd " . __LINE__ );
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, "Angesprochener Befehlszweig: ". $zweig. " " . __LINE__ );
MSwitch_LOG($name,6, "Angesprochenes Device: ". $device . " " . __LINE__ );
# 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++;
}
# teste auf delayinhalt
###########################################################
my $key = $device . "_" . $cmd;
my $timerkey = $device . "_time" . $cmd;
if ( $devicedetails{$timerkey} =~ m/{.*}/ )
{
$devicedetails{$timerkey} = eval $devicedetails{$timerkey};
}
if ( $devicedetails{$timerkey} =~ m/\[.*:.*\]/ )
{
$devicedetails{$timerkey} = eval MSwitch_Checkcond_state( $devicedetails{$timerkey},$name );
}
if ( $devicedetails{$timerkey} =~ m/[\d]{2}:[\d]{2}:[\d]{2}/ )
{
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;
}
elsif( $devicedetails{$timerkey} =~ m/^\d*\.?\d*$/ )
{
$devicedetails{$timerkey} = $devicedetails{$timerkey} ;
}
else
{
MSwitch_LOG($name,6, "ERROR im Timerformat: ". $devicedetails{$timerkey} . " " . __LINE__ );
$devicedetails{$timerkey} = 0;
}
MSwitch_LOG( $name,6, "Timerstatus (Befehlsverzögerung) -> ". $devicedetails{$timerkey}." " . __LINE__ );
# 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, "Befehl gefunden: -> " . $cs ." " . __LINE__ );
MSwitch_LOG( $name, 6,"Teste auf Verzögerung -> " . $devicedetails{$timerkey}." " . __LINE__ );
my $conditionkey = $device . "_condition" . $cmd;
if ( $devicedetails{$timerkey} eq "0" || $devicedetails{$timerkey} eq "" )
{
# $conditionkey = $device . "_conditionoff";
MSwitch_LOG( $name, 6,"Teste auf Schaltbedingung; ". $devicedetails{$conditionkey}. " " . __LINE__ ) if $devicedetails{$conditionkey} ne '';
MSwitch_LOG( $name, 6,"Schaltbedingung nicht vorhanden:" . $devicedetails{$conditionkey} . " " . __LINE__ ) if $devicedetails{$conditionkey} eq '';
my $execute = "true";
$execute = MSwitch_checkcondition( $devicedetails{$conditionkey},$name, $args[0] ) if $devicedetails{$conditionkey} ne '';
MSwitch_LOG( $name, 6,"Schaltbedingung Ergebniss: " . $execute . " " . __LINE__ );
if ( $execute eq 'true' )
{
$cs =~ s/\$NAME/$hash->{helper}{eventfrom}/;
$cs =~ s/\$SELF/$name/;
MSwitch_LOG( $name, 6,"Befehl in Comand-Pool geschrieben ->" . $cs ." " . __LINE__);
push @cmdpool, $cs . '|' . $device;
$update = $device . ',' . $update;
if ( $out eq '1' )
{
MSwitch_LOG( $name, 6,"Abbruchbefehl erhalten von ". $device ." " . __LINE__);
last LOOP1;
}
}
}
else
{
MSwitch_LOG( $name, 6,"Teste auf Schaltbedingungen -> keine vorhanden" ." " . __LINE__ );
if ($randomtime ne ''&& $devicedetails{$timerkey} eq '[random]' )
{
MSwitch_LOG($name,6,"Zfallstimer gefunden -> ". $devicedetails{$timerkey} ." " . __LINE__);
$devicedetails{$timerkey} = MSwitch_Execute_randomtimer($hash);
# ersetzt $devicedetails{$timerkey} gegen randomtimer
MSwitch_LOG($name,6,"Zufallstimer ersetzt durch: -> ". $devicedetails{$timerkey} ." " . __LINE__);
}
elsif ( $randomtime eq '' && $devicedetails{$timerkey} eq '[random]' )
{
MSwitch_LOG($name, 6,"Zufallstimer gefunden aber Attribut nicht gesetzt -> 0" ." " . __LINE__);
$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,"Schaltbedingung für verzögerten Befehl gefunden -> ". $devicedetails{ $device . "_delayat" . $cmd } ." " . __LINE__);
$execute = MSwitch_checkcondition( $devicedetails{$conditionkey}, $name, $args[0] );
MSwitch_LOG($name,6,"Prüfung für verzögerte Schaltbedingung-> ". $execute ." " . __LINE__);
}
MSwitch_LOG($name,6, "Verzögerung -> ". $devicedetails{$timerkey} ." " . __LINE__);
if ( $execute eq 'true' )
{
MSwitch_LOG( $name, 6,"Schaltbedingung erfüllt - Befehl mt at/delay wird ausgefuehrt -> ". $cs ." " . __LINE__ );
my $delaykey = $device . "_delayat" . $cmd;
my $delayinhalt = $devicedetails{$delaykey};
my $delaykey1 = $device . "_delayat" . $cmd . "org";
my $teststateorg = $devicedetails{$delaykey1};
if ( $delayinhalt eq 'at0' || $delayinhalt eq 'at1' )
{
MSwitch_LOG( $name, 6,"Verzögerung mit at erkannt -> ". $devicedetails{$timerkey} ." " . __LINE__ );
$devicedetails{$timerkey} = MSwitch_replace_delay( $hash, $teststateorg );
MSwitch_LOG( $name, 6,"Verzögerung ersetzt durch: -> ". $devicedetails{$timerkey} ." " . __LINE__ );
}
if ( $delayinhalt eq 'at1' || $delayinhalt eq 'delay0' )
{
MSwitch_LOG( $name, 6,"Verzögerung ohne zusatzprüfung erkannt -> ". $delayinhalt );
$conditionkey = 'nocheck';
MSwitch_LOG( $name, 6,"Bedingung ersetzt ersetzt -> ". $conditionkey ." " . __LINE__);
}
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/;
$msg = MSwitch_check_setmagic_i( $hash, $msg );
$hash->{helper}{delays}{$msg} = $timecond;
InternalTimer( $timecond, "MSwitch_Restartcmd", $msg );
MSwitch_LOG($name,5,"$name: verzoegerte befehl gesetzt -> ". $timecond . " : ". $msg);
if ( $out eq '1' ) {
MSwitch_LOG( $name, 6,"Abbruchbefehl erhalten von ". $device ." " . __LINE__);
last LOOP1;
}
}
}
}
}
if ( $devicemode ne "Notify" )
{
readingsSingleUpdate( $hash, "state", $cmd, 1 );
}
else
{
# readingsSingleUpdate( $hash, "state", 'active', $showevents );
}
my $anzahl = @cmdpool;
MSwitch_LOG( $name, 6,"Anzahl der auszufuehrenden befehle -> " . $anzahl ." " . __LINE__);
MSwitch_LOG( $name, 6, "Übergabe an Execute erfolgt" ." " . __LINE__) if $anzahl > 0;
MSwitch_Cmd( $hash, @cmdpool ) if $anzahl > 0;
return;
}
return;
}
###################################
sub MSwitch_Cmd(@) {
my ( $hash, @cmdpool ) = @_;
my $Name = $hash->{NAME};
my $lastdevice;
my $showevents = AttrVal( $Name, "MSwitch_generate_Events", 1 );
my %devicedetails = MSwitch_makeCmdHash($Name);
foreach my $cmds (@cmdpool)
{
MSwitch_LOG( $Name, 6, "Befehlsausführung -> " . $cmds ." " . __LINE__ );
my @cut = split( /\|/, $cmds );
$cmds = $cut[0];
#ersetze platzhakter vor ausführung
my $device = $cut[1];
$lastdevice = $device;
my $toggle = '';
if ( $cmds =~ m/set (.*)(MSwitchtoggle)(.*)/ )
{
MSwitch_LOG( $Name, 6, "Togglemode erkannt -> " . $cmds ." " . __LINE__ );
$toggle = $cmds;
$cmds = MSwitch_toggle( $hash, $cmds );
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' && $devicedetails{ $device . '_repeatcount' } ne '' )
{
MSwitch_LOG($Name,6, "teste auf Befehlswiederholungen -> " . $devicedetails{ $device . '_repeatcount' } ." " . __LINE__);
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,"Befehlswiederholungen nach SETMAGICersetzung -> " . $devicedetails{ $device . '_repeatcount' } ." " . __LINE__ );
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' && $devicedetails{ $device . '_repeattime' } ne '' )
{
MSwitch_LOG($Name, 6,"Teste auf Wiederholungsintervall -> ". $devicedetails{ $device . '_repeattime' } ." " . __LINE__);
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,"Wiederholungsintervall nach SETMAGIcersetzung -> ". $devicedetails{ $device . '_repeattime' } ." " . __LINE__ );
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1'
&& $devicedetails{ $device . '_repeatcount' } > 0
&& $devicedetails{ $device . '_repeattime' } > 0 )
{
my $i;
for ( $i = 1 ;$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,"gesetzte Wiederholung -> ". $timecond . " : ". $msg ." " . __LINE__);
InternalTimer( $timecond, "MSwitch_repeat", $msg );
}
}
my $todec = $cmds;
$cmds = MSwitch_dec( $hash, $todec );
MSwitch_LOG( $Name, 6, "Comand nach decodierung -> " . $cmds ." " . __LINE__);
############################
# debug2 mode , kein execute
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '2' )
{
MSwitch_LOG( $Name, 6, "Comand ausgeführt -> " . $cmds ." " . __LINE__);
}
else
{
if ( $cmds =~ m/{.*}/ )
{
MSwitch_LOG( $Name, 6,"Comand als Perlcode ausgeführt -> " . $cmds ." " . __LINE__ );
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
my $out = eval($cmds);
if ($@)
{
MSwitch_LOG( $Name, 6,"MSwitch_Set: ERROR $cmds: $@ " . __LINE__ );
}
}
else
{
MSwitch_LOG( $Name, 6,"Comand als Fhemcode ausgeführt -> " . $cmds );
my $errors = AnalyzeCommandChain( undef, $cmds );
if ( defined($errors) and $errors ne "OK" )
{
MSwitch_LOG( $Name, 6, "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, $showevents ) if $showpool ne '';
if ( AttrVal( $Name, 'MSwitch_Expert', '0' ) eq "1" )
{
readingsSingleUpdate( $hash, "last_cmd",
$hash->{helper}{priorityids}{$lastdevice},
$showevents );
}
}
####################
sub MSwitch_toggle($$) {
my @cmds;
my $anzcmds;
my @muster;
my $anzmuster;
my $reading ='state';
my ( $hash, $cmds ) = @_;
my $Name = $hash->{NAME};
$cmds =~ m/(set) (.*)( )MSwitchtoggle (.*)/;
my $newcomand = $1 . " " . $2 . " " ;
my @togglepart = split( /:/, $4 );
if($togglepart[0])
{
$togglepart[0] =~ s/\[//g;
$togglepart[0] =~ s/\]//g;
@cmds = split( /,/, $togglepart[0] );
$anzcmds = @cmds;
}
if($togglepart[1])
{
$togglepart[1] =~ s/\[//g;
$togglepart[1] =~ s/\]//g;
@muster = split( /,/, $togglepart[1] );
$anzmuster = @cmds;
}
else{
@muster = @cmds;
$anzmuster = $anzcmds;
}
if($togglepart[2])
{
$togglepart[2] =~ s/\[//g;
$togglepart[2] =~ s/\]//g;
$reading = $togglepart[2];
}
my $aktstate = ReadingsVal( $2, $reading, 'undef' );
my $foundmuster;
for ( my $i = 0 ; $i < $anzmuster ; $i++ )
{
if ($muster[$i] eq $aktstate)
{
$foundmuster=$i;
last;
}
}
my $nextpos=0;
if (defined $cmds[$foundmuster+1])
{
$nextpos=$foundmuster+1
}
my $nextcmd=$cmds[$nextpos];
$newcomand=$newcomand.$nextcmd;
MSwitch_LOG( $Name, 6, "########## Togglefunktion" );
MSwitch_LOG( $Name, 6, "Befehle: @cmds" );
MSwitch_LOG( $Name, 6, "Befehle anzahl: $anzcmds" );
MSwitch_LOG( $Name, 6, "Suchmuster: @muster" );
MSwitch_LOG( $Name, 6, "Suchmuster Anzahl: $anzmuster" );
MSwitch_LOG( $Name, 6, "betreffendes Reading: $reading" );
MSwitch_LOG( $Name, 6, "aktueller status des Readingd: $aktstate" );
MSwitch_LOG( $Name, 6, "Suchmuster an Position: $foundmuster" );
MSwitch_LOG( $Name, 6, "nächste Position: $nextpos" );
MSwitch_LOG( $Name, 6, "nächste Befehl: $nextcmd" );
MSwitch_LOG( $Name, 6, "Befehlszeile: $newcomand" );
MSwitch_LOG( $Name, 6, "########## Togglefunktion ende return: $newcomand" );
return $newcomand;
}
######################################
sub MSwitch_toggleold($$) {
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;
}
Log3( $Name, 0, "nächste Befehl: $cmds" );
return $cmds;
}
##############################
sub MSwitch_Log_Event(@) {
my ( $hash, $msg, $me ) = @_;
my $Name = $hash->{NAME};
my $triggerdevice = ReadingsVal( $Name, 'Trigger_device', 'no_trigger' );
my $re = qr/$triggerdevice/;
if ( $triggerdevice eq 'no_trigger' )
{
delete( $hash->{helper}{writelog} );
return;
}
if ( $triggerdevice ne 'Logfile'
&& $triggerdevice ne 'all_events'
&& ( $hash->{helper}{writelog} !~ /$re/ ) )
{
delete( $hash->{helper}{writelog} );
return;
}
MSwitch_Check_Event( $hash, $hash );
delete( $hash->{helper}{writelog} );
return;
}
##############################
sub MSwitch_Attr(@) {
my ( $cmd, $name, $aName, $aVal ) = @_;
my $hash = $defs{$name};
if ( $aName eq 'MSwitch_Debug' && ( $aVal == 2 || $aVal == 3 ) )
{
readingsSingleUpdate( $hash, "Debug", 'Start_Debug', 1 );
}
else
{
delete( $hash->{READINGS}{Debug} );
}
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} );
#fhem("deletereading ".$name." Debug");
}
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 "MSwitch_Read_Log" )
{
if ( defined($aVal) && $aVal eq "1" )
{
$logInform{$name} = sub($$)
{
my ( $me, $msg ) = @_;
return if ( defined( $hash->{helper}{writelog} ) );
$hash->{helper}{writelog} = $msg;
MSwitch_Log_Event( $hash, $msg, $me );
}
}
else
{
delete( $hash->{helper}{writelog} );
delete $logInform{$name};
}
}
##################################
if ( $cmd eq 'set' && $aName eq 'MSwitch_Event_Id_Distributor' ) {
delete( $hash->{helper}{eventtoid} );
return "Invalid Regex $aVal: $@" if $aVal eq "";
return "Invalid Regex $aVal: $@" if !$aVal;
return "Invalid Regex $aVal: $@" if $aVal eq "1";
my @test = split( /\n/, $aVal );
foreach my $testdevices (@test)
{
if ( $testdevices !~ m/(.*:)?.*:.*=\>cmd(1|2)[\s]ID[\s](\d)(,\d){0,5}$/ )
{
return "wrong syntax. The syntax must be: \n\n[DEVICE:]READING:STATE=>cmd<1|2> ID x[,y,z] \n\n[] = optional \n<1|2> = 1 or 2 \nseveral entries are separated by a line break";
}
}
foreach my $testdevices (@test)
{
my ( $key, $val ) = split( /=>/, $testdevices );
$hash->{helper}{eventtoid}{$key} = $val;
}
return;
}
if ( $cmd eq 'del' && $aName eq 'MSwitch_Event_Id_Distributor' )
{
delete( $hash->{helper}{eventtoid} );
return;
}
###################################
if ( $cmd eq 'set' && $aName eq 'MSwitch_DeleteCMDs' )
{
delete( $hash->{helper}{devicecmds1} );
delete( $hash->{helper}{last_devicecmd_save} );
}
if ( $cmd eq 'set' && $aName eq 'MSwitch_Reset_EVT_CMD1_COUNT' )
{
readingsSingleUpdate( $hash, "EVT_CMD1_COUNT", 0, 1 );
}
if ( $cmd eq 'set' && $aName eq 'MSwitch_Reset_EVT_CMD2_COUNT' )
{
readingsSingleUpdate( $hash, "EVT_CMD2_COUNT", 0, 1 );
}
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 ( ReadingsVal( $name, 'Trigger_device', 'no_trigger' ) ne 'no_trigger'
and ReadingsVal( $name, 'Trigger_device', 'no_trigger' ) ne "MSwitch_Self")
{
$hash->{NOTIFYDEV} = ReadingsVal( $name, 'Trigger_device', 'no_trigger' );
}
if ( $init_done == 1 and ReadingsVal( $name, 'Trigger_device', 'no_trigger' ) eq "MSwitch_Self")
{
$hash->{NOTIFYDEV} = $name;
}
}
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 ( defined $aVal && ($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' ) )
{
delete( $hash->{helper}{config} );
my $cs = "setstate $name ???";
my $errors = AnalyzeCommandChain( undef, $cs );
$hash->{MODEL} = 'Full' if $aVal eq 'Full';
$hash->{MODEL} = 'Toggle' if $aVal eq 'Toggle';
}
#############################
if ( $aName eq 'MSwitch_Mode' && ( $aVal eq 'Dummy' ) )
{
MSwitch_Delete_Delay( $hash, 'all' );
MSwitch_Clear_timer($hash);
$hash->{NOTIFYDEV} = 'no_trigger';
$hash->{MODEL} = 'Dummy';
fhem("deleteattr $name MSwitch_Include_Webcmds");
fhem("deleteattr $name MSwitch_Include_MSwitchcmds");
fhem("deleteattr $name MSwitch_Include_Devicecmds");
fhem("deleteattr $name MSwitch_Safemode");
#fhem("deleteattr $name MSwitch_Expert");
fhem("deleteattr $name MSwitch_Extensions");
fhem("deleteattr $name MSwitch_Lock_Quickedit");
fhem("deleteattr $name MSwitch_Delete_Delays");
delete( $hash->{NOTIFYDEV} );
delete( $hash->{NTFY_ORDER} );
delete( $hash->{READINGS}{Trigger_device} );
delete( $hash->{IncommingHandle} );
delete( $hash->{READINGS}{EVENT} );
delete( $hash->{READINGS}{EVTFULL} );
delete( $hash->{READINGS}{EVTPART1} );
delete( $hash->{READINGS}{EVTPART2} );
delete( $hash->{READINGS}{EVTPART3} );
delete( $hash->{READINGS}{last_activation_by} );
delete( $hash->{READINGS}{last_event} );
delete( $hash->{READINGS}{last_exec_cmd} );
my $attrzerolist =
" disable:0,1"
. " MSwitch_Language:EN,DE"
. " MSwitch_Debug:0,1"
. " disabledForIntervals"
. " MSwitch_Expert:0,1"
. " stateFormat:textField-long"
. " MSwitch_Eventhistory:0,10"
. " MSwitch_Help:0,1"
. " MSwitch_Ignore_Types:textField-long "
. " MSwitch_Extensions:0,1"
. " MSwitch_Inforoom"
. " MSwitch_DeleteCMDs:manually,automatic,nosave"
. " MSwitch_Mode:Full,Notify,Toggle,Dummy"
. " MSwitch_Selftrigger_always:0,1"
. " useSetExtensions:0,1"
. " MSwitch_setList:textField-long "
. " MSwitch_Event_Id_Distributor:textField-long "
. " setList:textField-long "
. " readingList:textField-long "
. " textField-long ";
setDevAttrList($name, $attrzerolist);
}
if ( $aName eq 'MSwitch_Mode' && $aVal eq 'Notify' )
{
$hash->{MODEL} = 'Notify';
my $cs = "setstate $name active";
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) )
{
MSwitch_LOG( $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} );
}
if ( $testarg eq 'MSwitch_Reset_EVT_CMD1_COUNT' )
{
delete( $hash->{READINGS}{EVT_CMD1_COUNT} );
}
if ( $testarg eq 'MSwitch_Reset_EVT_CMD2_COUNT' )
{
delete( $hash->{READINGS}{EVT_CMD2_COUNT} );
}
if ( $testarg eq 'MSwitch_DeleteCMDs' )
{
delete( $hash->{helper}{devicecmds1} );
delete( $hash->{helper}{last_devicecmd_save} );
}
}
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;
$devName = $dev_hash->{NAME};
my $events = deviceEvents( $dev_hash, 1 );
############################
if (exists $own_hash->{helper}{mode} and $own_hash->{helper}{mode} eq "absorb"){
if (time > $own_hash->{helper}{modesince}+600) # time bis wizardreset
{
delete( $own_hash->{helper}{mode} );
delete( $own_hash->{helper}{modesince} );
delete( $own_hash->{NOTIFYDEV} );
delete( $own_hash->{READINGS} );
readingsBeginUpdate($own_hash);
readingsBulkUpdate( $own_hash, ".Device_Events", "no_trigger", 1 );
readingsBulkUpdate( $own_hash, ".Trigger_cmd_off", "no_trigger", 1 );
readingsBulkUpdate( $own_hash, ".Trigger_cmd_on", "no_trigger", 1 );
readingsBulkUpdate( $own_hash, ".Trigger_off", "no_trigger", 1 );
readingsBulkUpdate( $own_hash, ".Trigger_on", "no_trigger", 1 );
readingsBulkUpdate( $own_hash, "Trigger_device", "no_trigger", 1 );
readingsBulkUpdate( $own_hash, "Trigger_log", "off", 1 );
readingsBulkUpdate( $own_hash, "state", "active", 1 );
readingsBulkUpdate( $own_hash, ".V_Check", $vupdate, 1 );
readingsBulkUpdate( $own_hash, ".First_init", 'done' );
readingsEndUpdate( $own_hash, 0 );
return;
}
return if $devName eq $ownName;
my @eventscopy = ( @{$events} );
foreach my $event ( @eventscopy )
{
readingsSingleUpdate( $own_hash, "EVENTCONF", $devName.": ".$event, 1 );
}
return;
}
############################
if ( ReadingsVal( $ownName, '.First_init', 'undef' ) ne 'done' )
{
# events blocken wenn datensatz unvollständig
return;
}
# lösche saveddevicecmd #
MSwitch_del_savedcmds($own_hash);
if ( $own_hash->{helper}{testevent_device}&& $own_hash->{helper}{testevent_device} eq 'Logfile' )
{
$devName = 'Logfile';
}
my $trigevent = '';
my $eventset = '0';
my $execids = "0";
my $foundcmd1 = 0;
my $foundcmd2 = 0;
my $showevents = AttrVal( $ownName, "MSwitch_generate_Events", 1 );
my $evhistory = AttrVal( $ownName, "MSwitch_Eventhistory", 10 );
my $resetcmd1 = AttrVal( $ownName, "MSwitch_Reset_EVT_CMD1_COUNT", 0 );
my $resetcmd2 = AttrVal( $ownName, "MSwitch_Reset_EVT_CMD2_COUNT", 0 );
if ( $resetcmd1 > 0 && ReadingsVal( $ownName, 'EVT_CMD1_COUNT', '0' ) >= $resetcmd1 )
{
readingsSingleUpdate( $own_hash, "EVT_CMD1_COUNT", 0, $showevents );
}
if ( $resetcmd2 > 0 && ReadingsVal( $ownName, 'EVT_CMD2_COUNT', '0' ) >= $resetcmd1 )
{
readingsSingleUpdate( $own_hash, "EVT_CMD2_COUNT", 0, $showevents );
}
# 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 );
}
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 );
}
if ( $devName eq "global"&& grep( m/^INITIALIZED|REREADCFG$/, @{$events} ) )
{
# reaktion auf eigenes notify start / define / modify
MSwitch_LoadHelper($own_hash);
}
# 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', 'Notify' );
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', '' );
if ( AttrVal( $ownName, "MSwitch_Selftrigger_always", 0 ) ne "1")
{
return if ( ReadingsVal( $ownName, "Trigger_device", "no_trigger" ) eq 'no_trigger' );
return if ( !$own_hash->{NOTIFYDEV} && ReadingsVal( $ownName, 'Trigger_device', 'no_trigger' ) ne "all_events" );
}
else
{
}
# 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);
}
MSwitch_LOG( $ownName, 6, "-------------waiting passiert-----------------" );
my $incommingdevice = '';
if ( defined( $own_hash->{helper}{testevent_device}) && $own_hash->{helper}{testevent_device} eq $ownName)
{
$incommingdevice = "MSwitch_Self";
$events = 'x';
}
elsif ( defined( $own_hash->{helper}{testevent_device}) )
{
# unklar
$events = 'x';
$incommingdevice = ( $own_hash->{helper}{testevent_device} );
}
else
{
$incommingdevice = $dev_hash->{NAME}; # aufrufendes device
}
#####
if ( ReadingsVal( $ownName, "waiting", '0' ) > time && $incommingdevice ne "MSwitch_Self")
{
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} );
}
#####
if ( !$events && $own_hash->{helper}{testevent_device} ne 'Logfile' )
{
return;
}
readingsSingleUpdate( $own_hash, "last_activation_by", 'event', $showevents );
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} ) )
{
@eventscopy = "$own_hash->{helper}{testevent_event}";
}
else
{
@eventscopy = ( @{$events} ) if $events ne "x";
}
my $triggerlog = ReadingsVal( $ownName, 'Trigger_log', 'off' );
if ( $incommingdevice eq $triggerdevice
|| $triggerdevice eq "all_events"
|| $triggerdevice eq "MSwitch_Self"
|| $incommingdevice eq "MSwitch_Self" )
{
# teste auf triggertreffer oder GLOBAL trigger
my $activecount = 0;
my $anzahl;
#### SEQUENZE
######################################
my @sequenzall =split( /\//, AttrVal( $ownName, 'MSwitch_Sequenz', 'undef' ) );
my $sequenzarrayfull = AttrVal( $ownName, 'MSwitch_Sequenz', 'undef' );
$sequenzarrayfull =~ s/\// /g;
my @sequenzarrayfull = split( / /, $sequenzarrayfull );
my @sequenzarray;
my $sequenz;
my $x = 0;
my $sequenztime = AttrVal( $ownName, 'MSwitch_Sequenz_time', 5 );
foreach my $sequenz (@sequenzall)
{
$x++;
if ( $sequenz ne "undef" )
{
@sequenzarray = split( / /, $sequenz );
my $sequenzanzahl = @sequenzarray;
my $deletezeit = time;
my $seqhash = $own_hash->{helper}{sequenz}{$x};
foreach my $seq ( keys %{$seqhash} )
{
if ( time > ( $seq + $sequenztime ) )
{
delete( $own_hash->{helper}{sequenz}{$x}{$seq} );
}
}
}
}
##########################
EVENT: foreach my $event (@eventscopy)
{
MSwitch_LOG( $ownName, 6, "$ownName: event -> $event " );
if ( $event =~ m/^.*:.\{.*\}?/ )
{
MSwitch_LOG( $ownName, 6, "$ownName: found jason -> $event " );
next EVENT;
}
if ( $event =~ m/(.*)(\{.*\})(.*)/ )
{
my $p1 = $1;
my $json = $2;
my $p3 = $3;
$json =~ s/:/[dp]/g;
$json =~ s/\"/[dst]/g;
$event = $p1 . $json . $p3;
MSwitch_LOG( $ownName, 5,"$ownName: changedevent -> $event " );
#next EVENT;
}
$own_hash->{eventsave} = 'unsaved';
MSwitch_LOG(
$ownName,
5,
"$ownName: eingehendes Event -> "
. $incommingdevice . " "
. $event
);
# durchlauf für jedes ankommende event
$event = "" if ( !defined($event) );
$eventcopy = $event;
$eventcopy =~ s/: /:/s; # BUG !!!!!!!!!!!!!!!!!!!!!!!!
$event =~ s/: /:/s;
# 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,
5,
"$ownName: teste die Triggercondition -> "
. $triggercondition
);
MSwitch_LOG( $ownName, 5, "$ownName: teste die eventcopy -> " . $eventcopy );
my $ret = MSwitch_checkcondition( $triggercondition, $ownName,$eventcopy );
MSwitch_LOG( $ownName, 5, "$ownName: ergebniss der Triggercondition -> " . $ret );
if ( $ret eq 'false' )
{
MSwitch_LOG($ownName,6,"$ownName: ergebniss Triggercondition false-> abbruch");
MSwitch_LOG( $ownName, 6, "-----------------" );
next EVENT;
}
}
# Triggerfilter
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,"Name: eingehendes Event durch MSwitch_Trigger_Filter ausgefiltert: ". $eventcopy1 );
next EVENT;
}
}
}
delete( $own_hash->{helper}{history} );# lösche historyberechnung verschieben auf nach abarbeitung conditions
# sequenz
my $x = 0;
my $zeit = time;
SEQ: foreach my $sequenz (@sequenzall) {
$x++;
if ( $sequenz ne "undef" )
{
my $fulldev = "$devName:$eventcopy";
#MSwitch_LOG( $ownName, 0,"$_ -- $fulldev --- @sequenzarrayfull" );
foreach my $test(@sequenzarrayfull)
{
#MSwitch_LOG( $ownName, 0,"test: ".$test );
if ( $fulldev =~ /$test/ )
{
#MSwitch_LOG( $ownName, 0,"FOUND. $fulldev --- $test" );
$own_hash->{helper}{sequenz}{$x}{$zeit} = $fulldev;
}
}
# if ( grep { $_ eq $fulldev } @sequenzarrayfull )
# {
# my $zeit = time;
# $own_hash->{helper}{sequenz}{$x}{$zeit} = $fulldev;
# }
my $seqhash = $own_hash->{helper}{sequenz}{$x};
my $aktsequenz = "";
foreach my $seq ( sort keys %{$seqhash} )
{
$aktsequenz .= $own_hash->{helper}{sequenz}{$x}{$seq} . " ";
}
if ( $aktsequenz =~ /$sequenz/ )
{
delete( $own_hash->{helper}{sequenz}{$x} );
readingsSingleUpdate( $own_hash, "SEQUENCE", 'match', 1 );
readingsSingleUpdate( $own_hash, "SEQUENCE_Number", $x, 1 );
last SEQ;
}
else
{
if ( ReadingsVal( $ownName, "SEQUENCE", 'undef' ) eq "match" )
{
readingsSingleUpdate( $own_hash, "SEQUENCE",'no_match', 1 );
}
if ( ReadingsVal( $ownName, "SEQUENCE_Number", 'undef' ) ne "0" )
{
readingsSingleUpdate( $own_hash, "SEQUENCE_Number", '0', 1 );
}
}
}
}
# Triggerlog/Eventlog
if ( $triggerlog eq 'on' )
{
my $zeit = time;
if ($incommingdevice ne "MSwitch_Self")
{
if ( $triggerdevice eq "all_events" )
{
$own_hash->{helper}{events}{'all_events'}{ $devName . ':' . $eventcopy } = "on";
}
else
{
$own_hash->{helper}{events}{$devName}{$eventcopy} = "on";
}
}
else
{
$own_hash->{helper}{events}{MSwitch_Self}{$eventcopy} = "on";
}
}
if ( $evhistory > 0 )
{
my $zeit = time;
if ($incommingdevice ne "MSwitch_Self")
{
if ( $triggerdevice eq "all_events" )
{
$own_hash->{helper}{eventlog}{$zeit}=$devName . ':' . $eventcopy ;
}
else
{
$own_hash->{helper}{eventlog}{$zeit}=$devName . ':' . $eventcopy;
}
}
else
{
$own_hash->{helper}{eventlog}{$zeit}="MSitch_Self:". $eventcopy;
}
my $log = $own_hash->{helper}{eventlog};
my $x = 0;
my $seq;
foreach $seq ( sort{$b <=> $a} keys %{$log} )
{
delete( $own_hash->{helper}{eventlog}{$seq} ) if $x > $evhistory;
$x++;
}
}
################ alle events für weitere funktionen speichern
#############################################################
#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";
}
if ( AttrVal( $ownName, "MSwitch_Selftrigger_always", 0 ) eq "1" && $incommingdevice eq "MSwitch_Self")
{
$eventcopy1 = "MSwitch_Self:$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";
}
if ( AttrVal( $ownName, "MSwitch_Selftrigger_always", 0 ) eq "1" && $incommingdevice eq "MSwitch_Self")
{
$eventcopy1 = "MSwitch_Self:$eventcopy";
$eventcopy = $eventcopy1;
}
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' )
{
my $chbridge = MSwitch_checkbridge( $own_hash, $ownName, $eventcopy, );
next EVENT if $chbridge ne "no_bridge";
$set = $testvar;
$check = 1;
$foundcmd1 = 1;
$trigevent = $eventcopy;
}
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' )
{
my $chbridge = MSwitch_checkbridge( $own_hash, $ownName, $eventcopy, );
next EVENT if $chbridge ne "no_bridge";
$set = $testvar;
$check = 1;
$foundcmd2 = 1;
$trigevent = $eventcopy;
}
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' )
{
my $chbridge = MSwitch_checkbridge( $own_hash, $ownName, $eventcopy, );
next EVENT if $chbridge ne "no_bridge";
push @cmdarray, $own_hash . ',off,check,' . $eventcopy1;
$check = 1;
$foundcmd2 = 1;
}
MSwitch_LOG( $ownName, 6, "$ownName: checktrigger ergebniss -> " . $testvar );
}
if ( $triggercmdon ne 'no_trigger' )
{
MSwitch_LOG( $ownName, 6, "$ownName: checktrigger trigger cmd-4 -> " );
$testvar = MSwitch_checktrigger(
$own_hash, $ownName,
$eventstellen, $triggercmdon,
$incommingdevice, 'ononly',
$eventcopy, @eventsplit
);
MSwitch_LOG( $ownName, 6, "$ownName: checktrigger ergebniss -> " . $testvar );
if ( $testvar ne 'undef' )
{
my $chbridge = MSwitch_checkbridge( $own_hash, $ownName, $eventcopy, );
next EVENT if $chbridge ne "no_bridge";
push @cmdarray, $own_hash . ',on,check,' . $eventcopy1;
$check = 1;
$foundcmd1 = 1;
}
}
# speichert 20 events ab zur weiterne funktion ( funktionen )
# ändern auf bedarfschaltung
if ($check == '1'
and defined( ( split( /:/, $eventcopy ) )[1] )
and ( ( split( /:/, $eventcopy ) )[1] =~ /^[-]?[0-9,.E]+$/ )
)
{
my $evwert = ( split( /:/, $eventcopy ) )[1];
my $evreading = ( split( /:/, $eventcopy ) )[0];
my @eventfunction =split( / /, $own_hash->{helper}{eventhistory}{$evreading} );;
unshift( @eventfunction, $evwert );
while ( @eventfunction > $evhistory )
{
pop(@eventfunction);
}
my $neweventfunction = join( ' ', @eventfunction );
$own_hash->{helper}{eventhistory}{$evreading} = $neweventfunction;
}
######################################
#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' if AttrVal( $ownName, 'MSwitch_Mode', 'Notify' ) ne "Dummy";
$event =~ s/~/ /g; #?
if ( $devicemode eq "Notify" and $activecount == 0 )
{
# reading activity aktualisieren
MSwitch_LOG( $ownName, 5,"setze state neu");
readingsSingleUpdate( $own_hash, "state",'active', $showevents ) if ReadingsVal( $ownName, 'state', '0' ) eq "active" ;
$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;
}
}
#foundcmd1/2
if ( $foundcmd1 eq "1" && AttrVal( $ownName, "MSwitch_Reset_EVT_CMD1_COUNT", 'undef' ) ne 'undef' )
{
my $inhalt = ReadingsVal( $ownName, 'EVT_CMD1_COUNT', '0' );
if ( $resetcmd1 == 0 )
{
$inhalt++;
readingsSingleUpdate( $own_hash, "EVT_CMD1_COUNT",$inhalt, $showevents );
}
elsif ( $resetcmd1 > 0 && $inhalt < $resetcmd1 )
{
$inhalt++;
readingsSingleUpdate( $own_hash, "EVT_CMD1_COUNT", $inhalt, $showevents );
}
}
if ( $foundcmd2 eq "1"
&& AttrVal( $ownName, "MSwitch_Reset_EVT_CMD2_COUNT", 'undef' ) ne
'undef' )
{
my $inhalt = ReadingsVal( $ownName, 'EVT_CMD2_COUNT', '0' );
if ( $resetcmd2 == 0 )
{
$inhalt++;
readingsSingleUpdate( $own_hash, "EVT_CMD2_COUNT", $inhalt, $showevents );
}
elsif ( $resetcmd2 > 0 && $inhalt < $resetcmd2 )
{
$inhalt++;
readingsSingleUpdate( $own_hash, "EVT_CMD2_COUNT", $inhalt, $showevents );
}
}
#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, $showevents ) if $ecec ne '';
}
else
{
# nothing
}
}
}
# ende loopeinzeleventtest
# schreibe gruppe mit events
my $selftrigger="";
my $events = '';
my $eventhash = $own_hash->{helper}{events}{$devName};
if ( AttrVal( $ownName, "MSwitch_Selftrigger_always", 0 ) eq "1" )
{
$eventhash = $own_hash->{helper}{events}{MSwitch_Self};
foreach my $name ( keys %{$eventhash} )
{
$events = $events .'MSwitch_Self:'. $name . '#[tr]';
}
}
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_checkbridge($$$) {
my ( $hash, $name, $event ) = @_;
my $bridgemode = AttrVal( $name, 'MSwitch_Event_Id_Distributor', '0' );
my $expertmode = AttrVal( $name, 'MSwitch_Expert', '0' );
MSwitch_LOG( $name, 6, "starte distributor attr " );
MSwitch_LOG( $name, 6, "expertmode $expertmode" );
MSwitch_LOG( $name, 6, "bridgemode $bridgemode " );
MSwitch_LOG( $name, 6, "event : -$event-" );
MSwitch_LOG( $name, 6, "checke keys" );
my $foundkey = "undef";
my $etikeys = $hash->{helper}{eventtoid};
foreach my $a ( sort keys %{$etikeys} )
{
MSwitch_LOG( $name, 6, "key : $a" );
my $re = qr/$a/;
$foundkey = $a if ( $event =~ /$re/ );
MSwitch_LOG( $name, 6, "foundkey :-$foundkey-" );
}
MSwitch_LOG( $name, 6, "suche nach schlüssel:-$event-" );
MSwitch_LOG( $name, 6, "helper eventoid : " . $hash->{helper}{eventtoid}{$foundkey} )
if ( $hash->{helper}{eventtoid}{$foundkey} );
return "no_bridge" if $expertmode eq "0";
return "no_bridge" if $bridgemode eq "0";
# return "no_bridge" if !defined $hash->{helper}{eventtoid}{$event};
return "no_bridge" if !defined $hash->{helper}{eventtoid}{$foundkey};
my @bridge = split( / /, $hash->{helper}{eventtoid}{$foundkey} );
my $zweig;
$zweig = "on" if $bridge[0] eq "cmd1";
$zweig = "off" if $bridge[0] eq "cmd2";
MSwitch_LOG( $name, 6, "distrubutorout: $bridge[2] " );
MSwitch_Exec_Notif( $hash, $zweig, 'nocheck', '', $bridge[2] );
return "undef";
}
############################
sub MSwitch_fhemwebconf($$$$) {
my ( $FW_wname, $d, $room, $pageHash ) =@_; # pageHash is set for summaryFn.
my $hash = $defs{$d};
my $Name = $hash->{NAME};
my @found_devices;
delete( $hash->{NOTIFYDEV} );
readingsSingleUpdate( $hash, "EVENTCONF","start", 1 );
my $preconf = '';
$preconf = get( $preconffile );
$preconf =~ s/\n/#[NEWL]\\\n/g;
$preconf =~ s/\r//g;
$preconf =~ s/'/\\\'/g;
# devicelist to objeckt
my $devstring ;
my $cmds;
@found_devices = devspec2array("TYPE=.*");
for (@found_devices)
{
my $test = getAllSets($_);
$cmds.="'".$test."',";
$devstring.="'".$_."',";
}
chop $devstring;
chop $cmds;
$devstring = "[".$devstring."]";
$cmds = "[".$cmds."]";
my $fileend = "x".rand(1000);
my $devicehash;
my $at;
my $atdef;
my $athash;
my $insert;
my $comand;
my $timespec;
my $flag;
my $trigtime;
# suche at
@found_devices = devspec2array("TYPE=at");
for (@found_devices)
{
$athash = $defs{$_};
$insert = $athash->{DEF};
$flag= substr($insert,0,1);
if ($flag ne "+")
{
next if $athash->{PERIODIC} eq 'no';
next if $athash->{RELATIVE} eq 'yes';
}
$at .="'".$_."',";
$trigtime .="'".$athash->{TRIGGERTIME}."',";
$atdef .="'".$insert."',";
$comand .="'".$athash->{COMMAND}."',";
$timespec .="'".$athash->{TIMESPEC}."',";
}
chop $at;
chop $atdef;
chop $comand;
chop $timespec;
chop $trigtime;
$at = "[".$at."]";
$atdef = "[".$atdef."]";
$comand = "[".$comand."]";
$timespec = "[".$timespec."]";
$trigtime = "[".$trigtime."]";
# suche notify
my $nothash;
my $notinsert;
my $notify;
my $notifydef;
@found_devices = devspec2array("TYPE=notify");
for (@found_devices)
{
$nothash = $defs{$_};
$notinsert = $nothash->{DEF};
$notifydef .="'".$notinsert."',";
$notify .="'".$_."',";
}
chop $notifydef;
chop $notify;
$notifydef = "[".$notifydef."]";
$notify= "[".$notify."]";
my $return="
<div id='mode'>Konfigurationsmodus:&nbsp;
<input name=\"conf\" id=\"wizard\" type=\"button\" value=\"Wizard\" onclick=\"javascript: conf('importWIZARD',id)\"\">&nbsp;
<input name=\"conf\" id=\"config\" type=\"button\" value=\"import MSwitch_Config\" onclick=\"javascript: conf('importCONFIG',id)\"\">&nbsp;
<input name=\"conf\" id=\"importat\" type=\"button\" value=\"import AT\" onclick=\"javascript: conf('importAT',id)\"\">&nbsp;
<input name=\"conf\" id=\"importnotify\" type=\"button\" value=\"import NOTIFY\" onclick=\"javascript: conf('importNOTIFY',id)\"\">
<input name=\"conf\" id=\"importpreconf\" type=\"button\" value=\"import PRECONF\" onclick=\"javascript: conf('importPRECONF',id)\"\">
</div>
<br><br>
<table border='0'>
<tr>
<td id='help'>Hilfetext</td>
<td id='help1'></td>
</tr>
</table>
&nbsp;<br>
<div id='importWIZARD'>
<table border = '0'>
<tr>
<td style=\"text-align: left; vertical-align: top;\">
<table border = '0'>
<tr>
<td colspan='2'>Teil 1 (Auslöser des Devices)
<br>&nbsp;
</td>
</tr>
<tr><td><div id='1step1' ></div></td><td><div id='1step2' ></div></td></tr>
<tr><td><div id='2step1' ></div></td><td><div id='2step2' ></div></td></tr>
<tr><td><div id='3step1' ></div></td><td><div id='3step2' ></div></td></tr>
<tr><td><div id='4step1' ></div></td><td><div id='4step2' ></div></td></tr>
<tr><td><div id='5step1' ></div></td><td><div id='5step2' ></div></td></tr>
</table>
<div>&nbsp;</div>
<div id='part2'>&nbsp;</div>
</td>
</tr>
<tr>
<td id='monitor' style=\"text-align: center; vertical-align: middle;\">
<br><select disabled=\"disabled\" style=\"width: 50em;\" size=\"15\" id =\"eventcontrol\" multiple=\"multiple\"></select>
<br>&nbsp;<br>
</td>
</tr>
<tr>
<td style=\"text-align: center; vertical-align: middle;\">
<br>&nbsp;<br>
<input name=\"saveconf\" id=\"saveconf\" type=\"button\" disabled=\"disabled\" value=\"save new config\" onclick=\"javascript: saveconfig('rawconfig','wizard')\"\">
</td>
</tr>
<tr>
<td style=\"display:none; text-align: center; vertical-align: middle;\">
<textarea disabled id='rawconfig' style='width: 600px; height: 400px'></textarea>
</td>
</tr>
</table>
</div>
<div id='importAT'>@found_devices</div>
<div id='importNOTIFY'>import notify</div>
<div id='importCONFIG'>import config</div>
<div id='importPRECONF'>import preconf</div>
";
my $j1 = "
<script type=\"text/javascript\">
// VARS
//preconf
var preconf ='".$preconf."';
// firstconfig
var logging ='off';
var devices = ".$devstring.";
var at = ".$at.";
var atdef = ".$atdef.";
var atcmd = ".$comand.";
var atspec = ".$timespec.";
var triggertime = ".$trigtime.";
var cmds = ".$cmds.";
var i;
var len = devices.length;
var o = new Object();
var devicename= '".$Name."';
var mVersion= '".$version."';
var notify = ".$notify.";
var notifydef = ".$notifydef.";
\$(document).ready(function() {
\$(window).load(function() {
name = '$Name';
// loadScript(\"pgm2/MSwitch_Preconf.js?v=".$fileend."\");
loadScript(\"pgm2/MSwitch_Wizard.js?v=".$fileend."\", function(){start1(name)});
return;
});
});
</script>";
$return.="<br>&nbsp;<br>".$j1;
return $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;
my $ver = ReadingsVal( $Name, '.V_Check', '' );
my $expertmode = AttrVal( $Name, 'MSwitch_Expert', '0' );
my $noshow = 0;
my @hidecmds = split (/,/,AttrVal( $Name, 'MSwitch_Hidecmds', 'undef' )) ;
#<option value='$savedetails{ $aktdevice . '_priority'
##### konfigmode
if (exists $hash->{helper}{mode} && $hash->{helper}{mode} eq "absorb")
{
$rename = "off";
my $ret = MSwitch_fhemwebconf($FW_wname, $d, $room, $pageHash);
return $ret;
}
#################### TEXTSPRACHE
my $LOOPTEXT;
my $ATERROR;
my $PROTOKOLL2;
my $PROTOKOLL3;
my $CLEARLOG;
my $WRONGSPEC1;
my $WRONGSPEC2;
my $HELPNEEDED;
my $WRONGCONFIG;
my $VERSIONCONFLICT;
my $INACTIVE;
my $OFFLINE;
my $NOCONDITION;
my $MSDISTRIBUTORTEXT;
my $MSDISTRIBUTOREVENT;
my $NOSPACE;
my $MSTEST1="";
my $MSTEST2="";
my $EXECCMD;
my $DUMMYMODE;
my $RELOADBUTTON;
my $RENAMEBUTTON;
my $EDITEVENT;
if (AttrVal( $Name, 'MSwitch_Language',AttrVal( 'global', 'language', 'EN' ) ) eq "DE")
{
$DUMMYMODE="Device befindet sich im passiven Dummymode, für den aktiven Dummymode muss dass Attribut 'MSwitch_Selftrigger_always' auf '1' gesetzt werden. ";
$MSDISTRIBUTORTEXT="Zuordnung Event/ID (einstellung über Attribut)";
$MSDISTRIBUTOREVENT="eingehendes Event";
$LOOPTEXT= "ACHTUNG: Der Safemodus hat eine Endlosschleife erkannt, welche zum Fhemabsturz führen könnte.<br>Dieses Device wurde automatisch deaktiviert ( ATTR 'disable') !<br>&nbsp;";
$ATERROR="AT-Kommandos können nicht ausgeführt werden !";
$PROTOKOLL2="Das Device befindet sich im Debug 2 Mode. Es werden keine Befehle ausgeführt, sondern nur protokolliert.";
$PROTOKOLL3="Das Device befindet sich im Debug 3 Mode. Alle Aktionen werden protokolliert.";
$CLEARLOG="lösche Log";
$WRONGSPEC1="Format HH:MM<br>HH muss kleiner 24 sein<br>MM muss < 60 sein<br>Timer werden nicht ausgeführt";
$WRONGSPEC2="Format HH:MM<br>HH muss < 24 sein<br>MM muss < 60 sein<br>Bedingung gilt immer als FALSCH";
$HELPNEEDED="Eingriff erforderlich !";
$WRONGCONFIG="Einspielen des Configfiles nicht möglich !<br>falsche Versionsnummer:";
$VERSIONCONFLICT="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 ";
$INACTIVE="Device ist nicht aktiv";
$OFFLINE="Device ist abgeschaltet, Konfiguration ist möglich";
$NOCONDITION="Es ist keine Bedingung definiert, das Kommando wird immer ausgeführt";
$NOSPACE="Befehl kann nicht getestet werden. Das letzte Zeichen darf kein Leerzeichen sein.";
$EXECCMD="augeführter Befehl:";
$RELOADBUTTON="Aktualisieren";
$RENAMEBUTTON="Name ändern";
$EDITEVENT="Event bearbeiten";
}
else
{
$DUMMYMODE="Device is in passive dummy mode, for the active dummy mode the attribute 'MSwitch_Selftrigger_always' must be set to '1'.";
$MSDISTRIBUTORTEXT="Event to ID distributor (Settings via attribute)";
$MSDISTRIBUTOREVENT="incommming Event:";
$LOOPTEXT= "ATTENTION: The safe mode has detected an endless loop, which could lead to a crash.<br> This device has been deactivated automatically ( ATTR 'disable') !<br>&nbsp;";
$ATERROR="AT commands can not be executed!";
$PROTOKOLL2="The device is in Debug 2 mode, no commands are executed, only logged.";
$PROTOKOLL3="The device is in debug 3 mode. All actions are logged.";
$CLEARLOG="clear log";
$WRONGSPEC1="Format HH: MM <br> HH must be less than 24 <br> MM must be <60 <br> Timers are not executed";
$WRONGSPEC2="Format HH: MM <br> HH must be <24 <br> MM must be <60 <br> Condition is always considered FALSE";
$HELPNEEDED="Intervention required !";
$WRONGCONFIG="Importing the Configfile not possible! <br> wrong version number:";
$VERSIONCONFLICT="Version conflict detected! <br> The device is currently not executing any actions. Please update the device. <br> Expected Structure Version Number: $vupdate <br> Existing Structure Version Number: $ver";
$INACTIVE="Device is inactive";
$OFFLINE="Device is disabled, configuration avaible";
$NOCONDITION="No condition is defined, the command is always executed";
$NOSPACE="Command can not be tested. The last character can not be a space.";
$EXECCMD="executed command:";
$RELOADBUTTON="reload";
$RENAMEBUTTON="rename";
$EDITEVENT="edit selected event";
}
####################
# lösche saveddevicecmd #
if ( ReadingsVal( $Name, '.First_init', 'undef' ) ne 'done' )
{
MSwitch_LoadHelper($hash);
}
my $cmdfrombase = "0";
MSwitch_del_savedcmds($hash);
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '4' ) {
$border = 1;
}
#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', 'Notify' ) eq "Notify" ) {
if ( ReadingsVal( $Name, 'state', '' ) ne "inactive" )
{
#readingsSingleUpdate( $hash, "state", 'active', 1 );
}
$triggeroff = "";
$triggeron = "";
}
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) eq "Dummy" ) {
$triggeroff = "";
$triggeron = "";
}
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) eq "Toggle" )
{
$triggeroff = "";
$triggercmdoff = "";
$triggercmdon = "";
}
#eigene trigger festlegen
my $optionon = '';
my $optiongeneral = '';
my $optioncmdon = '';
my $alltriggers = '';
my $scripttriggers = '';
my $to = '';
my $toc = '';
LOOP12: foreach (@eventsall)
{
$alltriggers =$alltriggers . "<option value=\"$_\">" . $_ . "</option>";
$scripttriggers =$scripttriggers . "\"$_\": 1 ,";
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/(.*)\((.*)\)(.*)/ )
{
#nothing
}
else
{
if ( index( $_, '*', 0 ) == -1 )
{
if ( ReadingsVal( $Name, 'Trigger_device', '' ) ne "all_events" )
{
$optiongeneral =
$optiongeneral
. "<option value=\"$_\">"
. $_
. "</option>";
}
else
{
$optiongeneral =
$optiongeneral
. "<option value=\"$_\">"
. $_
. "</option>";
}
}
}
#####################
}
chop($scripttriggers);
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 ( $expertmode 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 ( AttrVal( $Name, 'MSwitch_Read_Log', "0" ) eq '1' )
{
if ( ReadingsVal( $Name, 'Trigger_device', 'no_trigger' ) eq 'Logfile' )
{
$triggerdevices .="<option selected=\"selected\" value=\"Logfile\">LOGFILE</option>";
#$globalon = 'on';
}
else
{
$triggerdevices .= "<option value=\"Logfile\">LOGFILE</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)
{
last if $_ eq "no_device";
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 ( $expertmode eq '1' )
{
$reihenfolgehtml = "<select name = 'reihe' id=''>";
for ( my $i = 1 ; $i < $anzahl + 1 ; $i++ )
{
$reihenfolgehtml .= "<option value='$i'>$i</option>";
}
$reihenfolgehtml .= "</select>";
}
### display
my $hidehtml = "";
$hidehtml = "<select name = 'hidecmd' id=''>";
$hidehtml .= "<option value='0'>0</option>";
$hidehtml .= "<option value='1'>1</option>";
$hidehtml .= "</select>";
#########################################
# SHOW
# 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[18];
if (defined $id)
{
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 ( $expertmode 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', "" );
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) eq "Dummy"
&& AttrVal( $Name, "MSwitch_Selftrigger_always", 0 ) eq "0" )
{
$notype = ".*";
}
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;
}
my $includewebcmd = AttrVal( $Name, 'MSwitch_Include_Webcmds', "1" );
my $extensions = AttrVal( $Name, 'MSwitch_Extensions', "0" );
my $MSwitchIncludeMSwitchcmds = AttrVal( $Name, 'MSwitch_Include_MSwitchcmds', "1" );
my $MSwitchIncludeDevicecmds =AttrVal( $Name, 'MSwitch_Include_Devicecmds', "1" );
my $Triggerdevicetmp = ReadingsVal( $Name, 'Trigger_device', '' );
my $savecmds = AttrVal( $Name, 'MSwitch_DeleteCMDs', $deletesavedcmdsstandart );
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 ( $Triggerdevicetmp 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; }
# abfrage und auswertung befehlssatz
if ( $MSwitchIncludeDevicecmds eq '1' and $hash->{INIT} ne "define" ) {
if ( exists $hash->{helper}{devicecmds1}{$name}
&& $savecmds ne "nosave" )
{
$cmdfrombase = "1";
$errors = $hash->{helper}{devicecmds1}{$name};
}
else {
#$errors = AnalyzeCommandChain( undef, $cs );
$errors = getAllSets($name);
#Log3( $name, 0, $name."-".$errors);
if ( $savecmds ne "nosave" ) {
$hash->{helper}{devicecmds1}{$name} = $errors;
$hash->{helper}{last_devicecmd_save} = time;
}
}
}
else
{
$errors = '';
}
if ( !defined $errors )
{
$errors = '';
}
$errors = '|' . $errors;
$errors =~ s/\| //g;
$errors =~ s/\|//g;
if ( $includewebcmd eq '1'
and $devicewebcmd ne "noArg"
and $hash->{INIT} ne "define" )
{
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;
}
if ( $MSwitchIncludeMSwitchcmds eq '1' and $hash->{INIT} ne "define" ) {
my $usercmds = AttrVal( $name, 'MSwitchcmd', '' );
if ( $usercmds ne '' )
{
$usercmds =~ tr/:/ /;
$errors .= ' ' . $usercmds;
}
}
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
{
#nothing
}
}
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
# steuerdatei
my $controlhtml;
$controlhtml ="
<!-- folgende HTML-Kommentare dürfen nicht gelöscht werden -->
<!--
info: festlegung einer zellenhöhe
MS-cellhigh=30;
-->
<!--
start:textersetzung:ger
Set->Schaltbefehl
Hidden command branches are available->Ausgeblendete Befehlszweige vorhanden
condition:->Schaltbedingung
show hidden cmds->ausgeblendete Befehlszweige anzeigen
execute and exit if applies->Abbruch nach Ausführung
Repeats:->Befehlswiederholungen:
Repeatdelay in sec:->Wiederholungsverzögerung in Sekunden:
delay with Cond-check immediately and delayed:->Verzögerung mit Bedingungsprüfung sofort und vor Ausführung:
delay with Cond-check immediately only:->Verzögerung mit Bedingungsprüfung sofort:
delay with Cond-check delayed only:->Verzögerung mit Bedingungsprüfung vor Ausführung:
at with Cond-check immediately and delayed:->Ausführungszeit mit Bedingungsprüfung sofort und vor Ausführung:
at with Cond-check immediately only:->Ausführungszeit mit Bedingungsprüfung sofort:
at with Cond-check delayed only->Ausführungszeit mit Bedingungsprüfung vor Ausführung:
check condition->Bedingung testen
with->mit
modify Actions->Befehle speichern
device actions sortby:->Sortierung:
add action for->zusätzliche Aktion für
delete this action for->lösche diese Aktion für
priority:->Priorität:
displaysequence:->Anzeigereihenfolge:
display->Anzeige verbergen
test comand->Befehl testen
end:textersetzung:ger
-->
<!--
start:textersetzung:eng
end:textersetzung:eng
-->
<!--
MS-cellhighstandart
MS-cellhighexpert
MS-cellhighdebug
MS-IDSATZ
MS-NAMESATZMS-ACTIONSATZ
MS-SET1
MS-SET2
MS-COND1
MS-COND2
MS-EXEC1
MS-EXEC2
MS-DELAYset1
MS-DELAYset2
MS-REPEATset
MS-COMMENTset
MS-HELPpriority
MS-HELPonoff
MS-HELPcondition
MS-HELPexit
MS-HELPtimer
MS-HELPrepeats
MS-HELPexeccmd
MS-HELPdelay
-->
<!-- start htmlcode -->
<table border='0' class='block wide' id='MSwitchWebTR' nm='test1' cellpadding='4' style='border-spacing:0px;'>
<tr>
<td style='height: MS-cellhighstandart;width: 100%;' colspan='3'>
<table style='width: 100%'>
<tr>
<td>MS-NAMESATZ</td>
<td align=right>MS-HELPpriority&nbsp;MS-IDSATZ</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan='3'>MS-COMMENTset</td>
</tr>
<tr>
<td rowspan='6'>CMD&nbsp;1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td colspan='2'></td>
</tr>
<tr>
<td>MS-HELPonoff</td>
<td style='height: MS-cellhighstandart;width: 100%;'>MS-SET1</td>
</tr>
<tr>
<td>MS-HELPcondition</td>
<td style='height: MS-cellhighstandart;width: 100%'>MS-COND1</td>
</tr>
<tr>
<td></td>
<td style='height: MS-cellhighdebug;width: 100%'>MS-TEST-1MS-CONDCHECK1</td>
</tr>
<tr>
<td>MS-HELPexeccmd</td>
<td style='height: MS-cellhighexpert;width: 100%'>MS-EXEC1</td>
</tr>
<tr>
<td>MS-HELPdelay</td>
<td style='height: MS-cellhighexpert;width: 100%'>MS-DELAYset1</td>
</tr>
<tr>
<td rowspan='7'>CMD&nbsp;2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td colspan='2'><hr noshade='noshade' style='height: 1px'></td>
</tr>
<tr>
<td>MS-HELPonoff</td>
<td style='height: MS-cellhighstandart;width: 100%'>MS-SET2</td>
</tr>
<tr>
<td>MS-HELPcondition</td>
<td style='height: MS-cellhighstandart;width: 100%'>MS-COND2</td>
</tr>
<tr>
<td></td>
<td style='height: MS-cellhighdebug;width: 100%'>MS-TEST-2MS-CONDCHECK2</td>
</tr>
<tr>
<td>MS-HELPexeccmd</td>
<td style='height: MS-cellhighexpert;width: 100%'>MS-EXEC2</td>
</tr>
<tr>
<td>MS-HELPdelay</td>
<td style='height: MS-cellhighexpert;width: 100%;'>MS-DELAYset2</td>
</tr>
<tr>
<td colspan='2'></td>
</tr>
<tr>
<td style='height: MS-cellhighexpert;'colspan='3'>MS-HELPrepeats&nbsp;MS-REPEATset</td>
</tr>
<tr>
<td style='height: MS-cellhighstandart;'colspan='3'>&nbsp;MS-ACTIONSATZ</td>
</tr>
</table>
<br>
";
$controlhtml = AttrVal( $Name, 'MSwitch_Develop_Affected', $controlhtml ) ;
#### extrakt ersetzung
my $extrakt = $controlhtml;
$extrakt =~ s/\n/#/g;
my $extrakthtml = $extrakt;
# umstellen auf globales attribut !!!!!!
if (AttrVal( $Name, 'MSwitch_Language',AttrVal( 'global', 'language', 'EN' ) ) eq "DE")
{
$extrakt =~m/start:textersetzung:ger(.*)end:textersetzung:ger/ ;
$extrakt = $1;
}
else
{
$extrakt =~m/start:textersetzung:eng(.*)end:textersetzung:eng/ ;
$extrakt = $1;
}
my @translate;
if(defined $extrakt)
{
$extrakt =~ s/^.//;
$extrakt =~ s/.$//;
@translate = split(/#/,$extrakt);
}
$controlhtml =~m/MS-cellhigh=(.*);/ ;
my $cellhight =$1."px";
my $cellhightexpert =$1."px";
my $cellhightdebug =$1."px";
$extrakthtml =~m/<!-- start htmlcode -->(.*)/ ;
$controlhtml=$1;
$controlhtml=~ s/#/\n/g;
# detailsatz in scalar laden
my %savedetails = MSwitch_makeCmdHash($Name);
my $detailhtml = "";
my @affecteddevices =
split( /,/, ReadingsVal( $Name, '.Device_Affected', 'no_device' ) );
#####################################
MSwitch_LOG( $Name, 5, "$Name: -> @affecteddevices" );
if ( $expertmode 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" );
######################################class='block wide'
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) eq "Dummy" && AttrVal( $Name, "MSwitch_Selftrigger_always", 0 ) eq "0" )
{
$affecteddevices[0] = 'no_device';
}
my $sortierung ="";
my $modify="";
my $IDsatz="";
my $NAMEsatz="";
my $ACTIONsatz="";
my $SET1="";
my $SET2="";
my $COND1set1="";
my $COND1check1="";
my $COND2check2="";
my $COND1set2="";
my $EXECset1="";
my $EXECset2="";
my $DELAYset1="";
my $DELAYset2="";
my $REPEATset="";
my $COMMENTset="";
my $HELPpriority ="";
my $HELPonoff ="";
my $HELPcondition ="";
my $HELPexit="";
my $HELPtimer="";
my $HELPrepeats="";
my $HELPexeccmd="";
my $HELPdelay="";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' )
{
$HELPpriority = "<input name='info' type='button' value='?' onclick=\"javascript: info('priority')\">";
$HELPonoff = "<input name='info' type='button' value='?' onclick=\"javascript: info('onoff')\">";
$HELPcondition = "<input name='info' type='button' value='?' onclick=\"javascript: info('condition')\">";
$HELPexit="<input name='info' type='button' value='?' onclick=\"javascript: info('exit')\">";
$HELPtimer="<input name='info' type='button' value='?' onclick=\"javascript: info('timer')\">";
$HELPrepeats="<input name='info' type='button' value='?' onclick=\"javascript: info('repeats')\">";
$HELPexeccmd="<input name='info' type='button' value='?' onclick=\"javascript: info('execcmd')\">";
$HELPdelay="<input name='info' type='button' value='?' onclick=\"javascript: info('timer')\">";
}
if ( $affecteddevices[0] ne 'no_device' )
{
####################### sortierungsblock
$sortierung ="";
if ( $hash->{INIT} ne 'define' )
{
$sortierung .= "
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 ( $expertmode ne '1' && $select eq 'priority' )
{
$select = 'none';
readingsSingleUpdate( $hash, ".sortby", $select, 0 );
}
my $nonef = "";
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';
$sortierung .= '<select name="sort" id="sort" onchange="changesort()" ><option value="none" ' . $nonef . '>None</option>';
if ( $expertmode eq '1' )
{
$sortierung .='
<option value="priority" '
. $priorityf
. '>Field Priority</option>';
}
$sortierung .='<option value="show" ' . $showf . '>Field Show</option>';
}
#################################
$modify = "<table width = '100%' border='0' class='block wide' id='MSwitchDetails' cellpadding='4' style='border-spacing:0px;' nm='MSwitch'>
<tr class='even'><td>
<input type='button' id='aw_det' value='modify Actions' >&nbsp;$sortierung
</td></tr></table>
";
##########################
# $detailhtml .= $sortierung;
##########################
my $alert;
foreach (@affecteddevices)
{
$IDsatz="";
$ACTIONsatz="";
$COND1set1="";
$COND1set2="";
$EXECset1="";
$EXECset2="";
$COMMENTset="";
my $nopoint = $_;
$nopoint =~ s/\./point/g;
$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';
}
if ( !defined $savedetails{ $aktdevice . '_showreihe' } || '' eq $savedetails{ $aktdevice . '_showreihe' } )
{
$savedetails{ $aktdevice . '_showreihe' } = '1';
}
$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"
. $nopoint
. "' size='20' value ='"
. $_ . "'>";
}
else
{
$realname =
"<input type='$hidden' id='' name='devicename"
. $nopoint
. "' size='20' value ='"
. $_ . "'>";
}
if ( $expertmode eq '1' )
{
$NAMEsatz = "$zusatz $devicenamet $realname&nbsp&nbsp;&nbsp;$dalias $alert";
###################### priority
my $aktfolge = $reihenfolgehtml;
my $newname = "reihe" . $nopoint;
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;
$IDsatz="priority: " . $aktfolge . "&nbsp;";
# ende
# show
# showfolgehtml
$aktfolge = $showfolgehtml;
$newname = "showreihe" . $nopoint;
$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;
$IDsatz.="displaysequence: " . $aktfolge . "&nbsp;" if ( $hash->{INIT} ne 'define' );
####
# ID
$aktfolge = $idfolgehtml;
$newname = "idreihe" . $nopoint;
$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;
$IDsatz.="ID: " . $aktfolge;
$aktfolge = $hidehtml;
$newname = "hidecmd" . $nopoint;
$tochange ="<option value='$savedetails{ $aktdevice . '_hidecmd' }'>";
$change ="<option selected value='$savedetails{ $aktdevice . '_hidecmd' }'>";
$aktfolge =~ s/hidecmd/$newname/g;
$aktfolge =~ s/$tochange/$change/g;
$IDsatz.="display: " . $aktfolge . "&nbsp;" if ( $hash->{INIT} ne 'define' );
# ende
}
else
{
$NAMEsatz="$zusatz $devicenamet $realname&nbsp&nbsp;&nbsp;$dalias $alert";
my $aktfolge = $showfolgehtml;
my $newname = "showreihe" . $nopoint;
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;
$IDsatz.= "displaysequence: " . $aktfolge . "&nbsp;" if ( $hash->{INIT} ne 'define' );
$aktfolge = $hidehtml;
$newname = "hidecmd" . $nopoint;
$tochange ="<option value='$savedetails{ $aktdevice . '_hidecmd' }'>";
$change ="<option selected value='$savedetails{ $aktdevice . '_hidecmd' }'>";
$aktfolge =~ s/hidecmd/$newname/g;
$aktfolge =~ s/$tochange/$change/g;
$IDsatz.="display: " . $aktfolge . "&nbsp;" if ( $hash->{INIT} ne 'define' );
}
##### bis hier ok hier ist nach überschrift
##### kommentare
my $noschow = "style=\"display:none\"";
if ( AttrVal( $Name, 'MSwitch_Comments', "0" ) eq '1' )
{
$noschow = '';
}
#kommentar
if ( AttrVal( $Name, 'MSwitch_Comments', "0" ) eq '1' )
{
my @a=split(/\n/,$savedetails{ $aktdevice . '_comment' });
my $lines = @a;
$lines =1 if $lines == 0;
$COMMENTset = "<textarea rows=\"$lines\" style=\"width:97%;\" class=\"devdetails\" id='cmdcomment"
. $_
. "1' name='cmdcomment"
. $nopoint . "'>"
. $savedetails{ $aktdevice . '_comment' }
. "</textarea>";
}
if ( $devicenamet ne 'FreeCmd' )
{
# nicht freecmd
#hidden='text';
$SET1 = "<table border ='0'><tr><td>
Set <select class=\"devdetails2\" id='"
. $_
. "_on' name='cmdon"
. $nopoint
. "' onchange=\"javascript: activate(document.getElementById('"
. $_
. "_on').value,'"
. $_
. "_on_sel','"
. $cmdsatz{$devicenamet}
. "','cmdonopt"
. $_
. "1')\" >
<option value='no_action'>no_action</option>".$option1html."</select>
</td>
<td><input type='$hidden' id='cmdseton"
. $_
. "' name='cmdseton"
. $nopoint
. "' size='30' value ='"
. $cmdsatz{$devicenamet} . "'>
<input type='$hidden' id='cmdonopt"
. $_
. "1' name='cmdonopt"
. $nopoint
. "' size='10' value ='"
. $savedetails{ $aktdevice . '_onarg' }
. "'>
</td><td nowrap id='" . $_ . "_on_sel'>
</td></tr></table>
";
}
else
{
# freecmd
$savedetails{ $aktdevice . '_onarg' } =~ s/'/&#039/g;
$SET1 = "<textarea class=\"devdetails\" cols='50' rows='3' id='cmdonopt"
. $_ . "1' name='cmdonopt" . $nopoint . "'
>" . $savedetails{ $aktdevice . '_onarg' } . "</textarea>";
"<input type='$hidden' id='"
. $_
. "_on' name='cmdon"
. $nopoint
. "' size='20' value ='cmd'>
<input type='$hidden' id='cmdseton"
. $_
. "' name='cmdseton"
. $nopoint
. "' size='20' value ='cmd'>
<span style='text-align: left;' class='col2' nowrap id='" . $_
. "_on_sel'> </span> ";
}
########################
## block off #$devicename
if ( $devicenamet ne 'FreeCmd' )
{
$SET2= "<table border ='0'><tr><td>
Set <select class=\"devdetails2\" id='"
. $_
. "_off' name='cmdoff"
. $nopoint
. "' onchange=\"javascript: activate(document.getElementById('"
. $_
. "_off').value,'"
. $_
. "_off_sel','"
. $cmdsatz{$devicenamet}
. "','cmdoffopt"
. $_
. "1')\" >
<option value='no_action'>no_action</option>".$option2html."</select>
</td><td>
<input type='$hidden' id='cmdsetoff"
. $_
. "' name='cmdsetoff"
. $nopoint
. "' size='10' value ='"
. $cmdsatz{$devicenamet} . "'>
<input type='$hidden' id='cmdoffopt"
. $_
. "1' name='cmdoffopt"
. $nopoint
. "' size='10' value ='"
. $savedetails{ $aktdevice . '_offarg' }
. "'>
</td><td nowrap id='" . $_ . "_off_sel' >
</td></tr></table>
";
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '1' || AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '3' )
{
$MSTEST1="<input name='info' name='TestCMD". $_
. "' id='TestCMD". $_
."'type='button' value='test comand' onclick=\"javascript: testcmd('cmdon$nopoint','$devicenamet','cmdonopt$nopoint')\">";
$MSTEST2="<input name='info' name='TestCMD". $_
. "' id='TestCMD". $_
."'type='button' value='test comand' onclick=\"javascript: testcmd('cmdoff$nopoint','$devicenamet','cmdoffopt$nopoint')\">";
}
}
else
{
$savedetails{ $aktdevice . '_offarg' } =~ s/'/&#039/g;
$SET2= "<textarea class=\"devdetails\" cols='50' rows='3' id='cmdoffopt"
. $_ . "1' name='cmdoffopt" . $_ . "'
>" . $savedetails{ $aktdevice . '_offarg' } . "</textarea>
<span style='text-align: left;' class='col2' nowrap id='" . $_. "_off_sel' ></span>
<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'>";
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '1' || AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '3' )
{
$MSTEST1="<input name='info' name='TestCMD". $_
. "' id='TestCMD". $_
."'type='button' value='test comand' onclick=\"javascript: testcmd('cmdonopt$nopoint','$devicenamet')\">";
$MSTEST2="<input name='info' name='TestCMD". $_
. "' id='TestCMD". $_
."'type='button' value='test comand' onclick=\"javascript: testcmd('cmdoffopt$nopoint','$devicenamet')\">";
}
}
$COND1set1= "condition: <input class=\"devdetails\" type='text' id='conditionon"
. $_
. "' name='conditionon"
. $nopoint
. "' size='55' value ='"
. $savedetails{ $aktdevice . '_conditionon' }
. "' onClick=\"javascript:bigwindow(this.id);\">";
my $exit1 = '';
$exit1 = 'checked' if (defined $savedetails{ $aktdevice . '_exit1' } && $savedetails{ $aktdevice . '_exit1' } eq '1');
if ($expertmode eq '1' )
{
$EXECset1="<input type=\"checkbox\" $exit1 name='exit1". $nopoint. "' /> execute and exit if applies";
}
else
{
$EXECset1.="<input hidden type=\"checkbox\" $exit1 name='exit1". $nopoint . "' /> ";
}
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '1' || AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '3' )
{
$COND1check1="<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>";
}
#$aktdevicename
#alltriggers
$COND1set2.="condition: <input class=\"devdetails\" type='text' id='conditionoff"
. $_
. "' name='conditionoff"
. $nopoint
. "' size='55' value ='"
. $savedetails{ $aktdevice . '_conditionoff' }
. "' onClick=\"javascript:bigwindow(this.id);\">";
my $exit2 = '';
$exit2 = 'checked' if (defined $savedetails{ $aktdevice . '_exit2' } && $savedetails{ $aktdevice . '_exit2' } eq '1');
if ( $expertmode eq '1' )
{
$EXECset2="<input type=\"checkbox\" $exit2 name='exit2". $nopoint . "' /> execute and exit if applies";
}
else
{
$EXECset2.="<input hidden type=\"checkbox\" $exit2 name='exit1". $nopoint . "' /> ";
}
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '1' || AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '3' )
{
$COND2check2="<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 ABSATZ UAF NOTWENDIGKEIT PRÜF
my $delaym = 0;
my $delays = 0;
my $delayh = 0;
my $timestroff;
my $testtimestroff = $savedetails{ $aktdevice . '_timeoff' };
$timestroff=$savedetails{ $aktdevice . '_timeoff' };
my $timestron;
my $testtimestron = $savedetails{ $aktdevice . '_timeon' };
$timestron=$savedetails{ $aktdevice . '_timeon' };
#########################################
$DELAYset1= "<select id = '' name='onatdelay". $nopoint . "'>";
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" );
$DELAYset1 .= "<option $se11 value='delay1'>delay with Cond-check immediately and delayed:</option>";
$DELAYset1 .= "<option $sel2 value='delay0'>delay with Cond-check immediately only:</option>";
$DELAYset1 .= "<option $sel5 value='delay2'>delay with Cond-check delayed only:</option>";
$DELAYset1 .= "<option $sel4 value='at0'>at with Cond-check immediately and delayed:</option>";
$DELAYset1 .="<option $sel3 value='at1'>at with Cond-check immediately only:</option>";
$DELAYset1 .= "<option $sel6 value='at0'>at with Cond-check delayed only:</option>";
$DELAYset1 .= " </select><input type='text' class=\"devdetails\" id='timeseton"
. $_
. "' name='timeseton"
. $nopoint
. "' size='15' value ='"
. $timestron
. "'>";
$DELAYset2 = "<select id = '' name='offatdelay". $nopoint . "'>";
$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" );
$DELAYset2 .= "<option $se11 value='delay1'>delay with Cond-check immediately and delayed:</option>";
$DELAYset2 .= "<option $sel2 value='delay0'>delay with Cond-check immediately only:</option>";
$DELAYset2 .= "<option $sel5 value='delay2'>delay with Cond-check delayed only:</option>";
$DELAYset2 .= "<option $sel4 value='at0'>at with Cond-check immediately and delayed:</option>";
$DELAYset2 .= "<option $sel3 value='at1'>at with Cond-check immediately only:</option>";
$DELAYset2 .= "<option $sel6 value='at0'>at with Cond-check delayed only:</option>";
$DELAYset2 .= "</select><input type='text' class=\"devdetails\" id='timesetoff"
. $nopoint
. "' name='timesetoff"
. $nopoint
. "' size='15' value ='"
. $timestroff
. "'>";
if ( $expertmode eq '1' )
{
$REPEATset = "Repeats: <input type='text' id='repeatcount' name='repeatcount"
. $nopoint
. "' size='10' value ='"
. $savedetails{ $aktdevice . '_repeatcount' } . "'>
&nbsp;&nbsp;&nbsp;
Repeatdelay in sec:
<input type='text' id='repeattime' name='repeattime"
. $nopoint
. "' size='10' value ='"
. $savedetails{ $aktdevice . '_repeattime' } . "'>";
}
if ( $devicenumber == 1 )
{
$ACTIONsatz = "<input name='info' class=\"randomidclass\" id=\"add_action1_". rand(1000000). "\" type='button' value='add action for $add' onclick=\"javascript: addevice('$add')\">";
}
$ACTIONsatz .= "&nbsp;<input name='info' id=\"del_action1_". rand(1000000). "\" class=\"randomidclass\" type='button' value='delete this action for $add' onclick=\"javascript: deletedevice('$_')\">";
######################################## neu ##############################################
my $controlhtmldevice = $controlhtml;
# ersetzung in steuerdatei
# MS-IDSATZ ... $IDsatz
$controlhtmldevice =~ s/MS-IDSATZ/$IDsatz/g;
# MS-NAMESATZ ... $NAMEsatz
$controlhtmldevice =~ s/MS-NAMESATZ/$NAMEsatz/g;
# MS-ACTIONSATZ ... $ACTIONsatz
$controlhtmldevice =~ s/MS-ACTIONSATZ/$ACTIONsatz/g;
# MS-SET1 ... $SET1
$controlhtmldevice =~ s/MS-SET1/$SET1/g;
$controlhtmldevice =~ s/MS-SET2/$SET2/g;
# MS-COND ... $COND1set
$controlhtmldevice =~ s/MS-COND1/$COND1set1/g;
$controlhtmldevice =~ s/MS-COND2/$COND1set2/g;
# MS-EXEC ... $EXECset1
$controlhtmldevice =~ s/MS-EXEC1/$EXECset1/g;
$controlhtmldevice =~ s/MS-EXEC2/$EXECset2/g;
# MS-DELAY1 ... $DELAYset1
$controlhtmldevice =~ s/MS-DELAYset1/$DELAYset1/g;
$controlhtmldevice =~ s/MS-DELAYset2/$DELAYset2/g;
# MS-REPEATset $REPEATset
$controlhtmldevice =~ s/MS-REPEATset/$REPEATset/g;
#$COMMENTsatz $MSComment
$controlhtmldevice =~ s/MS-COMMENTset/$COMMENTset/g;
$controlhtmldevice =~ s/MS-CONDCHECK1/$COND1check1/g;
$controlhtmldevice =~ s/MS-CONDCHECK2/$COND2check2/g;
$controlhtmldevice =~ s/MS-TEST-1/$MSTEST1/g;
$controlhtmldevice =~ s/MS-TEST-2/$MSTEST2/g;
#####
#zellenhöhe
if ( $expertmode eq '0' )
{
$cellhightexpert ="0px";
}
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) ne '1' )
{
$cellhightdebug="0px";
}
$controlhtmldevice =~ s/MS-cellhighstandart/$cellhight/g;
$controlhtmldevice =~ s/MS-cellhighexpert/$cellhightexpert/g;
$controlhtmldevice =~ s/MS-cellhighdebug/$cellhightdebug/g;
#$controlhtmldevice =~ s/MS-CONDCHECK2/$COND2check2/g;
#MS-cellhigh
#MS-cellhighexpert
#MS-cellhighdebug
#HELPcondition
if ( $expertmode ne '1' )
{
$HELPexit="";
$HELPrepeats="";
$HELPexeccmd="";
}
$controlhtmldevice =~ s/MS-HELPpriority/$HELPpriority/g;
$controlhtmldevice =~ s/MS-HELPonoff/$HELPonoff/g;
$controlhtmldevice =~ s/MS-HELPcondition/$HELPcondition/g;
$controlhtmldevice =~ s/MS-HELPexit/$HELPexit/g;
$controlhtmldevice =~ s/MS-HELPtimer/$HELPtimer/g;
$controlhtmldevice =~ s/MS-HELPrepeats/$HELPrepeats/g;
$controlhtmldevice =~ s/MS-HELPexeccmd/$HELPexeccmd/g;
$controlhtmldevice =~ s/MS-HELPdelay/$HELPdelay/g;
# textersetzung
foreach (@translate)
{
my($wert1,$wert2) = split (/->/,$_);
$controlhtmldevice =~ s/$wert1/$wert2/g;
}
my $aktpriority=$savedetails{ $aktdevice . '_showreihe'};
if ( grep { $_ eq $aktpriority } @hidecmds)
{
$noshow++;
$detailhtml.= "<div id='MSwitchWebTR' nm='$hash->{NAME}' name ='noshow' cellpadding='0' style='display: none;border-spacing:0px;'>".
$controlhtmldevice.
"</div>";
}
else
{
if( $savedetails{ $aktdevice . '_hidecmd' } eq "1")
{
$noshow++;
$detailhtml.= "<div id='MSwitchWebTR' nm='$hash->{NAME}' name ='noshow' cellpadding='0' style='display: none;border-spacing:0px;'>".
$controlhtmldevice.
"</div>";
}
else{
$detailhtml.= "<div id='MSwitchWebTR' nm='$hash->{NAME}' cellpadding='0' style='border-spacing:0px;'>".
$controlhtmldevice.
"</div>";
}
}
# javazeile für übergabe erzeugen
$javaform = $javaform . "
devices += \$(\"[name=devicename$nopoint]\").val();
devices += '#[DN]';
devices += \$(\"[name=cmdon$nopoint]\").val()+'#[NF]';
devices += \$(\"[name=cmdoff$nopoint]\").val()+'#[NF]';
change = \$(\"[name=cmdonopt$nopoint]\").val();
devices += change+'#[NF]';;
change = \$(\"[name=cmdoffopt$nopoint]\").val();
devices += change+'#[NF]';;
devices += \$(\"[name=onatdelay$nopoint]\").val();
devices += '#[NF]';
devices += \$(\"[name=offatdelay$nopoint]\").val();
devices += '#[NF]';
delay1 = \$(\"[name=timesetoff$nopoint]\").val();
devices += delay1+'#[NF]';
delay2 = \$(\"[name=timeseton$nopoint]\").val();
devices += delay2+'#[NF]';
devices1 = \$(\"[name=conditionon$nopoint]\").val();
devices1 = devices1.replace(/\\|/g,'(DAYS)');
devices2 = \$(\"[name=conditionoff$nopoint]\").val();
if(typeof(devices2)==\"undefined\"){devices2=\"\"}
devices2 = devices2.replace(/\\|/g,'(DAYS)');
devices += devices1+'#[NF]';
devices += devices2;
devices += '#[NF]';
devices3 = \$(\"[name=repeatcount$nopoint]\").val();
devices += devices3;
devices += '#[NF]';
devices += \$(\"[name=repeattime$nopoint]\").val();
devices += '#[NF]';
devices += \$(\"[name=reihe$nopoint]\").val();
devices += '#[NF]';
devices += \$(\"[name=idreihe$nopoint]\").val();
devices += '#[NF]';
devices += \$(\"[name=cmdcomment$nopoint]\").val();
devices += '#[NF]';
devices += \$(\"[name=exit1$nopoint]\").prop(\"checked\") ? \"1\":\"0\";
devices += '#[NF]';
devices += \$(\"[name=exit2$nopoint]\").prop(\"checked\") ? \"1\":\"0\";
devices += '#[NF]';
devices += \$(\"[name=showreihe$nopoint]\").val();
devices += '#[NF]';
devices += \$(\"[name=hidecmd$nopoint]\").val();
devices += '#[DN]';
";
}
# textersetzung modify
if ($noshow > 0)
{
$modify ="<table width = '100%' border='0' class='block wide' name ='noshowtask' id='MSwitchDetails' cellpadding='4' style='border-spacing:0px;' nm='MSwitch'>
<tr class='even'><td><br>
Hidden command branches are available ($noshow)
<input type='button' id='aw_show' value='show hidden cmds' >
<br>&nbsp;
</td></tr></table><br>
".$modify;
}
foreach (@translate)
{
my($wert1,$wert2) = split (/->/,$_);
$modify =~ s/$wert1/$wert2/g;
}
$detailhtml .= $modify;
}
# ende kommandofelder
####################
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', '' );
$condition="" if $condition eq "undef";
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 = '';
########################
my $blocking = '';
$blocking = $hash->{helper}{savemodeblock}{blocking} if ( defined $hash->{helper}{savemodeblock}{blocking} );
# endlosschleife
if ( $blocking eq 'on' )
{
$ret .= "<table border='$border' class='block wide' id=''>
<tr class='even'>
<td><center>&nbsp;<br>$LOOPTEXT";
$ret .= "</td></tr></table><br>
";
}
######################
# AT fehler
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>$ATERROR<br>"
. $errortest . "<br>&nbsp;
</td></tr></table><br>&nbsp;<br>
";
}
# debugmode
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 =$PROTOKOLL2 if AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '2';
$text =$PROTOKOLL3 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=\"$CLEARLOG\" onClick=\"clearlog();\">
<br>&nbsp;<br>
</td></tr></table><br>
<br>
";
}
# einblendung wrong timespec
if ( defined $hash->{helper}{wrongtimespec} and $hash->{helper}{wrongtimespec} ne "" )
{
$ret .= "
<table border='$border' class='block wide' id=''>
<tr class='even'>
<td colspan ='3'><center><br>&nbsp;";
$ret .= $hash->{helper}{wrongtimespec};
$ret .=
"<br>$WRONGSPEC1<br>";
$ret .= "<br>&nbsp;</td></tr></table><br>
";
}
if ( defined $hash->{helper}{wrongtimespeccond}
and $hash->{helper}{wrongtimespeccond} ne "" )
{
$ret .= "
<table border='$border' class='block wide' id=''>
<tr class='even'>
<td colspan ='3'><center><br>&nbsp;";
$ret .= $hash->{helper}{wrongtimespeccond};
$ret .=
"<br>$WRONGSPEC2<br>";
$ret .= "<br>&nbsp;</td></tr></table><br>
";
}
# einblendung info
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>
";
}
# 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 .= $set[1];
$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 =''>";
}
$count++;
}
#################################################
$ret .= "
<table border='0' class='block wide' id=''>
<tr class='even'>
<td>
<center>
<br>$HELPNEEDED<br>
</td></tr>
<tr class='even'>
<td>";
$ret .= ReadingsVal( $Name, '.change_info', '' );
$ret .= "</td></tr>
<tr class='even'>
<td><center>"
. $out .
"</td></tr>
<tr class='even'>
<td><center>&nbsp;<br>
<input type=\"button\" id=\"\"
value=\"save changes\" onClick=\"changedevices();\">
<br>&nbsp;<br>
</td></tr></table><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>$WRONGCONFIG"
. ReadingsVal( $Name, '.wrong_version', '' )
. "<br>geforderte Versionsnummer $vupdate<br>&nbsp;
</td></tr></table><br>
";
fhem("deletereading $Name .wrong_version");
}
#############################################
if ( ReadingsVal( $Name, '.V_Check', $vupdate ) ne $vupdate )
{
$ret .= "<table border='$border' class='block wide' id=''>
<tr class='even'>
<td><center>&nbsp;<br>$VERSIONCONFLICT<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";
}
#########################################
if ( ReadingsVal( $Name, 'state', 'undef' ) eq "inactive" )
{
$ret .= "<table border='$border' class='block wide' id=''>
<tr class='even'>
<td><center>&nbsp;<br>$INACTIVE<br>&nbsp;<br>
</td></tr></table><br>";
}
elsif ( IsDisabled($Name) )
{
$ret .= "<table border='$border' class='block wide' id=''>
<tr class='even'>
<td><center>&nbsp;<br>$OFFLINE<br>&nbsp;<br>
</td></tr></table><br>";
}
####################
# trigger start
my $triggerhtml ="
<!-- folgende HTML-Kommentare dürfen nicht gelöscht werden -->
<!--
info: festlegung einer zelleknöhe
MS-cellhigh=30;
-->
<!--
start:textersetzung:ger
trigger device/time->Auslösendes Gerät und/oder Zeit
trigger device->Auslösendes Gerät
trigger time->Auslösezeit
modify Trigger Device->Trigger speichern
switch MSwitch on and execute CMD1 at->MSwitch an und CMD1 ausführen
switch MSwitch off and execute CMD2 at->MSwitch aus und CMD2 ausführen
execute CMD1 only->nur CMD1 ausführen
execute CMD2 only->nur CMD2 ausführen
execute CMD1 and CMD2 only->nur CMD1 und CMD2 ausführen
Trigger Device Global Whitelist->Beschränkung GLOBAL Auslöser
Trigger condition->Auslösebedingung
time&events->für Events und Zeit
events only->nur für Events
check condition->prüfe Bedingung
end:textersetzung:ger
-->
<!--
start:textersetzung:eng
end:textersetzung:eng
-->
<!--
MS-HIDEDUMMY
MS-TRIGGER
MS-WHITELIST
MS-ONAND1
MS-ONAND2
MS-EXEC1
MS-EXEC2
MS-EXECALL
MS-CONDITION
MS-HELPtime
MS-HELPdevice
MS-HELPtime
MS-HELPdevice
MS-HELPwhitelist
MS-HELPexecdmd
MS-HELPcond
-->
<table MS-HIDEDUMMY border='0' cellpadding='4' class='block wide' style='border-spacing:0px;'>
<tr class='even'>
<td colspan='4'>trigger device/time</td>
</tr>
<tr class='even'>
<td>MS-HELPdevice</td>
<td>trigger device</td>
<td>&nbsp;</td>
<td>MS-TRIGGER</td>
</tr>
<tr MS-HIDEWHITELIST class='even'>
<td>MS-HELPwhitelist</td>
<td>Trigger Device Global Whitelist</td>
<td>&nbsp;</td>
<td>MS-WHITELIST</td>
</tr>
<tr MS-HIDEFULL class='even'>
<td>MS-HELPtime</td>
<td></td>
<td>switch MSwitch on and execute CMD1 at</td>
<td>MS-ONAND1</td>
</tr>
<tr MS-HIDEFULL class='even'>
<td>MS-HELPexecdmd</td>
<td>&nbsp;</td>
<td>switch MSwitch off and execute CMD2 at</td>
<td>MS-ONAND2</td>
</tr>
<tr class='even'>
<td>&nbsp;</td>
<td>trigger time</td>
<td>execute CMD1 only</td>
<td>MS-EXEC1</td>
</tr>
<tr class='even'>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>execute CMD2 only</td>
<td>MS-EXEC2</td>
</tr>
<tr class='even'>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>execute CMD1 and CMD2 only</td>
<td>MS-EXECALL</td>
</tr>
<tr class='even'>
<td>MS-HELPcond</td>
<td>MS-CONDTEXT</td>
<td>&nbsp;</td>
<td>MS-CONDITION MS-CHECKCONDITION</td>
</tr>
<tr class='even'>
<td colspan ='4'>MS-modify</td>
</tr>
</table>
";
$triggerhtml = AttrVal( $Name, 'MSwitch_Develop_Trigger', $triggerhtml ) ;
my $extrakt1 = $triggerhtml;
$extrakt1 =~ s/\n/#/g;
if (AttrVal( $Name, 'MSwitch_Language',AttrVal( 'global', 'language', 'EN' ) ) eq "DE")
{
$extrakt1 =~m/start:textersetzung:ger(.*)end:textersetzung:ger/ ;
$extrakt1 = $1;
}
else
{
$extrakt1 =~m/start:textersetzung:eng(.*)end:textersetzung:eng/ ;
$extrakt1 = $1;
}
@translate="";
if(defined $extrakt1)
{
$extrakt1 =~ s/^.//;
$extrakt1 =~ s/.$//;
@translate = split(/#/,$extrakt1);
}
my $MSHELPexeccmd="";
my $MSHEPLtrigger="";
my $MSHEPLwhitelist="";
my $MSHEPtime="";
my $MSHELPcond="";
my $MStrigger="";
my $MSwhitelist="";
my $MSmodify="";
my $MScondition="";
my $MSonand1="";
my $MSonand2="";
my $MSexec1="";
my $MSexec2="";
my $MSexec12="";
my $MSconditiontext="";
my $MShidefull="";
my $MSHidedummy="";
my $MSHidewhitelist="id='triggerwhitelist'";
my $MScheckcondition="";
my $inhalt5 = "switch $Name on and execute cmd1";
my $displaynot = '';
my $displayntog = '';
my $help = "";
my $visible = 'visible';
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) eq "Notify" )
{
$MShidefull="style='display:none;'";
$displaynot = "style='display:none;'";
}
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) eq "Toggle" )
{
$displayntog = "style='display:none;'";
$inhalt5 = "toggle $Name and execute cmd1/cmd2";
}
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) ne "Dummy" )
{
$MSHidedummy="";
}
else
{
$MSHidedummy="style ='visibility: collapse'";
$MShidefull="style='display:none;'";
$displaynot = "style='display:none;'";
}
$MStrigger= "<select id =\"trigdev\" name=\"trigdev\">" . $triggerdevices . "</select>";
if ( $globalon ne 'on' )
{
$MSHidewhitelist="id='triggerwhitelist' style ='visibility: collapse'";
}
$MSwhitelist="<input type='text' id ='triggerwhite' name='triggerwhitelist' size='35' value ='"
. ReadingsVal( $Name, '.Trigger_Whitelist', '' )
. "' onClick=\"javascript:bigwindow(this.id);\" >";
$MSonand1="<input type='text' id='timeon' name='timeon' size='35' value ='"
. $timeon . "'>";
$MSonand2="<input type='text' id='timeoff' name='timeoff' size='35' value ='"
. $timeoff . "'>";
$MSexec1="<input type='text' id='timeononly' name='timeononly' size='35' value ='"
. $timeononly . "'>";
if ( $hash->{INIT} ne 'define' )
{
$MSexec2="<input type='text' id='timeoffonly' name='timeoffonly' size='35' value ='"
. $timeoffonly . "'>" ;
$MSexec12="<input type='text' id='timeoffonly' name='timeoffonly' size='35' value ='"
. $timeonoffonly . "'>"
}
$MSconditiontext="Trigger condition (events only)";
if ( AttrVal( $Name, 'MSwitch_Condition_Time', "0" ) eq '1' )
{
$MSconditiontext = "Trigger condition (time&events)";
}
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '1' || AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '3' )
{
$MScheckcondition =" <input name='info' type='button' value='check condition' onclick=\"javascript: checkcondition('triggercondition','$Name:trigger:conditiontest')\">";
}
$MScondition= "<input type='text' id='triggercondition' name='triggercondition' size='35' value ='"
. $triggercondition . "' onClick=\"javascript:bigwindow(this.id);\" >";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' )
{
$MSHEPLtrigger="<input name='info' type='button' value='?' onclick=\"javascript: info('trigger')\">";
$MSHEPLwhitelist="<input name='info' type='button' value='?' onclick=\"javascript: info('whitelist')\">";
$MSHEPLtrigger="<input name='info' type='button' value='?' onclick=\"javascript: info('trigger')\">";
$help ="<input name='info' type='button' value='?' onclick=\"javascript: info('execcmd')\">&nbsp;";
$MSHELPcond="<input name='info' type='button' value='?' onclick=\"javascript: info('triggercondition')\">";
}
$MSmodify = "<input type=\"button\" id=\"aw_trig\" value=\"modify Trigger Device\"$disable>";
$triggerhtml =~ s/MS-HELPexecdmd/$MSHELPexeccmd/g;
$triggerhtml =~ s/MS-HELPdevice/$MSHEPLtrigger/g;
$triggerhtml =~ s/MS-HELPwhitelist/$MSHEPLwhitelist/g;
$triggerhtml =~ s/MS-HELPtime/$MSHEPLtrigger/g;
$triggerhtml =~ s/MS-HELPcond/$MSHELPcond/g;
$triggerhtml =~ s/MS-modify/$MSmodify/g;
$triggerhtml =~ s/MS-TRIGGER/$MStrigger/g;
$triggerhtml =~ s/MS-WHITELIST/$MSwhitelist/g;
$triggerhtml =~ s/MS-CONDITION/$MScondition/g;
$triggerhtml =~ s/MS-ONAND1/$MSonand1/g;
$triggerhtml =~ s/MS-ONAND2/$MSonand2/g;
$triggerhtml =~ s/MS-EXEC1/$MSexec1/g;
$triggerhtml =~ s/MS-EXEC2/$MSexec2/g;
$triggerhtml =~ s/MS-EXECALL/$MSexec12/g;
$triggerhtml =~ s/MS-CONDTEXT/$MSconditiontext/g;
$triggerhtml =~ s/MS-HIDEFULL/$MShidefull/g;
$triggerhtml =~ s/MS-HIDEDUMMY/$MSHidedummy/g;
$triggerhtml =~ s/MS-HIDEWHITELIST/$MSHidewhitelist/g;
$triggerhtml =~ s/MS-CHECKCONDITION/$MScheckcondition/g;
foreach (@translate)
{
my($wert1,$wert2) = split (/->/,$_);
$triggerhtml =~ s/$wert1/$wert2/g;
}
$ret.= "<div id='MSwitchWebTR' nm='$hash->{NAME}' cellpadding='0' style='border-spacing:0px;'>"
.$triggerhtml.
"</div><br>";
# trigger ende
####################
my $MSTRIGGER;
my $MSCMDONTRIGGER="";
my $MSCMDOFFTRIGGER="";
my $MSCMD1TRIGGER="";
my $MSCMD2TRIGGER="";
my $MSSAVEEVENT="";
my $MSADDEVENT="";
my $MSMODLINE="";
my $MSTESTEVENT="";
my $MSHELP5="";
my $MSHELP6="";
my $MSHELP7="";
my $triggerdetailhtml="
<!-- folgende HTML-Kommentare dürfen nicht gelöscht werden -->
<!--
info: festlegung einer zelleknöhe
MS-cellhigh=30;
-->
<!--
start:textersetzung:ger
execute only cmd1->nur CMD1 ausführen
execute only cmd2->nur CMD2 ausführen
Save incomming events permanently->eingehende Events permanent speichern
Add event manually->Event manuell eintragen
switch $Name on and execute cmd1->$Name anschalten und CMD1 ausführen
switch $Name off and execute cmd2->$Name ausschalten und CMD2 ausführen
trigger details:->Trigger Details
test event->Event testen
add event->Event einfügen
modify Trigger->Triggerdetails speichern
apply filter to saved events->Filter auf gespeicherte Events anwenden
clear saved events->Eventliste löschen
event monitor->Eventmonitor
end:textersetzung:ger
-->
<!--
start:textersetzung:eng
end:textersetzung:eng
-->
<!-- start htmlcode -->
<table border='0' cellpadding='4' class='block wide' style='border-spacing:0px;'>
<tr>
<td colspan='4'>trigger details:</td>
</tr>
<tr MS-HIDE>
<td></td>
<td>MS-CHANGETEXT</td>
<td>MS-TRIGGER</td>
<td>MS-ONCMD1TRIGGER</td>
</tr>
<tr MS-HIDE MS-HIDE1>
<td></td>
<td>switch $Name off and execute cmd2</td>
<td>MS-TRIGGER</td>
<td>MS-OFFCMD2TRIGGER</td>
</tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr MS-HIDE1>
<td></td>
<td>execute only cmd1</td>
<td>MS-TRIGGER</td>
<td>MS-CMD1TRIGGER</td>
</tr>
<tr MS-HIDE1>
<td></td>
<td>execute only cmd2</td>
<td>MS-TRIGGER</td>
<td nowrap>MS-CMD2TRIGGER</td>
</tr>
<tr>
<td>MS-HELP5</td>
<td>Save incomming events permanently</td>
<td>MS-SAVEEVENT</td>
<td>&nbsp;</td>
</tr>
<tr>
<td>MS-HELP7</td>
<td>event monitor</td>
<td><input id =\"eventmonitor\" name=\"eventmonitor\" type=\"checkbox\"></td>
<td>&nbsp;</td>
</tr>
<tr>
<td>MS-HELP6</td>
<td>Add event manually</td>
<td nowrap>MS-ADDEVENT</td>
<td>&nbsp;</td>
</tr>
<tr>
<td id='log' colspan='1'></td>
<td id='log1' colspan='1'></td>
<td id='log2' colspan='1'></td>
<td id='log3' colspan='1'></td>
</tr>
<tr>
<td colspan='3'>MS-MODLINE</td>
<td>MS-TESTEVENT</td>
</tr>
</table>
";
my $extrakt2 = $triggerdetailhtml;
$extrakt2 =~ s/\n/#/g;
$extrakthtml = $extrakt2;
# umstellen auf globales attribut !!!!!!
if (AttrVal( $Name, 'MSwitch_Language',AttrVal( 'global', 'language', 'EN' ) ) eq "DE")
{
$extrakt2 =~m/start:textersetzung:ger(.*)end:textersetzung:ger/ ;
$extrakt2 = $1;
}
else
{
$extrakt2 =~m/start:textersetzung:eng(.*)end:textersetzung:eng/ ;
$extrakt2 = $1;
}
@translate="";
if(defined $extrakt2)
{
$extrakt2 =~ s/^.//;
$extrakt2 =~ s/.$//;
@translate = split(/#/,$extrakt2);
}
$extrakthtml =~m/<!-- start htmlcode -->(.*)/ ;
$triggerdetailhtml=$1;
$triggerdetailhtml=~ s/#/\n/g;
my $selectedcheck3 = "";
my $SELF = $Name;
my $testlog = ReadingsVal( $Name, 'Trigger_log', 'on' );
if ( $testlog eq 'on' )
{
$selectedcheck3 = "checked=\"checked\"";
}
my $selftrigger ="";
my $showtriggerdevice = $Triggerdevice;
if ( AttrVal( $Name, "MSwitch_Selftrigger_always", 0 ) eq "1" && ReadingsVal( $Name, 'Trigger_device', 'no_trigger' ) ne 'no_trigger')
{
$selftrigger ="1";
$showtriggerdevice =$showtriggerdevice." (or MSwitch_Self)";
}
elsif ( AttrVal( $Name, "MSwitch_Selftrigger_always", 0 ) eq "1" && ReadingsVal( $Name, 'Trigger_device', 'no_trigger' ) eq 'no_trigger')
{
$selftrigger ="1";
$showtriggerdevice = "MSwitch_Self:";
}
if ( ReadingsVal( $Name, 'Trigger_device', 'no_trigger' ) ne 'no_trigger' || $selftrigger ne "")
{
$MSTRIGGER="Trigger " . $showtriggerdevice. "";
$MSCMDONTRIGGER="<select id = \"trigon\" name=\"trigon\">" . $optionon . "</select>";
##############
my $fieldon = "";
if ( $triggeron =~ m/{(.*)}/ )
{
my $exec = "\$fieldon = " . $1;
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
eval($exec);
$MSCMDONTRIGGER.="<input style='background-color:#e5e5e5;' name='info' readonly value='value = " . $fieldon . "'>";
}
#####################
$MSCMDOFFTRIGGER="<select id = \"trigoff\" name=\"trigoff\">". $optionoff. "</select>";
##############
my $fieldoff = "";
if ( $triggeroff =~ m/{(.*)}/ )
{
my $exec = "\$fieldoff = " . $1;
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
eval($exec);
$MSCMDOFFTRIGGER.="<input style='background-color:#e5e5e5;' name='info' readonly value='value = " . $fieldoff . "'>";
}
#####################
$MSCMD1TRIGGER="<select id = \"trigcmdon\" name=\"trigcmdon\">" . $optioncmdon . "</select>";
##############
my $fieldcmdon = "";
if ( $triggercmdon =~ m/{(.*)}/ )
{
my $exec = "\$fieldcmdon = " . $1;
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
eval($exec);
$MSCMD1TRIGGER.="<input style='background-color:#e5e5e5;' name='info' readonly value='value = "
. $fieldcmdon . "'>";
}
if ( $hash->{INIT} ne 'define' )
{
$MSCMD2TRIGGER="<select id = \"trigcmdoff\" name=\"trigcmdoff\">". $optioncmdoff . "</select>";
##############
my $fieldcmdoff = "";
if ( $triggercmdoff =~ m/{(.*)}/ ) {
my $exec = "\$fieldcmdoff = " . $1;
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
eval($exec);
$MSCMD2TRIGGER.="<input style='background-color:#e5e5e5;' name='info' readonly value='value = "
. $fieldcmdoff . "'>";
}
#####################
}
$MSSAVEEVENT="<input $selectedcheck3 name=\"aw_save\" type=\"checkbox\" $disable>";
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' )
{
$MSHELP5="<input name='info' type='button' value='?' onclick=\"javascript: info('saveevent')\">&nbsp;";
$MSHELP6="<input name='info' type='button' value='?' onclick=\"javascript: info('addevent')\">&nbsp;";
$MSHELP7="<input name='info' type='button' value='?' onclick=\"javascript: info('eventmonitor')\">&nbsp;";
}
$MSADDEVENT="<input type='text' id='add_event' name='add_event' size='40' value =''>
<input type=\"button\" id=\"aw_addevent\" value=\"add event\"$disable>";
$MSMODLINE="<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>";
if ( (AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '1' || AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '3' ) && $optiongeneral ne '' )
{
$MSTESTEVENT="<select id = \"eventtest\" name=\"eventtest\">"
. $optiongeneral
. "</select><input type=\"button\" id=\"aw_md2\" value=\"test event\"$disable onclick=\"javascript: checkevent(document.querySelector('#eventtest').value)\">";
}
}
else
{
$triggerdetailhtml= "<p id=\"MSwitchWebTRDT\"></p>";
}
##############################################################
#MS-HIDEWHITELIST
$triggerdetailhtml =~ s/MS-OFFCMD2TRIGGER/$MSCMDOFFTRIGGER/g;
$triggerdetailhtml =~ s/MS-ONCMD1TRIGGER/$MSCMDONTRIGGER/g;
$triggerdetailhtml =~ s/MS-CMD2TRIGGER/$MSCMD2TRIGGER/g;
$triggerdetailhtml =~ s/MS-CMD1TRIGGER/$MSCMD1TRIGGER/g;
$triggerdetailhtml =~ s/MS-SAVEEVENT/$MSSAVEEVENT/g;
$triggerdetailhtml =~ s/MS-TRIGGER/$MSTRIGGER/g;
$triggerdetailhtml =~ s/MS-ADDEVENT/$MSADDEVENT/g;
$triggerdetailhtml =~ s/MS-MODLINE/$MSMODLINE/g;
$triggerdetailhtml =~ s/MS-TESTEVENT/$MSTESTEVENT/g;
$triggerdetailhtml =~ s/MS-CHANGETEXT/$inhalt5/g;
$triggerdetailhtml =~ s/MS-HIDE1/$displayntog/g;
$triggerdetailhtml =~ s/MS-HIDE/$displaynot/g;
$triggerdetailhtml =~ s/MS-HELP5/$MSHELP5/g;
$triggerdetailhtml =~ s/MS-HELP6/$MSHELP6/g;
$triggerdetailhtml =~ s/MS-HELP7/$MSHELP7/g;
foreach (@translate)
{
my($wert1,$wert2) = split (/->/,$_);
$triggerdetailhtml =~ s/$wert1/$wert2/g;
}
$ret.="<div id='MSwitchWebTRDT' nm='$hash->{NAME}' cellpadding='0' style='border-spacing:0px;'>".$triggerdetailhtml."</div><br>";
#################################################################
# id event bridge
my $idmode = AttrVal( $Name, 'MSwitch_Event_Id_Distributor', 'undef' );
if ( $hash->{helper}{eventtoid}
&& $idmode ne "undef"
&& $expertmode eq "1" )
{
$ret .=
"<table border='$border' class='block wide' id='MSwitchWebBridge' nm='$hash->{NAME}'>
<tr class=\"even\">
<td>$MSDISTRIBUTORTEXT</td></tr>
<tr class=\"even\">
<td>&nbsp;</td></tr>";
my $toid = $hash->{helper}{eventtoid};
foreach my $a ( keys %{$toid} )
{
$ret .="<tr class=\"even\"><td>&nbsp;&nbsp;&nbsp;&nbsp;$MSDISTRIBUTOREVENT "
. $a
. " =\> execute "
. $hash->{helper}{eventtoid}{$a}
. "</td></tr>";
}
$ret .= "<tr class=\"even\"><td>&nbsp;</td></tr></table></p>";
}
###############################################################
# id event bridge neu
###############################################################
#auswfirst MSwitch_Selftrigger_always
my $style = "";
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) eq "Dummy" && AttrVal( $Name, 'MSwitch_Selftrigger_always', '0' ) ne "1")
{
$style = " style ='visibility: collapse' ";
$ret .=
"<table border='$border' class='block wide' id='MSwitchWebAF' nm='$hash->{NAME}'>
<tr class=\"even\">
<td><center><br>$DUMMYMODE<br>&nbsp;<br></td></tr></table>
";
}
my $MSSAVED="";
my $MSSELECT="";
my $MSHELP="";
my $MSEDIT="";
my $MSLOCK="";
my $MSMOD="";
my $selectaffectedhtml="
<!-- folgende HTML-Kommentare dürfen nicht gelöscht werden -->
<!--
start:textersetzung:ger
quickedit locked->Auswahlfeld gesperrt
edit list->Liste editieren
multiple selection with ctrl and mousebutton->mehrfachauswahl mit CTRL und Maustaste
all devicecomands saved->alle Devicekommandos gespeichert
modify Devices->Devices speichern
show greater list->grosses Auswahlfeld
reload->neu laden
affected devices->zu schaltende Geräte
end:textersetzung:ger
-->
<!--
start:textersetzung:eng
end:textersetzung:eng
-->
<!-- start htmlcode -->
<table width='100%' border='$border' class='block wide' $style >
<tr>
<td>affected devices<br>MS-SAVED</td>
<td>&nbsp;</td>
<td></td>
</tr>
<tr>
<td>MS-HELP&nbsp;multiple selection with ctrl and mousebutton</td>
<td>MS-SELECT</td>
<td><center>MS-EDIT<br>MS-LOCK</td>
</tr>
<tr>
<td>MS-MOD</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table>
";
my $extrakt3 = $selectaffectedhtml;
$extrakt3 =~ s/\n/#/g;
if (AttrVal( $Name, 'MSwitch_Language',AttrVal( 'global', 'language', 'EN' ) ) eq "DE")
{
$extrakt3 =~m/start:textersetzung:ger(.*)end:textersetzung:ger/ ;
$extrakt3 = $1;
}
else
{
$extrakt3 =~m/start:textersetzung:eng(.*)end:textersetzung:eng/ ;
$extrakt3 = $1;
}
@translate="";
if(defined $extrakt3)
{
$extrakt3 =~ s/^.//;
$extrakt3 =~ s/.$//;
@translate = split(/#/,$extrakt3);
}
if ( $hash->{INIT} ne 'define' )
{
# affected devices class='block wide' style ='visibility: collapse'
if ( $savecmds ne "nosave" && $cmdfrombase eq "1" )
{
$MSSAVED="all devicecomands saved <input type=\"button\" id=\"del_savecmd\" value=\"reload\">";
}
if ( AttrVal( $Name, 'MSwitch_Help', "0" ) eq '1' )
{
$MSHELP="<input name='info' type='button' value='?' onclick=\"javascript: info('affected')\">";
}
$MSSELECT ="<select id =\"devices\" multiple=\"multiple\" name=\"affected_devices\" size=\"6\" disabled >"
.$deviceoption."</select>";
$MSEDIT="<input type=\"button\" id=\"aw_great\" value=\"edit list\" onClick=\"javascript:deviceselect();\">";
$MSLOCK="<input onChange=\"javascript:switchlock();\" checked=\"checked\" id=\"lockedit\" name=\"lockedit\" type=\"checkbox\" value=\"lockedit\" /> quickedit locked";
$MSMOD="<input type=\"button\" id=\"aw_dev\" value=\"modify Devices\"$disable>";
}
$selectaffectedhtml =~ s/MS-SAVED/$MSSAVED/g;
$selectaffectedhtml =~ s/MS-SELECT/$MSSELECT/g;
$selectaffectedhtml =~ s/MS-HELP/$MSHELP/g;
$selectaffectedhtml =~ s/MS-EDIT/$MSEDIT/g;
$selectaffectedhtml =~ s/MS-LOCK/$MSLOCK/g;
$selectaffectedhtml =~ s/MS-MOD/$MSMOD/g;
foreach (@translate)
{
my($wert1,$wert2) = split (/->/,$_);
$selectaffectedhtml =~ s/$wert1/$wert2/g;
}
$selectaffectedhtml=~ s/#/\n/g;
$ret.="<div id='MSwitchWebAF' nm='$hash->{NAME}' cellpadding='0' style='border-spacing:0px;'>".
$selectaffectedhtml.
"</div>";
####################
#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' and $hash->{INIT} ne 'define' )
{
$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;
//alert(sel1);
//activate(document.getElementById(sel).value,sel1,aktset,sel2);
activate(document.getElementById(sel).value,sel1,aktset,sel2);
};"
}
# java wird bei seitenaufruf ausgeführt
# Logmonitor
$j1 .= "
var olddest
// reagiert auf Änderungen der INFORMID
\$(\"body\").on('DOMSubtreeModified', \"div[informId|=\'".$Name."-Debug']\", function() {
// neustes event aus html extrahieren
var test = \$( \"div[informId|=\'".$Name."-Debug']\" ).text();
test= test.substring(0, test.length - 19);
var old = document.getElementById(\"log\").value;
if (olddest != test){
olddest = test;
document.getElementById(\"log\").value=old+'\\n'+test;
var textarea = document.getElementById('log');
textarea.scrollTop = textarea.scrollHeight;
}
return;
});
";
# Eventmonitor
$j1 .= "
{
var o = new Object();
var atriwaaray = new Object();
var atriwaaray = { $scripttriggers };
// reagiert auf Änderungen der INFORMID
\$(\"body\").on('DOMSubtreeModified', \"div[informId|=\'".$Name."-EVENT']\", function() {
// abbruch wenn checkbox nicht aktiv
var check = \$(\"[name=eventmonitor]\").prop(\"checked\") ? \"1\":\"0\";
if (check == 0)
{
\$( \"#log2\" ).text( \"\" );
\$( \"#log1\" ).text( \"\" );
\$( \"#log3\" ).text( \"\" );
return;
}
// neustes event aus html extrahieren
var test = \$( \"div[informId|=\'".$Name."-EVENT']\" ).text();
// datum entfernen
test= test.substring(0, test.length - 19);
o[test] = test;
// löschen der anzeige
\$( \"#log2\" ).text( \"\" );
\$( \"#log1\" ).text( \"eingehende events:\" );
\$( \"#log3\" ).text( \"\" );
var field = \$('<select style=\"width: 30em;\" size=\"5\" id =\"lf\" multiple=\"multiple\" name=\"lf\" size=\"6\" ></select>');
\$(field).appendTo('#log2');
var field = \$('<input id =\"editevent\" type=\"button\" value=\"$EDITEVENT\"/>');
\$(field).appendTo('#log3');
\$(\"#editevent\").click(function(){
transferevent();
return;
});
// umwandlung des objekts in standartarray
var a3 = Object.keys(o).map(function (k) { return o[k];})
// array umdrehen
a3.reverse();
// eintrag in dropdown
if (atriwaaray[test] != 1){
atriwaaray[test]=1;
var newselect = \$('<option value=\"'+test+'\">'+test+'</option>');
\$(newselect).appendTo('#trigcmdon');
var newselect = \$('<option value=\"'+test+'\">'+test+'</option>');
\$(newselect).appendTo('#trigcmdoff');
var newselect = \$('<option value=\"'+test+'\">'+test+'</option>');
\$(newselect).appendTo('#trigon');
var newselect = \$('<option value=\"'+test+'\">'+test+'</option>');
\$(newselect).appendTo('#trigoff');
}
// aktualisierung der divx max 5
var i;
for (i = 0; i < 10; i++)
{
if (a3[i])
{
var newselect = \$('<option value=\"'+a3[i]+'\">'+a3[i]+'</option>');
\$(newselect).appendTo('#lf');
}
}
});
}";
if (1 ==1 )
#if ($rename eq "on")
{
# einblendung Renamme und Reload
$j1 .= "
\$(document).ready(function(){
var r1 = \$('<input type=\"button\" value=\"$RENAMEBUTTON\" onclick=\" javascript: newname() \"/>');
var r2 = \$('<input type=\"button\" value=\"$RELOADBUTTON\" onclick=\" javascript: reload() \"/>');
var r3 = \$('<input type=\"text\" id = \"newname\" value=\"$Name\"/>');
\$( \".col1\" ).text( \"\" );
\$(r3).appendTo('.col1');
\$(r2).appendTo('.col1');
\$(r1).appendTo('.col1');
});
";
$j1 .= "function reload(){window.location.href=\"/fhem?detail=$Name\";}";
$j1 .= "function newname(){
newname = document.getElementById('newname').value;
comand = 'rename+Timer1+'+newname;
cmd = comand;
//alert ('-'+newname+'-');
//return;
//FW_cmd(FW_root+'?'+cmd+'&XHR=1');
if ('$Name' == newname){return;}
if (newname == ''){return;}
window.location.href=\"/fhem?cmd=rename+$Name+\"+newname+\"&detail=\"+newname+\"$FW_CSRF\";
}";
}
$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);
}
}
//#### testjava
//conf='';
//var nm = \$(t).attr(\"nm\");
//var def = nm+\" deletesinglelog \"+encodeURIComponent(conf);
//location = location.pathname+\"?detail=" . $Name . "&cmd=get \"+addcsrf(def);#
//\$( \"input[value='get']\" ).click ();
}
";
if (defined $hash->{helper}{tmp}{deleted} && $hash->{helper}{tmp}{deleted} eq "on")
{
my $text = MSwitch_Eventlog($hash,'timeline');
delete( $hash->{helper}{tmp}{deleted} );
$j1 .= "FW_cmd(FW_root+'?cmd=get $Name Eventlog timeline&XHR=1', function(data){FW_okDialog(data)});";
}
if (defined $hash->{helper}{tmp}{reset} && $hash->{helper}{tmp}{reset} eq "on")
{
delete( $hash->{helper}{tmp}{reset} );
my $txt="Durch Bestätigung mit \"Reset\" wird das Device komplett zurückgesetzt (incl. Readings und Attributen) und alle Daten werden gelöscht !" ;
$txt.="<br>&nbsp;<br><center><input type=\"button\" style=\"BACKGROUND-COLOR: red;\" value=\" Reset \" onclick=\" javascript: reset() \">";
$j1 .= "FW_okDialog('$txt');";
}
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) ne "Dummy" )
{
# 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
if ( $hash->{INIT} ne 'define' ) {
$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 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 writeattr(){
conf='';
var nm = \$(t).attr(\"nm\");
var def = nm+\" Writesequenz \"+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;'>".$NOCONDITION."</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');
}
function testcmd(field,devicename,opt){
comand = \$(\"[name=\"+field+\"]\").val()
if (comand == 'no_action')
{
return;
}
comand1 = \$(\"[name=\"+opt+\"]\").val()
if (devicename != 'FreeCmd')
{
comand =comand+\" \"+comand1;
}
comand = comand.replace(/\\\$SELF/g,'".$Name."');
if (devicename != 'FreeCmd')
{
cmd ='set '+devicename+' '+comand;
FW_cmd(FW_root+'?cmd='+encodeURIComponent(cmd)+'&XHR=1');
FW_okDialog('".$EXECCMD." '+cmd);
FW_errmsg(cmd, 5);
}
else
{
//alert('freecmd');
comand = comand.replace(/;;/g,'[DS]');
comand = comand.replace(/;/g,';;');
comand = comand.replace(/\\[DS\\]/g,';;');
var t0 = comand.substr(0, 1);
var t1 = comand.substr(comand.length-1,1 );
//alert (comand);
//alert(t1);
if (t1 == ' ')
{
var space = '".$NOSPACE."';
var textfinal = \"<div style ='font-size: medium;'>\"+space+\"</div>\";
FW_okDialog(textfinal);
//FW_errmsg(textfinal, 1000);
//alert('Befehl kann nicht getestet werden. Das letzte Zeichen dar kein Leerzeichen sein.');
return;
}
if (t0 == '{' && t1 == '}')
{
}else
{
comand = '{fhem(\"'+comand+'\")}';
}
cmd = comand;
FW_cmd(FW_root+'?cmd='+encodeURIComponent(cmd)+'&XHR=1');
FW_okDialog('".$EXECCMD." '+cmd);
}
};
";
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 kannin folgenden Formaten erfolgen:<br><br>
[NAME:reading] des Devices ->z.B. [dummy.state] - der Inhalt muss eine Zahl (sekunden) oder ein eine Zeitangabe enthalten<br>
hh:mm:ss -> Zeitangabe Formatiert<br>
ss -> Angabe in Sekunden<br>
[random] -> siehe Fhemwiki
{perl} -> perlcode - der Rückgabewert muss eine Zahl (sekunden) oder ein eine Zeitangabe hh:mm:ss enthalten<br>
';}
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 Komma 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>
Um nur den numerischen Wert eine Readings zu erhalten muss dem Ausdruck ein \":d\" angehangen werden -> [Devicename:Reading:d]<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.
<br />
<br />
Sonderfunktionen:<br />
<hr /><br />
Tendenz:
<a href=\\'https://wiki.fhem.de/wiki/MSwitch#Tendency\\' title=\\'Beschreibung im Wiki\\' target=\\'_blank\\'>Beschreibung im Wiki</a>
<br />
Differenz:
<a href=\\'https://wiki.fhem.de/wiki/MSwitch#Difference\\' title=\\'Beschreibung im Wiki\\' target=\\'_blank\\'>Beschreibung im Wiki</a>
<br />
Average
<a href=\\'https://wiki.fhem.de/wiki/MSwitch#Average\\' title=\\'Beschreibung im Wiki\\' target=\\'_blank\\'>Beschreibung im Wiki</a>
<br />
Increase
<a href=\\'https://wiki.fhem.de/wiki/MSwitch#Increase\\' title=\\'Beschreibung im Wiki\\' target=\\'_blank\\'>Beschreibung im Wiki</a>
<br />
<br />
';
}
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>Hier sind zwei Möglichkeiten gegeben:<br>[Device:Reading:i] - ersetzt wird mit dem Inhalt zum Zeitpunkt des abarbeitens des befehls (:i = imidiality)<br>[Device:Reading] - ersetzt wird mit dem Inhalt zum Zeitpunkt der Ausführung des Befehls<br>Relavant ist dieses bei zeitverzögerten Befehlen<br><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;
$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 = \"<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 = \"<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
{
debug = 'state: '+state+'<br>';
debug += 'target: '+target+'<br>';
debug += 'options: '+options+'<br>';
debug += 'copytofield: '+copytofield+'<br>';
//FW_okDialog(debug);
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')
{
//FW_okDialog(state);
noaction(target,copytofield);
return;
}
var optionarray = options.split(\" \");
var werte = new Array();
for (var key in optionarray )
{
//FW_okDialog(optionarray[key]);
var satz = optionarray[key].split(\":\");
var wert1 = satz[0];
wert3 = satz[1];
satz.shift() ;
var wert2 = satz.join(\":\");
//FW_okDialog(wert2);
werte[wert1] = wert2;
//FW_okDialog(wert2);
//FW_okDialog(wert3);
}
//FW_okDialog('state: '+state+'<br>inhalt: '+werte[state]);
var devicecmd = new Array();
if ( werte[state] == '')
{
werte[state]='textField';
}
//if (typeof werte[state] === 'undefined')
// {
// werte[state]='textField';
// }
devicecmd = werte[state].split(\",\");
//FW_okDialog(devicecmd[0]);
if (devicecmd[0] == 'noArg')
{
//FW_okDialog(devicecmd[0]);
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();
if(typeof(trigcmdoff)==\"undefined\"){trigcmdoff=\"no_trigger\"}
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);
});
//DELETE CAVECMDS
\$(\"#del_savecmd\").click(function(){
var nm = \$(t).attr(\"nm\");
var def = nm+\" delcmds \";
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();
if(typeof(timeoffonly)==\"undefined\"){timeoffonly=\"\"}
timeonoffonly = \$(\"[name=timeonoffonly]\").val();
if(typeof(timeonoffonly)==\"undefined\"){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_show\").click(function(){
//alert('test');
\$(\"[name=noshow]\").css(\"display\",\"block\");
\$(\"[name=noshowtask]\").css(\"display\",\"none\");
});
\$(\"#eventmonitor\").click(function(){
var check = \$(\"[name=eventmonitor]\").prop(\"checked\") ? \"1\":\"0\";
if (check == 1)
{
// anpassen der anzeige
\$( \"#log2\" ).text( \"\" );
\$( \"#log1\" ).text( \"eingehende events:\" );
\$( \"#log3\" ).text( \"\" );
var field = \$('<select style=\"width: 30em;\" size=\"5\" id =\"lf\" multiple=\"multiple\" name=\"lf\" size=\"6\" ></select>');
\$(field).appendTo('#log2');
var field = \$('<input id =\"editevent\" type=\"button\" value=\"$EDITEVENT\"/>');
\$(field).appendTo('#log3');
//\$(\"#editevent\").click(function(){
//alert('click');
//return;
//});
return;
}
});
\$(\"#aw_det\").click(function(){
var nm = \$(t).attr(\"nm\");
devices = '';
$javaform
//alert(devices);
//return;
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');
";
if (AttrVal( $Name, 'MSwitch_Language',AttrVal( 'global', 'language', 'EN' ) ) eq "DE")
{
$j1.="document.getElementById('aw_great').value='Liste editieren';";
}
else{
$j1.="document.getElementById('aw_great').value='edit list';";
}
$j1.="}
else{
\$(\"#devices\").prop(\"disabled\", false);";
if (AttrVal( $Name, 'MSwitch_Language',AttrVal( 'global', 'language', 'EN' ) ) eq "DE")
{
$j1.="document.getElementById('aw_great').value='öffne grosse Liste';";
}
else
{
$j1.="document.getElementById('aw_great').value='schow greater list';";
}
$j1.="
}
}
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,'');
}
// events from monitor to edit
function transferevent(){
var values = \$('#lf').val();
if (values){
var string = values.join(',');
document.getElementById('add_event').value = string;
}
}
function reset() {
var nm = \$(t).attr(\"nm\");
//alert(nm);
var def = nm+\" reset_device checked\";
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
return;
}
function deletelog() {
anzahl =document.getElementById('dellog').value;
arg ='';
for (i = 1; i < anzahl; i++) {
test = document.getElementById('Checkbox-' + i).checked;
if (document.getElementById('Checkbox-' + i).checked)
{
arg=arg+i+',';
}
}
conf=arg;
var nm = \$(t).attr(\"nm\");
var def = nm+\" deletesinglelog \"+encodeURIComponent(conf);
location = location.pathname+\"?detail=" . $Name . "&cmd=set \"+addcsrf(def);
return;
}
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', '' ) );
# 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
### achtung on/off vertauscht
############### off
my @detailarray = split( /#\[NF\]/, $_ ); #enthält daten 0-5 0 - name 1-5 daten 7 und9 sind zeitangaben
my $key = '';
# my $testtimestroff = $detailarray[7];
$key = $detailarray[0] . "_delayatonorg";
$savedetails{$key} = $detailarray[7];
#$detailarray[7]=$testtimestroff;
##### on
my $testtimestron = $detailarray[8];
$key = $detailarray[0] . "_delayatofforg";
$savedetails{$key} = $detailarray[8];
$detailarray[8] =$testtimestron;
$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] . "_hidecmd";
if ( defined $detailarray[19] )
{
$savedetails{$key} = $detailarray[19];
}
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 $showevents = AttrVal( $name, "MSwitch_generate_Events", 1 );
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, "Zu schaltende devices -> " . @devices . " @devices" ." " . __LINE__);
# 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};
MSwitch_LOG( $name, 6,"Timer -> " . $devicedetails{$timerkey} ." " . __LINE__ );
if ( $devicedetails{$timerkey} =~ m/{.*}/ )
{
$devicedetails{$timerkey} = eval $devicedetails{$timerkey};
}
MSwitch_LOG( $name, 6,"Timer -> " . $devicedetails{$timerkey} ." " . __LINE__ );
if ( $devicedetails{$timerkey} =~ m/\[.*:.*\]/ )
{
MSwitch_LOG( $name, 6,"Timer gefunden -> " . $devicedetails{$timerkey} ." " . __LINE__);
$devicedetails{$timerkey} = eval MSwitch_Checkcond_state( $devicedetails{$timerkey},$name );
}
if ( $devicedetails{$timerkey} =~ m/[\d]{2}:[\d]{2}:[\d]{2}/ )
{
MSwitch_LOG( $name, 6, "Timerformat OK " ." " . __LINE__);
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;
}
elsif( $devicedetails{$timerkey} =~ m/^\d*\.?\d*$/ )
{
$devicedetails{$timerkey} = $devicedetails{$timerkey} ;
}
else
{
MSwitch_LOG($name,1, "ERROR Timerformat ". $devicedetails{$timerkey} . " fehlerhaft " ." " . __LINE__);
$devicedetails{$timerkey} = 0;
}
MSwitch_LOG( $name,6, "Timer des devices -> " . $devicedetails{$timerkey} ." " . __LINE__);
# 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;
#############
MSwitch_LOG( $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, "Auszufuehrender Befehl -> " . $cs ." " . __LINE__);
# neu
$devicedetails{ $device . '_repeatcount' } = 0
if !defined $devicedetails{ $device . '_repeatcount' };
$devicedetails{ $device . '_repeattime' } = 0
if !defined $devicedetails{ $device . '_repeattime' };
MSwitch_LOG( $name, 6, "Teste auf Wiederholungen " ." " . __LINE__);
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,
"Anzahl der Wiederholungen -> "
. $devicedetails{ $device . '_repeatcount' } ." " . __LINE__
);
MSwitch_LOG(
$name,
6,
"Intervall der Wiederholungen -> "
. $devicedetails{ $device . '_repeattime' } ." " . __LINE__
);
if ( $expertmode eq '1'
&& $devicedetails{ $device . '_repeatcount' } > 0
&& $devicedetails{ $device . '_repeattime' } > 0 )
{
my $i;
for ( $i = 1 ;
$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,
"Wiederhulung gesetzt-> "
. $timecond . " "
. $msg ." " . __LINE__);
InternalTimer( $timecond, "MSwitch_repeat", $msg );
if ( $out eq '1' ) {
MSwitch_LOG( $name, 6,
" Abbruchbefehl erhalten von "
. $device ." " . __LINE__ );
$lastdevice = $device;
last LOOP45;
}
}
}
my $todec = $cs;
$cs = MSwitch_dec( $hash, $todec );
############################
if ( $debugmode eq '2' )
{
MSwitch_LOG( $name, 6, "ausgeführter Befehl -> " . $cs ." " . __LINE__);
}
else
{
if ( $cs =~ m/{.*}/ )
{
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
eval($cs);
if ($@ and $@ ne "OK" ) {
MSwitch_LOG( $name, 1,
"$name MSwitch_Set: ERROR $cs: $@ "
. __LINE__ );
}
if ( $out eq '1' )
{
MSwitch_LOG( $name, 6,
"Abbruchbefehl erhalten von "
. $device ." " . __LINE__ );
$lastdevice = $device;
last LOOP45;
}
}
else
{
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) and $errors ne "OK" ) {
MSwitch_LOG( $name, 6,
"MSwitch_Exec_Notif $comand: ERROR $device: $errors -> Comand: $cs" ." " . __LINE__
);
}
if ( $out eq '1' )
{
MSwitch_LOG( $name, 6,
"Abbruchbefehl erhalten von "
. $device ." " . __LINE__);
$lastdevice = $device;
last LOOP45;
}
}
}
my $msg = $cs;
if ( length($msg) > 100 ) {
$msg = substr( $msg, 0, 100 ) . '....';
}
readingsSingleUpdate( $hash, "last_exec_cmd", $msg,
$showevents )
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, "Verzögerung RAW -> " . $devicedetails{$timerkey} ." " . __LINE__);
MSwitch_LOG( $name, 6,
"Verzögerung gesetztgesetzt -> " . $cs ." " . __LINE__ );
MSwitch_LOG( $name, 6,
"Timer gesetzt name -> " . $name ." " . __LINE__);
MSwitch_LOG(
$name,
6,
"timer gesetzt ( Schaltbedingung)-> "
. $conditionkey ." " . __LINE__
);
MSwitch_LOG( $name, 6,
"timer gesetzt event-> " . $event ." " . __LINE__);
MSwitch_LOG( $name, 6,
"timer gesetzt timecond-> " . $timecond ." " . __LINE__ );
MSwitch_LOG( $name, 6,
"timer gesetzt -> device " . $device ." " . __LINE__);
InternalTimer( $timecond, "MSwitch_Restartcmd", $msg );
if ( $expertmode eq "1" && $device ) {
readingsSingleUpdate( $hash, "last_cmd",
$hash->{helper}{priorityids}{$device},
$showevents );
}
if ( $out eq '1' ) {
MSwitch_LOG( $name, 6,
"bbruchbefehl erhalten von " . $device ." " . __LINE__);
$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},
$showevents );
}
MSwitch_LOG( $name, 6, "Rückgabe aus EXECNOTIF -> " . $satz ." " . __LINE__)
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};
my $showevents = AttrVal( $name, "MSwitch_generate_Events", 1 );
return "" if ( IsDisabled($name) );
$hash->{eventsave} = 'unsaved';
#MSwitch_LOG( $name, 6, "----------------------------------------" );
MSwitch_LOG( $name, 6, "########## Ausführung verzögerter Befehl" );
MSwitch_LOG( $name, 6, $incomming ." " . __LINE__ );
# 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, 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' )
{
MSwitch_LOG( $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' }
);
######################################
if ( AttrVal( $name, 'MSwitch_Expert', "0" ) eq '1'
&& $devicedetails{ $device . '_repeatcount' } > 0
&& $devicedetails{ $device . '_repeattime' } > 0 )
{
my $i;
for ( $i = 1 ;
$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 );
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
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) and $errors ne "OK" ) {
MSwitch_LOG( $name, 6,
"$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, $showevents )
if $cs ne '';
}
RemoveInternalTimer($incomming);
delete( $hash->{helper}{delays}{$incomming} );
return;
}
####################
sub MSwitch_checkcondition($$$) {
my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) =localtime(gettimeofday());
$month++; $year+=1900;
# antwort execute 0 oder 1
my ( $condition, $name, $event ) = @_;
my $hash = $modules{MSwitch}{defptr}{$name};
$event =~ s/"/\\"/g; # keine " im event zulassen ERROR
my $attrrandomnumber = AttrVal( $name, 'MSwitch_RandomNumber', '' );
my $debugmode = AttrVal( $name, 'MSwitch_Debug', "0" );
#### 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;
$condition =~ s/\[\$EVT_CMD1_COUNT\]/"\$EVT_CMD1_COUNT"/g;
$condition =~ s/\[\$EVT_CMD2_COUNT\]/"\$EVT_CMD2_COUNT"/g;
#### evt anpassung wenn alleinstehend
$condition =~ s/(?<!")\$EVENT(?!")|\[EVENT]/[$name:EVENT]/g;
$condition =~ s/(?<!")\$EVTFULL(?!")|\[EVTFULL]/[$name:EVTFULL]/g;
$condition =~ s/(?<!")\$EVTPART1(?!")|\[EVTPART1]/[$name:EVTPART1]/g;
$condition =~ s/(?<!")\$EVTPART2(?!")|\[EVTPART2]/[$name:EVTPART2]/g;
$condition =~ s/(?<!")\$EVTPART3(?!")|\[EVTPART3]/[$name:EVTPART3]/g;
$condition =~ s/\[EVT_CMD1_COUNT\]/[$name:EVT_CMD1_COUNT]/g;
$condition =~ s/\[EVT_CMD2_COUNT\]/[$name:EVT_CMD2_COUNT]/g;
$condition =~ s/\[DIFFDIRECTION\]/[$name:DIFFDIRECTION]/g;
$condition =~ s/\[DIFFERENCE\]/[$name:DIFFERENCE]/g;
$condition =~ s/\[TENDENCY\]/[$name:TENDENCY]/g;
$condition =~ s/\[INCREASE\]/[$name:INCREASE]/g;
$condition =~ s/\[AVERAGE\]/[$name:AVERAGE]/g;
$condition =~ s/\[SEQUENCE_Number\]/[$name:SEQUENCE_Number]/g;
$condition =~ s/\[SEQUENCE\]/[$name:SEQUENCE]/g;
$condition =~ s/\$year/[YEAR]/g;
$condition =~ s/\$month/[MONTH]/g;
$condition =~ s/\$day/[DAY]/g;
$condition =~ s/\$min/[MIN]/g;
$condition =~ s/\$hour/[HOUR]/g;
if ( !defined($condition) ) { return 'true'; }
if ( $condition eq '' ) { return 'true'; }
#################################
# readingsfunction
############# ersetze funktionsstring durch readingsstring
my $funktionsstringdiff;
my $funktionsstringtend;
my $funktionstring = "";
my $funktionsstringavg;
my $funktionsstringinc;
if ( $condition =~ m/YEAR|MONTH|DAY|MIN|HOUR/ )
{
while ( $condition =~ m/(.*)\[YEAR\](.*)([\d]{4})(.*)/ ) {
$condition = $1 . "$year$2$3" . $4;
}
while ( $condition =~ m/(.*)\[MONTH\](.*)([\d]{1,2})(.*)/ ) {
$condition = $1 . "$month$2$3" . $4;
}
while ( $condition =~ m/(.*)\[DAY\](.*)([\d]{1,2})(.*)/ ) {
$condition = $1 . "$mday$2$3" . $4;
}
while ( $condition =~ m/(.*)\[MIN\](.*)([\d]{1,2})(.*)/ ) {
$condition = $1 . "$min$2$3" . $4;
}
while ( $condition =~ m/(.*)\[HOUR\](.*)([\d]{1,2})(.*)/ ) {
$condition = $1 . "$hour$2$3" . $4;
}
}
if ( $condition =~ m/DIFF|TEND|AVG|INC/ )
{
if ( $condition =~ m/(.*)(\[DIFF.*[>|<].*?\d{1,3})(.*)/ ) {
$funktionstring = $2;
$condition = $1 . "[$name:DIFFERENCE] eq \"true\"" . $3;
}
if ( $condition =~ m/(.*)(\[TEND.*[>|<].*?\d{1,3})(.*)/ ) {
$funktionstring = $2;
$condition = $1 . "[$name:TENDENCY] eq \"true\"" . $3;
MSwitch_LOG( $name, 5, "$name: condition -> " . $condition );
}
if ( $condition =~ m/(.*)(\[AVG.*[>|<].*?\d{1,3})(.*)/ ) {
$funktionstring = $2;
$condition = $1 . "[$name:AVERAGE] eq \"true\"" . $3;
MSwitch_LOG( $name, 5, "$name: condition -> " . $condition );
}
if ( $condition =~ m/(.*)(\[INC.*[>|<].*?\d{1,3})(.*)/ ) {
$funktionstring = $2;
$condition = $1 . "[$name:INCREASE] eq \"true\"" . $3;
MSwitch_LOG( $name, 5, "$name: condition -> " . $condition );
}
if ( $funktionstring =~ m/\[(INC.*|DIFF.*?|TEND.*?|AVG.*?):(.+)\](.+)/ ) {
MSwitch_LOG( $name, 5,
"$name: Checkcondition - Funktion DIFF|TEND|AVG erkannt" );
######## oldplace
my $function = $1;
my $eventhistorie = $2;
my $ausdruck = $3;
my $vergloperand = 0;
$funktionsstringdiff = $1;
$funktionsstringtend = $1;
$funktionsstringavg = $1;
$funktionsstringinc = $1;
######## unterscheidung der funktionen
#Function DIFF
if ( $funktionsstringdiff =~ m/(DIFF)(.*)/ ) {
my $finaldiff;
my $finaldiff1;
MSwitch_LOG( $name, 5, "#########################" );
$vergloperand = $2;
$vergloperand = 0 if $2 eq "";
my $function = "DIFF";
MSwitch_LOG( $name, 5, "$name: DEFF1 - $1" );
MSwitch_LOG( $name, 5, "$name: DEFF2 - $vergloperand" );
$ausdruck =~ m/.*?([<>]).*?(\d.*)/;
my $rechenzeichen = $1;
my $vergleichswert = $2;
MSwitch_LOG( $name, 5, "$name: Funktion ist: - $function" );
MSwitch_LOG( $name, 5, "$name: index ist: - $vergloperand" );
MSwitch_LOG( $name, 5, "$name: vergleichswert ist: - $vergleichswert" );
my @eventfunction =split( / /, $hash->{helper}{eventhistory}{$eventhistorie} );
if ( @eventfunction < $vergloperand ) {
MSwitch_LOG($name,4,"$name: Funktionberechnung DIFF erkannt-> nicht genug Daten für berechnung vorhanden");
$finaldiff ="Funktionberechnung DIFFERENCE<br>Berechnung nicht möglich, nicht genug Daten vorhanden<br>Ergebniss: false";
$hash->{helper}{eventhistory}{DIFFERENCE} = $finaldiff;
readingsSingleUpdate( $hash, "DIFFERENCE", 'false', 1 );
}
else
{
my $operand = $eventfunction[0];
my $index = $vergloperand - 1;
$index = 0 if $index < 0;
MSwitch_LOG( $name, 5, "$name: index ist: - $index" );
my $operand1 = $eventfunction[$index];
readingsSingleUpdate( $hash, "Debug-DIFF-Wert1", $operand, 1 )if ($debugmode > 0);
readingsSingleUpdate( $hash, "Debug-DIFF-Wert2", $operand1, 1 )if ($debugmode > 0);
MSwitch_LOG( $name, 5,"$name: vergleichswert1 - $operand" );
MSwitch_LOG( $name, 5,"$name: vergleichswert2 - $operand1" );
my $diff = abs( $operand1 - $operand );
MSwitch_LOG( $name, 5, "$name: Differenz : $diff" );
my $ret;
my $erg =
"\$ret ='false';\$ret = 'true' if "
. $diff
. $rechenzeichen
. $vergleichswert
. ";return \$ret;";
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eval line" . __LINE__ );
}
my $erg2 = eval $erg;
MSwitch_LOG( $name, 5, "$name: ergebniss : $erg" );
MSwitch_LOG( $name, 5, "$name: ergebniss : $erg2" );
$finaldiff ="Funktionberechnung DIFFERENCE<br>Wertepaar: $operand - $operand1<br>Differenz (Zahlenwert): $diff<br>Wahr wenn $diff $rechenzeichen $vergleichswert<br>Ergebniss: $erg2";
$finaldiff1="Funktionberechnung: Wertepaar: $operand - $operand1-Differenz (Zahlenwert): $diff-Wahr wenn $diff $rechenzeichen $vergleichswert-Ergebniss: $erg2";
$hash->{helper}{eventhistory}{DIFFERENCE} = $finaldiff;
readingsSingleUpdate( $hash, "DIFFERENCE", $erg2, 1 );
if ($operand > $operand1)
{
readingsSingleUpdate( $hash, "DIFFDIRECTION", "up", 1 );
}
elsif ($operand < $operand1)
{
readingsSingleUpdate( $hash, "DIFFDIRECTION", "down", 1 );
}
else
{
readingsSingleUpdate( $hash, "DIFFDIRECTION", "no_tendency", 1 );
}
}
if ($debugmode > 0){
readingsSingleUpdate( $hash, "Debug-DIFF-Event-History", $hash->{helper}{eventhistory}{$eventhistorie}, 1 );
readingsSingleUpdate( $hash, "Debug-DIFF-Summary", $finaldiff1, 1 );
}
}
# DIFF ende ##########################
#Function TEND
if ( $funktionsstringtend =~ m/(TEND)(.*)/ ) {
my $finaltend;
$vergloperand = $2;
$vergloperand = 0 if $2 eq "";
my $function = "TEND";
MSwitch_LOG( $name, 5,"$name: \$vergloperand - $vergloperand" );
$ausdruck =~ m/.*?([<>]).*?(\d.*)/;
my $rechenzeichen = $1;
my $vergleichswert = $2;
my $anzahl =$vergloperand; # anzahl der getesteten events aus historia
my $anzahl1 =$vergloperand * 2; # anzahl der getesteten events aus historia
my @eventfunction = split( / /, $hash->{helper}{eventhistory}{$eventhistorie} );
if ( @eventfunction < $anzahl1 ) {
MSwitch_LOG($name,4,"$name: Funktion TEND erkannt-> nicht genug Daten für berechnung vorhanden"
);
$finaltend ="Funktionberechnung TENDENCY<br>Berechnung nicht möglich, nicht genug Daten vorhanden";
$hash->{helper}{eventhistory}{TENDENCY} = $finaltend;
readingsSingleUpdate( $hash, "TENDENCY", 'false', 1 );
readingsSingleUpdate( $hash, "Debug-TENDENCY-Result", 'FALSE - nicht genug Daten für berechnung vorhanden. Benötigt:'.$anzahl1.' Vorhanden:'.@eventfunction, 1 ) if ($debugmode > 0);
}
else {
my $wert1 = 0;
my $wert2 = 0;
my $count = 0;
my @wertpaar1;
my @wertpaar2;
foreach (@eventfunction) {
last if $count >= $anzahl1;
$wert1 = $wert1 + $_ if $count < $anzahl;
push (@wertpaar1,$_) if $count < $anzahl;
$wert2 = $wert2 + $_ if $count >= $anzahl;
push (@wertpaar2,$_) if $count >= $anzahl;
$count++;
}
$wert1 = $wert1 / $anzahl;
$wert2 = $wert2 / $anzahl;
my $tendenz = 'notendenz';
MSwitch_LOG( $name, 5, "$name: neueres wertepaar wert1: $wert1" );
MSwitch_LOG( $name, 5, "$name: aelteres wertepaar wert2: $wert2" );
MSwitch_LOG( $name, 5, "$name: $wert1<$wert2 -> down" );
MSwitch_LOG( $name, 5, "$name: $wert1>$wert2 -> up" );
$tendenz = "down" if $wert1 < $wert2;
$tendenz = "up" if $wert1 > $wert2;
my $tendenzwert = abs( $wert1 - $wert2 );
MSwitch_LOG($name,5,"$name: geforderte tendenz als rechenzeichen: $rechenzeichen");
my $tendenzgefordert = "no_entry";
$tendenzgefordert = "up" if $rechenzeichen eq ">";
$tendenzgefordert = "down" if $rechenzeichen eq "<";
my $tendenzwertgefordert;
$tendenzwertgefordert = $vergleichswert;
if ( !defined $hash->{helper}{eventhistory}{TENDlast}
{$tendenzgefordert} )
{
$hash->{helper}{eventhistory}{TENDlast}{$tendenzgefordert}
= "not_set";
# mögliche zustände: not_set / set
}
# debug
if ($debugmode > 0){
readingsSingleUpdate( $hash, "Debug-TENDENCY-Wert-Ist", $tendenzwert, 1 );
readingsSingleUpdate( $hash, "Debug-TENDENCY-Wert-Soll", $tendenzwertgefordert, 1 );
readingsSingleUpdate( $hash, "Debug-TENDENCY-Event-History", $hash->{helper}{eventhistory}{$eventhistorie}, 1 );
if ( defined $hash->{helper}{eventhistory}{TENDlast}{$tendenzgefordert} )
{
readingsSingleUpdate( $hash, "Debug-TENDENCY-Schaltung-erfolgt", $hash->{helper}{eventhistory}{TENDlast}{$tendenzgefordert}, 1 );
}else
{
readingsSingleUpdate( $hash, "Debug-TENDENCY-Schaltung-erfolgt", "not_set", 1 );
}
readingsSingleUpdate( $hash, "Debug-TENDENCY-Wertepaar-1", "@wertpaar1", 1 );
readingsSingleUpdate( $hash, "Debug-TENDENCY-Wertepaar-2", "@wertpaar2", 1 );
readingsSingleUpdate( $hash, "Debug-TENDENCY-Wertepaar-Schnitt-1", $wert1, 1 );
readingsSingleUpdate( $hash, "Debug-TENDENCY-Wertepaar-Schnitt-2", $wert2, 1 );
readingsSingleUpdate( $hash, "Debug-TENDENCY-Soll-Richtung", $tendenzgefordert, 1 );
}
#
my $tendenzsetsoon =$hash->{helper}{eventhistory}{TENDlast}{$tendenzgefordert};
# verfügbare werte
MSwitch_LOG( $name, 5,"$name: aktuelle tendenz: $tendenz" );
MSwitch_LOG( $name, 5,"$name: geforderte tendenz: $tendenzgefordert" );
MSwitch_LOG( $name, 5,"$name: aktueller tendenzwert: $tendenzwert" );
MSwitch_LOG($name,5,"$name: geforderter tendenzwert: groesser $tendenzwertgefordert");
MSwitch_LOG( $name, 5,"$name: Tendenz geschaltet ?: $tendenzsetsoon" );
# abbruch wenn tendenzwert unter gefordertem wert
MSwitch_LOG($name,5,"$name: Tendenzpaar $tendenzwert < $tendenzwertgefordert");
if ( $tendenzwert < $tendenzwertgefordert ) {
MSwitch_LOG( $name,4,"$name: TEND Abbruch, geforderter Tendenzumkehrwert nicht erreicht.");
$finaltend ="Funktionberechnung DIFFERENCE<br>geforderter Tendenzumkehrwert nicht erreicht";
$hash->{helper}{eventhistory}{TENDENCY} = $finaltend;
readingsSingleUpdate( $hash, "TENDENCY", 'false', 1 );
readingsSingleUpdate( $hash, "Debug-TENDENCY-Result", 'FALSE - geforderter Tendenzumkehrwert nicht erreicht', 1 ) if ($debugmode > 0);
}
elsif ( $tendenzgefordert ne $tendenz )
# löschen des gesetzten bereits geschaltet tags bei umgekehrter tendenz und abbrechen
{
#$tendenzgefordert
#$tendenz
$hash->{helper}{eventhistory}{TENDlast}{$tendenzgefordert}
= "not_set";
MSwitch_LOG($name,4,"$name: TENDenzumkehr in nicht geforgerte Richtung erkannt loesche bereits 'gesetzt' Tag .");
$finaltend ="TENDenzumkehr in nicht geforderte Richtung erkannt loesche bereits 'gesetzt' Tag ";
$hash->{helper}{eventhistory}{TENDENCY} = $finaltend;
readingsSingleUpdate( $hash, "TENDENCY", 'false', 1 );
readingsSingleUpdate( $hash, "Debug-TENDENCY-Result", 'FALSE - TENDenzumkehr entgegen geforderter Richtung erkannt loesche bereits gesetzt Tag', 1 ) if ($debugmode > 0);
}
elsif ( $tendenzsetsoon eq "set" )
##
## zustand hier umschaltwert nicht erreicht ausgeschlossen - richtungsumkehr in nicht gefordrte richtung ausgeschlossen
##
## zustandsmöglichkeiten ab hier richtige richtung erkannt - schon gesetzt/nicht gesetzt unklar
## aktion ab hier: 'false' liefern falls 'bereits gesetzt Tag' existiert 'set'
## aktion ab hier: 'true' liefern und 'bereits gesetzt Tag' setzen falls auf 'not_set'
# geforderte tendenz erkannt aber bereits geschaltet
{
MSwitch_LOG($name,4,"$name: TEND geforderte Tendenz erkannt, Schaltbefehl ist bereits erfolgt. Warte auf Richtungsumkehr");
$finaltend ="TEND geforderte Tendenz erkannt, Schaltbefehl ist bereits erfolgt. Warte auf Richtungsumkehr";
$hash->{helper}{eventhistory}{TENDENCY} = $finaltend;
readingsSingleUpdate( $hash, "TENDENCY", 'false', 1 );
readingsSingleUpdate( $hash, "Debug-TENDENCY-Result", 'FALSE - Tendenz erkannt, Schaltbefehl ist bereits erfolgt. Warte auf Richtungsumkehr', 1 ) if ($debugmode > 0);
}
elsif ( $tendenzsetsoon eq "not_set" )
{
MSwitch_LOG($name,3,"$name: TEND geforderte Tendenz erkannt, Schaltbefehl erfolgt.");
$hash->{helper}{eventhistory}{TENDlast}{$tendenzgefordert}
= "set";
$finaltend =
"TEND geforderte Tendenz erkannt, Schaltbefehl erfolgt.";
$hash->{helper}{eventhistory}{TENDENCY} = $finaltend;
readingsSingleUpdate( $hash, "TENDENCY", 'true', 1 );
readingsSingleUpdate( $hash, "Debug-TENDENCY-Result", 'TRUE - geforderte Tendenz erkannt, Schaltbefehl erfolgt', 1 ) if ($debugmode > 0);
}
}
}
#######################################
#Function AVG
if ( $funktionsstringavg =~ m/(AVG)(.*)/ ) {
my $finalavg;
MSwitch_LOG( $name, 5, "$name: #########################" );
MSwitch_LOG( $name, 5,
"$name: Checkconrdition - Funktion AVG erkannt" );
$vergloperand = $2;
$vergloperand = 1 if $2 eq "";
my $function = "AVG";
MSwitch_LOG( $name, 5,
"$name: funktionsstringavg - $funktionsstringavg" );
$ausdruck =~ m/.*?([<>]).*?(\d.*)/;
my $rechenzeichen = $1;
my $vergleichswert = $2;
MSwitch_LOG( $name, 5,
"$name: \$vergloperand - $vergloperand" );
MSwitch_LOG( $name, 5, "$name: \$function - $function" );
MSwitch_LOG( $name, 5,
"$name: \$eventhistorie - $eventhistorie" );
MSwitch_LOG( $name, 5, "$name: \$ausdruck - $ausdruck" );
MSwitch_LOG( $name, 5,
"$name: \$rechenzeichen - $rechenzeichen" );
MSwitch_LOG( $name, 5,
"$name: \$vergleichswert - $vergleichswert" );
my @eventfunction =
split( / /, $hash->{helper}{eventhistory}{$eventhistorie} );
if ( @eventfunction < $vergloperand ) {
MSwitch_LOG( $name, 4,
"$name: Funktion AVERAGE erkannt-> nicht genug Daten fuer berechnung vorhanden. Gefordert: $vergloperand Vorhanden: "
. @eventfunction );
$finalavg =
"Funktionberechnung AVERAGE<br>Berechnung nicht möglich, nicht genug Daten vorhanden";
$hash->{helper}{eventhistory}{AVERAGE} = $finalavg;
readingsSingleUpdate( $hash, "AVERAGE", 'false', 1 );
}
else {
my $wert = 0;
my $count = 0;
my @finalarray;
foreach (@eventfunction) {
last if $count >= $vergloperand;
$wert = $wert + $_;
push @finalarray, $_;
$count++;
}
my $schnitt = $wert / $vergloperand;
MSwitch_LOG( $name, 5,
"$name: $vergloperand Werte @finalarray " );
MSwitch_LOG( $name, 5, "$name: Schnitt: $schnitt" );
my $ret;
my $erg =
"\$ret ='false';\$ret = 'true' if "
. $schnitt
. $rechenzeichen
. $vergleichswert
. ";return \$ret;";
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
my $erg1 = eval $erg;
MSwitch_LOG( $name, 5, "$name: Teststring: $erg" );
MSwitch_LOG( $name, 5, "$name: Teststring ergebniss: $erg1" );
$finalavg =
"Funktionberechnung AVERAGE<br>Herangezogene Werte: "
. @finalarray
. "<br>(@finalarray)<br>Schnitt : $schnitt<br>Wahr wenn $schnitt $rechenzeichen $vergleichswert<br>Ergebniss: $erg1";
$hash->{helper}{eventhistory}{AVERAGE} = $finalavg;
readingsSingleUpdate( $hash, "AVERAGE", $erg1, 1 );
}
}
###########################
#Function INC
if ( $funktionsstringinc =~ m/(INC)(.*)/ ) {
my $finalinc;
MSwitch_LOG( $name, 5, "$name: #########################" );
MSwitch_LOG( $name, 5,
"$name: Checkconrdition - Funktion INC erkannt" );
$vergloperand = $2;
$vergloperand = 1 if $2 eq "";
my $function = "INC";
$ausdruck =~ m/.*?([<>]).*?(\d.*)/;
my $rechenzeichen = $1;
my $vergleichswert = $2;
MSwitch_LOG( $name, 5,
"$name: \$vergloperand - $vergloperand" );
MSwitch_LOG( $name, 5, "$name: \$function - $function" );
MSwitch_LOG( $name, 5,
"$name: \$eventhistorie - $eventhistorie" );
MSwitch_LOG( $name, 5, "$name: \$ausdruck - $ausdruck" );
MSwitch_LOG( $name, 5,
"$name: \$rechenzeichen - $rechenzeichen" );
MSwitch_LOG( $name, 5,
"$name: \$vergleichswert - $vergleichswert" );
my @eventfunction =
split( / /, $hash->{helper}{eventhistory}{$eventhistorie} );
if ( @eventfunction < $vergloperand ) {
MSwitch_LOG( $name, 4,
"$name: Funktion INCREASE erkannt-> nicht genug Daten fuer berechnung vorhanden. Gefordert: $vergloperand Vorhanden: "
. @eventfunction );
$finalinc =
"Funktionberechnung INCREASE<br>Berechnung nicht möglich, nicht genug Daten vorhanden";
$hash->{helper}{eventhistory}{INCREASE} = $finalinc;
readingsSingleUpdate( $hash, "INCREASE", 'false', 1 );
}
else {
my $wert = 0;
my $wert2 = 0;
my $count = 0;
my @finalarray;
foreach (@eventfunction) {
MSwitch_LOG( $name, 1,
"$name: foreach $_ | count - $count" );
last if $count > $vergloperand;
$wert = $_ if $count == 0;
$wert2 = $wert2 + $_ if $count > 0;
push @finalarray, $_ if $count > 0;
$count++;
}
MSwitch_LOG( $name, 5,
"$name: schnitt $wert2 / $vergloperand" );
my $schnitt = $wert2 / $vergloperand;
my $steigung = ( $wert - $schnitt ) / $wert2 * 100;
MSwitch_LOG( $name, 5, "$name: steigung $steigung" );
MSwitch_LOG( $name, 5, "$name: schnitt $schnitt" );
MSwitch_LOG( $name, 5, "$name: wert $wert" );
MSwitch_LOG( $name, 5, "$name: wert2 $wert2" );
my $testdirection = $wert - $schnitt;
if ( $testdirection <= 0 ) {
# abnahme erkannt / abbruch
$finalinc =
"Funktionberechnung INCREASE<br>Herangezogene Werte: letzter Wert "
. $wert
. " Schnitt der vorherigen Werte "
. $schnitt
. "<br>( @finalarray )<br>erkannte Abnahme: $steigung%<br>Wahr wenn $steigung $rechenzeichen $vergleichswert bei Zunnahme <br>Ergebniss: false";
MSwitch_LOG( $name, 4,
"$name: Abnehmende Aenderung - Ergebniss false" );
$hash->{helper}{eventhistory}{INCREASE} = $finalinc;
readingsSingleUpdate( $hash, "INCREASE", 'false', 1 );
}
else {
my $ret;
my $erg =
"\$ret ='false';\$ret = 'true' if "
. $steigung
. $rechenzeichen
. $vergleichswert
. ";return \$ret;";
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
my $erg1 = eval $erg;
$finalinc ="Funktionberechnung INCREASE<br>Herangezogene Werte: letzter Wert "
. $wert
. " Schnitt der vorherigen Werte "
. $schnitt
. "<br>( @finalarray )<br>erkannte Steigung: $steigung %<br>Wahr wenn $steigung $rechenzeichen $vergleichswert bei Zunnahme <br>Ergebniss: $erg1";
$hash->{helper}{eventhistory}{INCREASE} = $finalinc;
readingsSingleUpdate( $hash, "INCREASE", $erg1, 1 );
}
}
####
}
}
}
##############
# $condition
# perlersetzung
##############
my $x = 0;
my $field = "";
my $SELF = $name;
while ( $condition =~ m/(.+)\[(ReadingsVal|ReadingsNum|ReadingsAge|AttrVal|InternalVal):(.+):(.+):(.?)\](.+)/ )
{
MSwitch_LOG( "Debug ", 5,"condition eingang :".$condition . __LINE__ );
my $firstpart = $1;
my $readingtyp = $2;
my $readingdevice = $3;
my $readingname = $4;
my $readingstandart = $5;
my $lastpart = $6;
$readingdevice =~ s/\$SELF/$name/;
my $reading;
$reading = ReadingsVal( $readingdevice, $readingname, $readingstandart ) if $readingtyp eq "ReadingsVal";
$reading = ReadingsNum( $readingdevice, $readingname, $readingstandart ) if $readingtyp eq "ReadingsNum";
$reading = ReadingsAge( $readingdevice, $readingname, $readingstandart ) if $readingtyp eq "ReadingsAge";
$reading = AttrVal( $readingdevice, $readingname, $readingstandart ) if $readingtyp eq "AttrVal";
$reading = InternalVal( $readingdevice, $readingname, $readingstandart ) if $readingtyp eq "InternalVal";
$condition = $firstpart . $reading . $lastpart;
$x++;
last if $x > 10; #notausstieg
}
$x = 0;
while ( $condition =~ m/(.*)\{(.+)\}(.*)/ ) #z.b $WE
{
my $firstpart = $1;
my $secondpart = $2;
my $lastpart = $3;
my $exec = "\$field = " . $2;
if ( $secondpart =~ m/(!\$.*|\$.*)/ )
{
$field = $secondpart;
}
else
{
eval($exec);
}
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
}
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;
my $evtcmd1 = ReadingsVal( $name, 'EVT_CMD1_COUNT', '0' );
my $evtcmd2 = ReadingsVal( $name, 'EVT_CMD2_COUNT', '0' );
$condition =~ s/\$EVT_CMD1_COUNT/$evtcmd1/ig;
$condition =~ s/\$EVT_CMD2_COUNT/$evtcmd2/ig;
MSwitch_LOG( $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 ) {
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eval line" . __LINE__ );
}
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;
}
$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; #https://www.regular-expressions.info/refadv.html
#$condition =~ s/(?<!\!)=(?!~)/==/ig; #https://www.dev-insider.de/regex-zum-suchen-und-ersetzen-nutzen-a-840347/
END:
# teste auf typ
my $count = 0;
my $testarg;
my @newargarray;
foreach my $args (@argarray) {
$testarg = $args;
if ( $testarg =~ '.*:h\d{1,3}' )
{
# historyformatierung erkannt - auswerten über sub
# in der regex evtl auf zeilenende definieren
$newargarray[$count] = MSwitch_Checkcond_history( $args, $name );
$count++;
next;
}
$testarg =~ s/[0-9]+//gs;
if ( $testarg eq '[:-:|]' || $testarg eq '[:-:]' ) {
# timerformatierung erkannt - auswerten über sub
# my $param = $argarray[$count];
$newargarray[$count] = MSwitch_Checkcond_time( $args, $name );
}
elsif ( $testarg =~ '[.*:.*]' ) {
# 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, 5,
"$name: Checkcondition - finalstring -> " . $finalstring );
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
MSwitch_LOG( $name, 0,
"$name: finalstring -> " . $finalstring );
}
my $ret = eval $finalstring;
if ($@) {
MSwitch_LOG( $name, 1, "$name EERROR: $@ " . __LINE__ );
MSwitch_LOG( $name, 1, "$name $finalstring " . __LINE__ );
$hash->{helper}{conditionerror} = $@;
return 'false';
}
MSwitch_LOG( $name, 6, "$name: Checkcondition - return -> " . $ret );
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;
my $test;
if ( defined $reading[2] and $reading[2] eq "d" ) {
$test = ReadingsNum( $reading[0], $reading[1], 'undef' );
$return ="ReadingsNum('$reading[0]', '$reading[1]', 'undef')"; #00:00:00
}
else {
$test = ReadingsVal( $reading[0], $reading[1], 'undef' );
$return ="ReadingsVal('$reading[0]', '$reading[1]', 'undef')"; #00:00:00
}
MSwitch_LOG( $name, 6, "$name: MSwitch_Checkcond_state OUT -> " . $return );
return $return;
}
####################
sub MSwitch_Checkcond_time($$) {
my ( $condition, $name ) = @_;
$condition =~ s/\[//;
$condition =~ s/\]//;
my $hash = $defs{$name};
my $adday = 0;
my $days = '';
my $daycondition = '';
( $condition, $days ) = split( /\|/, $condition )
if index( $condition, "|", 0 ) > -1;
my ( $tformat1, $tformat2 ) = split( /-/, $condition );
my ( $t11, $t12 ) = split( /:/, $tformat1 );
my ( $t21, $t22 ) = split( /:/, $tformat2 );
my $hour1 = sprintf( "%02d", $t11 );
my $min1 = sprintf( "%02d", $t12 );
my $hour2 = sprintf( "%02d", $t21 );
my $min2 = sprintf( "%02d", $t22 );
# fehlersuche
if ( $hour1 !~ m/\d\d/
or $min1 !~ m/\d\d/
or $hour2 !~ m/\d\d/
or $min2 !~ m/\d\d/ )
{
MSwitch_LOG( $name, 5, "Fehlersuche1 $name: condition" . $condition );
MSwitch_LOG( $name, 5, "Fehlersuche1 $name: hour1 " . $hour1 );
MSwitch_LOG( $name, 5, "Fehlersuche1 $name: min1 " . $min1 );
MSwitch_LOG( $name, 5, "Fehlersuche1 $name: hour2 " . $hour2 );
MSwitch_LOG( $name, 5, "Fehlersuche1 $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;
my $timecond2;
my ( $tday, $tmonth, $tdate, $tn ); #my ($tday,$tmonth,$tdate,$tn,$time1);
$timecondtest = localtime;
$timecondtest =~ s/\s+/ /g;
( $tday, $tmonth, $tdate, $tn, $time1 ) = split( / /, $timecondtest );
delete( $hash->{helper}{wrongtimespeccond} );
if ( $hour1 > 23 || $min1 > 59 || $hour2 > 23 || $min2 > 59 ) {
$hash->{helper}{wrongtimespeccond} =
"ERROR: wrong timespec in condition. $condition";
my $return = "(0 < 0 && 0 > 0)";
MSwitch_LOG(
$name,
1,
"$name: ERROR wrong format in Condition $condition Format must be HH:MM."
);
return $return;
}
$timecond1 = timelocal( '00', $min1, $hour1, $tdate, $tmonth, $time1 );
$timecond2 = timelocal( '00', $min2, $hour2, $tdate, $tmonth, $time1 );
my $timeaktuell =
timelocal( '00', $aktmin, $akthour, $date, $month, $time1 );
### new
if ( $timeaktuell < $timecond2 && $timecond2 < $timecond1 ) {
use constant SECONDS_PER_DAY => 60 * 60 * 24;
$timecond1 = $timecond1 - SECONDS_PER_DAY;
$adday = 1;
}
if ( $timeaktuell > $timecond1 && $timecond2 < $timecond1 )
{
use constant SECONDS_PER_DAY => 60 * 60 * 24;
$timecond2 = $timecond2 + SECONDS_PER_DAY;
$adday = 1
}
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_history($$) {
my ( $condition, $name ) = @_;
$condition =~ s/\[//;
$condition =~ s/\]//;
my $hash = $defs{$name};
my $return;
my $seq;
my $x=0;
my $log = $hash->{helper}{eventlog};
if ($hash->{helper}{history}{eventberechnung} ne "berechnet") # teste auf vorhandene berechnung
{
foreach $seq ( sort{$b <=> $a} keys %{$log} )
{
my @historyevent = split( /:/, $hash->{helper}{eventlog}{$seq} );
$hash->{helper}{history}{event}{$x}{EVENT} = $historyevent[1].":".$historyevent[2];
$hash->{helper}{history}{event}{$x}{EVTFULL} = $hash->{helper}{eventlog}{$seq};
$hash->{helper}{history}{event}{$x}{EVTPART1} = $historyevent[0];
$hash->{helper}{history}{event}{$x}{EVTPART2} = $historyevent[1];
$hash->{helper}{history}{event}{$x}{EVTPART3} = $historyevent[2];
$x++;
}
$hash->{helper}{history}{eventberechnung} ="berechnet";
}
my @historysplit = split( /\:/, $condition );
my $historynumber = $historysplit[1];
#$historynumber =~ s/[0-9]+//gs;
$historynumber =~ s/[a-z]+//gs;
# den letzten inhalt ernittel ( anzahl im array )
my $inhalt = $hash->{helper}{history}{event}{$historynumber}{$historysplit[0]}; #????
$return ="'".$inhalt."'";
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};
delete( $hash->{helper}{wrongtimespec} );
# 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;
$condition =~ s/\$name/$Name/g;
$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;
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eval line" . __LINE__ );
}
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', 'Notify' ) eq "Notify" ) {
$timer[0] = '';
$timer[1] = '';
}
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) 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;
my $y = 0;
while ( $option =~
m/(.*?)([0-9]{2}):([0-9]{2})\*([0-9]{2}:[0-9]{2})-([0-9]{2}:[0-9]{2})\|?([0-9!\$we]{0,7})(.*)?/
)
{
$y++;
last if $y > 20;
my $part1 = '';
$part1 = $1 . ' ' if defined $1;
my $part6 = '';
if ( defined $6 && $6 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 );
if ( substr( $t1, 0, 2 ) > 23 || substr( $t1, 3, 2 ) > 59 ) {
$hash->{helper}{wrongtimespec} =
"ERROR: wrong timespec. $option $i";
return;
}
my $timecond1 = timelocal( '00',
substr( $t1, 3, 2 ),
substr( $t1, 0, 2 ),
$tdate, $tmonth, $time1 );
if ( substr( $t2, 0, 2 ) > 23 || substr( $t2, 3, 2 ) > 59 ) {
$hash->{helper}{wrongtimespec} =
"ERROR: wrong timespec. $option $i";
return;
}
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 = "";
next LOOP3 if $option1 eq "";
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} );
if ( $time ne "undef:00" and (substr( $time, 0, 2 ) > 23 || substr( $time, 3, 2 ) > 59) ) {
$hash->{helper}{wrongtimespec} =
"ERROR: wrong timespec. $option $i";
return;
}
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) );
if ( defined $hash->{helper}{wrongtimespec}
and $hash->{helper}{wrongtimespec} ne "" )
{
my $ret = $hash->{helper}{wrongtimespec};
$ret .= " - Timer werden nicht ausgefuehrt ";
MSwitch_LOG( $Name, 1, $Name . ' ' . $ret );
return;
}
my @string = split( /ID/, $param );
my $showevents = AttrVal( $Name, "MSwitch_generate_Events", 1 );
$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', '' );
MSwitch_LOG(
$Name,
1,
$Name
. ' Versionskonflikt, aktion abgebrochen ! erwartet:'
. $vupdate
. ' vorhanden:'
. $ver
);
return;
}
$hash->{IncommingHandle} = 'fromtimer' if AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) ne "Dummy";
readingsSingleUpdate( $hash, "last_activation_by", 'timer', $showevents );
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";
MSwitch_LOG(
$Name,
3,
"$Name MSwitch_Execute_Timer: Befehlsausfuehrung -> $cs"
. __LINE__
);
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
MSwitch_LOG( $Name, 6,
"$Name MSwitch_Execute_Timer: Fehler bei Befehlsausfuehrung ERROR $Name: $errors "
. __LINE__ );
}
return;
}
if ( $param eq '2' ) {
my $cs = "set $Name off";
MSwitch_LOG(
$Name,
3,
"$Name MSwitch_Execute_Timer: Befehlsausfuehrung -> $cs"
. __LINE__
);
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
MSwitch_LOG( $Name, 6,
"$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 ) {
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
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 ( $eventin ne $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];
}
else {
my @eventin = split( /:/, $eventin );
if ($eventin[0] ne "MSwitch_self")
{
$dev_hash = $defs{ ReadingsVal( $Name, 'Trigger_device', '' ) };
$hash->{helper}{testevent_device} =
ReadingsVal( $Name, 'Trigger_device', '' );
$hash->{helper}{testevent_event} = $eventin[0] . ":" . $eventin[1];
}
else
{
$dev_hash = $hash;
$hash->{helper}{testevent_device} =$Name;
$hash->{helper}{testevent_event} = $eventin[1] . ":" . $eventin[2];
}
}
}
if ( $eventin eq $hash ) {
my $logout = $hash->{helper}{writelog};
$logout =~ s/:/[#dp]/g;
my $triggerdevice =
ReadingsVal( $Name, 'Trigger_device', 'no_trigger' );
if ( ReadingsVal( $Name, 'Trigger_device', '' ) eq "all_events" ) {
$dev_hash = $hash;
$hash->{helper}{testevent_device} = 'Logfile';
$hash->{helper}{testevent_event} = "writelog:" . $logout;
}
elsif ( ReadingsVal( $Name, 'Trigger_device', '' ) eq "Logfile" ) {
$dev_hash = $hash;
$hash->{helper}{testevent_device} = 'Logfile';
$hash->{helper}{testevent_event} = "writelog:" . $logout;
}
else {
$dev_hash = $defs{ ReadingsVal( $Name, 'Trigger_device', '' ) };
$hash->{helper}{testevent_device} =
ReadingsVal( $Name, 'Trigger_device', '' );
$hash->{helper}{testevent_event} = "writelog:" . $logout;
}
}
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;
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
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) {
next if $key eq "last_exec_cmd";
my $tmp = ReadingsVal( $testdevice, $key, 'undef' );
print BACKUPDATEI "#S $key -> $tmp\n";
}
my %keys;
foreach my $attrdevice ( keys %{ $attr{$testdevice} } ) #geht
{
my $inhalt =
"#A $attrdevice -> " . AttrVal( $testdevice, $attrdevice, '' );
$inhalt =~ s/\n/#[nla]/g;
print BACKUPDATEI $inhalt . "\n";
#CHANGE einspielen ungeprüft
}
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
{
next if $1 eq "last_exec_cmd";
if ( $2 eq 'undef' || $2 eq '' || $2 eq ' ' ) {
}
else {
$Zeilen1 = $2;
readingsSingleUpdate( $hash, "$1", $Zeilen1, 0 );
}
}
if ( $_ =~ m/#A (.*) -> (.*)/ ) # setattr
{
my $inhalt = $2;
my $aktattr = $1;
$inhalt =~ s/#\[nla\]/\n/g;
$inhalt =~ s/;/;;/g;
my $cs = "attr $Name $aktattr $inhalt";
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
MSwitch_LOG( $Name, 5, "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;
$tmp =~ s/\n/#[nl]/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;
$devicesplit[1] =~ s/'/\\'/g;
$devicesplit[3] =~ 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
$out .= "\\n----- Rawdefinitionen -----\\n";
#my $raw = list Name;
my $cs = "list -R $Name";
my $answer= AnalyzeCommandChain( undef, $cs );
$answer =~ s/\n/\\n/g;
$out .=$answer;
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) {
next if $key eq "last_exec_cmd";
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;
}
$tmp =~ s/#\[tr\]/ /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;
$tmp =~ s/"/\\"/g;
#CHaNGE einspielen noch ungeprüft
$tmp =~ s/\n/#[nl]/g;
$tmp =~ s/\t//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.<br><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 $inhalt = $2;
my $aktattr = $1;
$inhalt =~ s/#\[nla\]/\n/g;
$inhalt =~ s/;/;;/g;
my $cs = "attr $Name $aktattr $inhalt";
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
MSwitch_LOG( $testdevice, 1, "ERROR $cs" );
}
}
}
my $cs = "attr $testdevice verbose 0";
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
MSwitch_LOG( $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/\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;
delete( $hash->{READINGS} );
$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
{
# für usserattribute zweiten durchgang starten , dafür alle befehle in ein array und nochmals einlesen userattr
my $na = $1;
my $ih = $2;
$ih =~ s/#\[nl\]/\n/g;
if ($na eq "userattr")
{
fhem("attr $name $na $ih");
}
else{
$hash->{helper}{safeconf}{$na} = $ih;
}
}
################################
# if ( $_ =~ m/#A (.*) -> (.*)/ ) # setattr
# {
# # für usserattribute zweiten durchgang starten , dafür alle befehle in ein array und nochmals einlesen userattr
# my $na = $1;
# my $ih = $2;
# $ih =~ s/#\[nl\]/\n/g;
# #
# MSwitch_LOG( $name , 0, "line: $na" );
# if ($na eq "devStateIcon")
# {
# #MSwitch_LOG( $name , 0, "set over fhem: $name $na $ih" );
# $attr{$name}{$na} = $ih;
# }
# else{
# #MSwitch_LOG( $name , 0, "set over attr: $name $na $ih" );
# fhem("attr $name $na $ih");
# }
# }
####################################
}
my $testreading = $hash->{helper}{safeconf};
my @areadings = ( keys %{$testreading} );
foreach my $key (@areadings) {
if ($key eq "devStateIcon")
{
$attr{$name}{$key} = $hash->{helper}{safeconf}{$key};
}
else{
fhem("attr $name $key ".$hash->{helper}{safeconf}{$key});
}
}
################# helperkeys abarbeiten #######
delete( $hash->{helper}{safeconf} );
delete( $hash->{helper}{mode} );
##############################################
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 );
}
delete( $hash->{helper}{config} );
fhem("deletereading $name EVENTCONF");
# timrer berechnen
MSwitch_Createtimer($hash);
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/{.*}/ ) {
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
eval($cs);
if ($@) {
MSwitch_LOG( $name, 6,
"$name MSwitch_repeat: ERROR $cs: $@ " . __LINE__ );
}
}
else {
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
MSwitch_LOG( $name, 6,
"$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 - $savemodetime ) # für 10 sekunden
{
delete( $hash->{helper}{savemode}{$a} );
$count = $count - 1;
}
}
$hash->{helper}{savemode}{$time1} = $time1;
if ( $count > $savecount ) {
MSwitch_LOG(
$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 );
my $showevents = AttrVal( $name, "MSwitch_generate_Events", 1 );
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];
$event =~ s/\[dp\]/:/g;
$evtfull =~ s/\[dp\]/:/g;
$evtparts[1] =~ s/\[dp\]/:/g if $evtparts[1];
$evtparts[2] =~ s/\[dp\]/:/g if $evtparts[2];
$event =~ s/\[dst\]/"/g;
$evtfull =~ s/\[dst\]/"/g;
$evtparts[1] =~ s/\[dst\]/"/g if $evtparts[1];
$evtparts[2] =~ s/\[dst\]/"/g if $evtparts[2];
$event =~ s/\[#dp\]/:/g;
$evtfull =~ s/\[#dp\]/:/g;
$evtparts[1] =~ s/\[#dp\]/:/g if $evtparts[1];
$evtparts[2] =~ s/\[#dp\]/:/g if $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' )
if ( $event ne '' && $event ne "last_activation_by:event"
&& $hash->{eventsave} ne 'saved' )
{
$hash->{eventsave} = "saved";
readingsBeginUpdate($hash);
# readingsBulkUpdate( $hash, "EVENT", $event, $showevents )
readingsBulkUpdate( $hash, "EVENT", $event, 1 )
if $event ne '';
readingsBulkUpdate( $hash, "EVTFULL", $evtfull, $showevents )
if $evtfull ne '';
readingsBulkUpdate( $hash, "EVTPART1", $evtparts[0], $showevents )
if $evtparts[0] ne '';
readingsBulkUpdate( $hash, "EVTPART2", $evtparts[1], $showevents )
if $evtparts[1] ne '';
readingsBulkUpdate( $hash, "EVTPART3", $evtparts[2], $showevents )
if $evtparts[2] ne '';
readingsBulkUpdate( $hash, "last_event", $event, $showevents )
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";
MSwitch_LOG( $name, 6,
"$name: device hat die ID $device - $devicedetails{$key1}" );
MSwitch_LOG( $name, 6, "$name: zulaessige IDS - @execids " );
if ( !grep { $_ eq $devicedetails{$key1} } @execids ) {
MSwitch_LOG( $name, 6, "$name: abbruch -> unzulaessige ID " );
next;
}
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;
@devices = () 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};
$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', '' );
}
}
elsif ( $not eq "MSwitch_Self" ) {
$hash->{NOTIFYDEV} = $name;
}
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);
my $write = localtime().": -> ".$cs;
readingsSingleUpdate( $hash, "Debug", $write, 1 );
}
##################################
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) {
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_check_setmagic_i($$) {
my ( $hash, $msg ) = @_;
my $name = $hash->{NAME};
# setmagic ersetzung
MSwitch_LOG( $name, 5, "vor freecmd: " . $msg );
my $x = 0;
while ( $msg =~ m/(.*)\[(.*)\:(.*)\:i\](.*)/ ) {
$x++; # notausstieg notausstieg
last if $x > 20; # notausstieg notausstieg
my $setmagic = ReadingsVal( $2, $3, 0 );
$msg = $1 . $setmagic . $4;
}
$x = 0;
while ( $msg =~ m/(.*)\[(.*)\:(.*)\:d\:i\](.*)/ ) {
$x++; # notausstieg notausstieg
last if $x > 20; # notausstieg notausstieg
my $setmagic = ReadingsNum( $2, $3, 0 );
$msg = $1 . $setmagic . $4;
}
MSwitch_LOG( $name, 5, "nach freecmd: " . $msg );
return $msg;
}
#################################
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 );
}
#####################################
sub MSwitch_del_savedcmds($) {
my ($hash) = @_;
my $name = $hash->{NAME};
my $savecmds =
AttrVal( $name, 'MSwitch_DeleteCMDs', $deletesavedcmdsstandart );
if ( exists $hash->{helper}{last_devicecmd_save}
&& $hash->{helper}{last_devicecmd_save} < ( time - $deletesavedcmds )
&& $savecmds ne "manually" )
{
delete( $hash->{helper}{devicecmds1} );
delete( $hash->{helper}{last_devicecmd_save} );
}
}
#########################################
##################################
# Eventlog
sub MSwitch_Eventlog($$) {
my ( $hash, $typ) = @_;
my $Name = $hash->{NAME};
my $out1;
my $seq;
my $x=1;
my $log = $hash->{helper}{eventlog};
if ($typ eq "clear")
{
delete( $hash->{helper}{eventlog} );
delete( $hash->{helper}{tmp} );
delete( $hash->{helper}{history} );# lösche historyberechnung verschieben auf nach abarbeitung conditions
# sequenz
return "ok, alle Daten gelöscht !"
}
if ($typ eq "timeline")
{
$out1= "Eventlog - Timeline<br>---------------------------------------------------------------------------------------------------<br>";
my $y=(keys %{$log})-1;
foreach $seq ( sort keys %{$log} )
{
my $timestamp = FmtDateTime($seq);
$out1.="<input id =\"Checkbox-$x\" name=\"Checkbox-$x\" type=\"checkbox\" value=\"test\" />";
$out1.=$timestamp." ".$hash->{helper}{eventlog}{$seq}." [EVENT/EVTPART1,2,3/EVTFULL:h$y]<br>";
$hash->{helper}{tmp}{keys}{$x} = $seq;
$x++;
$y--;
}
$out1.="<br><input type=\"button\" value=\"delete selected\" onclick=\" javascript: deletelog() \">";
$out1.="<input type='hidden' id='dellog' name='dellog' size='5' value ='".$x."'>";
}
#{$b <=> $a}
if ($typ eq "sequenzformated")
{
my $lastkey;
my $firstkey;
my $tmpseq;
$out1= "Eventlog - sequenzeformated<br>---------------------------------------------------------------------------------------------------<br>";
foreach $seq ( sort keys %{$log} )
{
$firstkey = $seq if $x == 1;
$lastkey = $seq;
$out1.=$hash->{helper}{eventlog}{$seq}." ";
$tmpseq.=$hash->{helper}{eventlog}{$seq}." ";
$x++;
}
chop ($tmpseq);
chop ($out1);
$out1.= "<br>---------------------------------------------------------------------------------------------------<br>";
my $timeneed = int($lastkey-$firstkey)+1;
$out1.= "Time needed for Sequenz = $timeneed Sekunden<br>&nbsp;<br>";
$out1.= "<input name=\"edit\" type=\"button\" value=\"write sequenze to ATTR\" onclick=\" javascript: writeattr() \">";
$out1.= "<br>&nbsp;<br>Folgende Attribute werden gesetzt und evtl. vorhandene Inhalte überschrieben:<br>MSwitch_Sequenz<br>MSwitch_Sequenz_time<br>Die Condition-Abfrage auf Match lautet:<br>[\$SELF:SEQUENCE_Number] eq \"1\"";
$hash->{helper}{tmp}{sequenz} = $tmpseq;
$hash->{helper}{tmp}{sequenztime}= $timeneed;
}
$out1 = "Keine Daten vorhanden " if $x eq "1";
return $out1;
}
#####################################
sub MSwitch_Writesequenz($) {
my ($hash) = @_;
my $name = $hash->{NAME};
my $tmpseq = $hash->{helper}{tmp}{sequenz} ;
my $timeneed =$hash->{helper}{tmp}{sequenztime};
delete( $hash->{helper}{tmp} );
$attr{$name}{MSwitch_Sequenz}=$tmpseq;
$attr{$name}{MSwitch_Sequenz_time}=$timeneed;
return;
}
#############################################
sub MSwitch_delete_singlelog($$) {
my ( $hash, $arg) = @_;
my $Name = $hash->{NAME};
$hash->{helper}{tmp}{deleted} ="on";
chop ($arg);
my @args = split( /,/, $arg );
foreach my $logs (@args) {
my $todelete = $hash->{helper}{tmp}{keys}{$logs};
delete( $hash->{helper}{eventlog}{$todelete} );
}
return $arg;
}
#################################
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> 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: https://wiki.fhem.de/wiki/MSwitch#MSwitch_Random_Time_.28HH:MM:SS-HH:MM:SS.29 </li>
<li> MSwitch_RandomNumber - see Wiki: https://wiki.fhem.de/wiki/MSwitch#MSwitch_Random_Number </li>
<li> MSwitch_Event_Id_Distributor - see Wiki: https://wiki.fhem.de/wiki/MSwitch#MSwitch_Event_Id_Distributor </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. Das Modul übernimmt alle Arten von Schaltvörgängen in Abhängigkei von Bedingungen etc. Es vereint die Funktionalität von diversen Hilfsmodulen unter einem Modul ( z.b DOIF,Notify,At,Watchdog,Dummy etc.)<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<br />
setzt das Device inaktiv</li>
<li>active<br />
setzt das Device aktiv</li>
<li>backup MSwitch<br />
legt eine Backupdatei mit der Konfiguration aller MSwitchdevices an</li>
<li>del_delays<br />
löscht alle anstehenden timer für zeitversetzte Befehle</li>
<li>exec_cmd1<br />
sofortiges Ausführen des Kommandozweiges1</li>
<li>exec_cmd2<br />
sofortiges Ausführen des Kommandozweiges2</li>
<li>fakeevent [event]<br />
simulation eines eingehenden Events</li>
<li>wait [sek]<br />
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>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 /><b>Attribute</b>
<ul>
<li>MSwitch_Help:0,1<br />zeigt Hilfebuttons zu allen relevanten Feldern<br />
</li>
<li>MSwitch_Debug:0,1,2,3,4<br />1. schaltet Prüffelder zu Conditions etc. an
<br />2. Simulationsmode -&nbsp; schreibt alle Aktionen in ein seperates Log, Befehle
werden aber nicht ausgeführt <br />3. schreibt alle Aktionen in ein seperates Log<br />4. reiner Entwicklungsmode (ausführlichere Readings / Layout etc.)
<br /></li>
<li>MSwitch_Expert:0,1<br />1. aktiviert Zusatzoptionenv wi z.B globales triggern, prioritätsauswahl, Befehlswiederholungesn etc.<br />
</li>
<li>MSwitch_Delete_Delays:0,1<br />1. löscht alle anstehenden Delays bei erneutem eintreffen eines erneutem passenden Events<br />
</li>
<li>MSwitch_Include_Devicecmds:0,1<br />1. alles Devices mit eigenem Befehlssatz (set &lt;´DEVICE&gt; ?) werden in affected Devices einbezogen<br />
</li>
<li>MSwitch_Include_Webcmds:0,1<br />1. alles Devices mit vorhandenen WbCmds werden in affected Devices einbezogen<br />
</li>
<li>MSwitch_Include_MSwitchcmds:0,1<br />1. alles Devices mit vorhandenen MSwitchcmds werden in affected Devices einbezogen<br />
</li>
<li>MSwitch_Activate_MSwitchcmds:0,1<br />1. aktiviert in allen Devices das Attribut MSwitchcmds<br />
</li>
<li>MSwitch_Lock_Quickedit:0,1<br />1. aktiviert die sperre des Auswahlfeldes 'affected devices'<br />
</li>
<li>MSwitch_Ignore_Types:<br />Liste aller DeviceTypen , die nicht in den 'affected devices' dargestellt werden'<br />Hier kann eine durch Leerzeichen getrennte Listen vom Modultypen angegeben
werden , die nicht berücksichtigt wird.<br />Lternativ kann eine Selektion nach den Regeln der "devspec" erfolgen. Zu
beachten ist , das die auswahl in diesem fall "negiert" wird, d.H es erfolgt
dann eine Auswahl der zu berücksichtigten Parameter. Die Angabe muss in
diesem Fall in Anführungszeichen gesetzt werden.<br />zB : "TYPE=MSwitch" - berücksichtigt alle Devices vom Typ MSwitch<br />zB : "TYPE!=MSwitch" - unterdrückt alle Devices vom Typ MSwitch<br />
</li>
<li>MSwitch_Trigger_Filter - Liste aller zu ignorierenden Events</li>
<li>MSwitch_Extensions:0,1<br />1. aktiviert zusatzoption Devicetogggle</li>
<li>MSwitch_Startdelay(wert)<br />verzögert den Start von MSwitch nach Fhemstart um die angegebene Zeit in Sekunden . Empfohlen:30 sekunden</li>
<li>MSwitch_Inforoom<br />beinhalttet einen Raumnamen , in dem MSwitches detailiert dargestellt werden</li>
<li>MSwitch_Mode:Full,Notify,Toggle<br />Betriebsmodus des Devices</li>
<li>MSwitch_Condition_Time:0,1<br />1. zuschaltung der Triggerconditions für zeitgesteuertes Auslösen</li>
<li>MSwitch_Safemode:0,1<br />1. bricht alle Aktionen des Devices ab, wenn mehr als 20 Aufrufe pro Sekunde erfolgen.
Sicherheitsoption, um Endlosschleifen zu vermeiden.</li>
<li>MSwitch_RandomTime<br />
siehe Wiki</li>
<li>MSwitch_RandomNumber<br />
siehe Wiki</li>
<li>MSwitch_Read_Log</li>
<li>MSwitch_Generate_Events</li>
<li>MSwitch_Comments</li>
<li>MSwitch_Condition_Time</li>
</ul>
</ul>
=end html_DE
Reference in New Issue View Git Blame Copy Permalink