-
-# 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;
- define Schalter MSwitchSet
-
- 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;
- define Schalter MSwitchSet
-
- 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