diff --git a/FHEM/90_at.pm b/FHEM/90_at.pm index 15f979731..1a773fbed 100755 --- a/FHEM/90_at.pm +++ b/FHEM/90_at.pm @@ -341,23 +341,22 @@ at_fhemwebFn($$$$) my $isPerl = ($ts =~ m/^{(.*)}/); $ts = $1 if($isPerl); -return "
Timespec wizard:". -"".<<'EOF'; - - - - - - - - - + + + + + + - - - -
Relative   Periodic  
Use perl function for timespec
Timespec
Timespec
Change the timespec:
Relative   + Periodic   + Use perl function for timespec
+EOF + + my $j1 = << 'EOF'; EOF + + my @d = split(" ",$hash->{DEF},2); + LoadModule("notify"); + my ($h2, $j2) = notfy_addFWCmd($d, $d[0], 2); + return "$h1$h2
$j1$j2"; } 1; diff --git a/FHEM/91_notify.pm b/FHEM/91_notify.pm index 707e14b58..a64e14ad6 100755 --- a/FHEM/91_notify.pm +++ b/FHEM/91_notify.pm @@ -220,13 +220,14 @@ notify_fhemwebFn($$$$) my ($FW_wname, $d, $room, $pageHash) = @_; # pageHash is set for summaryFn. my $hash = $defs{$d}; - my $ret .= "
Regexp wizard"; - my $row=0; - $ret .= "
"; + my $ret .= "Change wizard
"; + my $row = 0; my @ra = split(/\|/, $hash->{REGEXP}); + $ret .= ""; if(@ra > 1) { foreach my $r (@ra) { - $ret .= ""; + $ret .= ""; my $cmd = "cmd.X= set $d removeRegexpPart&val.X=$r"; # =.set: avoid JS $ret .= ""; $ret .= FW_pH("$cmd&detail=$d", "removeRegexpPart", 1,undef,1); @@ -236,9 +237,10 @@ notify_fhemwebFn($$$$) my @et = devspec2array("TYPE=eventTypes"); if(!@et) { + $ret .= ""; $ret .= FW_pH("$FW_ME/docs/commandref.html#eventTypes", "To add a regexp an eventTypes definition is needed", - 1, undef, 1); + 1, undef, 1).""; } else { my %dh; my $etList = AnalyzeCommand(undef, "get $et[0] list"); @@ -263,9 +265,88 @@ notify_fhemwebFn($$$$) $ret .= FW_detailSelect($d, "set", $list, "addRegexpPart"); $ret .= ""; } - $ret .= "
Change the condition:
$r
"; + my ($tr, $js) = notfy_addFWCmd($d, $hash->{REGEXP}, $row); + return "$ret$tr
$js"; +} - return $ret; +sub +notfy_addFWCmd($$$) +{ + my ($d, $param, $row) = @_; + + my $ret=""; + $ret .= "". + " "; + $ret .= "". + "Change the executed command:"; + $ret .= ""; + + my @list = grep { !$defs{$_}{TEMPORARY} && $_ ne $d && + $modules{$defs{$_}{TYPE}}{SetFn} } sort keys %defs; + $ret .= ""; + $ret .= "
 $d $param set
"; + $ret .= FW_select("modDev", "mod", \@list, undef, "set"); + $ret .= ""; + $ret .= ""; + $ret .= ""; + + my $js = << 'END'; + +END + + return ($ret, $js); } 1; diff --git a/www/pgm2/defaultCommon.css b/www/pgm2/defaultCommon.css index 9ba6c47c1..7d17e5654 100644 --- a/www/pgm2/defaultCommon.css +++ b/www/pgm2/defaultCommon.css @@ -93,8 +93,6 @@ svg.on,svg.FS20_on { fill:orange!important; } border-color:transparent; } .rc_button img:active { border-color: gray; } -table#atWizard td:first-child { width: 240px; } - /* jQuery-UI mods */ div.ui-dialog { border:3px solid #278727; padding: 0.2em; } div.ui-dialog div.ui-dialog-titlebar { display:none; }