FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 04:36:36 +00:00
Code Issues Releases Wiki Activity

90_at.pm: add at_ultimo from betateilchen (Forum #117269)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@23512 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2021-01-12 19:37:27 +00:00
parent 1dd422b788
commit 98c3dda23f
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/FHEM/90_at.pm
View File

@ -410,6 +410,20 @@ EOF
return "$h1$h2</table></div><br>$j1$j2";
}
sub
at_ultimo(;$$$)
{
my ($h,$m,$s) = @_;
$h //= 23;
$m //= 59;
$s //= 0;
my $add = $data{AT_RECOMPUTE} ? DAYSECONDS : 0;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time+$add);
my ($nm, $ny) = ($mon == 11) ? (0,$year+1) : ($mon+1,$year);
return mktime($s,$m,$h,1,$nm,$ny) - DAYSECONDS;
}
1;
=pod
@ -445,7 +459,7 @@ EOF
any spaces or tabs.<br>
&lt;datespec&gt; is either ISO8601 (YYYY-MM-DDTHH:MM:SS) or number of
seconds since 1970.
seconds since 1970 or {perlfunc()}.
</ul>
<br>