mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-02-01 19:30:31 +00:00
248 lines
6.6 KiB
Perl
248 lines
6.6 KiB
Perl
##############################################
|
|
# $Id$
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use POSIX;
|
|
|
|
sub
|
|
Utils_Initialize($$)
|
|
{
|
|
my ($hash) = @_;
|
|
}
|
|
|
|
sub
|
|
time_str2num($)
|
|
{
|
|
my ($str) = @_;
|
|
my @a;
|
|
if($str ne "") {
|
|
@a = split("[- :]", $str);
|
|
return mktime($a[5],$a[4],$a[3],$a[2],$a[1]-1,$a[0]-1900,0,0,-1);
|
|
} else {
|
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
|
return mktime($sec, $min, $hour, $mday, $mon, $year, 0, 0, -1);
|
|
}
|
|
}
|
|
|
|
sub
|
|
min($@)
|
|
{
|
|
my ($min, @vars) = @_;
|
|
for (@vars) {
|
|
$min = $_ if $_ lt $min;
|
|
}
|
|
return $min;
|
|
}
|
|
|
|
sub
|
|
max($@)
|
|
{
|
|
my ($max, @vars) = @_;
|
|
for (@vars) {
|
|
$max = $_ if $_ gt $max;
|
|
}
|
|
return $max;
|
|
}
|
|
|
|
sub
|
|
minNum($@)
|
|
{
|
|
my ($min, @vars) = @_;
|
|
for (@vars) {
|
|
$min = $_ if $_ < $min;
|
|
}
|
|
return $min;
|
|
}
|
|
|
|
sub
|
|
maxNum($@)
|
|
{
|
|
my ($max, @vars) = @_;
|
|
for (@vars) {
|
|
$max = $_ if $_ > $max;
|
|
}
|
|
return $max;
|
|
}
|
|
|
|
|
|
sub
|
|
abstime2rel($)
|
|
{
|
|
my ($h,$m,$s) = split(":", shift);
|
|
$m = 0 if(!$m);
|
|
$s = 0 if(!$s);
|
|
my $t1 = 3600*$h+60*$m+$s;
|
|
|
|
my @now = localtime;
|
|
my $t2 = 3600*$now[2]+60*$now[1]+$now[0];
|
|
my $diff = $t1-$t2;
|
|
$diff += 86400 if($diff <= 0);
|
|
|
|
return sprintf("%02d:%02d:%02d", $diff/3600, ($diff/60)%60, $diff%60);
|
|
}
|
|
|
|
|
|
######## trim #####################################################
|
|
# What : cuts blankspaces from the beginning and end of a string
|
|
# Call : { trim(" Hello ") }
|
|
# Source: http://www.somacon.com/p114.php ,
|
|
# http://www.fhemwiki.de/wiki/TRIM-Funktion-Anfangs/EndLeerzeichen_aus_Strings_entfernen
|
|
sub trim($)
|
|
{
|
|
my $string = shift;
|
|
$string =~ s/^\s+//;
|
|
$string =~ s/\s+$//;
|
|
return $string;
|
|
}
|
|
|
|
######## ltrim ####################################################
|
|
# What : cuts blankspaces from the beginning of a string
|
|
# Call : { ltrim(" Hello") }
|
|
# Source: http://www.somacon.com/p114.php ,
|
|
# http://www.fhemwiki.de/wiki/TRIM-Funktion-Anfangs/EndLeerzeichen_aus_Strings_entfernensub ltrim($)
|
|
sub ltrim($)
|
|
{
|
|
my $string = shift;
|
|
$string =~ s/^\s+//;
|
|
return $string;
|
|
}
|
|
|
|
######## rtrim ####################################################
|
|
# What : cuts blankspaces from the end of a string
|
|
# Call : { rtrim("Hello ") }
|
|
# Source: http://www.somacon.com/p114.php ,
|
|
# http://www.fhemwiki.de/wiki/TRIM-Funktion-Anfangs/EndLeerzeichen_aus_Strings_entfernensub ltrim($)
|
|
sub rtrim($)
|
|
{
|
|
my $string = shift;
|
|
$string =~ s/\s+$//;
|
|
return $string;
|
|
}
|
|
|
|
######## UntoggleDirect ###########################################
|
|
# What : For devices paired directly, converts state 'toggle' into 'on' or 'off'
|
|
# Call : { UntoggleDirect("myDevice") }
|
|
# define untoggle_myDevice notify myDevice { UntoggleDirect("myDevice") }
|
|
# Source: http://www.fhemwiki.de/wiki/FS20_Toggle_Events_auf_On/Off_umsetzen
|
|
sub UntoggleDirect($)
|
|
{
|
|
my ($obj) = shift;
|
|
Log 4, "UntoggleDirect($obj)";
|
|
if (Value($obj) eq "toggle"){
|
|
if (OldValue($obj) eq "off") {
|
|
{fhem ("setstate ".$obj." on")}
|
|
}
|
|
else {
|
|
{fhem ("setstate ".$obj." off")}
|
|
}
|
|
}
|
|
else {
|
|
{fhem "setstate ".$obj." ".Value($obj)}
|
|
}
|
|
}
|
|
|
|
|
|
######## UntoggleIndirect #########################################
|
|
# What : For devices paired indirectly, switches the target device 'on' or 'off' also when a 'toggle' was sent from the source device
|
|
# Call : { UntoggleIndirect("mySensorDevice","myActorDevice","50%") }
|
|
# define untoggle_mySensorDevice_myActorDevice notify mySensorDevice { UntoggleIndirect("mySensorDevice","myActorDevice","50%%") }
|
|
# Source: http://www.fhemwiki.de/wiki/FS20_Toggle_Events_auf_On/Off_umsetzen
|
|
sub UntoggleIndirect($$$)
|
|
{
|
|
my ($sender, $actor, $dimvalue) = @_;
|
|
Log 4, "UntoggleIndirect($sender, $actor, $dimvalue)";
|
|
if (Value($sender) eq "toggle")
|
|
{
|
|
if (Value($actor) eq "off") {fhem ("set ".$actor." on")}
|
|
else {fhem ("set ".$actor." off")}
|
|
}
|
|
## workaround for dimming currently not working with indirect pairing
|
|
## (http://culfw.de/commandref.html: "TODO/Known BUGS - FS20 dim commands should not repeat.")
|
|
elsif (Value($sender) eq "dimup") {fhem ("set ".$actor." dim100%")}
|
|
elsif (Value($sender) eq "dimdown") {fhem ("set ".$actor." ".$dimvalue)}
|
|
elsif (Value($sender) eq "dimupdown")
|
|
{
|
|
if (Value($actor) eq $dimvalue) {fhem ("set ".$actor." dim100%")}
|
|
## Heuristic above doesn't work if lamp was dimmed, then switched off, then switched on, because state is "on", but the lamp is actually dimmed.
|
|
else {fhem ("set ".$actor." ".$dimvalue)}
|
|
sleep 1;
|
|
}
|
|
## end of workaround
|
|
else {fhem ("set ".$actor." ".Value($sender))}
|
|
|
|
return;
|
|
}
|
|
|
|
|
|
1;
|
|
|
|
=pod
|
|
=begin html
|
|
|
|
<a name="Utils"></a>
|
|
<h3>Utils</h3>
|
|
<ul>
|
|
<br/>
|
|
This is a collection of functions that can be used module-independant in all your own development<br/>
|
|
</br>
|
|
<pre>
|
|
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
# IMPORTANT: do not insert your own functions inside
|
|
# the file 99_Utils.pm!
|
|
#
|
|
# This file will be overwritten during an FHEM update and all
|
|
# your own inserts will be lost.
|
|
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
#
|
|
# To avoid this, we recommend following procedure:
|
|
#
|
|
# 1. Create your own file 99_myUtils.pm from the template below
|
|
# 2. Put this file inside the ./FHEM directory
|
|
# 3. Put your own functions into this new file
|
|
#
|
|
<br/>
|
|
<code>
|
|
# start-of-template
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use POSIX;
|
|
|
|
sub
|
|
myUtils_Initialize($$)
|
|
{
|
|
my ($hash) = @_;
|
|
}
|
|
|
|
# start with your own functions below this line
|
|
|
|
|
|
# behind your last function, we need the following
|
|
1;
|
|
# end-of-template
|
|
</code>
|
|
</pre>
|
|
</br>
|
|
<b>Defined functions</b><br/><br/>
|
|
<ul>
|
|
<li><b>abstime2rel()</b><br>???</li><br/>
|
|
<li><b>ltrim()</b><br>returns string without leading spaces</li><br/>
|
|
<li><b>max()</b><br>returns the highest value from a given list (sorted alphanumeric)</li><br/>
|
|
<li><b>maxNum()</b><br>returns the highest value from a given list (sorted numeric)</li><br/>
|
|
<li><b>min()</b><br>returns the lowest value from a given list (sorted alphanumeric)</li><br/>
|
|
<li><b>minNum()</b><br>returns the lowest value from a given list (sorted numeric)</li><br/>
|
|
<li><b>rtrim()</b><br>returns string without trailing spaces</li><br/>
|
|
<li><b>time_str2num()</b><br>???</li><br/>
|
|
<li><b>trim()</b><br>returns string without leading and without trailing spaces</li><br/>
|
|
<li><b>UntoggleDirect()</b><br>For devices paired directly, converts state 'toggle' into 'on' or 'off'</li><br/>
|
|
<li><b>UntoggleIndirect()</b><br>For devices paired indirectly, switches the target device 'on' or 'off' <br/>
|
|
also when a 'toggle' was sent from the source device</li><br/>
|
|
</ul>
|
|
</ul>
|
|
=end html
|
|
=cut
|
|
|