# 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($$);
##############################
my %sets = (
"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_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"
. " 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;
#. " MSwitch_Develop_Affected:textField-long"
#. " MSwitch_Develop_Trigger:textField-long"
}
####################
sub MSwitch_Rename($) {
# routine nicht in funktion
my ( $new_name, $old_name ) = @_;
my $hash_new = $defs{$new_name};
$modules{MSwitch}{defptr}{$new_name} = $hash_new;
}
#####################################
sub MSwitch_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 ) = @_;
my $hash = $defs{$name};
my $testroom = AttrVal( $name, 'MSwitch_Inforoom', 'undef' );
if ( $testroom ne $room ) { return; }
my $test = AttrVal( $name, 'comment', '0' );
my $info = AttrVal( $name, 'comment', 'No Info saved at ATTR omment' );
my $image = ReadingsVal( $name, 'state', 'undef' );
my $ret = '';
my $devtitle = '';
my $option = '';
my $html = '';
my $triggerc = 1;
my $timer = 1;
my $trigger = ReadingsVal( $name, 'Trigger_device', 'undef' );
my @devaff = split( / /, MSwitch_makeAffected($hash) );
$option .= "affected devices ";
foreach (@devaff)
{
$devtitle .= $_ . ", ";
$option .= "" . $_ . " ";
}
chop($devtitle);
chop($devtitle);
my $affected =
""
. $option
. " ";
# 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 .= "At: aktiv ";
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 .="" . $devtime[0] . " "
if defined $devtime[0];
$optiontime .="" . $devtime[1] . " "
if defined $devtime[1];
}
$optiontime .= "" . $devtime[2] . " "
if defined $devtime[2];
$optiontime .= "" . $devtime[3] . " "
if defined $devtime[3];
my $affectedtime = '';
if ( $count == 0 )
{
$timer = 0;
$affectedtime =
"At: inaktiv "
. $optiontime
. " ";
}
if ( $info eq 'No Info saved at ATTR omment' )
{
$ret .=
"Trigger: inaktiv ";
$ret .= "Trigger: " . $trigger . " ";
$ret .="on+cmd1: "
. ReadingsVal( $name, '.Trigger_on', 'not defined' )
. " ";
$ret .="off+cmd2: "
. ReadingsVal( $name, '.Trigger_off', 'not defined' )
. " ";
$ret .="only cmd1: "
. ReadingsVal( $name, '.Trigger_cmd_on', 'not defined' )
. " ";
$ret .="only cmd2: "
. ReadingsVal( $name, '.Trigger_cmd_off', 'not defined' )
. " ";
$ret .= " ";
}
$ret .= $affectedtime;
$ret .= $affected;
if ( ReadingsVal( $name, '.V_Check', 'not defined' ) ne $vupdate )
{
$ret .= "
Versionskonflikt !
(please help)
";
}
else
{
if ( AttrVal( $name, 'disable', "0" ) eq '1' )
{
$ret .= "
State:
disabled
";
}
else
{
$ret .= "
State:
"
. ReadingsVal( $name, 'state', '' ) . "
";
if ( AttrVal( $name, 'MSwitch_Mode', 'Notify' ) ne "Notify" )
{
$ret .=""
. ReadingsTimestamp( $name, 'state', '' )
. "
";
}
else
{
$ret .=
""
. ReadingsTimestamp( $name, 'state', '' )
. "
";
}
}
}
$ret .= "";
$ret =~ s/#dp /:/g;
return $ret;
}
#################################
sub MSwitch_check_init($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
Log3( $Name, 0, "start checkinit !" );#LOG
my $oldtrigger = ReadingsVal( $Name, 'Trigger_device', 'undef' );
#Log3( $Name, 0, "start checkinit ! oldtrigger: ".$oldtrigger );#LOG
#Log3( $Name, 0, "start checkinit ! NOTIFYDEF ".$hash->{NOTIFYDEV} );#LOG
#if ( $oldtrigger ne 'undef' && $hash->{NOTIFYDEV} ne $oldtrigger)
if ( $oldtrigger ne 'undef')
{
$hash->{NOTIFYDEV} = $oldtrigger;
readingsSingleUpdate( $hash, "Trigger_device", $oldtrigger, 0 );
}
#else{
#$hash->{NOTIFYDEV} = 'no_trigger';
#}
}
####################
sub MSwitch_LoadHelper($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $oldtrigger = ReadingsVal( $Name, 'Trigger_device', 'undef' );
my $devhash = undef;
my $cdev = '';
my $ctrigg = '';
#Log3( $Name, 0, "start Loadhelper $Name !" );#LOG
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' )
{
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';
}
#Log3( $name, 5, "start checkinitdone ".$init_done );#LOG
if ( $init_done && !defined( $hash->{OLDDEF} ) )
#if ( $init_done )
{
## prüfe NOTIFYDEF
#Log3( $name, 0, "start checkinitdone wird ausgeführt ".$init_done );#LOG
my $timecond = gettimeofday() + 5;
InternalTimer( $timecond, "MSwitch_check_init", $hash );
}
return;
}
####################
sub MSwitch_Define1($$) {
my ( $hash, $defstring ) = @_;
my $Name = $hash->{NAME};
#setze grundkonfiguration
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", "off", 1 );
readingsEndUpdate( $hash, 0 );
# ankommender string Trigger_log
$defstring =~ s/\n/#[nl]/g;
my $count = 0;
my @parts;
while ( $defstring =~ m/(\(.+?\))(.*)/ )
{
$defstring = $2;
$parts[$count] = $1;
$parts[$count] =~ s/\(//g;
$parts[$count] =~ s/\)//g;
$count++;
}
$parts[0] =~ m/\[(.+)\]/;
my $foundtriggerdevice = $1;
my $condt = $2;
Log3( $Name, 5, "trigger - $parts[0] - $foundtriggerdevice" );
Log3( $Name, 5, "exec - $parts[1] " );
my @trigger = split( /:/, $foundtriggerdevice );
my $counter = @trigger;
my $founddevice;
my $foundstate;
my $foundevent;
if ( $counter == 3 )
{
$founddevice = $trigger[0];
$foundstate = $trigger[1];
$foundevent = $trigger[2];
}
if ( $counter == 2 )
{
$founddevice = $trigger[0];
$foundstate = "state";
$foundevent = $trigger[1];
}
$foundevent =~ s/^\.//g;
# nur wenn nicht zeit
my $code1 = "FreeCmd-AbsCmd1#[NF]cmd#[NF]cmd#[NF]";
my $code3 ="#[NF]#[NF]delay1#[NF]delay1#[NF]00#[dp]00#[dp]00#[NF]00#[dp]00#[dp]00#[NF]#[NF]#[NF]#[NF]#[NF]1#[NF]0#[NF]#[NF]0#[NF]0#[NF]1";
my $code2 = $parts[1];
$code2 =~ s/\n/#[nl]/g;
$code2 =~ s/\t/ /g;
$code2 =~ s/ /#[sp]/g;
$code2 =~ s/\\/#[bs]/g;
$code2 =~ s/,/#[ko]/g;
$code2 =~ s/^#\[/#[eo]/g;
$code2 =~ s/^#\]/#[ec]/g;
$code2 =~ s/\|/#[wa]/g;
$code2 =~ s/\|/#[ti]/g;
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, ".Device_Affected", "FreeCmd-AbsCmd1", 1 );
readingsBulkUpdate( $hash, ".Device_Affected_Details", $code1 . $code2 . $code3, 1 );
readingsBulkUpdate( $hash, "Trigger_device", $founddevice, 1 );
readingsBulkUpdate( $hash, ".Trigger_cmd_on", $foundstate . ":" . $foundevent, 1 );
readingsEndUpdate( $hash, 1 );
$hash->{NOTIFYDEV} = $trigger[0];
$hash->{MODEL} = 'Light';
my $attrdefinelist =
" disable:0,1"
. " disabledForIntervals"
. " stateFormat:textField-long"
. " MSwitch_Help:0,1"
. " MSwitch_Debug:0,1,2,3,4"
. " MSwitch_generate_Events:0,1"
. " MSwitch_Inforoom"
. " MSwitch_Condition_Time:0,1"
. " MSwitch_Startdelay:0,10,20,30,60,90,120"
. " MSwitch_Wait"
. " setList:textField-long "
. " readingList:textField-long "
. " textField-long "
. $readingFnAttributes;
$hash->{FW_addDetailToSummary} = 0;
setDevAttrList( $Name, $attrdefinelist );
return;
}
####################
sub MSwitch_Get($$@) {
my ( $hash, $name, $opt, @args ) = @_;
my $ret;
if ( ReadingsVal( $name, '.change', '' ) ne '' )
{
return "Unknown argument, choose one of ";
}
return "\"get $name\" needs at least one argument" unless ( defined($opt) );
####################
if ( $opt eq 'restore_MSwitch_Data' && $args[0] eq "this_Device" )
{
$ret = MSwitch_backup_this($hash);
return $ret;
}
####################
if ( $opt eq '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, "{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//\>\;/g;
$errorstring =~ s//\>\;/g;
if ( $errorstring ne '' && $condstring1 ne 'Klammerfehler' )
{
$ret1 ='Syntaxfehler:
Syntaxfehler:
Reading nicht vorhanden !
" if ( ReadingsVal( $5, $6, 'undef' ) ) eq "undef";
$reads .= "$err2<\/span>/ig;
}
$hash->{helper}{conditioncheck} = '';
$hash->{helper}{conditionerror} = '';
return "" . $ret . "<\/span>";
}
#################################################
if ( $opt eq 'active_timer' && $args[0] eq 'delete' )
{
MSwitch_Clear_timer($hash);
MSwitch_Createtimer($hash);
MSwitch_Delete_Delay( $hash, 'all' );
$ret .="Systemzeit: " . localtime() . "
Schaltzeiten (at - kommandos).
". $time. " switch MSwitch on + execute 'on' cmds
";
}
if ( $number eq '2' )
{
$ret .="". $time. " switch MSwitch off + execute 'off' cmds
";
}
if ( $number eq '3' )
{
$ret .="" . $time. " execute 'cmd1' commands only
";
}
if ( $number eq '4' )
{
$ret .="". $time. " execute 'cmd2' commands only
";
}
if ( $number eq '9' )
{
$ret .="". $time. " execute 'cmd1+cmd2' commands only
";
}
if ( $number eq '10' )
{
$ret .="". $time. " execute 'cmd1+cmd2' commands with ID ". $id. " only
";
}
if ( $number eq '5' )
{
$ret .="". $time. " neuberechnung aller Schaltzeiten
";
}
if ( $number eq '6' )
{
$ret .="". $time. " execute 'cmd1' commands with ID ". $id. " only
";
}
if ( $number eq '7' )
{
$ret .="". $time. " execute 'cmd2' commands from ID ". $id. " only
";
}
}
#delays
$ret .= "aktive Delays:
" . $time . " " . $timers[0] . "
";
}
if ( $ret ne "Schaltzeiten (at - kommandos).
aktive Delays:
Keine aktiven Delays/Ats gefunden <\/span>";
}
my $extension = '';
if ( ReadingsVal( $name, 'Sys_Extension', '' ) eq 'on' )
{
$extension = 'sysextension:noArg';
}
if ( AttrVal( $name, 'MSwitch_Mode', 'Notify' ) eq "Dummy" )
{
return "Unknown argument $opt, choose one of Eventlog:timeline,clear 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 $preconf";
}
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 $preconf $extension";
}
}
####################
sub MSwitch_AsyncOutput ($) {
my ( $client_hash, $text ) = @_;
return $text;
}
####################
sub MSwitch_Set($@) {
my ( $hash, $name, $cmd, @args ) = @_;
MSwitch_LOG( $name, 5, "$name Set $cmd, @args " . __LINE__ );
#if ( ReadingsVal( $name, '.First_init', 'undef' ) ne 'done' )
#{
# unvollständige daten ergänzen
#Log3( $name, 0, "starte helper aus set " );#LOG
#Log3( $name, 0, "starte helper aus set " );#LOG
#MSwitch_LoadHelper($hash);
#}
#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";
}
# 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};
}
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;
}
##############################
# 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 ( $devicemode eq "Notify" )
{
return "Unknown argument $cmd, choose one of 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 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 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 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);
}
##############################
if ( $cmd eq 'reset_device' )
{
if ($args[0] eq 'checked' )
{
#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} );
my @areadings = ( keys %{$testreading} );
foreach my $key (@areadings)
{
fhem("deletereading $name $key ");
}
# 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_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"
. " 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_LOG( $name, 5,"BEFEHL. $cmd ");
##############################
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 " );
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 ");
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" )
{
# 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" )
{
#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}{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" ) {
# 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" )
{
# setze devices
my $devices = $args[0];
if ( $devices eq 'null' )
{
readingsSingleUpdate( $hash, ".Device_Affected", 'no_device', 0 );
return;
}
my @olddevices = split( /,/, ReadingsVal( $name, '.Device_Affected', 'no_device' ) );
my @devices = split( /,/, $args[0] );
my $addolddevice = '';
foreach (@devices)
{
my $testdev = $_;
LOOP6: foreach my $olddev (@olddevices)
{
my $oldcmd = '';
my $oldname = '';
( $oldname, $oldcmd ) = split( /-AbsCmd/, $olddev );
if ( !defined $oldcmd ) { $oldcmd = '' }
if ( $oldcmd eq '1' ) { next LOOP6 }
if ( $oldname eq $testdev )
{
$addolddevice = $addolddevice . $olddev . ',';
}
}
$_ = $_ . '-AbsCmd1';
}
chop($addolddevice);
$devices = join( ',', @devices ) . ',' . $addolddevice;
my @sortdevices = split( /,/, $devices );
@sortdevices = sort @sortdevices;
$devices = join( ',', @sortdevices );
readingsSingleUpdate( $hash, ".Device_Affected", $devices, 0 );
$devices = MSwitch_makeAffected($hash);
if ( defined $hash->{DEF} )
{
my $devhash = $hash->{DEF};
my @dev = split( /#/, $devhash );
$hash->{DEF} = $dev[0] . ' # ' . $devices;
}
else
{
$hash->{DEF} = ' # ' . $devices;
}
return;
}
##############################
if ( $cmd eq "details" )
{
# setze devices details
$args[0] = urlDecode( $args[0] );
$args[0] =~ s/#\[pr\]/%/g;
#devicehasch
my %devhash = split( /#\[DN\]/, $args[0] );
my @devices = split( /,/, ReadingsVal( $name, '.Device_Affected', '' ) );
my @inputcmds = split( /#\[ND\]/, $args[0] );
my $error = '';
my $key = '';
my $savedetails = '';
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] . '#[ND]';
}
else
{
$savedetails = $savedetails . '1' . '#[ND]';
}
# $counter++;
}
chop($savedetails);
chop($savedetails);
chop($savedetails);
chop($savedetails);
chop($savedetails);
# ersetzung sonderzeichen etc mscode
# auskommentierte wurden bereits dur jscript ersetzt
$savedetails =~ s/\n/#[nl]/g;
$savedetails =~ s/\t/ /g;
$savedetails =~ s/ /#[sp]/g;
$savedetails =~ s/\\/#[bs]/g;
$savedetails =~ s/,/#[ko]/g;
$savedetails =~ s/^#\[/#[eo]/g;
$savedetails =~ s/^#\]/#[ec]/g;
$savedetails =~ s/\|/#[wa]/g;
$savedetails =~ s/\|/#[ti]/g;
readingsSingleUpdate( $hash, ".Device_Affected_Details", $savedetails,0 );
return 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, "----------------------------------------" );
MSwitch_LOG( $name, 6, "$name: aufruf on/off -> $cmd" );
MSwitch_LOG( $name, 6, "----------------------------------------" );
my @cmdpool;
my %devicedetails = MSwitch_makeCmdHash($name);
my @devices =split( /,/, ReadingsVal( $name, '.Device_Affected', '' ) );
# liste anpassen ( reihenfolge ) wenn expert = 1
@devices = MSwitch_priority( $hash, $execids, @devices );
my $expertmode = AttrVal( $name, 'MSwitch_Expert', "0" );
my $randomtime = AttrVal( $name, 'MSwitch_RandomTime', '' );
LOOP1: foreach my $device (@devices)
{
$out = '0';
if ( $expertmode eq '1' )
{
$ekey = $device . "_exit" . $exittest;
$out = $devicedetails{$ekey};
}
MSwitch_LOG($name,6, "$name: angesprochener zweig ". $zweig. " -> device -> -". $device . "-");
# teste auf on kommando
next LOOP1 if $device eq "no_device";
my @devicesplit = split( /-AbsCmd/, $device );
my $devicenamet = $devicesplit[0];
my $count = 0;
foreach my $testset (@testdetails)
{
if ( !defined( $devicedetails{ $device . $testset } ) )
{
my $key = '';
$key = $device . $testset;
$devicedetails{$key} = $testdetailsstandart[$count];
}
$count++;
}
my $key = $device . "_" . $cmd;
my $timerkey = $device . "_time" . $cmd;
my $testtstate = $devicedetails{$timerkey};
# teste auf delayinhalt
MSwitch_LOG( $name, 6, "$name: teste auf timerstatus -> $testtstate" );
$testtstate =~ s/[A-Za-z0-9#\.\-_]//g;
if ( $testtstate eq "[:]" || $testtstate eq "[\$:]" )
{
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
$devicedetails{$timerkey} = eval MSwitch_Checkcond_state( $devicedetails{$timerkey},$name );
if ( $devicedetails{$timerkey} =~ m/[0-9]\d:[0-9]\d:[0-9]\d/ )
{
MSwitch_LOG( $name, 6, "$name: format ok " );
my $hdel =( substr( $devicedetails{$timerkey}, 0, 2 ) ) * 3600;
my $mdel =( substr( $devicedetails{$timerkey}, 3, 2 ) ) * 60;
my $sdel =( substr( $devicedetails{$timerkey}, 6, 2 ) ) * 1;
$devicedetails{$timerkey} = $hdel + $mdel + $sdel;
}
else
{
MSwitch_LOG($name,1, "$name: ERROR Timerformat ". $devicedetails{$timerkey} . " fehlerhaf " );
$devicedetails{$timerkey} = 0;
}
}
MSwitch_LOG( $name,6, "$name: timerstatus nach test -> ". $devicedetails{$timerkey});
# suche befehl
if ( $devicedetails{$key} ne ""&& $devicedetails{$key} ne "no_action" ) #befehl gefunden
{
my $cs = '';
$cs ="set $devicenamet $devicedetails{$device.'_off'} $devicedetails{$device.'_offarg'}" if $cmd eq "off";
$cs ="set $devicenamet $devicedetails{$device.'_on'} $devicedetails{$device.'_onarg'}" if $cmd eq "on";
if ( $devicenamet eq 'FreeCmd' )
{
$cs = "$devicedetails{$device.'_'.$cmd.'arg'}";
$cs = MSwitch_makefreecmd( $hash, $cs );
}
MSwitch_LOG( $name, 6, "$name: befehl gefunden -> " . $cs );
MSwitch_LOG( $name, 6,"$name: teste auf delay -> " . $devicedetails{$timerkey} );
my $conditionkey = $device . "_condition" . $cmd;
MSwitch_LOG( $name, 6,"$name: TIMERKEY -> " . $devicedetails{$timerkey} );
if ( $devicedetails{$timerkey} eq "0" || $devicedetails{$timerkey} eq "" )
{
# $conditionkey = $device . "_conditionoff";
MSwitch_LOG( $name, 6,"auf condition -> aufruf sub checkcondition mit ". $devicedetails{$conditionkey} ) if $devicedetails{$conditionkey} ne '';
MSwitch_LOG( $name, 6,"auf condition -> wird nicht getestet - kein eintrag" . $devicedetails{$conditionkey} ) if $devicedetails{$conditionkey} eq '';
my $execute = "true";
$execute = MSwitch_checkcondition( $devicedetails{$conditionkey},$name, $args[0] ) if $devicedetails{$conditionkey} ne '';
MSwitch_LOG( $name, 6,"$name: ergebniss condition -> ergebniss " . $execute );
if ( $execute eq 'true' )
{
$cs =~ s/\$NAME/$hash->{helper}{eventfrom}/;
$cs =~ s/\$SELF/$name/;
MSwitch_LOG( $name, 6,"$name: in exec-cmdpool geschrieben ->" . $cs );
push @cmdpool, $cs . '|' . $device;
$update = $device . ',' . $update;
if ( $out eq '1' )
{
MSwitch_LOG( $name, 6,"$name: Abbruchbefehl erhalten von ". $device );
last LOOP1;
}
}
}
else
{
MSwitch_LOG( $name, 6,"$name: teste auf condition -> keine vorhanden " );
if ($randomtime ne ''&& $devicedetails{$timerkey} eq '[random]' )
{
MSwitch_LOG($name,6,"$name: randomtimer gefunden attr gesetzt -> ". $devicedetails{$timerkey});
$devicedetails{$timerkey} = MSwitch_Execute_randomtimer($hash);
# ersetzt $devicedetails{$timerkey} gegen randomtimer
MSwitch_LOG($name,6,"$name: timerd ersetzt-> ". $devicedetails{$timerkey});
}
elsif ( $randomtime eq '' && $devicedetails{$timerkey} eq '[random]' )
{
MSwitch_LOG($name, 6,"$name: randomtimer gefunden attr nicht gesetzt -> 0");
$devicedetails{$timerkey} = 0;
}
# ?
my $execute = "true";
# conditiontest nur dann, wenn cond-test nicht nur nach verzögerung
if ( $devicedetails{ $device . "_delayat" . $cmd } ne "delay2" && $devicedetails{ $device . "_delayat" . $cmd } ne "at02" )
{
MSwitch_LOG($name,6,"$name: checkcondition bei gefundem delay -> ". $devicedetails{ $device . "_delayat" . $cmd });
$execute = MSwitch_checkcondition( $devicedetails{$conditionkey}, $name, $args[0] );
MSwitch_LOG($name,6,"$name: ergebniss checkcondition für delay-> ". $execute);
}
MSwitch_LOG($name,6, "$name: ----------------- Delay -> ". $devicedetails{$timerkey});
if ( $execute eq 'true' )
{
MSwitch_LOG( $name, 6,"$name: conidtion ok - Befehl mt at/delay wird ausgefuehrt -> ". $cs );
my $delaykey = $device . "_delayat" . $cmd;
my $delayinhalt = $devicedetails{$delaykey};
my $delaykey1 = $device . "_delayat" . $cmd . "org";
my $teststateorg = $devicedetails{$delaykey1};
MSwitch_LOG( $name, 6,"$name: delaykey -> " . $delaykey );
MSwitch_LOG( $name, 6,"$name: delaykeyinhalt -> " . $delayinhalt );
MSwitch_LOG( $name, 6,"$name: delaykeyinhaltorg -> " . $teststateorg );
if ( $delayinhalt eq 'at0' || $delayinhalt eq 'at1' )
{
MSwitch_LOG( $name, 6,"$name: delay mit at erkannt -> ". $devicedetails{$timerkey} );
MSwitch_LOG( $name, 6,"$name: delay wird ersetzt " );
$devicedetails{$timerkey} = MSwitch_replace_delay( $hash, $teststateorg );
MSwitch_LOG( $name, 6,"$name: delay ersetzt -> ". $devicedetails{$timerkey} );
}
if ( $delayinhalt eq 'at1' || $delayinhalt eq 'delay0' )
{
MSwitch_LOG( $name, 6,"$name: delay ohne zusatzprüfung erkannt -> ". $delayinhalt );
$conditionkey = 'nocheck';
MSwitch_LOG( $name, 6,"$name: conditionkey ersetzt -> ". $conditionkey );
}
my $timecond = gettimeofday() + $devicedetails{$timerkey};
my $msg =
$cs . "#[tr]"
. $name . "#[tr]"
. $conditionkey
. "#[tr]#[tr]"
. $timecond . "#[tr]"
. $device;
# variabelersetzung
$msg =~ s/\$NAME/$hash->{helper}{eventfrom}/;
$msg =~ s/\$SELF/$name/;
$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,"$name: Abbruchbefehl erhalten von ". $device );
last LOOP1;
}
}
}
}
}
if ( $devicemode ne "Notify" )
{
readingsSingleUpdate( $hash, "state", $cmd, 1 );
}
else
{
# readingsSingleUpdate( $hash, "state", 'active', $showevents );
}
my $anzahl = @cmdpool;
MSwitch_LOG( $name, 6,"$name: anzahl der auszufuehrenden befehle -> " . $anzahl );
MSwitch_LOG( $name, 6, "$name: uebergabe an sub execute " ) if $anzahl > 0;
MSwitch_Cmd( $hash, @cmdpool ) if $anzahl > 0;
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, "$Name: execute -> " . $cmds );
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, "$Name: togglemode erkannt -> " . $cmds );
$toggle = $cmds;
$cmds = MSwitch_toggle( $hash, $cmds );
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' && $devicedetails{ $device . '_repeatcount' } ne '' )
{
MSwitch_LOG($Name,6, "$Name: teste auf repeatcount -> " . $devicedetails{ $device . '_repeatcount' });
my $x = 0;
while ( $devicedetails{ $device . '_repeatcount' } =~ m/\[(.*)\:(.*)\]/ )
{
$x++; # exit
last if $x > 20; # exitg
my $setmagic = ReadingsVal( $1, $2, 0 );
$devicedetails{ $device . '_repeatcount' } = $setmagic;
}
MSwitch_LOG($Name,6,"$Name: repeatcount nach setmagicersetzung -> " . $devicedetails{ $device . '_repeatcount' } );
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' && $devicedetails{ $device . '_repeattime' } ne '' )
{
MSwitch_LOG($Name, 6,"$Name: teste auf repeattime -> ". $devicedetails{ $device . '_repeattime' } );
my $x = 0;
while ($devicedetails{ $device . '_repeattime' } =~ m/\[(.*)\:(.*)\]/ )
{
$x++; # exit
last if $x > 20; # exitg
my $setmagic = ReadingsVal( $1, $2, 0 );
$devicedetails{ $device . '_repeattime' } = $setmagic;
}
MSwitch_LOG($Name,6,"$Name: _repeattime nach setmagicersetzung -> ". $devicedetails{ $device . '_repeattime' } );
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1'
&& $devicedetails{ $device . '_repeatcount' } > 0
&& $devicedetails{ $device . '_repeattime' } > 0 )
{
my $i;
for ( $i = 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,"$Name: repeat gesetzt -> ". $timecond . " : ". $msg );
InternalTimer( $timecond, "MSwitch_repeat", $msg );
}
}
my $todec = $cmds;
$cmds = MSwitch_dec( $hash, $todec );
MSwitch_LOG( $Name, 6, "$Name: cmd nach decodierung -> " . $cmds );
############################
# debug2 mode , kein execute
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '2' )
{
MSwitch_LOG( $Name, 6, "$Name: exec comand -> " . $cmds );
}
else
{
if ( $cmds =~ m/{.*}/ )
{
MSwitch_LOG( $Name, 6,"$Name: exec als perlcode -> " . $cmds );
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
my $out = eval($cmds);
if ($@)
{
MSwitch_LOG( $Name, 1,"$Name MSwitch_Set: ERROR $cmds: $@ " . __LINE__ );
}
}
else
{
MSwitch_LOG( $Name, 6,"$Name: execute als fhemcode -> " . $cmds );
my $errors = AnalyzeCommandChain( undef, $cmds );
if ( defined($errors) and $errors ne "OK" )
{
MSwitch_LOG( $Name, 1, "$Name MSwitch_Set: ERROR $cmds: $errors " . __LINE__ );
}
}
}
#############################
}
my $showpool = join( ',', @cmdpool );
if ( length($showpool) > 100 )
{
$showpool = substr( $showpool, 0, 100 ) . '....';
}
readingsSingleUpdate( $hash, "last_exec_cmd", $showpool, $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 ( $hash, $cmds ) = @_;
my $Name = $hash->{NAME};
$cmds =~ m/(set) (.*)( )MSwitchtoggle (.*)/;
my @tcmd = split( /\//, $4 );
if ( !defined $tcmd[2] ) { $tcmd[2] = 'state' }
if ( !defined $tcmd[3] ) { $tcmd[3] = $tcmd[0] }
if ( !defined $tcmd[4] ) { $tcmd[4] = $tcmd[1] }
my $cmd1 = $1 . " " . $2 . " " . $tcmd[0];
my $cmd2 = $1 . " " . $2 . " " . $tcmd[1];
my $chk1 = $tcmd[0];
my $chk2 = $tcmd[1];
my $testnew = ReadingsVal( $2, $tcmd[2], 'undef' );
if ( $testnew =~ m/$tcmd[3]/ )
{
$cmds = $cmd2;
}
elsif ( $testnew =~ m/$tcmd[4]/ )
{
$cmds = $cmd1;
}
else
{
$cmds = $cmd1;
}
return $cmds;
}
##############################
sub MSwitch_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 == 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 !" . $_ . " ";
if ( $_ eq 'no_trigger' )
{
next LOOP12;
}
if ( $triggeron eq $_ )
{
$optionon =
$optionon
. ""
. $_
. " ";
$to = '1';
}
else
{
$optionon = $optionon . "" . $_ . " ";
}
if ( $triggercmdon eq $_ )
{
$optioncmdon =
$optioncmdon
. ""
. $_
. " ";
$toc = '1';
}
else
{
$optioncmdon =$optioncmdon . "" . $_ . " ";
}
#################### 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
. ""
. $_
. " ";
}
else
{
$optiongeneral =
$optiongeneral
. ""
. $_
. " ";
}
}
}
#####################
}
if ( $to eq '1' )
{
$optionon = "no_trigger " . $optionon;
}
else
{
$optionon ="no_trigger ". $optionon;
}
if ( $toc eq '1' )
{
$optioncmdon = "no_trigger " . $optioncmdon;
}
else
{
$optioncmdon ="no_trigger ".$optioncmdon;
}
my $optioncmdoff = '';
my $optionoff = '';
$to = '';
$toc = '';
LOOP14: foreach (@eventsall)
{
if ( $_ eq 'no_trigger' ) { next LOOP14 }
if ( $triggeroff eq $_ ) {
$optionoff = $optionoff. "$_ ";
$to = '1';
}
else
{
$optionoff = $optionoff . "$_ ";
}
if ( $triggercmdoff eq $_ )
{
$optioncmdoff = $optioncmdoff. "$_ ";
$toc = '1';
}
else
{
$optioncmdoff = $optioncmdoff . "$_ ";
}
}
if ( $to eq '1' )
{
$optionoff = "no_trigger " . $optionoff;
}
else
{
$optionoff ="no_trigger ". $optionoff;
}
if ( $toc eq '1' )
{
$optioncmdoff = "no_trigger " . $optioncmdoff;
}
else
{
$optioncmdoff ="no_trigger ". $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 ="no_trigger ";
}
else
{
$triggerdevices = "no_trigger ";
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' )
{
if ( ReadingsVal( $Name, 'Trigger_device', 'no_trigger' ) eq 'all_events' )
{
$triggerdevices .="GLOBAL ";
$globalon = 'on';
}
else
{
$triggerdevices .= "GLOBAL ";
}
}
if ( AttrVal( $Name, 'MSwitch_Read_Log', "0" ) eq '1' )
{
if ( ReadingsVal( $Name, 'Trigger_device', 'no_trigger' ) eq 'Logfile' )
{
$triggerdevices .="LOGFILE ";
#$globalon = 'on';
}
else
{
$triggerdevices .= "LOGFILE ";
}
}
if (ReadingsVal( $Name, 'Trigger_device', 'no_trigger' ) eq 'MSwitch_Self' )
{
$triggerdevices .="MSwitch_Self ($Name) ";
}
else
{
$triggerdevices .= "MSwitch_Self ($Name) ";
}
my $affecteddevices = ReadingsVal( $Name, '.Device_Affected', 'no_device' );
# affected devices to hash
my %usedevices;
my @deftoarray = split( /,/, $affecteddevices );
my $anzahl = @deftoarray;
my $anzahl1 = @deftoarray;
my $anzahl3 = @deftoarray;
my @testidsdev = split( /#\[ND\]/, ReadingsVal($Name, '.Device_Affected_Details', 'no_device' ) );
#PRIORITY
# teste auf grössere PRIORITY als anzahl devices
foreach (@testidsdev)
{
MSwitch_LOG( $Name, 5, "dev @testidsdev" );
my @testid = split( /#\[NF\]/, $_ );
my $x = 0;
MSwitch_LOG( $Name, 5, "devfelder @testid" );
my $id = $testid[13];
MSwitch_LOG( $Name, 5, "id $id" );
$anzahl = $id if $id > $anzahl;
}
my $reihenfolgehtml = "";
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' )
{
$reihenfolgehtml = "";
for ( my $i = 1 ; $i < $anzahl + 1 ; $i++ )
{
$reihenfolgehtml .= "$i ";
}
$reihenfolgehtml .= " ";
}
#########################################
# 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];
MSwitch_LOG( $Name, 5, "id $id" );
$anzahl1 = $id if $id > $anzahl;
}
#################################
my $showfolgehtml = "";
$showfolgehtml = "";
for ( my $i = 1 ; $i < $anzahl1 + 1 ; $i++ )
{
$showfolgehtml .= "$i ";
}
$showfolgehtml .= " ";
######################################
#ID
my $idfolgehtml = "";
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' )
{
$idfolgehtml = "";
for ( my $i = -1 ; $i < $anzahl3 + 1 ; $i++ )
{
$idfolgehtml .= "$i " if $i > 0;
$idfolgehtml .= "- " if $i == 0;
}
$idfolgehtml .= " ";
}
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 .="$name (a:$devicealias t:$deviceTYPE) ";
# 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);
if ( $savecmds ne "nosave" ) {
$hash->{helper}{devicecmds1}{$name} = $errors;
$hash->{helper}{last_devicecmd_save} = time;
}
}
}
else
{
$errors = '';
}
if ( !defined $errors )
{
$errors = '';
}
# my @tmparg = split( /of /, $errors );
# if ( !defined $tmparg[1] ) { $tmparg[1] = "" }
# if ( $tmparg[1] ne '' )
# {
# $errors = $tmparg[1];
# }
# else
# {
# $errors = '';
# }
$errors = '|' . $errors;
$errors =~ s/\| //g;
$errors =~ s/\|//g;
if ( $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
. ""
. $name . " (a:"
. $devicealias
. ") ";
# 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 =
"Free Cmd (nicht an ein Device gebunden) "
. $deviceoption;
$select = index( $affecteddevices, 'MSwitch_Self', 0 );
$selected = "";
if ( $select > -1 ) { $selected = "selected=\"selected\" " }
$deviceoption =
"MSwitch_Self ("
. $Name
. ") "
. $deviceoption;
####################
# #devices details
# steuerdatei
my $controlhtml;
$controlhtml ="
MS-NAMESATZ
MS-HELPpriority MS-IDSATZ
MS-COMMENTset
CMD 1
MS-HELPonoff
MS-SET1
MS-HELPcondition
MS-COND1
MS-CONDCHECK1
MS-HELPexeccmd
MS-EXEC1
MS-HELPdelay
MS-DELAYset1
CMD 2
MS-HELPonoff
MS-SET2
MS-HELPcondition
MS-COND2
MS-CONDCHECK2
MS-HELPexeccmd
MS-EXEC2
MS-HELPdelay
MS-DELAYset2
MS-HELPrepeats MS-REPEATset
MS-ACTIONSATZ
MS-COMMENTset
MS-NAMESATZ
MS-HELPpriority MS-IDSATZ
CMD 1
CMD 2
MS-HELPonoff
MS-SET1
MS-SET2
MS-HELPcondition
MS-COND1
MS-COND2
MS-CONDCHECK1
MS-CONDCHECK1
MS-HELPexit
MS-EXEC1
MS-EXEC2
MS-HELPtimer
MS-DELAYset1
MS-DELAYset2
MS-HELPrepeats MS-REPEATset
MS-ACTIONSATZ
None ';
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' )
{
$sortierung .='
Field Priority ';
}
$sortierung .='Field Show ';
}
#################################
$modify = "
";
##########################
# $detailhtml .= $sortierung;
##########################
#my $detailhtmlold;
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 ='Achtung: Dieses Device ist nicht vorhanden , bitte mit "set changed_renamed" korrigieren !
';
$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 . "$aktcmdset[0] ";
$selectedhtml = "";
if ( $aktcmdset[0] eq $savedetails{ $aktdevice . '_off' } )
{
$selectedhtml = "selected=\"selected\"";
}
$option2html = $option2html . "$aktcmdset[0] ";
}
if ( '' eq $savedetails{ $aktdevice . '_delayaton' } )
{
$savedetails{ $aktdevice . '_delayaton' } = 'delay1';
}
if ( '' eq $savedetails{ $aktdevice . '_delayatoff' } )
{
$savedetails{ $aktdevice . '_delayatoff' } = 'delay1';
}
if ( '' eq $savedetails{ $aktdevice . '_timeoff' } )
{
$savedetails{ $aktdevice . '_timeoff' } = '0';
}
if ( '' eq $savedetails{ $aktdevice . '_timeon' } )
{
$savedetails{ $aktdevice . '_timeon' } = '0';
}
$savedetails{ $aktdevice . '_onarg' } =~ s/#\[ti\]/~/g;
$savedetails{ $aktdevice . '_offarg' } =~ s/#\[ti\]/~/g;
$savedetails{ $aktdevice . '_onarg' } =~ s/#\[wa\]/|/g; #neu
$savedetails{ $aktdevice . '_offarg' } =~ s/#\[wa\]/|/g; #neu
my $dalias = '';
if ( $devicenamet ne "FreeCmd" )
{
$dalias = "(a: " . AttrVal( $devicenamet, 'alias', "no" ) . ")" if AttrVal( $devicenamet, 'alias', "no" ) ne "no";
}
my $realname = '';
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '4' )
{
$realname =
"$savedetails{ $aktdevice . '_priority' } ";
my $change ="$savedetails{ $aktdevice . '_priority' } ";
$aktfolge =~ s/reihe/$newname/g;
$aktfolge =~ s/$tochange/$change/g;
$IDsatz="priority: " . $aktfolge . " ";
# ende
# show
# showfolgehtml
$aktfolge = $showfolgehtml;
$newname = "showreihe" . $nopoint;
$tochange ="$savedetails{ $aktdevice . '_showreihe' } ";
$change ="$savedetails{ $aktdevice . '_showreihe' } ";
$aktfolge =~ s/showreihe/$newname/g;
$aktfolge =~ s/$tochange/$change/g;
$IDsatz.="show: " . $aktfolge . " " if ( $hash->{INIT} ne 'define' );
####
# ID
$aktfolge = $idfolgehtml;
$newname = "idreihe" . $nopoint;
$tochange ="$savedetails{ $aktdevice . '_id' } ";
$change ="$savedetails{ $aktdevice . '_id' } ";
$aktfolge =~ s/idreihe/$newname/g;
$aktfolge =~ s/$tochange/$change/g;
$IDsatz.="ID: " . $aktfolge;
# ende
}
else
{
$NAMEsatz="$zusatz $devicenamet $realname $dalias $alert";
my $aktfolge = $showfolgehtml;
my $newname = "showreihe" . $nopoint;
my $tochange ="$savedetails{ $aktdevice . '_showreihe' } ";
my $change ="$savedetails{ $aktdevice . '_showreihe' } ";
$aktfolge =~ s/showreihe/$newname/g;
$aktfolge =~ s/$tochange/$change/g;
$IDsatz.= "show : " . $aktfolge . " " 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 = "";
}
# my $rephide = "style='display:none;'";
# my $rows = 7;
# if ( $hash->{INIT} eq 'define' )
# {
# $rows = 2;
# }
# if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' )
# {
# $rephide = '';
# $rows = 8; #8
# }
if ( $devicenamet ne 'FreeCmd' )
{
# nicht freecmd
$SET1 = "
";
}
else
{
# freecmd
$savedetails{ $aktdevice . '_onarg' } =~ s/'/'/g;
$SET1 = "";
" ";
}
########################
## block off #$devicename
if ( $hash->{INIT} ne 'define' )
{
if ( $devicenamet ne 'FreeCmd' )
{
$SET2= "
";
}
else
{
$savedetails{ $aktdevice . '_offarg' } =~ s/'/'/g;
$SET2= "
"
. $optiongeneral
. " ";
}
#alltriggers
if ( $hash->{INIT} ne 'define' )
{
$COND1set2.="condition: "
. $optiongeneral
. " ";
}
#### zeitrechner
my $delaym = 0;
my $delays = 0;
my $delayh = 0;
my $timestroff;
my $testtimestroff = $savedetails{ $aktdevice . '_timeoff' };
if ( $testtimestroff ne '[random]' ) {
$testtimestroff =~ s/[A-Za-z0-9#\.\-_]//g;
if ( $testtimestroff eq "[:]"|| $testtimestroff eq "[\$:]" )
{
$timestroff = $savedetails{ $aktdevice . '_timeoff' }; #sekunden
}
else
{
$timestroff =
$savedetails{ $aktdevice . '_timeoff' }; #sekunden
$delaym = int $timestroff / 60;
$delays = $timestroff - ( $delaym * 60 );
$delayh = int $delaym / 60;
$delaym = $delaym - ( $delayh * 60 );
$timestroff =sprintf( "%02d:%02d:%02d", $delayh, $delaym, $delays );
}
}
else
{
$timestroff = "[random]";
}
my $timestron;
my $testtimestron = $savedetails{ $aktdevice . '_timeon' };
if ( $testtimestron ne '[random]' )
{
$testtimestron =~ s/[A-Za-z0-9#\.\-_]//g;
if ( $testtimestron eq "[:]" || $testtimestron eq "[\$:]" )
{
$timestron = $savedetails{ $aktdevice . '_timeon' }; #sekunden
}
else
{
$timestron = $savedetails{ $aktdevice . '_timeon' }; #sekunden
$delaym = int $timestron / 60;
$delays = $timestron - ( $delaym * 60 );
$delayh = int $delaym / 60;
$delaym = $delaym - ( $delayh * 60 );
$timestron =
sprintf( "%02d:%02d:%02d", $delayh, $delaym,$delays );
}
}
else
{
$timestron = "[random]";
}
$DELAYset1= "";
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 .= "delay with Cond-check immediately and delayed: + ";
# $DELAYset1 .= "delay with Cond-check immediately only: + ";
# $DELAYset1 .= "delay with Cond-check delayed only: + ";
# $DELAYset1 .= "at with Cond-check immediately and delayed: ";
# $DELAYset1 .="at with Cond-check immediately only: ";
# $DELAYset1 .= "at with Cond-check delayed only: ";
# $DELAYset1 .= " delay with Cond-check immediately only: ";
$DELAYset1 .= "delay with Cond-check delayed only: ";
$DELAYset1 .= "at with Cond-check immediately and delayed: ";
$DELAYset1 .="at with Cond-check immediately only: ";
$DELAYset1 .= "at with Cond-check delayed only: ";
$DELAYset1 .= " ";
$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 .= "delay with Cond-check immediately and delayed: + ";
# $DELAYset2 .= "delay with Cond-check immediately only: + ";
# $DELAYset2 .= "delay with Cond-check delayed only: + ";
# $DELAYset2 .= "at with Cond-check immediately and delayed: ";
# $DELAYset2 .= "at with Cond-check immediately only: ";
# $DELAYset2 .= "at with Cond-check delayed only: ";
# $DELAYset2 .= " delay with Cond-check immediately only: ";
$DELAYset2 .= "delay with Cond-check delayed only: ";
$DELAYset2 .= "at with Cond-check immediately and delayed: ";
$DELAYset2 .= "at with Cond-check immediately only: ";
$DELAYset2 .= "at with Cond-check delayed only: ";
$DELAYset2 .= "".
$controlhtmldevice.
"
";
#####
# 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 += '#[DN]';
";
}
# textersetzung 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', '' );
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 = '';
# ACHTUNG bei Javaerror
# $ret .= "";
########################
my $blocking = '';
$blocking = $hash->{helper}{savemodeblock}{blocking} if ( defined $hash->{helper}{savemodeblock}{blocking} );
# endlosschleife
if ( $blocking eq 'on' )
{
$ret .= "
)
{
$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 .= "
"
. $name . " (a: "
. $devicealias
. ") ";
}
my $sel = "" . $dev . " ";
my @change = split( "\\|", ReadingsVal( $Name, '.change', 'undef' ) );
my $out = '';
my $count = 0;
foreach my $changes (@change) {
my @set = split( "#", $changes );
$out .= "";
$out .= "";
$out .= $set[1];
$out .= " ";
$out .= "";
$out .= " ";
$out .= "";
$out .=
" ";
$out .= " ";
$count++;
}
#################################################
$ret .= "
trigger device/time
MS-HELPdevice
trigger device
MS-TRIGGER
MS-HELPwhitelist
Trigger Device Global Whitelist
MS-WHITELIST
MS-HELPtime
switch MSwitch on and execute CMD1 at
MS-ONAND1
MS-HELPexecdmd
switch MSwitch off and execute CMD2 at
MS-ONAND2
trigger time
execute CMD1 only
MS-EXEC1
execute CMD2 only
MS-EXEC2
execute CMD1 and CMD2 only
MS-EXECALL
MS-HELPcond
MS-CONDTEXT
MS-CONDITION MS-CHECKCONDITION
MS-modify
";
$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 $inhalt2 = "execute 'cmd1' only";
# my $inhalt3 = "execute 'cmd2' only";
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;'";
# $inhalt2 = $help . "execute 'cmd1'";
# $inhalt3 = $help . "execute 'cmd2'";
}
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' ) eq "Dummy" )
# {
# $inhalt2 = $help . "execute 'cmd1'";
# $inhalt3 = $help . "execute 'cmd2'";
# }
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) ne "Dummy" )
{
$MSHidedummy="";
}
else
{
$MSHidedummy="style ='visibility: collapse'";
}
$MStrigger= "" . $triggerdevices . " ";
if ( $globalon ne 'on' )
{
$MSHidewhitelist="id='triggerwhitelist' style ='visibility: collapse'";
}
$MSwhitelist=""
.$triggerhtml.
"
trigger details:
MS-CHANGETEXT
MS-TRIGGER
MS-ONCMD1TRIGGER
switch $Name off and execute cmd2
MS-TRIGGER
MS-OFFCMD2TRIGGER
execute only cmd1
MS-TRIGGER
MS-CMD1TRIGGER
execute only cmd2
MS-TRIGGER
MS-CMD2TRIGGER
MS-HELP5
Save incomming events
MS-SAVEEVENT
MS-HELP6
Add event manually
MS-ADDEVENT
MS-MODLINE
MS-TESTEVENT
";
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/(.*)/ ;
$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="" . $optionon . " ";
##############
my $fieldon = "";
if ( $triggeron =~ m/{(.*)}/ )
{
my $exec = "\$fieldon = " . $1;
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
eval($exec);
$MSCMDONTRIGGER.="". $optionoff. " ";
##############
my $fieldoff = "";
if ( $triggeroff =~ m/{(.*)}/ )
{
my $exec = "\$fieldoff = " . $1;
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
eval($exec);
$MSCMDOFFTRIGGER.="" . $optioncmdon . " ";
##############
my $fieldcmdon = "";
if ( $triggercmdon =~ m/{(.*)}/ )
{
my $exec = "\$fieldcmdon = " . $1;
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
eval($exec);
$MSCMD1TRIGGER.="". $optioncmdoff . " ";
##############
my $fieldcmdoff = "";
if ( $triggercmdoff =~ m/{(.*)}/ ) {
my $exec = "\$fieldcmdoff = " . $1;
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
eval($exec);
$MSCMD2TRIGGER.=""
. $optiongeneral
. "
";
}
##############################################################
#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;
foreach (@translate)
{
my($wert1,$wert2) = split (/->/,$_);
$triggerdetailhtml =~ s/$wert1/$wert2/g;
}
$ret.="".$triggerdetailhtml."
$MSDISTRIBUTORTEXT
";
my $toid = $hash->{helper}{eventtoid};
foreach my $a ( keys %{$toid} )
{
$ret .=" $MSDISTRIBUTOREVENT "
. $a
. " =\> execute "
. $hash->{helper}{eventtoid}{$a}
. "
";
}
###############################################################
#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 .=
"
";
}
my $MSSAVED="";
my $MSSELECT="";
my $MSHELP="";
my $MSEDIT="";
my $MSLOCK="";
my $MSMOD="";
my $selectaffectedhtml="
affected devices
MS-HELP multiple selection with ctrl and mousebutton
MS-SELECT
MS-EDIT
MS-MOD
";
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 "
.$deviceoption." ";
$MSEDIT="".
$selectaffectedhtml.
"
";
####################
#javascript$jsvarset
my $triggerdevicehtml = $Triggerdevice;
$triggerdevicehtml =~ s/\(//g;
$triggerdevicehtml =~ s/\)//g;
$j1 = "";
return "$ret) {
$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/\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
asyncOutput( $hash->{CL},
"Supportanfragen bitte im Forum stellen:Fhem-Forum Achtung! Hier angegebener Code greift direkt in das Programm 98_MSwitch ein und wird unmittelbar zu beginn der Routine X_Set ausgeführt) {
$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;
$cont =~ s/#c\[sp\]/ /g;
$cont =~ s/#c\[se\]/;/g;
$cont =~ s/#c\[dp\]/:/g;
my @changes;
my $info = "";
#MSwitch_LOG( $name , 0, "file: $cont" );
my @found = split( /#\[EOL\]/, $cont );
foreach (@found) {
#MSwitch_LOG( $name , 0, "line: $_" );
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")
{
# #MSwitch_LOG( $name , 0, "set over fhem: $name $na $ih" );
$attr{$name}{$key} = $hash->{helper}{safeconf}{$key};
}
else{
# #MSwitch_LOG( $name , 0, "set over attr: $name $na $ih" );
fhem("attr $name $key ".$hash->{helper}{safeconf}{$key});
}
}
################# helperkeys abarbeiten #######
#$hash->{helper}{safeconf}{$na} = $ih;
delete( $hash->{helper}{safeconf} );
##############################################
MSwitch_set_dev($hash);
if ( @changes > 0 ) {
my $save = join( '|', @changes );
readingsSingleUpdate( $hash, ".change", $save, 0 );
}
if ( $info ne "" ) {
readingsSingleUpdate( $hash, ".change_info", $info, 0 );
}
return;
}
################################################
sub MSwitch_backup_done($) {
my ($string) = @_;
return unless ( defined($string) );
my @a = split( "\\|", $string );
my $Name = $a[0];
my $answer = $a[1];
my $hash = $defs{$Name};
delete( $hash->{helper}{RUNNING_PID} );
my $client_hash = $hash->{helper}{RESTORE_ANSWER};
$answer =~ s/\[nl\]/\n/g;
foreach my $testdevice ( keys %{ $modules{MSwitch}{defptr} } ) #
{
my $devhash = $defs{$testdevice};
MSwitch_Createtimer($devhash);
}
asyncOutput( $client_hash, $answer );
return;
}
###########################################
sub MSwitch_Execute_randomtimer($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $param = AttrVal( $Name, 'MSwitch_RandomTime', '0' );
my $min = substr( $param, 0, 2 ) * 3600;
$min = $min + substr( $param, 3, 2 ) * 60;
$min = $min + substr( $param, 6, 2 );
my $max = substr( $param, 9, 2 ) * 3600;
$max = $max + substr( $param, 12, 2 ) * 60;
$max = $max + substr( $param, 15, 2 );
my $sekmax = $max - $min;
my $ret = $min + int( rand $sekmax );
return $ret;
}
############################################
sub MSwitch_replace_delay($$) {
my ( $hash, $timerkey ) = @_;
my $name = $hash->{NAME};
my $time = time;
my $ltime = TimeNow();
MSwitch_LOG( $name, 5, "----------------------------------------" );
MSwitch_LOG( $name, 5, "$name: MSwitch_replace_delay-> $timerkey" );
MSwitch_LOG( $name, 5, "----------------------------------------" );
my ( $aktdate, $akttime ) = split / /, $ltime;
my $hh = ( substr( $timerkey, 0, 2 ) );
my $mm = ( substr( $timerkey, 2, 2 ) );
my $ss = ( substr( $timerkey, 4, 2 ) );
my $referenz = time_str2num("$aktdate $hh:$mm:$ss");
if ( $referenz < $time ) {
$referenz = $referenz + 86400;
}
if ( $referenz >= $time ) {
}
$referenz = $referenz - $time;
my $timestampGMT = FmtDateTimeRFC1123($referenz);
return $referenz;
}
############################################################
sub MSwitch_repeat($) {
my ( $msg, $name ) = @_;
my $incomming = $_[0];
my @msgarray = split( /\|/, $incomming );
$name = $msgarray[1];
my $time = $msgarray[2];
my $cs = $msgarray[0];
my $hash = $defs{$name};
$cs =~ s/\n//g;
MSwitch_LOG( $name, 5, "----------------------------------------" );
MSwitch_LOG( $name, 5, "$name: Repeat -> " . $cs );
MSwitch_LOG( $name, 5, "----------------------------------------" );
if ( $cs =~ m/set (.*)(MSwitchtoggle)(.*)/ ) {
$cs = MSwitch_toggle( $hash, $cs );
MSwitch_LOG( $name, 5, "$name: fround toggle -> " . $cs );
}
MSwitch_LOG( $name, 5, "$name: execute repeat $time -> " . $cs );
if ( AttrVal( $name, 'MSwitch_Debug', "0" ) ne '2' ) {
if ( $cs =~ m/{.*}/ ) {
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
eval($cs);
if ($@) {
MSwitch_LOG( $name, 1,
"$name MSwitch_repeat: ERROR $cs: $@ " . __LINE__ );
}
}
else {
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
MSwitch_LOG( $name, 1,
"$name Absent_repeat $cs: ERROR : $errors -> Comand: $cs" );
}
}
}
delete( $hash->{helper}{repeats}{$time} );
}
#########################
sub MSwitch_Createnumber($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $number = AttrVal( $Name, 'MSwitch_RandomNumber', '' ) + 1;
my $number1 = int( rand($number) );
readingsSingleUpdate( $hash, "RandomNr", $number1, 1 );
return;
}
################################
sub MSwitch_Createnumber1($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $number = AttrVal( $Name, 'MSwitch_RandomNumber', '' ) + 1;
my $number1 = int( rand($number) );
readingsSingleUpdate( $hash, "RandomNr1", $number1, 1 );
return;
}
###############################
sub MSwitch_Safemode($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
if ( AttrVal( $Name, 'MSwitch_Safemode', '0' ) == 0 ) { return; }
my $time = gettimeofday();
$time =~ s/\.//g;
my $time1 = int($time);
my $count = 0;
my $timehash = $hash->{helper}{savemode};
foreach my $a ( keys %{$timehash} ) {
$count++;
if ( $a < $time1 - 1000000 ) # für 10 sekunden
{
delete( $hash->{helper}{savemode}{$a} );
$count = $count - 1;
}
}
$hash->{helper}{savemode}{$time1} = $time1;
if ( $count > $savecount ) {
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' )
{
$hash->{eventsave} = "saved";
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, "EVENT", $event, $showevents )
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};
MSwitch_LOG( $name, 5,
"$name: device hat $typ $device - $devicedetails{$key}" );
$new{$device} = $prio;
}
my @new = %new;
my @newlist;
for my $key ( sort { $new{$a} <=> $new{$b} } keys %new ) {
if ( $key ne "" && $key ne " " ) {
push( @newlist, $key );
}
}
my $anzahl = @newlist;
MSwitch_LOG( $name, 5, "$name: anzahl $anzahl" );
@devices = @newlist if $anzahl > 0;
return @devices;
}
##########################################################
sub MSwitch_set_dev($) {
# setzt NOTIFYDEF
my ($hash) = @_;
my $name = $hash->{NAME};
my $not = ReadingsVal( $name, 'Trigger_device', '' );
#MSwitch_LOG( $name, 0, "$name update not - $not " . __LINE__ );
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);
}
##################################
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 () {
$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 - TimelineMSwitch
MSwitch Define
define < Name > MSwitch;
Set
inactive - sets the device inactive
active - sets the device active
backup MSwitch - creates a backup file with the configuration of all MSwitch devices
del_delays - deletes all pending timed commands
exec_cmd1 - immediate execution of the command branch1
exec_cmd2 - immediate execution of command branch2
fakeevent [event] - simulation of an incoming event
wait [sec] - no acceptance of events for given period
Get
active_timer show - displays a list of all pending timers and delays
active_timer delete - deletes all pending timers and delays. Timers are recalculated
config - shows the config set associated with the device
restore_Mswitch_date this_device - restore the device from the backupfile
restore_Mswitch_date all_devices - restore all MSwitchdevices from the backupfile
Attribute
MSwitch_Help: 0.1 - displays help buttons for all relevant fields
MSwitch_Debug: 0,1,2,3 - 1. switches test fields to Conditions etc. / 2. Testmode, no active cmds / 3. pure development mode
MSwitch_Expert: 0.1 - 1. enables additional options such as global triggering, priority selection, command repetition, etc.
MSwitch_Delete_Delays: 0.1 - 1. deletes all pending delays when another suitable event arrives
MSwitch_Include_Devicecmds: 0,1 - 1. all devices with own command set (set?) are included in affected devices
MSwitch_Include_Webcmds: 0.1 - 1. all devices with existing WbCmds are included in affected devices
MSwitch_Include_MSwitchcmds: 0.1 - 1. all devices with existing MSwitchcmds are included in affected devices
MSwitch_Activate_MSwitchcmds: 0.1 - 1. activates the attribute MSwitchcmds in all devices
MSwitch_Lock_Quickedit: 0,1 - 1. activates the lock of the selection field 'affected devices'
MSwitch_Ignore_Types: - List of all device types that are not displayed in the 'affected devices'
MSwitch_Trigger_Filter - List of events to ignore
MSwitch_Extensions: 0.1 - 1. Enables additional option Devicetogggle
MSwitch_Startdelay - delays the start of MSwitch after Fhemstart by the specified time in seconds. Recommended: 30 seconds
MSwitch_Inforoom - contains a room name where MSwitches are displayed in detail
MSwitch_Mode: Full, Notify, Toggle - Device Operation Mode
MSwitch_Condition_Time: 0.1 - activation of the trigger conditions for timed triggering
MSwitch_Safemode: 0.1 - 1. aborts all actions of the device if more than 20 calls per second take place
MSwitch_RandomTime - see Wiki: https://wiki.fhem.de/wiki/MSwitch#MSwitch_Random_Time_.28HH:MM:SS-HH:MM:SS.29
MSwitch_RandomNumber - see Wiki: https://wiki.fhem.de/wiki/MSwitch#MSwitch_Random_Number
MSwitch_Event_Id_Distributor - see Wiki: https://wiki.fhem.de/wiki/MSwitch#MSwitch_Event_Id_Distributor
=end html
=begin html_DE
MSwitch
MSwitch Define
define < Name > MSwitch;
Set
inactive
active
backup MSwitch
del_delays
exec_cmd1
exec_cmd2
fakeevent [event]
wait [sek]
Get
active_timer show - zeigt eine Liste aller anstehenden Timer und Delays
active_timer delete - löscht alle anstehenden Timer und Delays. Timer werden neu berechnet
config - zeigt den dem Device zugeordneten Configsatz
restore_Mswitch_date this_device - restore des Devices aus dem Backupfile
restore_Mswitch_date all_devices - restore aller MSwitchdevices aus dem Backupfile
Attribute
MSwitch_Help:0,1
MSwitch_Debug:0,1,2,3,4
MSwitch_Expert:0,1
MSwitch_Delete_Delays:0,1
MSwitch_Include_Devicecmds:0,1
MSwitch_Include_Webcmds:0,1
MSwitch_Include_MSwitchcmds:0,1
MSwitch_Activate_MSwitchcmds:0,1
MSwitch_Lock_Quickedit:0,1
MSwitch_Ignore_Types:
MSwitch_Trigger_Filter - Liste aller zu ignorierenden Events
MSwitch_Extensions:0,1
MSwitch_Startdelay(wert)
MSwitch_Inforoom
MSwitch_Mode:Full,Notify,Toggle
MSwitch_Condition_Time:0,1
MSwitch_Safemode:0,1
MSwitch_RandomTime
MSwitch_RandomNumber
MSwitch_Read_Log
MSwitch_Generate_Events
MSwitch_Comments
MSwitch_Condition_Time
=end html_DE