Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 20:20:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

fhem.pl: Implament IsWe (Forum #98583)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@18922 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2019-03-16 10:57:53 +00:00
parent 9620b0d63c
commit b6b138aaec
3 changed files with 35 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
docs/commandref_frame.html
View File

@ -1818,8 +1818,10 @@ The following local attributes are used by a wider range of devices:
fhem "set light on" } }<br> fhem "set light on" } }<br>
define roll_en *07:45:00 { fhem "trigger SwitchAllRoll on" if(!$we) }<br> define roll_en *07:45:00 { fhem "trigger SwitchAllRoll on" if(!$we) }<br>
define roll_en *08:30:00 { fhem "trigger SwitchAllRoll on" if($we) }<br> define roll_en *08:30:00 { fhem "trigger SwitchAllRoll on" if($we) }<br>
</ul> </ul>
$we is equivalent to calling IsWe(), which optionally takes the arguments
"today", "yesterday" and "tomorrow". Note: for everything else "today" is
assumed without an error message.<br>
<br> <br>
<li> <li>

15
docs/commandref_frame_DE.html
View File

@ -1950,19 +1950,20 @@ Die folgenden lokalen Attribute werden von mehreren Ger&auml;ten verwendet:
aktuellen Datum in YYYY-MM-DD Format. aktuellen Datum in YYYY-MM-DD Format.
<br> <br>
Die Variabe <var>$we</var> hat den Wert 1 wenn der abgefragte Tag auf ein Wochenende Die Variabe <var>$we</var> hat den Wert 1 wenn der abgefragte Tag auf ein
f&auml;llt (Z.B. <var>$wday</var> == 0 [Sonntag] oder <var>$wday</var> == 6 [Samstag]), und 0 Wochenende f&auml;llt (Z.B. <var>$wday</var> == 0 [Sonntag] oder
f&uuml;r die anderen Wochentage. Wenn man das global <a <var>$wday</var> == 6 [Samstag]), und 0 f&uuml;r die anderen Wochentage.
href="#holiday2we">holiday2we</a> Attribut setzt, dann ist <var>$we</var> ebenfalls 1 Wenn man das global <a href="#holiday2we">holiday2we</a> Attribut setzt,
bei Urlaubstagen.<br> dann ist <var>$we</var> ebenfalls 1 bei Urlaubstagen.<br>
<ul> <ul>
define n2 notify piri:on { if($hour &gt; 18 || $hour &lt; 5) { define n2 notify piri:on { if($hour &gt; 18 || $hour &lt; 5) {
fhem "set light on" } }<br> fhem "set light on" } }<br>
define roll_en *07:45:00 { fhem "trigger SwitchAllRoll on" if(!$we) }<br> define roll_en *07:45:00 { fhem "trigger SwitchAllRoll on" if(!$we) }<br>
define roll_en *08:30:00 { fhem "trigger SwitchAllRoll on" if($we) }<br> define roll_en *08:30:00 { fhem "trigger SwitchAllRoll on" if($we) }<br>
</ul> </ul>
$we wird mit IsWe() gesetzt, diese Funktion nimmt optional die Argumente
"today", "yesterday" und "tomorrow". Achtung: alles andere wird als "today"
interpretiert, ohne eine Fehlermeldung zu generieren.
<br> <br>
</li><li> </li><li>

34
fhem.pl
View File

@ -81,6 +81,7 @@ sub IsDisabled($);
sub IsDummy($); sub IsDummy($);
sub IsIgnored($); sub IsIgnored($);
sub IsIoDummy($); sub IsIoDummy($);
sub IsWe(;$$);
sub LoadModule($;$); sub LoadModule($;$);
sub Log($$); sub Log($$);
sub Log3($$$); sub Log3($$$);
@ -1105,17 +1106,10 @@ AnalyzePerlCommand($$;$)
} }
my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) =
localtime(gettimeofday()); localtime(gettimeofday());
my $hms = sprintf("%02d:%02d:%02d", $hour, $min, $sec); $month++; $year+=1900;
my $we = (($wday==0 || $wday==6) ? 1 : 0);
if(!$we) {
foreach my $h2we (split(",", AttrVal("global", "holiday2we", ""))) {
my ($a, $b) = ReplaceEventMap($h2we, [$h2we, Value($h2we)], 0);
$we = 1 if($b && $b ne "none");
}
}
$month++;
$year+=1900;
my $today = sprintf('%04d-%02d-%02d', $year,$month,$mday); my $today = sprintf('%04d-%02d-%02d', $year,$month,$mday);
my $hms = sprintf("%02d:%02d:%02d", $hour, $min, $sec);
my $we = IsWe(undef, $wday);
if($evalSpecials) { if($evalSpecials) {
$cmd = join("", map { my $n = substr($_,1); # ignore the % $cmd = join("", map { my $n = substr($_,1); # ignore the %
@ -5898,4 +5892,24 @@ sub genUUID()
$fuuidHash{$uuid} = 1; $fuuidHash{$uuid} = 1;
return $uuid; return $uuid;
} }
sub
IsWe(;$$)
{
my ($when, $wday) = @_;
$wday = (localtime(gettimeofday()))[6] if(!defined($wday));
$when = "state" if(!$when || $when !~ m/^(yesterday|tomorrow)$/);
my $we = ($when eq "yesterday" ? ($wday==0 || $wday==1) :
($when eq "state" ? ($wday==6 || $wday==0) :
($wday==5 || $wday==6))); # tomorrow
if(!$we) {
foreach my $h2we (split(",", AttrVal("global", "holiday2we", ""))) {
my $b = ReadingsVal($h2we, $when, 0);
$we = 1 if($b && $b ne "none");
}
}
return $we ? 1 : 0;
}
1; 1;