# standartlist ignorierter Devices . kann durch attribut überschrieben werden .
my @doignore =qw(notify allowed at watchdog doif fhem2fhem telnet FileLog readingsGroup FHEMWEB autocreate eventtypes readingsproxy svg cul);
my $startmode = "Notify";# Startmodus des Devices nach Define
# degug
my $ip = qx(hostname -I);
chop ($ip);
chop ($ip);
my $debugging = "0";
$debugging = "0" if $ip ne "192.168.178.109";
sub MSwitch_Checkcond_time($$);
sub MSwitch_Checkcond_state($$);
sub MSwitch_Checkcond_day($$$$);
sub MSwitch_Createtimer($);
sub MSwitch_Execute_Timer($);
sub MSwitch_LoadHelper($);
sub MSwitch_debug2($$);
sub MSwitch_ChangeCode($$);
sub MSwitch_Add_Device($$);
sub MSwitch_Del_Device($$);
sub MSwitch_Debug($);
sub MSwitch_Exec_Notif($$$$$);
sub MSwitch_checkcondition($$$);
sub MSwitch_Delete_Delay($$);
sub MSwitch_Check_Event($$);
sub MSwitch_makeAffected($);
sub MSwitch_backup($);
sub MSwitch_backup_this($);
sub MSwitch_backup_all($);
sub MSwitch_backup_done($);
sub MSwitch_checktrigger(@);
sub MSwitch_Cmd(@);
sub MSwitch_toggle($$);
sub MSwitch_Getconfig($);
sub MSwitch_saveconf($$);
sub MSwitch_replace_delay($$);
sub MSwitch_repeat($);
sub MSwitch_Createrandom($$$);
sub MSwitch_Execute_randomtimer($);
sub MSwitch_Clear_timer($);
sub MSwitch_Createnumber($);
sub MSwitch_Createnumber1($);
sub MSwitch_Savemode($);
sub MSwitch_set_dev($);
sub MSwitch_EventBulk($$$$);
sub MSwitch_priority;
sub MSwitch_sort;
sub MSwitch_dec($$);
sub MSwitch_makefreecmd($$);
sub MSwitch_clearlog($);
sub MSwitch_LOG($$$);
sub MSwitch_Getsupport($);
sub MSwitch_confchange($$);
sub MSwitch_setconfig($$);
sub MSwitch_check_setmagic_i($$);
sub MSwitch_Eventlog($$);
sub MSwitch_Writesequenz($);
sub MSwitch_del_singlelog($$);
sub MSwitch_Checkcond_history($$);
sub MSwitch_fhemwebconf($$$$);
##############################
my %sets = (
"wizard" => "noArg",
"on" => "noArg",
"reset_device" => "noArg",
"off" => "noArg",
"reload_timer" => "noArg",
"active" => "noArg",
"inactive" => "noArg",
"devices" => "noArg",
"details" => "noArg",
"del_trigger" => "noArg",
"del_delays" => "noArg",
"del_function_data" => "noArg",
"trigger" => "noArg",
"filter_trigger" => "noArg",
"add_device" => "noArg",
"del_device" => "noArg",
"addevent" => "noArg",
"backup_MSwitch" => "noArg",
"import_config" => "noArg",
"saveconfig" => "noArg",
"savesys" => "noArg",
"sort_device" => "noArg",
"fakeevent" => "noArg",
"exec_cmd_1" => "noArg",
"exec_cmd_2" => "noArg",
"del_repeats" => "noArg",
"wait" => "noArg",
"VUpdate" => "noArg",
"Writesequenz" => "noArg",
"confchange" => "noArg",
"clearlog" => "noArg",
"set_trigger" => "noArg",
"reset_cmd_count" => "",
"delcmds" => "",
"deletesinglelog" => "noArg",
"change_renamed" => ""
);
my %gets = (
"active_timer" => "noArg",
"restore_MSwitch_Data" => "noArg",
"Eventlog" => "sequenzformated,timeline,clear",
"restore_MSwitch_Data" => "noArg",
"deletesinglelog" => "noArg",
"config" => "noArg"
);
####################
sub MSwitch_Initialize($) {
my ($hash) = @_;
$hash->{SetFn} = "MSwitch_Set";
$hash->{AsyncOutput} = "MSwitch_AsyncOutput";
$hash->{RenameFn} = "MSwitch_Rename";
$hash->{CopyFn} = "MSwitch_Copy";
$hash->{GetFn} = "MSwitch_Get";
$hash->{DefFn} = "MSwitch_Define";
$hash->{UndefFn} = "MSwitch_Undef";
$hash->{DeleteFn} = "MSwitch_Delete";
$hash->{ParseFn} = "MSwitch_Parse";
$hash->{AttrFn} = "MSwitch_Attr";
$hash->{NotifyFn} = "MSwitch_Notify";
$hash->{FW_detailFn} = "MSwitch_fhemwebFn";
$hash->{ShutdownFn} = "MSwitch_Shutdown";
$hash->{FW_deviceOverview} = 1;
$hash->{FW_summaryFn} = "MSwitch_summary";
$hash->{NotifyOrderPrefix} = "45-";
$hash->{AttrList} =
" disable:0,1"
. " disabledForIntervals"
. " MSwitch_Language:EN,DE"
. " stateFormat:textField-long"
. " MSwitch_Comments:0,1"
. " MSwitch_Read_Log:0,1"
. " MSwitch_Hidecmds"
. " MSwitch_Help:0,1"
. " MSwitch_Debug:0,1,2,3,4"
. " MSwitch_Expert:0,1"
. " MSwitch_Delete_Delays:0,1"
. " MSwitch_Include_Devicecmds:0,1"
. " MSwitch_generate_Events:0,1"
. " MSwitch_Include_Webcmds:0,1"
. " MSwitch_Include_MSwitchcmds:0,1"
. " MSwitch_Activate_MSwitchcmds:0,1"
. " MSwitch_Lock_Quickedit:0,1"
. " MSwitch_Ignore_Types:textField-long "
. " MSwitch_Reset_EVT_CMD1_COUNT"
. " MSwitch_Reset_EVT_CMD2_COUNT"
. " MSwitch_Trigger_Filter"
. " MSwitch_Extensions:0,1"
. " MSwitch_Inforoom"
. " MSwitch_DeleteCMDs:manually,automatic,nosave"
. " MSwitch_Mode:Full,Notify,Toggle,Dummy"
. " MSwitch_Condition_Time:0,1"
. " MSwitch_Selftrigger_always:0,1"
. " MSwitch_RandomTime"
. " MSwitch_RandomNumber"
. " MSwitch_Safemode:0,1"
. " MSwitch_Startdelay:0,10,20,30,60,90,120"
. " MSwitch_Wait"
. " MSwitch_Event_Id_Distributor:textField-long "
. " MSwitch_Sequenz:textField-long "
. " MSwitch_Sequenz_time"
. " MSwitch_setList:textField-long "
. " setList:textField-long "
. " readingList:textField-long "
. " MSwitch_Eventhistory:0,1,2,3,4,5,10,20,30,40,50,60,70,80,90,100,150,200"
. " textField-long "
. $readingFnAttributes;
$hash->{FW_addDetailToSummary} = 0;
}
####################
sub MSwitch_Rename($) {
# routine nicht in funktion
my ( $new_name, $old_name ) = @_;
my $hash_new = $defs{$new_name};
my $hashold = $defs{$new_name}{$old_name};
RemoveInternalTimer($hashold);
Log3( $old_name, 5, "clear rename ! $old_name $new_name" );
my $inhalt = $hashold->{helper}{repeats};
foreach my $a ( sort keys %{$inhalt} )
{
my $key = $hashold->{helper}{repeats}{$a};
RemoveInternalTimer($key);
}
delete( $hashold->{helper}{repeats} );
RemoveInternalTimer($hash_new);
Log3( $old_name, 5, "clear rename ! $old_name $new_name" );
my $inhalt1 = $hash_new->{helper}{repeats};
foreach my $a ( sort keys %{$inhalt1} )
{
my $key = $hash_new->{helper}{repeats}{$a};
RemoveInternalTimer($key);
}
delete( $hash_new->{helper}{repeats} );
delete( $modules{MSwitch}{defptr}{$old_name} );
$modules{MSwitch}{defptr}{$new_name} = $hash_new;
return undef;
}
#####################################
sub MSwitch_Shutdown($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
# speichern gesetzter delays
my $delays = $hash->{helper}{delays};
my $x = 1;
my $seq;
foreach $seq ( keys %{$delays} )
{
readingsSingleUpdate( $hash, "SaveDelay_$x", $seq, 1 );
$x++;
}
delete( $hash->{helper}{devicecmds1} );
delete( $hash->{helper}{last_devicecmd_save} );
return undef;
}
####################
sub MSwitch_Copy ($) {
my ( $old_name, $new_name ) = @_;
my $hash = $defs{$new_name};
my @areadings =qw(.Device_Affected .Device_Affected_Details .Device_Events .First_init .Trigger_Whitelist .Trigger_cmd_off .Trigger_cmd_on .Trigger_condition .Trigger_off .Trigger_on .Trigger_time .V_Check last_exec_cmd Trigger_device Trigger_log last_event state .sysconf Sys_Extension); #alle readings
my $cs = "attr $new_name disable 1";
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) )
{
MSwitch_LOG( $new_name, 1, "ERROR $cs" );
}
foreach my $key (@areadings)
{
my $tmp = ReadingsVal( $old_name, $key, 'undef' );
fhem( "setreading " . $new_name . " " . $key . " " . $tmp );
}
MSwitch_LoadHelper($hash);
}
####################
sub MSwitch_summary($) {
my ( $wname, $name, $room ,$test1) = @_;
my $hash = $defs{$name};
my $testroom = AttrVal( $name, 'MSwitch_Inforoom', 'undef' );
if (exists $hash->{helper}{mode} && $hash->{helper}{mode} eq "absorb")
{
return "Device ist im Konfigurationsmodus.";
}
my @areadings = ( keys %{$test1} );
if ( !grep /group/, @areadings )
{
return;
}
if ( $testroom ne $room ) { return; }
my $test = AttrVal( $name, 'comment', '0' );
my $info = AttrVal( $name, 'comment', 'No Info saved at ATTR omment' );
my $image = ReadingsVal( $name, 'state', 'undef' );
my $ret = '';
my $devtitle = '';
my $option = '';
my $html = '';
my $triggerc = 1;
my $timer = 1;
my $trigger = ReadingsVal( $name, 'Trigger_device', 'undef' );
my @devaff = split( / /, MSwitch_makeAffected($hash) );
$option .= "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, 5, "start checkinit !" );#LOG
my $oldtrigger = ReadingsVal( $Name, 'Trigger_device', 'undef' );
if ( $oldtrigger ne 'undef')
{
$hash->{NOTIFYDEV} = $oldtrigger;
readingsSingleUpdate( $hash, "Trigger_device", $oldtrigger, 0 );
}
}
####################
sub MSwitch_LoadHelper($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $oldtrigger = ReadingsVal( $Name, 'Trigger_device', 'undef' );
my $devhash = undef;
my $cdev = '';
my $ctrigg = '';
if ( $hash->{INIT} eq "def" )
{
return;
}
if ( defined $hash->{DEF} )
{
$devhash = $hash->{DEF};
my @dev = split( /#/, $devhash );
$devhash = $dev[0];
( $cdev, $ctrigg ) = split( / /, $devhash );
if ( defined $ctrigg )
{
$ctrigg =~ s/\.//g;
}
else
{
$ctrigg = '';
}
if ( defined $devhash )
{
$hash->{NOTIFYDEV} = $cdev; # stand auf global ... änderung auf ...
if ( defined $cdev && $cdev ne '' )
{
readingsSingleUpdate( $hash, "Trigger_device", $cdev, 0 );
}
}
else
{
$hash->{NOTIFYDEV} = 'no_trigger';
readingsSingleUpdate( $hash, "Trigger_device", 'no_trigger', 0 );
}
}
if (!defined $hash->{NOTIFYDEV}|| $hash->{NOTIFYDEV} eq 'undef'|| $hash->{NOTIFYDEV} eq '' )
{
$hash->{NOTIFYDEV} = 'no_trigger';
}
if ( $oldtrigger ne 'undef' )
{
$hash->{NOTIFYDEV} = $oldtrigger;
readingsSingleUpdate( $hash, "Trigger_device", $oldtrigger, 0 );
}
#################
MSwitch_set_dev($hash);
################
if ( AttrVal( $Name, 'MSwitch_Activate_MSwitchcmds', "0" ) eq '1' ) {
addToAttrList('MSwitchcmd');
}
################ erste initialisierung eines devices
if ( ReadingsVal( $Name, '.V_Check', 'undef' ) ne $vupdate && $autoupdate eq "on" )
{
MSwitch_VUpdate($hash);
}
################
if ( ReadingsVal( $Name, '.First_init', 'undef' ) ne 'done' )
{
$hash->{helper}{config} ="no_config";
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, ".V_Check", $vupdate );
readingsBulkUpdate( $hash, "state", 'active' );
if ( defined $ctrigg && $ctrigg ne '' )
{
readingsBulkUpdate( $hash, ".Device_Events", $ctrigg );
$hash->{DEF} = $cdev;
}
else
{
readingsBulkUpdate( $hash, ".Device_Events", 'no_trigger' );
}
readingsBulkUpdate( $hash, ".Trigger_on", 'no_trigger' );
readingsBulkUpdate( $hash, ".Trigger_off", 'no_trigger' );
readingsBulkUpdate( $hash, ".Trigger_cmd_on", 'no_trigger' );
readingsBulkUpdate( $hash, ".Trigger_cmd_off", 'no_trigger' );
readingsBulkUpdate( $hash, "Trigger_log", 'off' );
readingsBulkUpdate( $hash, ".Device_Affected", 'no_device' );
readingsBulkUpdate( $hash, ".First_init", 'done' );
readingsBulkUpdate( $hash, ".V_Check", $vupdate );
readingsEndUpdate( $hash, 0 );
# setze ignoreliste
$attr{$Name}{MSwitch_Ignore_Types} = join( " ", @doignore );
# setze attr inforoom
my $testdev = '';
LOOP22:
foreach my $testdevices ( keys %{ $modules{MSwitch}{defptr} } )
{
if ( $Name eq $testdevices ) { next LOOP22; }
$testdev = AttrVal( $testdevices, 'MSwitch_Inforoom', '' );
}
if ( $testdev ne '' )
{
$attr{$Name}{MSwitch_Inforoom} = $testdev,;
}
#setze alle attrs
$attr{$Name}{MSwitch_Eventhistory} = '0';
$attr{$Name}{MSwitch_Safemode} = '1';
$attr{$Name}{MSwitch_Help} = '0';
$attr{$Name}{MSwitch_Debug} = '0';
$attr{$Name}{MSwitch_Expert} = '0';
$attr{$Name}{MSwitch_Delete_Delays} = '1';
$attr{$Name}{MSwitch_Include_Devicecmds} = '1';
$attr{$Name}{MSwitch_Include_Webcmds} = '0';
$attr{$Name}{MSwitch_Include_MSwitchcmds} = '0';
$attr{$Name}{MSwitch_Include_MSwitchcmds} = '0';
$attr{$Name}{MSwitch_Lock_Quickedit} = '1';
$attr{$Name}{MSwitch_Extensions} = '0';
$attr{$Name}{MSwitch_Mode} = $startmode;
fhem("attr $Name room MSwitch_Devices") ;
}
# NEU; ZUVOR IN SET
my $testnew = ReadingsVal( $Name, '.Trigger_on', 'undef' );
if ( $testnew eq 'undef' )
{
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, ".Device_Events", 'no_trigger' );
readingsBulkUpdate( $hash, ".Trigger_on", 'no_trigger' );
readingsBulkUpdate( $hash, ".Trigger_off", 'no_trigger' );
readingsBulkUpdate( $hash, "Trigger_log", 'on' );
readingsBulkUpdate( $hash, ".Device_Affected", 'no_device' );
readingsEndUpdate( $hash, 0 );
}
MSwitch_Createtimer($hash); #Neustart aller timer
#### savedelays einlesen
my $counter = 1;
while ( ReadingsVal( $Name, 'SaveDelay_' . $counter, 'undef' ) ne "undef" )
{
my $del = ReadingsVal( $Name, 'SaveDelay_' . $counter, 'undef' );
my @msgarray = split( /#\[tr\]/, $del );
my $timecond = $msgarray[4];
if ( $timecond > time )
{
$hash->{helper}{delays}{$del} = $timecond;
InternalTimer( $timecond, "MSwitch_Restartcmd", $del );
}
$counter++;
}
fhem("deletereading $Name SaveDelay_.*");
}
####################
sub MSwitch_Define($$) {
my $loglevel = 0;
my ( $hash, $def ) = @_;
my @a = split( "[ \t][ \t]*", $def );
my $name = $a[0];
my $devpointer = $name;
my $devhash = '';
my $defstring = '';
foreach (@a)
{
next if $_ eq $a[0];
next if $_ eq $a[1];
$defstring = $defstring . $_ . " ";
}
$modules{MSwitch}{defptr}{$devpointer} = $hash;
$hash->{Version_Modul} = $version;
$hash->{Version_Datenstruktur} = $vupdate;
$hash->{Version_autoupdate} = $autoupdate;
$hash->{MODEL} = $startmode;
$hash->{Support_Fhemforum} = "https://forum.fhem.de/index.php/topic,86199.0.html";
if ( $defstring ne "" and $defstring =~ m/(\(.+?\))/ ) {
Log3( $name, 0, "ERROR MSwitch define over onelinemode deactivated" );#LOG
return "This mode is deactivated";
# $hash->{INIT} = 'define';
# MSwitch_Define1( $hash, $defstring );
return;
}
else
{
$hash->{INIT} = 'fhem.save';
}
if ( $init_done && !defined( $hash->{OLDDEF} ) )
{
my $timecond = gettimeofday() + 5;
InternalTimer( $timecond, "MSwitch_check_init", $hash );
}
return;
}
####################
sub MSwitch_Get($$@) {
my ( $hash, $name, $opt, @args ) = @_;
my $ret;
if ( ReadingsVal( $name, '.change', '' ) ne '' )
{
return "Unknown argument, choose one of ";
}
return "\"get $name\" needs at least one argument" unless ( defined($opt) );
####################
if ( $opt eq 'restore_MSwitch_Data' && $args[0] eq "this_Device" )
{
$ret = MSwitch_backup_this($hash);
return $ret;
}
####################
my $KLAMMERFEHLER;
my $CONDTRUE;
my $CONDTRUE1;
my $KLARZEITEN;
my $READINGSTATE;
my $NOREADING;
my $INHALT;
my $INCOMMINGSTRING;
my $STATEMENTPERL;
my $SYNTAXERROR;
my $DELAYDELETE;
my $NOTIMER;
my $SYSTEMZEIT;
my $SCHALTZEIT;
if (AttrVal( $name, 'MSwitch_Language',AttrVal( 'global', 'language', 'EN' ) ) eq "DE")
{
$KLAMMERFEHLER ="Fehler in der Klammersetzung, die Anzahl öffnender und schliessender Klammern stimmt nicht überein.";
$CONDTRUE="Bedingung ist Wahr und wird ausgeführt";
$CONDTRUE1="Bedingung ist nicht Wahr und wird nicht ausgeführt";
$KLARZEITEN="If Anweisung Perl Klarzeiten:";
$READINGSTATE="Status der geprüften Readings:";
$NOREADING="Reading nicht vorhanden !";
$INHALT="Inhalt:";
$INCOMMINGSTRING="eingehender String:";
$STATEMENTPERL="If Anweisung Perl:";
$SYNTAXERROR="Syntaxfehler:";
$DELAYDELETE="INFO: Alle anstehenden Timer wurden neu berechnet, alle Delays wurden gelöscht";
$NOTIMER="Timer werden nicht ausgeführt";
$SYSTEMZEIT="Systemzeit:";
$SCHALTZEIT="Schaltzeiten (at - kommandos)";
}
else
{
$KLAMMERFEHLER ="Error in brace replacement, number of opening and closing parentheses does not match.";
$CONDTRUE="Condition is true and is executed";
$CONDTRUE1="Condition is not true and will not be executed";
$KLARZEITEN="If statement Perl clears:";
$READINGSTATE="States of the checked readings:";
$NOREADING="Reading not available!";
$INHALT="content:";
$INCOMMINGSTRING="Incomming String:";
$STATEMENTPERL="If statement Perl:";
$SYNTAXERROR="Syntaxerror:";
$DELAYDELETE="INFO: All pending timers have been recalculated, all delays have been deleted";
$NOTIMER="Timers are not running";
$SYSTEMZEIT="system time:";
$SCHALTZEIT="Switching times (at - commands)";
}
if ( $opt eq 'MSwitch_preconf' )
{
MSwitch_setconfig( $hash, $args[0] );
return"MSwitch_preconfig for $name has loaded.\nPlease refresh device.";
}
####################
if ( $opt eq 'Eventlog' )
{
$ret = MSwitch_Eventlog($hash,$args[0]);
return $ret;
}
########################
if ( $opt eq 'restore_MSwitch_Data' && $args[0] eq "all_Devices" )
{
open( BACKUPDATEI, "{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 =''.$SYNTAXERROR.'
'.$SYNTAXERROR.'
".$NOREADING."
" 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() . "
".$SCHALTZEIT."
". $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 "".$SCHALTZEIT."
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" )
{
if (AttrVal( $name, "MSwitch_Selftrigger_always", 0 ) eq "1")
{
return "Unknown argument $opt, choose one of Eventlog:timeline,clear config:noArg support_info:noArg restore_MSwitch_Data:this_Device,all_Devices active_timer:show,delete";
}
else
{
return "Unknown argument $opt, choose one of support_info:noArg restore_MSwitch_Data:this_Device,all_Devices";
}
}
if ( ReadingsVal( $name, '.lock', 'undef' ) ne "undef" )
{
return "Unknown argument $opt, choose one of active_timer:show,delete config:noArg restore_MSwitch_Data:this_Device,all_Devices ";
}
else
{
return "Unknown argument $opt, choose one of Eventlog:sequenzformated,timeline,clear support_info:noArg config:noArg active_timer:show,delete restore_MSwitch_Data:this_Device,all_Devices $extension";
}
}
####################
sub MSwitch_AsyncOutput ($) {
my ( $client_hash, $text ) = @_;
return $text;
}
####################
sub MSwitch_Set($@) {
my ( $hash, $name, $cmd, @args ) = @_;
#MSwitch_LOG( $name, 6, "$name Set $cmd, @args " . __LINE__ );
my $dynlist ="";
if ($cmd ne "?"){
MSwitch_LOG( $name, 6, "----------------------------------------" );
MSwitch_LOG( $name, 6, "AUSFUEHRUNG SET" );
MSwitch_LOG( $name, 6, "----------------------------------------" );
MSwitch_LOG( $name, 6, "eingehendr Befehl: Set $cmd, @args " );
}
#lösche saveddevicecmd
MSwitch_del_savedcmds($hash);
return "" if ( IsDisabled($name) && ( $cmd eq 'on' || $cmd eq 'off' ) );# Return without any further action if the module is disabled
my $execids = "0";
$hash->{eventsave} = 'unsaved';
my $ic = 'leer';
$ic = $hash->{IncommingHandle} if ( $hash->{IncommingHandle} );
my $showevents = AttrVal( $name, "MSwitch_generate_Events", 1 );
my $devicemode = AttrVal( $name, 'MSwitch_Mode', 'Notify' );
my $delaymode = AttrVal( $name, 'MSwitch_Delete_Delays', '0' );
###################################################################################
# verry special commands readingactivated (
my $special = '';
my $cs = ReadingsVal( $name, '.sysconf', 'undef' );
if ( $cs ne "undef" ) {
$cs =~ s/#\[tr\]/[tr]/g;
$cs =~ s/#\[wa\]/|/g;
$cs =~ s/#\[sp\]/ /g;
$cs =~ s/#\[nl\]/\n/g;
$cs =~ s/#\[se\]/;/g;
$cs =~ s/#\[dp\]/:/g;
$cs =~ s/#\[st\]/'/g;
$cs =~ s/#\[dst\]/\"/g;
$cs =~ s/#\[tab\]/ /g;
$cs =~ s/#\[ko\]/,/g;
$cs =~ s/#.*\n//g;
$cs =~ s/\n//g;
$cs =~ s/\[tr\]/#[tr]/g;
my $return = "no value";
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eval line" . __LINE__ );
}
$return = eval($cs);
if ($@)
{
MSwitch_LOG( $name, 1,"$name MSwitch_repeat: ERROR $cs: $@ " . __LINE__ );
}
return if $return eq "exit";
}
##########################
# mswitch dyn setlist
my $mswitchsetlist = AttrVal( $name, 'MSwitch_setList', "undef" );
my @arraydynsetlist;
my @arraydynreadinglist;
my $dynsetlist ;
if ($mswitchsetlist ne "undef")
{
my @dynsetlist = split( / /,$mswitchsetlist);
foreach my $test (@dynsetlist)
{
if ( $test =~ m/(.*)\[(.*)\]:?(.*)/ )
{
my @found_devices = devspec2array($2);
if ($1 ne "")
{
my $reading = $1;
chop ($reading);
push @arraydynsetlist, $reading;
$dynlist =join( ',', @found_devices );
$dynsetlist=$dynsetlist.$reading.":".$dynlist." ";
}
if ($3 ne "")
{
my $sets = $3;
foreach my $test1 (@found_devices)
{
push @arraydynsetlist, $test1;
$dynsetlist=$dynsetlist.$test1.":".$sets." ";
}
@arraydynreadinglist=@found_devices;
}
}
else
{
$dynsetlist=$dynsetlist.$test;
}
}
}
###########################
# nur bei funktionen in setlist !!!!
if ( AttrVal( $name, "MSwitch_Selftrigger_always", 0 ) eq "1" and $cmd ne "?" )
{
# && defined $setlist{$cmd}
my $atts = AttrVal( $name, 'setList', "" );
my @testarray = split( " ", $atts );
my %setlist;
foreach (@testarray)
{
my ($arg1,$arg2) = split( ":", $_ );
if (!defined $arg2 or $arg2 eq "") {$arg2 = "noArg"}
$setlist{$arg1} = $arg2;
}
MSwitch_Check_Event( $hash, "MSwitch_self:".$cmd.":".$args[0] ) if defined $setlist{$cmd};
}
if ( AttrVal( $name, "MSwitch_Selftrigger_always", 0 ) eq "1" and $cmd ne "?" )
{
# && defined $setlist{$cmd}
my %setlist;
foreach (@arraydynsetlist)
{
my ($arg1,$arg2) = split( ":", $_ );
if (!defined $arg2 or $arg2 eq "") {$arg2 = "noArg"}
$setlist{$arg1} = $arg2;
}
MSwitch_Check_Event( $hash, "MSwitch_self:".$cmd.":".$args[0] ) if defined $setlist{$cmd};
}
my %setlist;
if ( !defined $args[0] ) { $args[0] = ''; }
my $setList = AttrVal( $name, "setList", " " );
$setList =~ s/\n/ /g;
if ( !exists( $sets{$cmd} ) )
{
my @cList;
# Overwrite %sets with setList
my $atts = AttrVal( $name, 'setList', "" );
my @testarray = split( " ", $atts );
foreach (@testarray)
{
my ($arg1,$arg2) = split( ":", $_ );
if (!defined $arg2 or $arg2 eq "") {$arg2 = "noArg"}
$setlist{$arg1} = $arg2;
}
##########################
foreach my $k ( sort keys %sets )
{
my $opts = undef;
$opts = $sets{$k};
$opts = $setlist{$k} if ( exists( $setlist{$k} ) );
if ( defined($opts) )
{
push( @cList, $k . ':' . $opts );
}
else
{
push( @cList, $k );
}
} # end foreach
if ( ReadingsVal( $name, '.change', '' ) ne '' )
{
return "Unknown argument $cmd, choose one of " if ($name eq "test");
}
# bearbeite setlist und readinglist
##############################
if ( $cmd ne "?" )
{
my @sl = split( " ", AttrVal( $name, "setList", "" ) );
my $re = qr/$cmd/;
my @gefischt = grep( /$re/, @sl );
if ( @sl && grep /$re/, @sl )
{
my @rl = split( " ", AttrVal( $name, "readingList", "" ) );
if ( @rl && grep /$re/, @rl )
{
readingsSingleUpdate( $hash, $cmd, "@args", 1 );
}
else
{
readingsSingleUpdate( $hash, "state", $cmd . " @args", 1 );
}
return;
}
@gefischt = grep( /$re/, @arraydynsetlist );
if ( @arraydynsetlist && grep /$re/, @arraydynsetlist )
{
my @rl = split( " ", AttrVal( $name, "readingList", "" ) );
if (( @rl && grep /$re/, @rl ) || ( @arraydynreadinglist && grep /$re/, @arraydynreadinglist ))
{
readingsSingleUpdate( $hash, $cmd, "@args", 1 );
}
else
{
readingsSingleUpdate( $hash, "state", $cmd . " @args", 1 );
}
return;
}
##############################
# dummy state setzen und exit
if ( $devicemode eq "Dummy" )
{
if ($cmd eq "on" || $cmd eq "off")
{
readingsSingleUpdate( $hash, "state", $cmd . " @args", 1 );
return;
}
else
{
if ( AttrVal( $name, 'useSetExtensions', "0" ) eq '1' )
{
return SetExtensions($hash, $setList, $name, $cmd, @args);
}
else
{
return;
}
}
}
#AUFRUF DEBUGFUNKTIONEN
if ( AttrVal( $name, 'MSwitch_Debug', "0" ) eq '4' )
{
MSwitch_Debug($hash);
}
delete( $hash->{IncommingHandle} );
}
############################################
if (exists $hash->{helper}{config} && $hash->{helper}{config} eq "no_config")
{
return "Unknown argument $cmd, choose one of wizard:noArg"
}
if ( $devicemode eq "Notify" )
{
return "Unknown argument $cmd, choose one of $dynsetlist reset_device:noArg active:noArg inactive:noArg del_function_data:noArg del_delays:noArg backup_MSwitch:all_devices fakeevent exec_cmd_1 exec_cmd_2 wait reload_timer:noArg del_repeats:noArg change_renamed reset_cmd_count:1,2,all $setList $special";
}
elsif ( $devicemode eq "Toggle" )
{
return "Unknown argument $cmd, choose one of $dynsetlist reset_device:noArg active:noArg del_function_data:noArg inactive:noArg on off del_delays:noArg backup_MSwitch:all_devices fakeevent wait reload_timer:noArg del_repeats:noArg change_renamed $setList $special";
}
elsif ( $devicemode eq "Dummy" )
{
if ( AttrVal( $name, 'useSetExtensions', "0" ) eq '1' )
{
return SetExtensions($hash, $setList, $name, $cmd, @args);
}
else
{
if (AttrVal( $name, "MSwitch_Selftrigger_always", 0 ) eq "1")
{
return "Unknown argument $cmd, choose one of $dynsetlist del_repeats:noArg del_delays:noArg exec_cmd_1 exec_cmd_2 reset_device:noArg wait backup_MSwitch:all_devices $setList $special";
}
else
{
return "Unknown argument $cmd, choose one of $dynsetlist reset_device:noArg backup_MSwitch:all_devices $setList $special";
}
}
}
else
{
#full
return "Unknown argument $cmd, choose one of $dynsetlist del_repeats:noArg reset_device:noArg active:noArg del_function_data:noArg inactive:noArg on off del_delays:noArg backup_MSwitch:all_devices fakeevent exec_cmd_1 exec_cmd_2 wait del_repeats:noArg reload_timer:noArg change_renamed reset_cmd_count:1,2,all $setList $special";
}
}
if ((( $cmd eq 'on' ) || ( $cmd eq 'off' ) )&& ( $args[0] ne '' )&& ( $ic ne 'fromnotify' ))
{
readingsSingleUpdate( $hash, "Parameter", $args[0], 1 );
if ( $cmd eq 'on' )
{
$args[0] = "$name:on_with_Parameter:$args[0]";
}
if ( $cmd eq 'off' )
{
$args[0] = "$name:off_with_Parameter:$args[0]";
}
}
if ( AttrVal( $name, 'MSwitch_RandomNumber', '' ) ne '' )
{
# randomnunner erzeugen wenn attr an
MSwitch_Createnumber1($hash);
}
#############################
#absorb
if ( $cmd eq 'wizard' )
{
$hash->{helper}{mode} ='absorb';
$hash->{helper}{modesince} =time;
}
##############################
if ( $cmd eq 'reset_device' )
{
if ($args[0] eq 'checked' )
{
$hash->{helper}{config} ="no_config";
#readings
my $testreading = $hash->{READINGS};
delete $hash->{DEF};
MSwitch_Delete_Delay( $hash, $name );
my $inhalt = $hash->{helper}{repeats};
foreach my $a ( sort keys %{$inhalt} )
{
my $key = $hash->{helper}{repeats}{$a};
RemoveInternalTimer($key);
}
delete( $hash->{helper}{repeats} );
delete( $hash->{helper}{devicecmds1} );
delete( $hash->{helper}{last_devicecmd_save} );
delete( $hash->{helper}{eventhistory});
delete( $hash->{IncommingHandle} );
delete( $hash->{helper}{eventtoid} );
delete( $hash->{helper}{savemodeblock} );
delete( $hash->{helper}{sequenz});
delete( $hash->{helper}{history} );
delete( $hash->{helper}{eventlog} );
delete( $hash->{helper}{mode} );
delete( $hash->{helper}{reset} );
delete( $hash->{READINGS} );
# attribute
my %keys;
my $oldinforoom = AttrVal( $name, 'MSwitch_Inforoom', 'undef' );
my $oldroom =AttrVal( $name, 'MSwitch_Inforoom', 'undef' );
foreach my $attrdevice ( keys %{ $attr{$name} } )#geht
{
fhem("deleteattr $name $attrdevice ");
}
$hash->{Version_Modul} = $version;
$hash->{Version_Datenstruktur} = $vupdate;
$hash->{Version_autoupdate} = $autoupdate;
$hash->{MODEL} = $startmode;
$hash->{Support_Fhemforum} = "https://forum.fhem.de/index.php/topic,86199.0.html";
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, ".Device_Events", "no_trigger", 1 );
readingsBulkUpdate( $hash, ".Trigger_cmd_off", "no_trigger", 1 );
readingsBulkUpdate( $hash, ".Trigger_cmd_on", "no_trigger", 1 );
readingsBulkUpdate( $hash, ".Trigger_off", "no_trigger", 1 );
readingsBulkUpdate( $hash, ".Trigger_on", "no_trigger", 1 );
readingsBulkUpdate( $hash, "Trigger_device", "no_trigger", 1 );
readingsBulkUpdate( $hash, "Trigger_log", "off", 1 );
readingsBulkUpdate( $hash, "state", "active", 1 );
readingsBulkUpdate( $hash, ".V_Check", $vupdate, 1 );
readingsBulkUpdate( $hash, ".First_init", 'done' );
readingsEndUpdate( $hash, 0 );
my $attrdefinelist =
" disable:0,1"
. " disabledForIntervals"
. " stateFormat:textField-long"
. " MSwitch_Comments:0,1"
. " MSwitch_Read_Log:0,1"
. " MSwitch_Hidecmds"
. " MSwitch_Help:0,1"
. " MSwitch_Debug:0,1,2,3,4"
. " MSwitch_Expert:0,1"
. " MSwitch_Delete_Delays:0,1"
. " MSwitch_Include_Devicecmds:0,1"
. " MSwitch_generate_Events:0,1"
. " MSwitch_Include_Webcmds:0,1"
. " MSwitch_Include_MSwitchcmds:0,1"
. " MSwitch_Activate_MSwitchcmds:0,1"
. " MSwitch_Lock_Quickedit:0,1"
. " MSwitch_Ignore_Types:textField-long "
. " MSwitch_Reset_EVT_CMD1_COUNT"
. " MSwitch_Reset_EVT_CMD2_COUNT"
. " MSwitch_Trigger_Filter"
. " MSwitch_Extensions:0,1"
. " MSwitch_Inforoom"
. " MSwitch_DeleteCMDs:manually,automatic,nosave"
. " MSwitch_Mode:Full,Notify,Toggle,Dummy"
. " MSwitch_Condition_Time:0,1"
. " MSwitch_Selftrigger_always:0,1"
. " MSwitch_RandomTime"
. " MSwitch_RandomNumber"
. " MSwitch_Safemode:0,1"
. " MSwitch_Startdelay:0,10,20,30,60,90,120"
. " MSwitch_Wait"
. " MSwitch_Event_Id_Distributor:textField-long "
. " MSwitch_Sequenz:textField-long "
. " MSwitch_Sequenz_time"
. " MSwitch_setList:textField-long "
. " setList:textField-long "
. " readingList:textField-long "
. " MSwitch_Eventhistory:0,1,2,3,4,5,10,20,30,40,50,60,70,80,90,100,150,200"
. " textField-long "
. $readingFnAttributes;
setDevAttrList( $name, $attrdefinelist );
$hash->{NOTIFYDEV} = 'no_trigger';
$attr{$name}{MSwitch_Eventhistory} = '0';
$attr{$name}{MSwitch_Safemode} = '1';
$attr{$name}{MSwitch_Help} = '0';
$attr{$name}{MSwitch_Debug} = '0';
$attr{$name}{MSwitch_Expert} = '0';
$attr{$name}{MSwitch_Delete_Delays} = '1';
$attr{$name}{MSwitch_Include_Devicecmds} = '1';
$attr{$name}{MSwitch_Include_Webcmds} = '0';
$attr{$name}{MSwitch_Include_MSwitchcmds} = '0';
$attr{$name}{MSwitch_Lock_Quickedit} = '1';
$attr{$name}{MSwitch_Extensions} = '0';
$attr{$name}{room} = $oldroom if $oldroom ne "undef";
$attr{$name}{MSwitch_Mode} = $startmode;
$attr{$name}{MSwitch_Ignore_Types} = join( " ", @doignore );
fhem("attr $name MSwitch_Inforoom $oldinforoom") if $oldinforoom ne "undef";
return;
}
my $client_hash = $hash->{CL};
$hash->{helper}{tmp}{reset}="on";
return;
}
##############################
if ( $cmd eq 'del_delays' )
{
# löschen aller delays
MSwitch_Delete_Delay( $hash, $name );
MSwitch_Createtimer($hash);
return;
}
##############################
if ( $cmd eq 'del_repeats' )
{
my $inhalt = $hash->{helper}{repeats};
foreach my $a ( sort keys %{$inhalt} )
{
my $key = $hash->{helper}{repeats}{$a};
RemoveInternalTimer($key);
}
delete( $hash->{helper}{repeats} );
return;
# MSwitch_Delete_Delay( $hash, $name );
}
##############################
if ( $cmd eq 'inactive' )
{
# setze device auf inaktiv
readingsSingleUpdate( $hash, "state", 'inactive', 1 );
return;
}
##############################
if ( $cmd eq 'active' )
{
# setze device auf aktiv
readingsSingleUpdate( $hash, "state", 'active', 1 );
return;
}
##############################
if ( $cmd eq 'change_renamed' )
{
my $changestring = $args[0] . "#" . $args[1];
MSwitch_confchange( $hash, $changestring );
return;
}
##################################
if ( $cmd eq 'reset_cmd_count' )
{
if ( $args[0] eq "1" )
{
readingsSingleUpdate( $hash, "EVT_CMD1_COUNT", 0, 1 );
}
if ( $args[0] eq "2" )
{
readingsSingleUpdate( $hash, "EVT_CMD2_COUNT", 0, 1 );
}
if ( $args[0] eq "all" )
{
readingsSingleUpdate( $hash, "EVT_CMD1_COUNT", 0, 1 );
readingsSingleUpdate( $hash, "EVT_CMD2_COUNT", 0, 1 );
}
return;
}
#######################################
if ( $cmd eq 'reload_timer' )
{
MSwitch_Clear_timer($hash);
MSwitch_Createtimer($hash);
return;
}
#######################################
if ( $cmd eq 'Writesequenz' )
{
MSwitch_Writesequenz($hash);
return;
}
#######################################
if ( $cmd eq 'VUpdate' )
{
MSwitch_VUpdate($hash);
return;
}
#######################################
if ( $cmd eq 'confchange' )
{
MSwitch_confchange( $hash, $args[0] );
return;
}
###################################
if ( $cmd eq 'clearlog' )
{
MSwitch_clearlog($hash);
return;
}
###################################
if ( $cmd eq 'deletesinglelog' )
{
my $ret = MSwitch_delete_singlelog( $hash, $args[0] );
return ;
}
##############################
if ( $cmd eq 'wait' )
{
readingsSingleUpdate( $hash, "waiting", ( time + $args[0] ),$showevents );
return;
}
###############################
if ( $cmd eq 'sort_device' )
{
readingsSingleUpdate( $hash, ".sortby", $args[0], 0 );
return;
}
if ( $cmd eq 'fakeevent' )
{
# fakeevent abarbeiten
MSwitch_Check_Event( $hash, $args[0] );
return;
}
##############################
if ( $cmd eq 'exec_cmd_1' )
{
if ( $args[0] eq 'ID' )
{
$execids = $args[1];
$args[0] = 'ID';
}
if ( $args[0] eq "" )
{
MSwitch_Exec_Notif( $hash, 'on', 'nocheck', '', 0 );
return;
}
if ( $args[0] ne 'ID' || $args[0] ne '' )
{
if ( $args[1] !~ m/\d/ )
{
Log3($name,1,"error at id call $args[1]: format must be exec_cmd_1 " );
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" )
{
delete( $hash->{helper}{config} );
# event manuell zufügen
my $devName = ReadingsVal( $name, 'Trigger_device', '' );
$args[0] =~ s/\[sp\]/ /g;
my @newevents = split( /,/, $args[0] );
if ( ReadingsVal( $name, 'Trigger_device', '' ) eq "all_events" )
{
foreach (@newevents)
{
$hash->{helper}{events}{all_events}{$_} = "on";
}
}
else {
foreach (@newevents)
{
$hash->{helper}{events}{$devName}{$_} = "on";
}
}
my $events = '';
my $eventhash = $hash->{helper}{events}{$devName};
foreach my $name ( keys %{$eventhash} )
{
$events = $events . $name . '#[tr]';
}
chop($events);
chop($events);
chop($events);
chop($events);
chop($events);
readingsSingleUpdate( $hash, ".Device_Events", $events, 0 );
return;
}
##############################
if ( $cmd eq "add_device" )
{
delete( $hash->{helper}{config} );
#add device
MSwitch_Add_Device( $hash, $args[0] );
return;
}
##############################
if ( $cmd eq "del_device" )
{
#del device
MSwitch_Del_Device( $hash, $args[0] );
return;
}
##############################
if ( $cmd eq "del_trigger" )
{
#lösche trigger
MSwitch_Delete_Triggermemory($hash);
return;
}
##############################
if ( $cmd eq "filter_trigger" )
{
#filter to trigger
MSwitch_Filter_Trigger($hash);
return;
}
##############################
if ( $cmd eq "set_trigger" )
{
delete( $hash->{helper}{config} );
delete( $hash->{helper}{wrongtimespeccond} );
chop( $args[1], $args[2], $args[3], $args[4], $args[5], $args[6] );
my $triggertime = 'on'
. $args[1] . '~off'
. $args[2]
. '~ononly'
. $args[3]
. '~offonly'
. $args[4]
. '~onoffonly'
. $args[5];
my $oldtrigger = ReadingsVal( $name, 'Trigger_device', '' );
readingsSingleUpdate( $hash, "Trigger_device", $args[0], '1' );
readingsSingleUpdate( $hash, ".Trigger_condition", $args[6], 0 );
if ( !defined $args[7] )
{
readingsDelete( $hash, '.Trigger_Whitelist' );
}
else
{
readingsSingleUpdate( $hash, ".Trigger_Whitelist", $args[7], 0 );
}
my $testtrig = ReadingsVal( $name, 'Trigger_device', '' );
if ( $oldtrigger ne $args[0] )
{
MSwitch_Delete_Triggermemory($hash); # lösche alle events
}
if ( $args[1] ne ''
|| $args[2] ne ''
|| $args[3] ne ''
|| $args[4] ne ''
|| $args[5] ne '' )
{
readingsSingleUpdate( $hash, ".Trigger_time", $triggertime, 0 );
MSwitch_Createtimer($hash);
}
else
{
readingsSingleUpdate( $hash, ".Trigger_time", '', 0 );
MSwitch_Clear_timer($hash);
}
$hash->{helper}{events}{ $args[0] }{'no_trigger'} = "on";
if ( $args[0] ne 'no_trigger' )
{
if ( $args[0] eq "all_events" )
{
delete( $hash->{NOTIFYDEV} );
if ( ReadingsVal( $name, '.Trigger_Whitelist', '' ) ne '' )
{
$hash->{NOTIFYDEV} =
ReadingsVal( $name, '.Trigger_Whitelist', '' );
}
}
else
{
if ( $args[0] ne "MSwitch_Self" )
{
$hash->{NOTIFYDEV} = $args[0];
my $devices = MSwitch_makeAffected($hash);
$hash->{DEF} = $args[0] . ' # ' . $devices;
}
else
{
$hash->{NOTIFYDEV} = $name;
my $devices = MSwitch_makeAffected($hash);
$hash->{DEF} = $name . ' # ' . $devices;
}
}
}
else
{
$hash->{NOTIFYDEV} = 'no_trigger';
delete $hash->{DEF};
}
return;
}
##############################
if ( $cmd eq "trigger" ) {
delete( $hash->{helper}{config} );
# setze trigger events
my $triggeron = '';
my $triggeroff = '';
my $triggercmdon = '';
my $triggercmdoff = '';
$args[0] =~ s/~/ /g;
$args[1] =~ s/~/ /g;
$args[2] =~ s/~/ /g;
$args[3] =~ s/~/ /g;
$args[4] =~ s/~/ /g;
if ( !defined $args[1] ) { $args[1] = "" }
if ( !defined $args[3] ) { $args[3] = "" }
$triggeron = $args[0];
$triggeroff = $args[1];
if ( !defined $args[3] ) { $args[3] = "" }
if ( !defined $args[4] ) { $args[4] = "" }
$triggercmdon = $args[3];
$triggercmdoff = $args[4];
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, ".Trigger_on", $triggeron );
readingsBulkUpdate( $hash, ".Trigger_off", $triggeroff );
if ( $args[2] eq 'nein' )
{
readingsBulkUpdate( $hash, "Trigger_log", 'off' );
}
if ( $args[2] eq 'ja' )
{
readingsBulkUpdate( $hash, "Trigger_log", 'on' );
}
readingsBulkUpdate( $hash, ".Trigger_cmd_on", $triggercmdon );
readingsBulkUpdate( $hash, ".Trigger_cmd_off", $triggercmdoff );
readingsEndUpdate( $hash, 0 );
return if $hash->{INIT} ne 'define';
my $definition = $hash->{DEF};
$definition =~ s/\n/#[nl]/g;
$definition =~ m/(\(.+?\))(.*)/;
my $part1 = $1;
my $part2 = $2;
my $device = ReadingsVal( $name, 'Trigger_device', '' );
my $newtrigger = "([" . $device . ":" . $args[3] . "])" . $part2;
$newtrigger =~ s/#\[nl\]/\n/g;
$hash->{DEF} = $newtrigger;
fhem( "modify $name " . $newtrigger );
return;
}
##############################
if ( $cmd eq "devices" )
{
delete( $hash->{helper}{config} );
# setze devices
my $devices = $args[0];
if ( $devices eq 'null' )
{
readingsSingleUpdate( $hash, ".Device_Affected", 'no_device', 0 );
return;
}
my @olddevices = split( /,/, ReadingsVal( $name, '.Device_Affected', 'no_device' ) );
my @devices = split( /,/, $args[0] );
my $addolddevice = '';
foreach (@devices)
{
my $testdev = $_;
LOOP6: foreach my $olddev (@olddevices)
{
my $oldcmd = '';
my $oldname = '';
( $oldname, $oldcmd ) = split( /-AbsCmd/, $olddev );
if ( !defined $oldcmd ) { $oldcmd = '' }
if ( $oldcmd eq '1' ) { next LOOP6 }
if ( $oldname eq $testdev )
{
$addolddevice = $addolddevice . $olddev . ',';
}
}
$_ = $_ . '-AbsCmd1';
}
chop($addolddevice);
$devices = join( ',', @devices ) . ',' . $addolddevice;
my @sortdevices = split( /,/, $devices );
@sortdevices = sort @sortdevices;
$devices = join( ',', @sortdevices );
readingsSingleUpdate( $hash, ".Device_Affected", $devices, 0 );
$devices = MSwitch_makeAffected($hash);
if ( defined $hash->{DEF} )
{
my $devhash = $hash->{DEF};
my @dev = split( /#/, $devhash );
$hash->{DEF} = $dev[0] . ' # ' . $devices;
}
else
{
$hash->{DEF} = ' # ' . $devices;
}
return;
}
##############################
if ( $cmd eq "details" )
{
delete( $hash->{helper}{config} );
# setze devices details
$args[0] = urlDecode( $args[0] );
$args[0] =~ s/#\[pr\]/%/g;
#devicehasch
my %devhash = split( /#\[DN\]/, $args[0] );
my @devices = split( /,/, ReadingsVal( $name, '.Device_Affected', '' ) );
my @inputcmds = split( /#\[ND\]/, $args[0] );
my $error = '';
my $key = '';
my $savedetails = '';
my $devicecmd = '';
LOOP10: foreach (@devices)
{
my @devicecmds = split( /#\[NF\]/, $devhash{$_} );
if ( $_ eq "FreeCmd-AbsCmd1" )
{
$devicecmd = $devicecmds[2];
}
$savedetails = $savedetails . $_ . '#[NF]';
$savedetails = $savedetails . $devicecmds[0] . '#[NF]';
$savedetails = $savedetails . $devicecmds[1] . '#[NF]';
$savedetails = $savedetails . $devicecmds[2] . '#[NF]';
$savedetails = $savedetails . $devicecmds[3] . '#[NF]';
$savedetails = $savedetails . $devicecmds[4] . '#[NF]';
$savedetails = $savedetails . $devicecmds[5] . '#[NF]';
$savedetails = $savedetails . $devicecmds[7] . '#[NF]';
$savedetails = $savedetails . $devicecmds[6] . '#[NF]';
if ( defined $devicecmds[8] )
{
$savedetails = $savedetails . $devicecmds[8] . '#[NF]';
}
else
{
$savedetails = $savedetails . '' . '#[NF]';
}
if ( defined $devicecmds[9] )
{
$savedetails = $savedetails . $devicecmds[9] . '#[NF]';
}
else
{
$savedetails = $savedetails . '' . '#[NF]';
}
if ( defined $devicecmds[10] ) {
$savedetails = $savedetails . $devicecmds[10] . '#[NF]';
}
else
{
$savedetails = $savedetails . '' . '#[NF]';
}
if ( defined $devicecmds[11] )
{
$savedetails = $savedetails . $devicecmds[11] . '#[NF]';
}
else
{
$savedetails = $savedetails . '' . '#[NF]';
}
# priority
if ( defined $devicecmds[12] && $devicecmds[12] ne 'undefined' )
{
$savedetails = $savedetails . $devicecmds[12] . '#[NF]';
}
else
{
$savedetails = $savedetails . '1' . '#[NF]';
}
# id
if ( defined $devicecmds[13] && $devicecmds[13] ne 'undefined' )
{
$savedetails = $savedetails . $devicecmds[13] . '#[NF]';
}
else
{
$savedetails = $savedetails . '0' . '#[NF]';
}
# comment
if ( defined $devicecmds[14] && $devicecmds[14] ne 'undefined' )
{
$savedetails = $savedetails . $devicecmds[14] . '#[NF]';
}
else
{
$savedetails = $savedetails . '' . '#[NF]';
}
# exit1
if ( defined $devicecmds[15] && $devicecmds[15] ne 'undefined' )
{
$savedetails = $savedetails . $devicecmds[15] . '#[NF]';
}
else
{
$savedetails = $savedetails . '0' . '#[NF]';
}
# exit2
if ( defined $devicecmds[16] && $devicecmds[16] ne 'undefined' )
{
$savedetails = $savedetails . $devicecmds[16] . '#[NF]';
}
else
{
$savedetails = $savedetails . '0' . '#[NF]';
}
# show
if ( defined $devicecmds[17] && $devicecmds[17] ne 'undefined' )
{
$savedetails = $savedetails . $devicecmds[17] . '#[NF]';
}
else
{
$savedetails = $savedetails . '1' . '#[NF]';
}
# show
if ( defined $devicecmds[18] && $devicecmds[18] ne 'undefined' )
{
$savedetails = $savedetails . $devicecmds[18] . '#[ND]';
}
else
{
$savedetails = $savedetails . '0' . '#[ND]';
}
# $counter++;
}
chop($savedetails);
chop($savedetails);
chop($savedetails);
chop($savedetails);
chop($savedetails);
# ersetzung sonderzeichen etc mscode
# auskommentierte wurden bereits dur jscript ersetzt
$savedetails =~ s/\n/#[nl]/g;
$savedetails =~ s/\t/ /g;
$savedetails =~ s/ /#[sp]/g;
$savedetails =~ s/\\/#[bs]/g;
$savedetails =~ s/,/#[ko]/g;
$savedetails =~ s/^#\[/#[eo]/g;
$savedetails =~ s/^#\]/#[ec]/g;
$savedetails =~ s/\|/#[wa]/g;
$savedetails =~ s/\|/#[ti]/g;
readingsSingleUpdate( $hash, ".Device_Affected_Details", $savedetails,0 );
return if $hash->{INIT} ne 'define';
my $definition = $hash->{DEF};
$definition =~ m/(\(.+?\))(.*)/;
my $part1 = $1;
my $part2 = $2;
$devicecmd =~ s/#\[sp\]/ /g;
$devicecmd =~ s/#\[nl\]/\\n/g;
$devicecmd =~ s/#\[se\]/;/g;
$devicecmd =~ s/#\[dp\]/:/g;
$devicecmd =~ s/#\[st\]/\\'/g;
$devicecmd =~ s/#\[dst\]/\"/g;
$devicecmd =~ s/#\[tab\]/ /g;
$devicecmd =~ s/#\[ko\]/,/g;
$devicecmd =~ s/#\[wa\]/|/g;
$devicecmd =~ s/#\[bs\]/\\\\/g;
my $newdef = $part1 . " ($devicecmd)";
$hash->{DEF} = $newdef;
fhem( "modify $name " . $newdef );
return;
}
##################################
my $update = '';
# unbedingt überarbeiten !!!
my @testdetails =qw(_on _off _onarg _offarg _playback _record _timeon _timeoff _conditionon _conditionoff);
my @testdetailsstandart =( 'no_action', 'no_action', '', '', 'nein', 'nein', 0, 0, '', '' );
##################################
#neu ausführung on/off
if ( $cmd eq "off" || $cmd eq "on" )
{
if ( $devicemode eq "Dummy" && AttrVal( $name, "MSwitch_Selftrigger_always", 0 ) eq "0" )
{
readingsSingleUpdate( $hash, "state", $cmd, 1 );
return;
}
if ( $devicemode eq "Dummy" )
{
if ($cmd eq "on" && ReadingsVal( $name, '.Trigger_cmd_on', 'no_trigger' ) eq "no_trigger")
{
readingsSingleUpdate( $hash, "state", $cmd, 1 );
return;
}
if ($cmd eq "off" && ReadingsVal( $name, '.Trigger_cmd_off', 'no_trigger' ) eq "no_trigger")
{
readingsSingleUpdate( $hash, "state", $cmd, 1 );
return;
}
}
###################################################
### neu
if ( $delaymode eq '1' )
{
MSwitch_Delete_Delay( $hash, $name );
}
############
if ( $ic ne 'fromnotify' && $ic ne 'fromtimer' )
{
readingsSingleUpdate( $hash, "last_activation_by", 'manual',$showevents );
}
delete( $hash->{IncommingHandle} );
# ausführen des off befehls
my $zweig = 'nicht definiert';
$zweig = "cmd1" if $cmd eq "on";
$zweig = "cmd2" if $cmd eq "off";
my $exittest = '';
$exittest = "1" if $cmd eq "on";
$exittest = "2" if $cmd eq "off";
my $ekey = '';
my $out = '0';
MSwitch_Safemode($hash);
MSwitch_LOG( $name, 6, "On/Off Kommando gefunden -> $cmd " . __LINE__ );
my @cmdpool;
my %devicedetails = MSwitch_makeCmdHash($name);
my @devices =split( /,/, ReadingsVal( $name, '.Device_Affected', '' ) );
# liste anpassen ( reihenfolge ) wenn expert = 1
@devices = MSwitch_priority( $hash, $execids, @devices );
my $expertmode = AttrVal( $name, 'MSwitch_Expert', "0" );
my $randomtime = AttrVal( $name, 'MSwitch_RandomTime', '' );
LOOP1: foreach my $device (@devices)
{
$out = '0';
if ( $expertmode eq '1' )
{
$ekey = $device . "_exit" . $exittest;
$out = $devicedetails{$ekey};
}
MSwitch_LOG($name,6, "Angesprochener Befehlszweig: ". $zweig. " " . __LINE__ );
MSwitch_LOG($name,6, "Angesprochenes Device: ". $device . " " . __LINE__ );
# teste auf on kommando
next LOOP1 if $device eq "no_device";
my @devicesplit = split( /-AbsCmd/, $device );
my $devicenamet = $devicesplit[0];
my $count = 0;
foreach my $testset (@testdetails)
{
if ( !defined( $devicedetails{ $device . $testset } ) )
{
my $key = '';
$key = $device . $testset;
$devicedetails{$key} = $testdetailsstandart[$count];
}
$count++;
}
# teste auf delayinhalt
###########################################################
my $key = $device . "_" . $cmd;
my $timerkey = $device . "_time" . $cmd;
if ( $devicedetails{$timerkey} =~ m/{.*}/ )
{
$devicedetails{$timerkey} = eval $devicedetails{$timerkey};
}
if ( $devicedetails{$timerkey} =~ m/\[.*:.*\]/ )
{
$devicedetails{$timerkey} = eval MSwitch_Checkcond_state( $devicedetails{$timerkey},$name );
}
if ( $devicedetails{$timerkey} =~ m/[\d]{2}:[\d]{2}:[\d]{2}/ )
{
my $hdel =( substr( $devicedetails{$timerkey}, 0, 2 ) ) * 3600;
my $mdel =( substr( $devicedetails{$timerkey}, 3, 2 ) ) * 60;
my $sdel =( substr( $devicedetails{$timerkey}, 6, 2 ) ) * 1;
$devicedetails{$timerkey} = $hdel + $mdel + $sdel;
}
elsif( $devicedetails{$timerkey} =~ m/^\d*\.?\d*$/ )
{
$devicedetails{$timerkey} = $devicedetails{$timerkey} ;
}
else
{
MSwitch_LOG($name,6, "ERROR im Timerformat: ". $devicedetails{$timerkey} . " " . __LINE__ );
$devicedetails{$timerkey} = 0;
}
MSwitch_LOG( $name,6, "Timerstatus (Befehlsverzögerung) -> ". $devicedetails{$timerkey}." " . __LINE__ );
# suche befehl
if ( $devicedetails{$key} ne ""&& $devicedetails{$key} ne "no_action" ) #befehl gefunden
{
my $cs = '';
$cs ="set $devicenamet $devicedetails{$device.'_off'} $devicedetails{$device.'_offarg'}" if $cmd eq "off";
$cs ="set $devicenamet $devicedetails{$device.'_on'} $devicedetails{$device.'_onarg'}" if $cmd eq "on";
if ( $devicenamet eq 'FreeCmd' )
{
$cs = "$devicedetails{$device.'_'.$cmd.'arg'}";
$cs = MSwitch_makefreecmd( $hash, $cs );
}
MSwitch_LOG( $name, 6, "Befehl gefunden: -> " . $cs ." " . __LINE__ );
MSwitch_LOG( $name, 6,"Teste auf Verzögerung -> " . $devicedetails{$timerkey}." " . __LINE__ );
my $conditionkey = $device . "_condition" . $cmd;
if ( $devicedetails{$timerkey} eq "0" || $devicedetails{$timerkey} eq "" )
{
# $conditionkey = $device . "_conditionoff";
MSwitch_LOG( $name, 6,"Teste auf Schaltbedingung; ". $devicedetails{$conditionkey}. " " . __LINE__ ) if $devicedetails{$conditionkey} ne '';
MSwitch_LOG( $name, 6,"Schaltbedingung nicht vorhanden:" . $devicedetails{$conditionkey} . " " . __LINE__ ) if $devicedetails{$conditionkey} eq '';
my $execute = "true";
$execute = MSwitch_checkcondition( $devicedetails{$conditionkey},$name, $args[0] ) if $devicedetails{$conditionkey} ne '';
MSwitch_LOG( $name, 6,"Schaltbedingung Ergebniss: " . $execute . " " . __LINE__ );
if ( $execute eq 'true' )
{
$cs =~ s/\$NAME/$hash->{helper}{eventfrom}/;
$cs =~ s/\$SELF/$name/;
MSwitch_LOG( $name, 6,"Befehl in Comand-Pool geschrieben ->" . $cs ." " . __LINE__);
push @cmdpool, $cs . '|' . $device;
$update = $device . ',' . $update;
if ( $out eq '1' )
{
MSwitch_LOG( $name, 6,"Abbruchbefehl erhalten von ". $device ." " . __LINE__);
last LOOP1;
}
}
}
else
{
MSwitch_LOG( $name, 6,"Teste auf Schaltbedingungen -> keine vorhanden" ." " . __LINE__ );
if ($randomtime ne ''&& $devicedetails{$timerkey} eq '[random]' )
{
MSwitch_LOG($name,6,"Zfallstimer gefunden -> ". $devicedetails{$timerkey} ." " . __LINE__);
$devicedetails{$timerkey} = MSwitch_Execute_randomtimer($hash);
# ersetzt $devicedetails{$timerkey} gegen randomtimer
MSwitch_LOG($name,6,"Zufallstimer ersetzt durch: -> ". $devicedetails{$timerkey} ." " . __LINE__);
}
elsif ( $randomtime eq '' && $devicedetails{$timerkey} eq '[random]' )
{
MSwitch_LOG($name, 6,"Zufallstimer gefunden aber Attribut nicht gesetzt -> 0" ." " . __LINE__);
$devicedetails{$timerkey} = 0;
}
# ?
my $execute = "true";
# conditiontest nur dann, wenn cond-test nicht nur nach verzögerung
if ( $devicedetails{ $device . "_delayat" . $cmd } ne "delay2" && $devicedetails{ $device . "_delayat" . $cmd } ne "at02" )
{
MSwitch_LOG($name,6,"Schaltbedingung für verzögerten Befehl gefunden -> ". $devicedetails{ $device . "_delayat" . $cmd } ." " . __LINE__);
$execute = MSwitch_checkcondition( $devicedetails{$conditionkey}, $name, $args[0] );
MSwitch_LOG($name,6,"Prüfung für verzögerte Schaltbedingung-> ". $execute ." " . __LINE__);
}
MSwitch_LOG($name,6, "Verzögerung -> ". $devicedetails{$timerkey} ." " . __LINE__);
if ( $execute eq 'true' )
{
MSwitch_LOG( $name, 6,"Schaltbedingung erfüllt - Befehl mt at/delay wird ausgefuehrt -> ". $cs ." " . __LINE__ );
my $delaykey = $device . "_delayat" . $cmd;
my $delayinhalt = $devicedetails{$delaykey};
my $delaykey1 = $device . "_delayat" . $cmd . "org";
my $teststateorg = $devicedetails{$delaykey1};
if ( $delayinhalt eq 'at0' || $delayinhalt eq 'at1' )
{
MSwitch_LOG( $name, 6,"Verzögerung mit at erkannt -> ". $devicedetails{$timerkey} ." " . __LINE__ );
$devicedetails{$timerkey} = MSwitch_replace_delay( $hash, $teststateorg );
MSwitch_LOG( $name, 6,"Verzögerung ersetzt durch: -> ". $devicedetails{$timerkey} ." " . __LINE__ );
}
if ( $delayinhalt eq 'at1' || $delayinhalt eq 'delay0' )
{
MSwitch_LOG( $name, 6,"Verzögerung ohne zusatzprüfung erkannt -> ". $delayinhalt );
$conditionkey = 'nocheck';
MSwitch_LOG( $name, 6,"Bedingung ersetzt ersetzt -> ". $conditionkey ." " . __LINE__);
}
my $timecond = gettimeofday() + $devicedetails{$timerkey};
my $msg =
$cs . "#[tr]"
. $name . "#[tr]"
. $conditionkey
. "#[tr]#[tr]"
. $timecond . "#[tr]"
. $device;
# variabelersetzung
$msg =~ s/\$NAME/$hash->{helper}{eventfrom}/;
$msg =~ s/\$SELF/$name/;
$msg = MSwitch_check_setmagic_i( $hash, $msg );
$hash->{helper}{delays}{$msg} = $timecond;
InternalTimer( $timecond, "MSwitch_Restartcmd", $msg );
MSwitch_LOG($name,5,"$name: verzoegerte befehl gesetzt -> ". $timecond . " : ". $msg);
if ( $out eq '1' ) {
MSwitch_LOG( $name, 6,"Abbruchbefehl erhalten von ". $device ." " . __LINE__);
last LOOP1;
}
}
}
}
}
if ( $devicemode ne "Notify" )
{
readingsSingleUpdate( $hash, "state", $cmd, 1 );
}
else
{
# readingsSingleUpdate( $hash, "state", 'active', $showevents );
}
my $anzahl = @cmdpool;
MSwitch_LOG( $name, 6,"Anzahl der auszufuehrenden befehle -> " . $anzahl ." " . __LINE__);
MSwitch_LOG( $name, 6, "Übergabe an Execute erfolgt" ." " . __LINE__) if $anzahl > 0;
MSwitch_Cmd( $hash, @cmdpool ) if $anzahl > 0;
return;
}
return;
}
###################################
sub MSwitch_Cmd(@) {
my ( $hash, @cmdpool ) = @_;
my $Name = $hash->{NAME};
my $lastdevice;
my $showevents = AttrVal( $Name, "MSwitch_generate_Events", 1 );
my %devicedetails = MSwitch_makeCmdHash($Name);
foreach my $cmds (@cmdpool)
{
MSwitch_LOG( $Name, 6, "Befehlsausführung -> " . $cmds ." " . __LINE__ );
my @cut = split( /\|/, $cmds );
$cmds = $cut[0];
#ersetze platzhakter vor ausführung
my $device = $cut[1];
$lastdevice = $device;
my $toggle = '';
if ( $cmds =~ m/set (.*)(MSwitchtoggle)(.*)/ )
{
MSwitch_LOG( $Name, 6, "Togglemode erkannt -> " . $cmds ." " . __LINE__ );
$toggle = $cmds;
$cmds = MSwitch_toggle( $hash, $cmds );
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' && $devicedetails{ $device . '_repeatcount' } ne '' )
{
MSwitch_LOG($Name,6, "teste auf Befehlswiederholungen -> " . $devicedetails{ $device . '_repeatcount' } ." " . __LINE__);
my $x = 0;
while ( $devicedetails{ $device . '_repeatcount' } =~ m/\[(.*)\:(.*)\]/ )
{
$x++; # exit
last if $x > 20; # exitg
my $setmagic = ReadingsVal( $1, $2, 0 );
$devicedetails{ $device . '_repeatcount' } = $setmagic;
}
MSwitch_LOG($Name,6,"Befehlswiederholungen nach SETMAGICersetzung -> " . $devicedetails{ $device . '_repeatcount' } ." " . __LINE__ );
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1' && $devicedetails{ $device . '_repeattime' } ne '' )
{
MSwitch_LOG($Name, 6,"Teste auf Wiederholungsintervall -> ". $devicedetails{ $device . '_repeattime' } ." " . __LINE__);
my $x = 0;
while ($devicedetails{ $device . '_repeattime' } =~ m/\[(.*)\:(.*)\]/ )
{
$x++; # exit
last if $x > 20; # exitg
my $setmagic = ReadingsVal( $1, $2, 0 );
$devicedetails{ $device . '_repeattime' } = $setmagic;
}
MSwitch_LOG($Name,6,"Wiederholungsintervall nach SETMAGIcersetzung -> ". $devicedetails{ $device . '_repeattime' } ." " . __LINE__ );
}
if ( AttrVal( $Name, 'MSwitch_Expert', "0" ) eq '1'
&& $devicedetails{ $device . '_repeatcount' } > 0
&& $devicedetails{ $device . '_repeattime' } > 0 )
{
my $i;
for ( $i = 1 ;$i <= $devicedetails{ $device . '_repeatcount' };$i++ )
{
my $msg = $cmds . "|" . $Name;
if ( $toggle ne '' )
{
$msg = $toggle . "|" . $Name;
}
my $timecond = gettimeofday() +( ( $i + 1 ) * $devicedetails{ $device . '_repeattime' } );
$msg = $msg . "|" . $timecond;
$hash->{helper}{repeats}{$timecond} = "$msg";
MSwitch_LOG($Name,6,"gesetzte Wiederholung -> ". $timecond . " : ". $msg ." " . __LINE__);
InternalTimer( $timecond, "MSwitch_repeat", $msg );
}
}
my $todec = $cmds;
$cmds = MSwitch_dec( $hash, $todec );
MSwitch_LOG( $Name, 6, "Comand nach decodierung -> " . $cmds ." " . __LINE__);
############################
# debug2 mode , kein execute
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '2' )
{
MSwitch_LOG( $Name, 6, "Comand ausgeführt -> " . $cmds ." " . __LINE__);
}
else
{
if ( $cmds =~ m/{.*}/ )
{
MSwitch_LOG( $Name, 6,"Comand als Perlcode ausgeführt -> " . $cmds ." " . __LINE__ );
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
my $out = eval($cmds);
if ($@)
{
MSwitch_LOG( $Name, 6,"MSwitch_Set: ERROR $cmds: $@ " . __LINE__ );
}
}
else
{
MSwitch_LOG( $Name, 6,"Comand als Fhemcode ausgeführt -> " . $cmds );
my $errors = AnalyzeCommandChain( undef, $cmds );
if ( defined($errors) and $errors ne "OK" )
{
MSwitch_LOG( $Name, 6, "MSwitch_Set: ERROR $cmds: $errors " . __LINE__ );
}
}
}
#############################
}
my $showpool = join( ',', @cmdpool );
if ( length($showpool) > 100 )
{
$showpool = substr( $showpool, 0, 100 ) . '....';
}
readingsSingleUpdate( $hash, "last_exec_cmd", $showpool, $showevents ) if $showpool ne '';
if ( AttrVal( $Name, 'MSwitch_Expert', '0' ) eq "1" )
{
readingsSingleUpdate( $hash, "last_cmd",
$hash->{helper}{priorityids}{$lastdevice},
$showevents );
}
}
####################
sub MSwitch_toggle($$) {
my @cmds;
my $anzcmds;
my @muster;
my $anzmuster;
my $reading ='state';
my ( $hash, $cmds ) = @_;
my $Name = $hash->{NAME};
$cmds =~ m/(set) (.*)( )MSwitchtoggle (.*)/;
my $newcomand = $1 . " " . $2 . " " ;
my @togglepart = split( /:/, $4 );
if($togglepart[0])
{
$togglepart[0] =~ s/\[//g;
$togglepart[0] =~ s/\]//g;
@cmds = split( /,/, $togglepart[0] );
$anzcmds = @cmds;
}
if($togglepart[1])
{
$togglepart[1] =~ s/\[//g;
$togglepart[1] =~ s/\]//g;
@muster = split( /,/, $togglepart[1] );
$anzmuster = @cmds;
}
else{
@muster = @cmds;
$anzmuster = $anzcmds;
}
if($togglepart[2])
{
$togglepart[2] =~ s/\[//g;
$togglepart[2] =~ s/\]//g;
$reading = $togglepart[2];
}
my $aktstate = ReadingsVal( $2, $reading, 'undef' );
my $foundmuster;
for ( my $i = 0 ; $i < $anzmuster ; $i++ )
{
if ($muster[$i] eq $aktstate)
{
$foundmuster=$i;
last;
}
}
my $nextpos=0;
if (defined $cmds[$foundmuster+1])
{
$nextpos=$foundmuster+1
}
my $nextcmd=$cmds[$nextpos];
$newcomand=$newcomand.$nextcmd;
MSwitch_LOG( $Name, 6, "########## Togglefunktion" );
MSwitch_LOG( $Name, 6, "Befehle: @cmds" );
MSwitch_LOG( $Name, 6, "Befehle anzahl: $anzcmds" );
MSwitch_LOG( $Name, 6, "Suchmuster: @muster" );
MSwitch_LOG( $Name, 6, "Suchmuster Anzahl: $anzmuster" );
MSwitch_LOG( $Name, 6, "betreffendes Reading: $reading" );
MSwitch_LOG( $Name, 6, "aktueller status des Readingd: $aktstate" );
MSwitch_LOG( $Name, 6, "Suchmuster an Position: $foundmuster" );
MSwitch_LOG( $Name, 6, "nächste Position: $nextpos" );
MSwitch_LOG( $Name, 6, "nächste Befehl: $nextcmd" );
MSwitch_LOG( $Name, 6, "Befehlszeile: $newcomand" );
MSwitch_LOG( $Name, 6, "########## Togglefunktion ende return: $newcomand" );
return $newcomand;
}
######################################
sub MSwitch_toggleold($$) {
my ( $hash, $cmds ) = @_;
my $Name = $hash->{NAME};
$cmds =~ m/(set) (.*)( )MSwitchtoggle (.*)/;
my @tcmd = split( /\//, $4 );
if ( !defined $tcmd[2] ) { $tcmd[2] = 'state' }
if ( !defined $tcmd[3] ) { $tcmd[3] = $tcmd[0] }
if ( !defined $tcmd[4] ) { $tcmd[4] = $tcmd[1] }
my $cmd1 = $1 . " " . $2 . " " . $tcmd[0];
my $cmd2 = $1 . " " . $2 . " " . $tcmd[1];
my $chk1 = $tcmd[0];
my $chk2 = $tcmd[1];
my $testnew = ReadingsVal( $2, $tcmd[2], 'undef' );
if ( $testnew =~ m/$tcmd[3]/ )
{
$cmds = $cmd2;
}
elsif ( $testnew =~ m/$tcmd[4]/ )
{
$cmds = $cmd1;
}
else
{
$cmds = $cmd1;
}
Log3( $Name, 0, "nächste Befehl: $cmds" );
return $cmds;
}
##############################
sub MSwitch_Log_Event(@) {
my ( $hash, $msg, $me ) = @_;
my $Name = $hash->{NAME};
my $triggerdevice = ReadingsVal( $Name, 'Trigger_device', 'no_trigger' );
my $re = qr/$triggerdevice/;
if ( $triggerdevice eq 'no_trigger' )
{
delete( $hash->{helper}{writelog} );
return;
}
if ( $triggerdevice ne 'Logfile'
&& $triggerdevice ne 'all_events'
&& ( $hash->{helper}{writelog} !~ /$re/ ) )
{
delete( $hash->{helper}{writelog} );
return;
}
MSwitch_Check_Event( $hash, $hash );
delete( $hash->{helper}{writelog} );
return;
}
##############################
sub MSwitch_Attr(@) {
my ( $cmd, $name, $aName, $aVal ) = @_;
my $hash = $defs{$name};
if ( $aName eq 'MSwitch_Debug' && ( $aVal == 2 || $aVal == 3 ) )
{
readingsSingleUpdate( $hash, "Debug", 'Start_Debug', 1 );
}
else
{
delete( $hash->{READINGS}{Debug} );
}
if ( $aName eq 'MSwitch_Debug' && ( $aVal == 0 || $aVal == 1 || $aVal == 2 || $aVal == 3 ) )
{
delete( $hash->{READINGS}{Bulkfrom} );
delete( $hash->{READINGS}{Device_Affected} );
delete( $hash->{READINGS}{Device_Affected_Details} );
delete( $hash->{READINGS}{Device_Events} );
#fhem("deletereading ".$name." Debug");
}
if ( $aName eq 'MSwitch_RandomTime' && $aVal ne '' )
{
if ( $aVal !~ m/([0-9]{2}:[0-9]{2}:[0-9]{2}-[0-9]{2}:[0-9]{2}:[0-9]{2})/ )
{
return 'wrong syntax !Konfigurationsmodus:
Teil 1 (Auslöser des Devices)
@found_devices
import notify
import config
import preconf
";
my $j1 = "
";
$return.="{helper}{mode} && $hash->{helper}{mode} eq "absorb")
{
$rename = "off";
my $ret = MSwitch_fhemwebconf($FW_wname, $d, $room, $pageHash);
return $ret;
}
#################### TEXTSPRACHE
my $LOOPTEXT;
my $ATERROR;
my $PROTOKOLL2;
my $PROTOKOLL3;
my $CLEARLOG;
my $WRONGSPEC1;
my $WRONGSPEC2;
my $HELPNEEDED;
my $WRONGCONFIG;
my $VERSIONCONFLICT;
my $INACTIVE;
my $OFFLINE;
my $NOCONDITION;
my $MSDISTRIBUTORTEXT;
my $MSDISTRIBUTOREVENT;
my $NOSPACE;
my $MSTEST1="";
my $MSTEST2="";
my $EXECCMD;
my $DUMMYMODE;
my $RELOADBUTTON;
my $RENAMEBUTTON;
my $EDITEVENT;
if (AttrVal( $Name, 'MSwitch_Language',AttrVal( 'global', 'language', 'EN' ) ) eq "DE")
{
$DUMMYMODE="Device befindet sich im passiven Dummymode, für den aktiven Dummymode muss dass Attribut 'MSwitch_Selftrigger_always' auf '1' gesetzt werden. ";
$MSDISTRIBUTORTEXT="Zuordnung Event/ID (einstellung über Attribut)";
$MSDISTRIBUTOREVENT="eingehendes Event";
$LOOPTEXT= "ACHTUNG: Der Safemodus hat eine Endlosschleife erkannt, welche zum Fhemabsturz führen könnte. " . $_ . " ";
$scripttriggers =$scripttriggers . "\"$_\": 1 ,";
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
. ""
. $_
. " ";
}
}
}
#####################
}
chop($scripttriggers);
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 ( $expertmode 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)
{
last if $_ eq "no_device";
MSwitch_LOG( $Name, 5, "dev @testidsdev" );
my @testid = split( /#\[NF\]/, $_ );
my $x = 0;
MSwitch_LOG( $Name, 5, "devfelder @testid" );
my $id = $testid[13];
MSwitch_LOG( $Name, 5, "id $id" );
$anzahl = $id if $id > $anzahl;
}
my $reihenfolgehtml = "";
if ( $expertmode eq '1' )
{
$reihenfolgehtml = "";
for ( my $i = 1 ; $i < $anzahl + 1 ; $i++ )
{
$reihenfolgehtml .= "$i ";
}
$reihenfolgehtml .= " ";
}
### display
my $hidehtml = "";
$hidehtml = "";
$hidehtml .= "0 ";
$hidehtml .= "1 ";
$hidehtml .= " ";
#########################################
# SHOW
# teste auf grössere PRIORITY als anzahl devices
foreach (@testidsdev)
{
MSwitch_LOG( $Name, 5, "dev @testidsdev" );
my @testid = split( /#\[NF\]/, $_ );
my $x = 0;
MSwitch_LOG( $Name, 5, "devfelder @testid" );
my $id = $testid[18];
if (defined $id)
{
MSwitch_LOG( $Name, 5, "id $id" );
$anzahl1 = $id if $id > $anzahl;
}
}
#################################
my $showfolgehtml = "";
$showfolgehtml = "";
for ( my $i = 1 ; $i < $anzahl1 + 1 ; $i++ )
{
$showfolgehtml .= "$i ";
}
$showfolgehtml .= " ";
######################################
#ID
my $idfolgehtml = "";
if ( $expertmode 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 = getAllSets($name);
if ( $savecmds ne "nosave" ) {
$hash->{helper}{devicecmds1}{$name} = $errors;
$hash->{helper}{last_devicecmd_save} = time;
}
}
}
else
{
$errors = '';
}
if ( !defined $errors )
{
$errors = '';
}
$errors = '|' . $errors;
$errors =~ s/\| //g;
$errors =~ s/\|//g;
if ( $includewebcmd eq '1'
and $devicewebcmd ne "noArg"
and $hash->{INIT} ne "define" )
{
my $device = '';
my @webcmd = split( /:/, $devicewebcmd );
foreach (@webcmd)
{
$_ =~ tr/ /:/;
my @parts = split( /:/, $_ );
if ( !defined $parts[1] || $parts[1] eq '' )
{
$device .= $parts[0] . ':noArg ';
}
else
{
$device .= $parts[0] . ':' . $parts[1] . ' ';
}
}
chop $device;
$devicewebcmd = $device;
$errors .= ' ' . $devicewebcmd;
}
if ( $MSwitchIncludeMSwitchcmds eq '1' and $hash->{INIT} ne "define" ) {
my $usercmds = AttrVal( $name, 'MSwitchcmd', '' );
if ( $usercmds ne '' )
{
$usercmds =~ tr/:/ /;
$errors .= ' ' . $usercmds;
}
}
if ( $extensions eq '1' )
{
$errors .= ' ' . 'MSwitchtoggle';
}
if ( $errors ne '' )
{
$selected = "";
if ( exists $usedevices{$name} && $usedevices{$name} eq 'on' )
{
$selected = "selected=\"selected\" ";
}
$deviceoption =
$deviceoption
. ""
. $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-TEST-1MS-CONDCHECK1
MS-HELPexeccmd
MS-EXEC1
MS-HELPdelay
MS-DELAYset1
CMD 2
MS-HELPonoff
MS-SET2
MS-HELPcondition
MS-COND2
MS-TEST-2MS-CONDCHECK2
MS-HELPexeccmd
MS-EXEC2
MS-HELPdelay
MS-DELAYset2
MS-HELPrepeats MS-REPEATset
MS-ACTIONSATZ
None ';
if ( $expertmode eq '1' )
{
$sortierung .='
Field Priority ';
}
$sortierung .='Field Show ';
}
#################################
$modify = "
";
##########################
# $detailhtml .= $sortierung;
##########################
my $alert;
foreach (@affecteddevices)
{
$IDsatz="";
$ACTIONsatz="";
$COND1set1="";
$COND1set2="";
$EXECset1="";
$EXECset2="";
$COMMENTset="";
my $nopoint = $_;
$nopoint =~ s/\./point/g;
$alert = '';
my @devicesplit = split( /-AbsCmd/, $_ );
my $devicenamet = $devicesplit[0];
# prüfe auf nicht vorhandenes device
if ( $devicenamet ne "FreeCmd"
&& $devicenamet ne "MSwitch_Self"
&& !defined $cmdsatz{$devicenamet} )
{
$alert ='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';
}
if ( !defined $savedetails{ $aktdevice . '_showreihe' } || '' eq $savedetails{ $aktdevice . '_showreihe' } )
{
$savedetails{ $aktdevice . '_showreihe' } = '1';
}
$savedetails{ $aktdevice . '_onarg' } =~ s/#\[ti\]/~/g;
$savedetails{ $aktdevice . '_offarg' } =~ s/#\[ti\]/~/g;
$savedetails{ $aktdevice . '_onarg' } =~ s/#\[wa\]/|/g; #neu
$savedetails{ $aktdevice . '_offarg' } =~ s/#\[wa\]/|/g; #neu
my $dalias = '';
if ( $devicenamet ne "FreeCmd" )
{
$dalias = "(a: " . AttrVal( $devicenamet, 'alias', "no" ) . ")" if AttrVal( $devicenamet, 'alias', "no" ) ne "no";
}
my $realname = '';
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '4' )
{
$realname =
"$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.="displaysequence: " . $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;
$aktfolge = $hidehtml;
$newname = "hidecmd" . $nopoint;
$tochange ="";
$change =" ";
$aktfolge =~ s/hidecmd/$newname/g;
$aktfolge =~ s/$tochange/$change/g;
$IDsatz.="display: " . $aktfolge . " " if ( $hash->{INIT} ne 'define' );
# 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.= "displaysequence: " . $aktfolge . " " if ( $hash->{INIT} ne 'define' );
$aktfolge = $hidehtml;
$newname = "hidecmd" . $nopoint;
$tochange ="";
$change =" ";
$aktfolge =~ s/hidecmd/$newname/g;
$aktfolge =~ s/$tochange/$change/g;
$IDsatz.="display: " . $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 = "";
}
if ( $devicenamet ne 'FreeCmd' )
{
# nicht freecmd
#hidden='text';
$SET1 = "
";
}
else
{
# freecmd
$savedetails{ $aktdevice . '_onarg' } =~ s/'/'/g;
$SET1 = "";
" ";
}
########################
## block off #$devicename
if ( $devicenamet ne 'FreeCmd' )
{
$SET2= "
";
if ( AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '1' || AttrVal( $Name, 'MSwitch_Debug', "0" ) eq '3' )
{
$MSTEST1="
"
. $optiongeneral
. " ";
}
#$aktdevicename
#alltriggers
$COND1set2.="condition: "
. $optiongeneral
. " ";
}
#### zeitrechner ABSATZ UAF NOTWENDIGKEIT PRÜF
my $delaym = 0;
my $delays = 0;
my $delayh = 0;
my $timestroff;
my $testtimestroff = $savedetails{ $aktdevice . '_timeoff' };
$timestroff=$savedetails{ $aktdevice . '_timeoff' };
my $timestron;
my $testtimestron = $savedetails{ $aktdevice . '_timeon' };
$timestron=$savedetails{ $aktdevice . '_timeon' };
#########################################
$DELAYset1= "";
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 .= " ";
$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 .= " ".
$controlhtmldevice.
"
";
}
else
{
if( $savedetails{ $aktdevice . '_hidecmd' } eq "1")
{
$noshow++;
$detailhtml.= "".
$controlhtmldevice.
"
";
}
else{
$detailhtml.= "".
$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 += '#[NF]';
devices += \$(\"[name=hidecmd$nopoint]\").val();
devices += '#[DN]';
";
}
# textersetzung modify
if ($noshow > 0)
{
$modify ="
)
{
$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 .= $set[1];
$out .=
"
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 $inhalt5 = "switch $Name on and execute cmd1";
my $displaynot = '';
my $displayntog = '';
my $help = "";
my $visible = 'visible';
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) eq "Notify" )
{
$MShidefull="style='display:none;'";
$displaynot = "style='display:none;'";
}
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) eq "Toggle" )
{
$displayntog = "style='display:none;'";
$inhalt5 = "toggle $Name and execute cmd1/cmd2";
}
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) ne "Dummy" )
{
$MSHidedummy="";
}
else
{
$MSHidedummy="style ='visibility: collapse'";
#$MSHidedummy="style ='display:none'";
$MShidefull="style='display:none;'";
$displaynot = "style='display:none;'";
}
$MStrigger= "" . $triggerdevices . " ";
if ( $globalon ne 'on' )
{
$MSHidewhitelist="id='triggerwhitelist' style ='visibility: collapse'";
}
$MSwhitelist=""
.$triggerhtml.
"
" . $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;
$triggerdetailhtml =~ s/MS-HELP7/$MSHELP7/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}
. "
";
}
###############################################################
# id event bridge neu
###############################################################
#auswfirst MSwitch_Selftrigger_always
my $style = "";
if ( AttrVal( $Name, 'MSwitch_Mode', 'Notify' ) eq "Dummy" && AttrVal( $Name, 'MSwitch_Selftrigger_always', '0' ) ne "1")
{
$style = " style ='visibility: collapse' ";
#$style = "";
$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
$out .= "\\n----- Rawdefinitionen -----\\n";
#my $raw = list Name;
my $cs = "list -R $Name";
my $answer= AnalyzeCommandChain( undef, $cs );
$answer =~ s/\n/\\n/g;
$out .=$answer;
asyncOutput( $hash->{CL},
"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;
delete( $hash->{READINGS} );
$cont =~ s/#c\[sp\]/ /g;
$cont =~ s/#c\[se\]/;/g;
$cont =~ s/#c\[dp\]/:/g;
my @changes;
my $info = "";
my @found = split( /#\[EOL\]/, $cont );
foreach (@found) {
if ( $_ =~ m/#Q (.*)/ ) # setattr
{
push( @changes, $1 );
}
if ( $_ =~ m/#I (.*)/ ) # setattr
{
$info = $1;
}
if ( $_ =~ m/#VS (.*)/ ) # setattr
{
if ( $1 ne $vupdate ) {
readingsSingleUpdate( $hash, ".wrong_version", $1, 0 );
return;
}
}
if ( $_ =~ m/#S (.*) -> (.*)/ ) # setreading
{
if ( $2 eq 'undef' || $2 eq '' || $2 eq ' ' ) {
delete( $hash->{READINGS}{$1} );
}
else {
my $newstring = $2;
if ( $1 eq ".Device_Affected_Details" ) {
$newstring =~ s/;/#[se]/g;
$newstring =~ s/:/#[dp]/g;
$newstring =~ s/\t/ /g;
$newstring =~ s/ /#[sp]/g;
$newstring =~ s/\\/#[bs]/g;
$newstring =~ s/,/#[ko]/g;
$newstring =~ s/^#\[/#[eo]/g;
$newstring =~ s/^#\]/#[ec]/g;
$newstring =~ s/\|/#[wa]/g;
$newstring =~ s/#\[se\]#\[se\]#\[se\]/#[se]#[nl]/g;
$newstring =~ s/#\[se\]#\[se\]/#[nl]/g;
}
if ( $1 eq ".sysconf" ) {}
if ( $1 eq ".Device_Events" )
{
$newstring =~ s/ /#[tr]/g;
}
readingsSingleUpdate( $hash, "$1", $newstring, 0 );
}
}
if ( $_ =~ m/#A (.*) -> (.*)/ ) # setattr
{
# für usserattribute zweiten durchgang starten , dafür alle befehle in ein array und nochmals einlesen userattr
my $na = $1;
my $ih = $2;
$ih =~ s/#\[nl\]/\n/g;
if ($na eq "userattr")
{
fhem("attr $name $na $ih");
}
else{
$hash->{helper}{safeconf}{$na} = $ih;
}
}
################################
# if ( $_ =~ m/#A (.*) -> (.*)/ ) # setattr
# {
# # für usserattribute zweiten durchgang starten , dafür alle befehle in ein array und nochmals einlesen userattr
# my $na = $1;
# my $ih = $2;
# $ih =~ s/#\[nl\]/\n/g;
# #
# MSwitch_LOG( $name , 0, "line: $na" );
# if ($na eq "devStateIcon")
# {
# #MSwitch_LOG( $name , 0, "set over fhem: $name $na $ih" );
# $attr{$name}{$na} = $ih;
# }
# else{
# #MSwitch_LOG( $name , 0, "set over attr: $name $na $ih" );
# fhem("attr $name $na $ih");
# }
# }
####################################
}
my $testreading = $hash->{helper}{safeconf};
my @areadings = ( keys %{$testreading} );
foreach my $key (@areadings) {
if ($key eq "devStateIcon")
{
$attr{$name}{$key} = $hash->{helper}{safeconf}{$key};
}
else{
fhem("attr $name $key ".$hash->{helper}{safeconf}{$key});
}
}
################# helperkeys abarbeiten #######
delete( $hash->{helper}{safeconf} );
delete( $hash->{helper}{mode} );
##############################################
MSwitch_set_dev($hash);
if ( @changes > 0 ) {
my $save = join( '|', @changes );
readingsSingleUpdate( $hash, ".change", $save, 0 );
}
if ( $info ne "" ) {
readingsSingleUpdate( $hash, ".change_info", $info, 0 );
}
delete( $hash->{helper}{config} );
fhem("deletereading $name EVENTCONF");
# timrer berechnen
MSwitch_Createtimer($hash);
return;
}
################################################
sub MSwitch_backup_done($) {
my ($string) = @_;
return unless ( defined($string) );
my @a = split( "\\|", $string );
my $Name = $a[0];
my $answer = $a[1];
my $hash = $defs{$Name};
delete( $hash->{helper}{RUNNING_PID} );
my $client_hash = $hash->{helper}{RESTORE_ANSWER};
$answer =~ s/\[nl\]/\n/g;
foreach my $testdevice ( keys %{ $modules{MSwitch}{defptr} } ) #
{
my $devhash = $defs{$testdevice};
MSwitch_Createtimer($devhash);
}
asyncOutput( $client_hash, $answer );
return;
}
###########################################
sub MSwitch_Execute_randomtimer($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $param = AttrVal( $Name, 'MSwitch_RandomTime', '0' );
my $min = substr( $param, 0, 2 ) * 3600;
$min = $min + substr( $param, 3, 2 ) * 60;
$min = $min + substr( $param, 6, 2 );
my $max = substr( $param, 9, 2 ) * 3600;
$max = $max + substr( $param, 12, 2 ) * 60;
$max = $max + substr( $param, 15, 2 );
my $sekmax = $max - $min;
my $ret = $min + int( rand $sekmax );
return $ret;
}
############################################
sub MSwitch_replace_delay($$) {
my ( $hash, $timerkey ) = @_;
my $name = $hash->{NAME};
my $time = time;
my $ltime = TimeNow();
MSwitch_LOG( $name, 5, "----------------------------------------" );
MSwitch_LOG( $name, 5, "$name: MSwitch_replace_delay-> $timerkey" );
MSwitch_LOG( $name, 5, "----------------------------------------" );
my ( $aktdate, $akttime ) = split / /, $ltime;
my $hh = ( substr( $timerkey, 0, 2 ) );
my $mm = ( substr( $timerkey, 2, 2 ) );
my $ss = ( substr( $timerkey, 4, 2 ) );
my $referenz = time_str2num("$aktdate $hh:$mm:$ss");
if ( $referenz < $time ) {
$referenz = $referenz + 86400;
}
if ( $referenz >= $time ) {
}
$referenz = $referenz - $time;
my $timestampGMT = FmtDateTimeRFC1123($referenz);
return $referenz;
}
############################################################
sub MSwitch_repeat($) {
my ( $msg, $name ) = @_;
my $incomming = $_[0];
my @msgarray = split( /\|/, $incomming );
$name = $msgarray[1];
my $time = $msgarray[2];
my $cs = $msgarray[0];
my $hash = $defs{$name};
$cs =~ s/\n//g;
MSwitch_LOG( $name, 5, "----------------------------------------" );
MSwitch_LOG( $name, 5, "$name: Repeat -> " . $cs );
MSwitch_LOG( $name, 5, "----------------------------------------" );
if ( $cs =~ m/set (.*)(MSwitchtoggle)(.*)/ ) {
$cs = MSwitch_toggle( $hash, $cs );
MSwitch_LOG( $name, 5, "$name: fround toggle -> " . $cs );
}
MSwitch_LOG( $name, 5, "$name: execute repeat $time -> " . $cs );
if ( AttrVal( $name, 'MSwitch_Debug', "0" ) ne '2' ) {
if ( $cs =~ m/{.*}/ ) {
if ($debugging eq "1")
{
MSwitch_LOG( "Debug", 0,"eveal line" . __LINE__ );
}
eval($cs);
if ($@) {
MSwitch_LOG( $name, 6,
"$name MSwitch_repeat: ERROR $cs: $@ " . __LINE__ );
}
}
else {
my $errors = AnalyzeCommandChain( undef, $cs );
if ( defined($errors) ) {
MSwitch_LOG( $name, 6,
"$name Absent_repeat $cs: ERROR : $errors -> Comand: $cs" );
}
}
}
delete( $hash->{helper}{repeats}{$time} );
}
#########################
sub MSwitch_Createnumber($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $number = AttrVal( $Name, 'MSwitch_RandomNumber', '' ) + 1;
my $number1 = int( rand($number) );
readingsSingleUpdate( $hash, "RandomNr", $number1, 1 );
return;
}
################################
sub MSwitch_Createnumber1($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
my $number = AttrVal( $Name, 'MSwitch_RandomNumber', '' ) + 1;
my $number1 = int( rand($number) );
readingsSingleUpdate( $hash, "RandomNr1", $number1, 1 );
return;
}
###############################
sub MSwitch_Safemode($) {
my ($hash) = @_;
my $Name = $hash->{NAME};
if ( AttrVal( $Name, 'MSwitch_Safemode', '0' ) == 0 ) { return; }
my $time = gettimeofday();
$time =~ s/\.//g;
my $time1 = int($time);
my $count = 0;
my $timehash = $hash->{helper}{savemode};
foreach my $a ( keys %{$timehash} ) {
$count++;
if ( $a < $time1 - $savemodetime ) # für 10 sekunden
{
delete( $hash->{helper}{savemode}{$a} );
$count = $count - 1;
}
}
$hash->{helper}{savemode}{$time1} = $time1;
if ( $count > $savecount ) {
MSwitch_LOG(
$Name,
1,
"Das Device "
. $Name
. " wurde automatisch deaktiviert ( Safemode )"
);
$hash->{helper}{savemodeblock}{blocking} = 'on';
readingsSingleUpdate( $hash, "Safemode", 'on', 1 );
foreach my $a ( keys %{$timehash} ) {
delete( $hash->{helper}{savemode}{$a} );
}
$attr{$Name}{disable} = '1';
}
return;
}
###############################################################
sub MSwitch_EventBulk($$$$) {
my ( $hash, $event, $update, $from ) = @_;
my $name = $hash->{NAME};
MSwitch_LOG( $name, 5, "aufruf eventbulk eventin: " . $event );
my $showevents = AttrVal( $name, "MSwitch_generate_Events", 1 );
return if !defined $event;
return if !defined $hash;
if ( $hash eq "" ) { return; }
my @evtparts = split( /:/, $event );
$update = '1';
my $evtsanzahl = @evtparts;
MSwitch_LOG( $name, 5, "aufruf eventzahl: " . $evtsanzahl );
if ( $evtsanzahl < 3 ) {
my $eventfrom = $hash->{helper}{eventfrom};
unshift( @evtparts, $eventfrom );
$evtsanzahl = @evtparts;
}
my $evtfull = join( ':', @evtparts );
$evtparts[2] = '' if !defined $evtparts[2];
$event =~ s/\[dp\]/:/g;
$evtfull =~ s/\[dp\]/:/g;
$evtparts[1] =~ s/\[dp\]/:/g if $evtparts[1];
$evtparts[2] =~ s/\[dp\]/:/g if $evtparts[2];
$event =~ s/\[dst\]/"/g;
$evtfull =~ s/\[dst\]/"/g;
$evtparts[1] =~ s/\[dst\]/"/g if $evtparts[1];
$evtparts[2] =~ s/\[dst\]/"/g if $evtparts[2];
$event =~ s/\[#dp\]/:/g;
$evtfull =~ s/\[#dp\]/:/g;
$evtparts[1] =~ s/\[#dp\]/:/g if $evtparts[1];
$evtparts[2] =~ s/\[#dp\]/:/g if $evtparts[2];
MSwitch_LOG( $name, 5, "aufruf eventbulk eventfullout: " . $evtfull );
MSwitch_LOG( $name, 5, "aufruf eventbulk event " . $event );
MSwitch_LOG( $name, 5, "aufruf eventbulk eventset " . $hash->{eventsave} );
# if ( ReadingsVal( $name, 'last_event', '' ) ne $event
# && $event ne ''
# && $hash->{eventsave} ne 'saved' )
if ( $event ne '' && $event ne "last_activation_by:event"
&& $hash->{eventsave} ne 'saved' )
{
$hash->{eventsave} = "saved";
readingsBeginUpdate($hash);
# readingsBulkUpdate( $hash, "EVENT", $event, $showevents )
readingsBulkUpdate( $hash, "EVENT", $event, 1 )
if $event ne '';
readingsBulkUpdate( $hash, "EVTFULL", $evtfull, $showevents )
if $evtfull ne '';
readingsBulkUpdate( $hash, "EVTPART1", $evtparts[0], $showevents )
if $evtparts[0] ne '';
readingsBulkUpdate( $hash, "EVTPART2", $evtparts[1], $showevents )
if $evtparts[1] ne '';
readingsBulkUpdate( $hash, "EVTPART3", $evtparts[2], $showevents )
if $evtparts[2] ne '';
readingsBulkUpdate( $hash, "last_event", $event, $showevents )
if $event ne '';
readingsEndUpdate( $hash, $update );
}
return;
}
##########################################################
# setzt reihenfolge und testet ID
sub MSwitch_priority(@) {
my ( $hash, $execids, @devices ) = @_;
my $name = $hash->{NAME};
my @execids = split( /,/, $execids );
MSwitch_LOG( $name, 5, "$name: zuweisung der reihenfolge und der id" );
if ( AttrVal( $name, 'MSwitch_Expert', "0" ) ne '1' ) {
return @devices;
}
my %devicedetails = MSwitch_makeCmdHash($name);
my %new;
foreach my $device (@devices) {
# $execids beinhaltet auszuführende ids gesetzt bei init
my $key1 = $device . "_id";
MSwitch_LOG( $name, 6,
"$name: device hat die ID $device - $devicedetails{$key1}" );
MSwitch_LOG( $name, 6, "$name: zulaessige IDS - @execids " );
if ( !grep { $_ eq $devicedetails{$key1} } @execids ) {
MSwitch_LOG( $name, 6, "$name: abbruch -> unzulaessige ID " );
next;
}
my $key = $device . "_priority";
my $prio = $devicedetails{$key};
MSwitch_LOG( $name, 6,
"$name: device hat die priority $device - $prio" );
$new{$device} = $prio;
$hash->{helper}{priorityids}{$device} = $prio;
}
my @new = %new;
my @newlist;
for my $key ( sort { $new{$a} <=> $new{$b} } keys %new ) {
if ( $key ne "" && $key ne " " ) {
push( @newlist, $key );
my $key = $key . "_priority";
}
}
my $anzahl = @newlist;
MSwitch_LOG( $name, 5, "$name: anzahl $anzahl" );
@devices = @newlist if $anzahl > 0;
@devices = () if $anzahl == 0;
return @devices;
}
##########################################################
##########################################################
# setzt reihenfolge und testet ID
sub MSwitch_sort(@) {
my ( $hash, $typ, @devices ) = @_;
my $name = $hash->{NAME};
MSwitch_LOG( $name, 5, "$name: zuweisung der reihenfolge" );
my %devicedetails = MSwitch_makeCmdHash($name);
my %new;
foreach my $device (@devices) {
my $key = $device . $typ;
my $prio = $devicedetails{$key};
$new{$device} = $prio;
}
my @new = %new;
my @newlist;
for my $key ( sort { $new{$a} <=> $new{$b} } keys %new ) {
if ( $key ne "" && $key ne " " ) {
push( @newlist, $key );
}
}
my $anzahl = @newlist;
MSwitch_LOG( $name, 5, "$name: anzahl $anzahl" );
@devices = @newlist if $anzahl > 0;
return @devices;
}
##########################################################
sub MSwitch_set_dev($) {
# setzt NOTIFYDEF
my ($hash) = @_;
my $name = $hash->{NAME};
my $not = ReadingsVal( $name, 'Trigger_device', '' );
if ( $not ne 'no_trigger' ) {
if ( $not eq "all_events" ) {
delete( $hash->{NOTIFYDEV} );
if ( ReadingsVal( $name, '.Trigger_Whitelist', '' ) ne '' ) {
$hash->{NOTIFYDEV} =
ReadingsVal( $name, '.Trigger_Whitelist', '' );
}
}
elsif ( $not eq "MSwitch_Self" ) {
$hash->{NOTIFYDEV} = $name;
}
else {
$hash->{NOTIFYDEV} = $not;
my $devices = MSwitch_makeAffected($hash);
$hash->{DEF} = $not . ' # ' . $devices;
}
}
else {
$hash->{NOTIFYDEV} = 'no_trigger';
delete $hash->{DEF};
}
}
##############################################################
sub MSwitch_dec($$) {
# ersetzungen direkt vor befehlsausführung
my ( $hash, $todec ) = @_;
my $name = $hash->{NAME};
$todec =~ s/\n//g;
$todec =~ s/#\[wa\]/|/g;
$todec =~ s/\$NAME/$hash->{helper}{eventfrom}/;
$todec =~ s/MSwitch_Self/$name/;
my $x = 0;
while ( $todec =~ m/(.*?)(\$SELF)(.*)?/ ) {
my $firstpart = $1;
my $secondpart = $2;
my $lastpart = $3;
$todec = $firstpart . $name . $lastpart;
$x++;
last if $x > 10; #notausstieg
}
# setmagic ersetzun
$x = 0;
while ( $todec =~ m/(.*)\[(.*)\:(.*)\](.*)/ ) {
$x++; # notausstieg notausstieg
last if $x > 20; # notausstieg notausstieg
my $setmagic = ReadingsVal( $2, $3, 0 );
$todec = $1 . $setmagic . $4;
}
return $todec;
}
################################################################
sub MSwitch_clearlog($) {
my ( $hash, $cs ) = @_;
my $name = $hash->{NAME};
open( BACKUPDATEI, ">./log/MSwitch_debug_$name.log" );
print BACKUPDATEI localtime() . " Starte Log\n"; #
close(BACKUPDATEI);
}
################################################################
sub MSwitch_debug2($$) {
my ( $hash, $cs ) = @_;
my $name = $hash->{NAME};
return if $cs eq '';
open( BACKUPDATEI, ">>./log/MSwitch_debug_$name.log" );# Datei zum Schreiben öffnen
print BACKUPDATEI localtime() . ": -> $cs\n"; #
close(BACKUPDATEI);
my $write = localtime().": -> ".$cs;
readingsSingleUpdate( $hash, "Debug", $write, 1 );
}
##################################
sub MSwitch_LOG($$$) {
my ( $name, $level, $cs ) = @_;
my $hash = $defs{$name};
if (
( AttrVal( $name, 'MSwitch_Debug', "0" ) eq '2'|| AttrVal( $name, 'MSwitch_Debug', "0" ) eq '3'
) && ( $level eq "6" || $level eq "1" ))
{
MSwitch_debug2( $hash, $cs );
}
$level = 5 if $level eq "6";
Log3( $name, $level, $cs );
}
#########################
sub MSwitch_confchange($$) {
# change wenn folgende einträge vorhanden
#I testinfo
#Q dummy1#zu schaltendes geraet#device
my ( $hash, $cs ) = @_;
my $name = $hash->{NAME};
MSwitch_clearlog($hash);
$cs = urlDecode($cs);
$cs =~ s/#\[sp\]/ /g;
my @changes = split( /\|/, $cs );
foreach my $change (@changes) {
my @names = split( /#/, $change );
# afected devices
my $tochange1 = ReadingsVal( $name, ".Device_Affected", "" );
my $oldname = $names[0] . "-";
my $newname = $names[1] . "-";
my @devices = split( /,/, $tochange1 );
my $x = 0;
foreach (@devices) {
$_ =~ s/$oldname/$newname/g;
$devices[$x] = $_;
$x++;
}
my $newdevices = join( ',', @devices );
readingsSingleUpdate( $hash, ".Device_Affected", $newdevices, 0 );
#details
my $tochange2 = ReadingsVal( $name, ".Device_Affected_Details", "" );
my @devicesdetails = split( /#\[ND\]/, $tochange2 );
$x = 0;
foreach (@devicesdetails) {
$_ =~ s/$oldname/$newname/g;
$devicesdetails[$x] = $_;
$x++;
}
$tochange2 = join( '#[ND]', @devicesdetails );
$x = 0;
while ( $tochange2 =~ m/(.*?)($names[0])(.*)?/ ) {
my $firstpart = $1;
my $secondpart = $2;
my $lastpart = $3;
$tochange2 = $firstpart . $names[1] . $lastpart;
$x++;
last if $x > 10; #notausstieg
}
readingsSingleUpdate( $hash, ".Device_Affected_Details", $tochange2,
0 );
}
fhem("deletereading $name .change");
fhem("deletereading $name .change_info");
}
#########################
sub MSwitch_makefreecmd($$) {
#ersetzungen und variablen für freecmd
my ( $hash, $cs ) = @_;
my $name = $hash->{NAME};
my $ersetzung = "";
# entferne kommntarzeilen
$cs =~ s/\\#/comment/g;
$cs =~ s/#.*\n//g;
$cs =~ s/comment/#/g;
# entferne zeilenumbruch
$cs =~ s/\n//g;
# ersetze Eventvariablen
$ersetzung = ReadingsVal( $name, "EVTPART3", "" );
$cs =~ s/\$EVTPART3/$ersetzung/g;
$ersetzung = ReadingsVal( $name, "EVTPART2", "" );
$cs =~ s/\$EVTPART2/$ersetzung/g;
$ersetzung = ReadingsVal( $name, "EVTPART1", "" );
$cs =~ s/\$EVTPART1/$ersetzung/g;
$ersetzung = ReadingsVal( $name, "EVENT", "" );
$cs =~ s/\$EVENT/$ersetzung/g;
$ersetzung = ReadingsVal( $name, "EVENTFULL", "" );
$cs =~ s/\$EVENTFULL/$ersetzung/g;
$cs =~ s/\$NAME/$hash->{helper}{eventfrom}/;
my $x = 0;
while ( $cs =~ m/(.*?)(\$SELF)(.*)?/ ) {
my $firstpart = $1;
my $secondpart = $2;
my $lastpart = $3;
$cs = $firstpart . $name . $lastpart;
$x++;
last if $x > 10; #notausstieg
}
# setmagic ersetzun
MSwitch_LOG( $name, 5, "vor freecmd: " . $cs );
$x = 0;
while ( $cs =~ m/(.*)\[(.*)\:(.*)\](.*)/ ) {
$x++; # notausstieg notausstieg
last if $x > 20; # notausstieg notausstieg
my $setmagic = ReadingsVal( $2, $3, 0 );
$cs = $1 . $setmagic . $4;
}
MSwitch_LOG( $name, 5, "after freecmd: " . $cs );
return $cs;
}
#################################
sub MSwitch_check_setmagic_i($$) {
my ( $hash, $msg ) = @_;
my $name = $hash->{NAME};
# setmagic ersetzung
MSwitch_LOG( $name, 5, "vor freecmd: " . $msg );
my $x = 0;
while ( $msg =~ m/(.*)\[(.*)\:(.*)\:i\](.*)/ ) {
$x++; # notausstieg notausstieg
last if $x > 20; # notausstieg notausstieg
my $setmagic = ReadingsVal( $2, $3, 0 );
$msg = $1 . $setmagic . $4;
}
$x = 0;
while ( $msg =~ m/(.*)\[(.*)\:(.*)\:d\:i\](.*)/ ) {
$x++; # notausstieg notausstieg
last if $x > 20; # notausstieg notausstieg
my $setmagic = ReadingsNum( $2, $3, 0 );
$msg = $1 . $setmagic . $4;
}
MSwitch_LOG( $name, 5, "nach freecmd: " . $msg );
return $msg;
}
#################################
sub MSwitch_setconfig($$) {
my ( $hash, $aVal ) = @_;
my $name = $hash->{NAME};
my %keys;
foreach my $attrdevice ( keys %{ $attr{$name} } ) #geht
{
delete $attr{$name}{$attrdevice};
}
my $testreading = $hash->{READINGS};
my @areadings = ( keys %{$testreading} );
#
foreach my $key (@areadings) {
fhem("deletereading $name $key ");
}
my $Zeilen = '';
open( BACKUPDATEI, "<./FHEM/MSwitch/$aVal" )
|| return "$name|no Backupfile ./MSwitch_Extensions/$aVal found\n";
while () {
$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