Compare commits
137 Commits
Author | SHA1 | Date | |
---|---|---|---|
dd2cb7d2b8 | |||
3c1e539ef8 | |||
e155fbf3ec | |||
2178943e3a | |||
ef9349ec90 | |||
640cd620b5 | |||
9039254ead | |||
8923b8edbe | |||
81489d5246 | |||
833a370347 | |||
fb50355d39 | |||
d41615c90f | |||
be5e721c43 | |||
2351e5b9db | |||
d4626a068b | |||
0571adccc5 | |||
8ec3bcde54 | |||
bd97e399bf | |||
d409662969 | |||
c1c3e2cbdf | |||
72298746ab | |||
787114040c | |||
b517e032cf | |||
30cf6f41d7 | |||
eef3dc7b21 | |||
cfe3963f32 | |||
b654481df1 | |||
e19c902780 | |||
757a19bdb5 | |||
52930d9a07 | |||
e1592b8b7d | |||
7eb1079458 | |||
ceecbb063a | |||
49b0ff17fa | |||
ae5057fbc5 | |||
9cd0d364b4 | |||
f216e1b308 | |||
6f137256e0 | |||
cc5ef41e21 | |||
587d4e4316 | |||
3542e51375 | |||
f517b72f23 | |||
ad5cbaac12 | |||
8da3b13bcc | |||
c09edf5496 | |||
cd1c2c104a | |||
51256c1ed9 | |||
c0a7bfa6df | |||
403936fe73 | |||
5095c65d80 | |||
0bd8d6273f | |||
c3b61def25 | |||
9c096902e8 | |||
6dfc92c35e | |||
9994af6ca2 | |||
eb85a74a07 | |||
358c760b45 | |||
34a6a88401 | |||
bb80fb5d3a | |||
2907e19d3b | |||
ae86468077 | |||
7cba141447 | |||
f67d56e1cc | |||
527d72dd57 | |||
459b8508ec | |||
ac87015478 | |||
26105fa434 | |||
15be0a6885 | |||
cca6e90303 | |||
de5d6cbc6a | |||
4925e654ec | |||
97caf64308 | |||
6bf2b17d6f | |||
fb27bedf48 | |||
f52187ad35 | |||
103697184e | |||
c9894453bb | |||
14eee0e6dd | |||
9545dda125 | |||
3135a27c63 | |||
13689963f1 | |||
d8881ff6d1 | |||
12f48e98b5 | |||
a1d19a797d | |||
f1f265b89a | |||
ca99e2bd0c | |||
29e3a1a8d7 | |||
e02395a82f | |||
663ce748e2 | |||
d35dda835a | |||
47be49617d | |||
0dc0a9c6e4 | |||
79d369b9f5 | |||
8109cd7ebe | |||
842e41e3dc | |||
35a4f60a53 | |||
ef650b2d4b | |||
bf773ca2d7 | |||
ae88630277 | |||
f811cfd87f | |||
1a71c63652 | |||
7d3d11d1e2 | |||
1eeeb85eaf | |||
397f949a21 | |||
4ea1db3aa0 | |||
004a15ea42 | |||
9a1b6acad3 | |||
4aa24587a5 | |||
c76280639f | |||
a3c023711c | |||
c6e88f2d45 | |||
f0f5cbde4b | |||
5928276b74 | |||
32a3ac9d13 | |||
ef590e002e | |||
427018ab46 | |||
89431a2af3 | |||
39c7ec3dc5 | |||
37044b2316 | |||
a44fffe94e | |||
870f2be5d8 | |||
36669f1405 | |||
a61458cfc2 | |||
8c17eb5f6a | |||
d87ddb146c | |||
58b2f20f19 | |||
301fd32048 | |||
0255be94b5 | |||
4773fd0ea0 | |||
1ce3805427 | |||
5f00d33fa9 | |||
da79e25929 | |||
0b22ac9e12 | |||
e6a01cdb18 | |||
fb44ff9f1a | |||
9663b2dd43 | |||
d6cb059eaf |
8549
CHANGELOG.md
Normal file
8549
CHANGELOG.md
Normal file
File diff suppressed because it is too large
Load Diff
@ -1,12 +1,12 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
# - Bernd (Cluni) this module is based on the logic of his script "Rollladensteuerung für HM/ROLLO inkl. Abschattung und Komfortfunktionen in Perl" (https://forum.fhem.de/index.php/topic,73964.0.html)
|
||||
# - Bernd (Cluni) this module is based on the logic of his script "Rollladensteuerung für HM/ROLLO inkl. Abschattung und Komfortfunktionen in Perl" (https://forum.fhem.de/index.php/topic,73964.0.html)
|
||||
# - Beta-User for many tests, many suggestions and good discussions
|
||||
# - pc1246 write english commandref
|
||||
# - FunkOdyssey commandref style
|
||||
@ -49,30 +49,21 @@ use utf8;
|
||||
use FHEM::Meta;
|
||||
|
||||
use FHEM::Automation::ShuttersControl;
|
||||
use GPUtils qw(GP_Import GP_Export);
|
||||
use GPUtils qw(GP_Import);
|
||||
|
||||
## Import der FHEM Funktionen
|
||||
#-- Run before package compilation
|
||||
BEGIN {
|
||||
# Import from main context
|
||||
GP_Import(
|
||||
qw(
|
||||
readingFnAttributes
|
||||
)
|
||||
);
|
||||
|
||||
#-- Export to main context with different name
|
||||
GP_Export(
|
||||
qw(
|
||||
Initialize
|
||||
)
|
||||
);
|
||||
GP_Import(qw(readingFnAttributes));
|
||||
}
|
||||
|
||||
sub ::AutoShuttersControl_Initialize { goto &Initialize }
|
||||
|
||||
sub Initialize {
|
||||
my $hash = shift;
|
||||
|
||||
## Da ich mit package arbeite müssen in die Initialize für die jeweiligen hash Fn Funktionen der Funktionsname
|
||||
## Da ich mit package arbeite, muessen in die Initialize fuer die jeweiligen hash Fn Funktionen der Funktionsname
|
||||
# und davor mit :: getrennt der eigentliche package Name des Modules
|
||||
$hash->{SetFn} = \&FHEM::Automation::ShuttersControl::Set;
|
||||
$hash->{GetFn} = \&FHEM::Automation::ShuttersControl::Get;
|
||||
@ -81,7 +72,7 @@ sub Initialize {
|
||||
$hash->{UndefFn} = \&FHEM::Automation::ShuttersControl::Undef;
|
||||
$hash->{DeleteFn} = \&FHEM::Automation::ShuttersControl::Delete;
|
||||
$hash->{ShutdownFn} = \&FHEM::Automation::ShuttersControl::Shutdown;
|
||||
$hash->{AttrList} =
|
||||
$hash->{AttrList} =
|
||||
'ASC_tempSensor '
|
||||
. 'ASC_brightnessDriveUpDown '
|
||||
. 'ASC_autoShuttersControlMorning:on,off '
|
||||
@ -100,9 +91,10 @@ sub Initialize {
|
||||
. 'ASC_expert:1 '
|
||||
. 'ASC_blockAscDrivesAfterManual:0,1 '
|
||||
. 'ASC_debug:1 '
|
||||
. 'ASC_advDate:DeadSunday,FirstAdvent '
|
||||
. 'ASC_advStartDate:DeadSunday,FirstAdvent '
|
||||
. 'ASC_advEndDate:CandlemasDay,EpiphanyDay '
|
||||
. $readingFnAttributes;
|
||||
$hash->{NotifyOrderPrefix} = '51-'; # Order Nummer für NotifyFn
|
||||
$hash->{NotifyOrderPrefix} = '51-'; # Order Nummer für NotifyFn
|
||||
$hash->{FW_detailFn} =
|
||||
\&FHEM::Automation::ShuttersControl::ShuttersInformation;
|
||||
$hash->{parseParams} = 1;
|
||||
@ -117,7 +109,7 @@ __END__
|
||||
=pod
|
||||
=item device
|
||||
=item summary Module for controlling shutters depending on various conditions
|
||||
=item summary_DE Modul zur automatischen Rolladensteuerung auf Basis bestimmter Ereignisse
|
||||
=item summary_DE Modul zur automatischen Rollladensteuerung auf Basis bestimmter Ereignisse
|
||||
|
||||
|
||||
=begin html
|
||||
@ -136,7 +128,7 @@ __END__
|
||||
<p>
|
||||
After telling <abbr>ASC</abbr> which shutters should be controlled, several in-depth configuration options
|
||||
are provided. With these and in combination with a resident presence state, complex scenarios are possible:
|
||||
For example, shutters could be opened if a resident awakes from sleep and the sun is already rosen. Or if a
|
||||
For example, shutters could be opened if a resident awakes from sleep and the sun has already risen. Or if a
|
||||
closed window with shutters down is tilted, the shutters could be half opened for ventilation.
|
||||
Many more is possible.
|
||||
</p>
|
||||
@ -158,7 +150,7 @@ __END__
|
||||
Now was the new global attribute <var>ASC</var> added to the <abbr>FHEM</abbr> installation.
|
||||
Each shutter that is to be controlled by AutoShuttersControl must now have the attribute ASC set to 1 or 2.
|
||||
The value 1 is to be used with devices whose state is given as position (i.e. ROLLO or Siro, shutters
|
||||
openend is 0, shutters closed is 100), 2 with devices whose state is given as percent closed (i.e. HomeMatic,
|
||||
opened is 0, shutters closed is 100), 2 with devices whose state is given as percent closed (i.e. HomeMatic,
|
||||
shutters opened is 100, closed is 0).
|
||||
</p>
|
||||
<p>
|
||||
@ -202,7 +194,7 @@ __END__
|
||||
If the brightness or time mode is used, the value from <em>ASC_Time_Up_Late</em> is shown.
|
||||
</li>
|
||||
<li><strong>ASC_Time_DriveDown</strong> - if the astro mode is used, the next sunset is shown.
|
||||
If the brightness or time mode is used, the value from <em>ASC_TASC_Time_Down_Late</em> is
|
||||
If the brightness or time mode is used, the value from <em>ASC_Time_Down_Late</em> is
|
||||
shown.
|
||||
</li>
|
||||
<li><strong>ASC_ShuttersLastDrive</strong> - initiator for the last action</li>
|
||||
@ -224,7 +216,7 @@ __END__
|
||||
<em>ASC_Expert</em> attribute is set to 1.
|
||||
</li>
|
||||
<a id="AutoShuttersControl-set-hardLockOut"></a>
|
||||
<li><strong>hardLockOut on|off</strong> - <li><strong>hardLockOut - on/off</strong> - Aktiviert den hardwareseitigen Aussperrschutz für die Rollläden, bei denen das Attributs <em>ASC_LockOut</em> entsprechend auf hard gesetzt ist. Mehr Informationen in der Beschreibung bei den Attributen für die Rollladengeräten.</li>
|
||||
<li><strong>hardLockOut on|off</strong> - <li><strong>hardLockOut - on/off</strong> - Aktiviert den hardwareseitigen Aussperrschutz für die Rollläden, bei denen das Attribut <em>ASC_LockOut</em> entsprechend auf hard gesetzt ist. Mehr Informationen in der Beschreibung bei den Attributen für die Rollladengeräte.</li>
|
||||
</li>
|
||||
<a id="AutoShuttersControl-set-partyMode"></a>
|
||||
<li><strong>partyMode on|off</strong> - controls the global party mode for shutters. Every shutters whose
|
||||
@ -314,11 +306,11 @@ __END__
|
||||
<li><strong>ASC_brightnessDriveUpDown - VALUE-MORNING:VALUE-EVENING</strong> - Drive the shutters by
|
||||
brightness. <em>VALUE-MORNING</em> sets the brightness threshold for the morning. If the value is
|
||||
reached in the morning, the shutter will go up. Vice versa in the evening. This is a global setting
|
||||
and can be overwritte per device with the <em>ASC_BrightnessSensor</em> attribute (see below).
|
||||
and can be overwritten per device with the <em>ASC_BrightnessSensor</em> attribute (see below).
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_debug"></a>
|
||||
<li><strong>ASC_debug</strong> -
|
||||
Extendend logging for debugging purposes
|
||||
Extended logging for debugging purposes
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_expert"></a>
|
||||
<li><strong>ASC_expert</strong> - Switches the export mode on. Currently, if set to <em>1</em>, <em>get</em>
|
||||
@ -328,8 +320,11 @@ __END__
|
||||
<li><strong>ASC_freezeTemp</strong> - Temperature threshold for the freeze protection. The freeze protection
|
||||
prevents the shutter to be operated by <abbr>ASC</abbr>. Last operating order will be kept.
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_advDate"></a>
|
||||
<li><strong>ASC_advDate</strong> - Advent Season, selected FirstAdvent or DeadSunday.
|
||||
<a id="AutoShuttersControl-attr-ASC_advStartDate"></a>
|
||||
<li><strong>ASC_advStartDate</strong> - Begin of Advent Season, selected FirstAdvent or DeadSunday.
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_advEndDate"></a>
|
||||
<li><strong>ASC_advEndDate</strong> - End of Advent Season, selected CandlemasDay 6. January or EpiphanyDay 2. February.
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_rainSensor"></a>
|
||||
<li><strong>ASC_rainSensor DEVICENAME[:READINGNAME] MAXTRIGGER[:HYSTERESE] [CLOSEDPOS]</strong> - Contains
|
||||
@ -385,14 +380,14 @@ __END__
|
||||
<li><strong>ASC_Antifreeze - soft|am|pm|hard|off</strong> - Freeze protection.
|
||||
<ul>
|
||||
<li>soft - see <em>ASC_Antifreeze_Pos</em>.</li>
|
||||
<li>hard / <abbr>am</abbr> / <abbr>pm</abbr> - freeze protection will be active (everytime,
|
||||
<li>hard / <abbr>am</abbr> / <abbr>pm</abbr> - freeze protection will be active (every time,
|
||||
ante meridiem or post meridiem).</li>
|
||||
<li>off - freeze protection is disabled, default value</li>
|
||||
</ul>
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Antifreeze_Pos"></a>
|
||||
<li><strong>ASC_Antifreeze_Pos</strong> - Position to be operated if the shutter should be closed,
|
||||
but <em>ASC_Antifreeze</em> is not set to <em>off</em>. (Default: dependent on attribut<em>ASC</em> 85/15).
|
||||
but <em>ASC_Antifreeze</em> is not set to <em>off</em>. (default: dependent on attribute <em>ASC</em> 85/15).
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_AutoAstroModeEvening"></a>
|
||||
<li><strong>ASC_AutoAstroModeEvening</strong> - Can be set to <em>REAL</em>, <em>CIVIL</em>,
|
||||
@ -416,11 +411,11 @@ __END__
|
||||
after the last manual operation in seconds. Defaults to 1200 (20 minutes).
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_BlockingTime_beforDayOpen"></a>
|
||||
<li><strong>ASC_BlockingTime_beforeDayOpen</strong> - Time in which no closing operation is made by
|
||||
<li><strong>ASC_BlockingTime_beforDayOpen</strong> - Time in which no closing operation is made by
|
||||
<abbr>ASC</abbr> after opening at the morning in seconds. Defaults to 3600 (one hour).
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_BlockingTime_beforeNightClose"></a>
|
||||
<li><strong>ASC_BlockingTime_beforeNightClose</strong> - Time in which no closing operation is made by
|
||||
<a id="AutoShuttersControl-attr-ASC_BlockingTime_beforNightClose"></a>
|
||||
<li><strong>ASC_BlockingTime_beforNightClose</strong> - Time in which no closing operation is made by
|
||||
<abbr>ASC</abbr> before closing at the evening in seconds. Defaults to 3600 (one hour).
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_BrightnessSensor"></a>
|
||||
@ -432,11 +427,11 @@ __END__
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Closed_Pos"></a>
|
||||
<li><strong>ASC_Closed_Pos</strong> - The closed position value from 0 to 100 percent in increments of 10.
|
||||
(Default: dependent on attribut<em>ASC</em> 100/0).
|
||||
(Default: dependent on attribute <em>ASC</em> 100/0).
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_ComfortOpen_Pos"></a>
|
||||
<li><strong>ASC_ComfortOpen_Pos</strong> - The comfort opening position, ranging
|
||||
from 0 to 100 percent in increments of 10. (Default: dependent on attribut<em>ASC</em> 20/80).
|
||||
from 0 to 100 percent in increments of 10. (Default: dependent on attribute <em>ASC</em> 20/80).
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Down"></a>
|
||||
<li><strong>ASC_Down - astro|time|brightness|roommate</strong> - Drive the shutter depending on this setting:
|
||||
@ -499,11 +494,11 @@ __END__
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Open_Pos"></a>
|
||||
<li><strong>ASC_Open_Pos</strong> - The opening position value from 0 to 100 percent in increments of 10.
|
||||
(Default: dependent on attribut<em>ASC</em> 0/100).
|
||||
(Default: dependent on attribute <em>ASC</em> 0/100).
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Sleep_Pos"></a>
|
||||
<li><strong>ASC_Sleep_Pos</strong> - The opening position value from 0 to 100 percent in increments of 10.
|
||||
(Default: dependent on attribut<em>ASC</em> 75/25).
|
||||
(Default: dependent on attribute <em>ASC</em> 75/25).
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Partymode"></a>
|
||||
<li><strong>ASC_Partymode on|off</strong> - Party mode. If configured to on, driving orders for the
|
||||
@ -593,7 +588,7 @@ __END__
|
||||
<li><strong>ASC_Time_Up_WE_Holiday</strong> - Will not drive before time is <em>ASC_Time_Up_WE_Holiday</em>
|
||||
on weekends and holidays (<em>holiday2we</em> is considered). Defaults to 08:00. <strong>Warning!</strong>
|
||||
If <em>ASC_Up</em> set to <em>brightness</em>, the time for <em>ASC_Time_Up_WE_Holiday</em>
|
||||
must be earlier then <em>ASC_Time_Up_Late</em>.
|
||||
must be earlier than <em>ASC_Time_Up_Late</em>.
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Up"></a>
|
||||
<li><strong>ASC_Up astro|time|brightness|roommate</strong> - Drive the shutter depending on this setting:
|
||||
@ -608,7 +603,7 @@ __END__
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Ventilate_Pos"></a>
|
||||
<li><strong>ASC_Ventilate_Pos</strong> - The opening position value for ventilation
|
||||
from 0 to 100 percent in increments of 10. (Default: dependent on attribut<em>ASC</em> 70/30).
|
||||
from 0 to 100 percent in increments of 10. (Default: dependent on attribute <em>ASC</em> 70/30).
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Ventilate_Window_Open"></a>
|
||||
<li><strong>ASC_Ventilate_Window_Open on|off</strong> - Drive to ventilation position as window is opened
|
||||
@ -642,7 +637,7 @@ __END__
|
||||
<a id="AutoShuttersControl-attr-ASC_CommandTemplate"></a>
|
||||
<li><strong>ASC_CommandTemplate</strong> - <strong>FHEM or Perl command</strong> (Perl in braces as usual needs escaping semicolons etc.).<br>
|
||||
This optional attribute will override the internally determined command to drive this shutter. Setting it, is only recommended in <strong>some rare and special cases,</strong>, in most cases there's <strong>no need</strong> to set this attribute!
|
||||
The parameters <i>$name</i> (name of the shutter device), <i>$pos</i> (target position for the respective drive command), <i>$slatPos</i> (target position for the (turnable) lammellas in venetion blinds) and <i>$cause</i> (internal label for the cause of the driving command) will be replaced by the appropirate values. You may have to take care to avoid unneeded driving commands.
|
||||
The parameters <i>$name</i> (name of the shutter device), <i>$pos</i> (target position for the respective drive command), <i>$slatPos</i> (target position for the (rotating) slats on blinds) and <i>$cause</i> (internal label for the cause of the driving command) will be replaced by the appropirate values. You may have to take care to avoid unneeded driving commands.
|
||||
Examples:
|
||||
<ul>
|
||||
<li><i>attr ROLLO ASC_CommandTemplate set $name $pos</i> - Address the position command directly to the main switch of the device</li>
|
||||
@ -712,7 +707,7 @@ __END__
|
||||
are used for shading. Defaults to 120.
|
||||
</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Shading_BetweenTheTime"></a>
|
||||
<li><strong>ASC_Shading_BetweenTheTime</strong> - Limit the time slots for shading functionality. Example: 9:00-13:00 11:25-15:30</li>
|
||||
<li><strong>ASC_Shading_BetweenTheTime</strong> - Limit the time slots for shading functionality. Example: 09:00-13:00 11:25-15:30</li>
|
||||
</ul>
|
||||
</blockquote>
|
||||
</ul>
|
||||
@ -827,7 +822,7 @@ __END__
|
||||
<td>Current temperature of a configured temperature device, return -100 is no device configured</td>
|
||||
</tr>
|
||||
</table>
|
||||
</p>
|
||||
<p></p>
|
||||
<u>Übersicht für das Rollladen-Device mit Parameterübergabe</u>
|
||||
<ul>
|
||||
<code>{ ascAPIget('Getter','ROLLODEVICENAME',VALUE) }</code><br>
|
||||
@ -840,7 +835,7 @@ __END__
|
||||
<td>QueryShuttersPos</td><td>Rückgabewert 1 bedeutet das die aktuelle Position des Rollos unterhalb der Valueposition ist. 0 oder nichts bedeutet oberhalb der Valueposition.</td>
|
||||
</tr>
|
||||
</table>
|
||||
</p>
|
||||
<p></p>
|
||||
<u>Data points of the <abbr>ASC</abbr> device</u>
|
||||
<p>
|
||||
<code>{ ascAPIget('Getter') }</code><br>
|
||||
@ -875,6 +870,19 @@ __END__
|
||||
<td>Is <abbr>ASC</abbr> globally activated?</td>
|
||||
</tr>
|
||||
</table>
|
||||
<p></p>
|
||||
<u>Important Information for General Use</u>
|
||||
<p>
|
||||
A possibility has been created to prevent the delayed movement of a roller shutter by opening a window contact.
|
||||
The handle position is determined before the movement, not before the wait time!
|
||||
The following settings are required for this function:
|
||||
<ul>
|
||||
<li>the roller shutter must be in the open position</i>
|
||||
<li>the sensor must be set to open</i>
|
||||
<li>the attribute ASC_ShuttersPlace must be set to terrace</i>
|
||||
<li>the attribute ASC_Self_Defense_Mode must be set to off</i>
|
||||
</ul>
|
||||
</p>
|
||||
</ul>
|
||||
|
||||
=end html
|
||||
@ -885,10 +893,10 @@ __END__
|
||||
<h3>AutoShuttersControl</h3>
|
||||
<ul>
|
||||
<p>AutoShuttersControl (ASC) ermöglicht eine vollständige Automatisierung der vorhandenen Rollläden. Das Modul bietet umfangreiche Konfigurationsmöglichkeiten, um Rollläden bspw. nach Sonnenauf- und untergangszeiten, nach Helligkeitswerten oder rein zeitgesteuert zu steuern.
|
||||
<br /><strong>Damit ASC auf Basis der astronomischen Zeiten die Rollos fahren kann, ist es ganz wichtig im Device "global" die Location (Latitude,Longitude) korrekt zu setzen.</strong>
|
||||
<br /><strong>Damit ASC auf Basis der astronomischen Zeiten die Rollos fahren kann, ist es ganz wichtig im Device "global" die Location (Latitude, Longitude) korrekt zu setzen.</strong>
|
||||
</p>
|
||||
<p>
|
||||
Man kann festlegen, welche Rollläden von ASC in die Automatisierung mit aufgenommen werden sollen. Daraufhin stehen diverse Attribute zur Feinkonfiguration zur Verfügung. So sind unter anderem komplexe Lösungen wie Fahrten in Abhängigkeit des Bewohnerstatus einfach umsetzbar. Beispiel: Hochfahren von Rollläden, wenn der Bewohner erwacht ist und draußen bereits die Sonne aufgegangen ist. Weiterhin ist es möglich, dass der geschlossene Rollladen z.B. nach dem Ankippen eines Fensters in eine Lüftungsposition fährt. Und vieles mehr.
|
||||
Man kann festlegen, welche Rollläden von ASC in die Automatisierung mit aufgenommen werden sollen. Daraufhin stehen diverse Attribute zur Feinkonfiguration zur Verfügung. So sind unter anderem komplexe Lösungen wie Fahrten in Abhängigkeit des Bewohnerstatus einfach umsetzbar. Beispiel: Hochfahren von Rollläden, wenn der Bewohner erwacht ist und draußen bereits die Sonne aufgegangen ist. Weiterhin ist es möglich, dass der geschlossene Rollladen z.B. nach dem ankippen eines Fensters in eine Lüftungsposition fährt. Und vieles mehr.
|
||||
</p>
|
||||
<a id="AutoShuttersControl-define"></a>
|
||||
<strong>Define</strong>
|
||||
@ -918,24 +926,24 @@ __END__
|
||||
<li><strong>..._lastPosValue</strong> - letzte Position des Rollladens</li>
|
||||
<li><strong>..._lastDelayPosValue</strong> - letzter abgesetzter Fahrbefehl, welcher beim nächsten zulässigen Event ausgeführt wird.</li>
|
||||
<li><strong>partyMode - on/off</strong> - Partymodus-Status</li>
|
||||
<li><strong>ascEnable - on/off</strong> - globale ASC Steuerung bei den Rollläden aktiv oder inaktiv</li>
|
||||
<li><strong>ascEnable - on/off</strong> - globale ASC Steuerung bei den Rollläden aktiv oder inaktiv</li>
|
||||
<li><strong>controlShading - on/off</strong> - globale Beschattungsfunktion aktiv oder inaktiv</li>
|
||||
<li><strong>hardLockOut - on/off</strong> - Status des hardwareseitigen Aussperrschutzes / gilt nur für Rolläden mit dem Attribut bei denen das Attributs <em>ASC_LockOut</em> entsprechend auf hard gesetzt ist</li>
|
||||
<li><strong>hardLockOut - on/off</strong> - Status des hardwareseitigen Aussperrschutzes / gilt nur für Rollläden mit dem Attribut bei denen das Attributs <em>ASC_LockOut</em> entsprechend auf hard gesetzt ist</li>
|
||||
<li><strong>room_...</strong> - Auflistung aller Rollläden, die in den jeweiligen Rämen gefunden wurde. Beispiel: room_Schlafzimmer: Terrasse</li>
|
||||
<li><strong>selfDefense</strong> - Selbstschutz-Status</li>
|
||||
<li><strong>state</strong> - Status des ASC-Devices: active, enabled, disabled oder weitere Statusinformationen</li>
|
||||
<li><strong>sunriseTimeWeHoliday - on/off</strong> - Status der Wochenendunterstützung</li>
|
||||
<li><strong>userAttrList</strong> - Das ASC-Modul verteilt an die gesteuerten Rollladen-Geräte diverse Benutzerattribute <em>(userattr)</em>. In diesem Reading kann der Status dieser Verteilung geprüft werden.</li>
|
||||
<li><strong>userAttrList</strong> - Das ASC-Modul verteilt an die gesteuerten Rollladen-Geräte diverse Benutzerattribute <em>(userattr)</em>. In diesem Reading kann der Status dieser Verteilung geprüft werden.</li>
|
||||
</ul><br />
|
||||
<u>In den Rollläden-Geräten</u>
|
||||
<ul>
|
||||
<li><strong>ASC_Enable - on/off</strong> - wird der Rollladen über ASC gesteuert oder nicht</li>
|
||||
<li><strong>ASC_Enable - on/off</strong> - Wird der Rollladen über ASC gesteuert oder nicht</li>
|
||||
<li><strong>ASC_Time_DriveUp</strong> - Im Astro-Modus ist hier die Sonnenaufgangszeit für das Rollo gespeichert. Im Brightnessmodus ist hier der Zeitpunkt aus dem Attribut <em>ASC_Time_Up_Late</em> gespeichert. Im Timemodus ist hier der Zeitpunkt aus dem Attribut <em>ASC_Time_Up_Early</em> gespeichert.</li>
|
||||
<li><strong>ASC_Time_DriveDown</strong> - Im Astro-Modus ist hier die Sonnenuntergangszeit für das Rollo gespeichert. Im Brightnessmodus ist hier der Zeitpunkt aus dem Attribut <em>ASC_Time_Down_Late</em> gespeichert. Im Timemodus ist hier der Zeitpunkt aus dem Attribut <em>ASC_Time_Down_Early</em> gespeichert.</li>
|
||||
<li><strong>ASC_ShuttersLastDrive</strong> - Grund der letzten Fahrt vom Rollladen</li>
|
||||
<li><strong>ASC_ShadingMessage</strong> - </li>
|
||||
<li><strong>ASC_Time_PrivacyDriveDown</strong> - </li>
|
||||
<li><strong>ASC_Time_PrivacyDriveUp</strong> - </li>
|
||||
<li><strong>ASC_Time_DriveDown</strong> - Im Astro-Modus ist hier die Sonnenuntergangszeit für das Rollo gespeichert. Im Brightnessmodus ist hier der Zeitpunkt aus dem Attribut <em>ASC_Time_Down_Late</em> gespeichert. Im Timemodus ist hier der Zeitpunkt aus dem Attribut <em>ASC_Time_Down_Early</em> gespeichert.</li>
|
||||
<li><strong>ASC_ShuttersLastDrive</strong> - Grund der letzten Fahrt vom Rollladen</li>
|
||||
<li><strong>ASC_ShadingMessage</strong> - </li>
|
||||
<li><strong>ASC_Time_PrivacyDriveDown</strong> - </li>
|
||||
<li><strong>ASC_Time_PrivacyDriveUp</strong> - </li>
|
||||
</ul>
|
||||
</ul>
|
||||
<br /><br />
|
||||
@ -943,7 +951,7 @@ __END__
|
||||
<strong>Set</strong>
|
||||
<ul>
|
||||
<a id="AutoShuttersControl-set-advDriveDown"></a>
|
||||
<li><strong>advDriveDown</strong> - holt bei allen Rollläden durch ASC_Adv on ausgesetzte Fahrten nach.</li>
|
||||
<li><strong>advDriveDown</strong> - Holt bei allen Rollläden durch ASC_Adv on ausgesetzte Fahrten nach.</li>
|
||||
<a id="AutoShuttersControl-set-ascEnable"></a>
|
||||
<li><strong>ascEnable - on/off</strong> - Aktivieren oder deaktivieren der globalen ASC Steuerung</li>
|
||||
<a id="AutoShuttersControl-set-controlShading"></a>
|
||||
@ -955,9 +963,9 @@ __END__
|
||||
<a id="AutoShuttersControl-set-partyMode"></a>
|
||||
<li><strong>partyMode - on/off</strong> - Aktiviert den globalen Partymodus. Alle Rollladen-Geräten, in welchen das Attribut <em>ASC_Partymode</em> auf <em>on</em> gesetzt ist, werden durch ASC nicht mehr gesteuert. Der letzte Schaltbefehl, der bspw. durch ein Fensterevent oder Wechsel des Bewohnerstatus an die Rollläden gesendet wurde, wird beim Deaktivieren des Partymodus ausgeführt</li>
|
||||
<a id="AutoShuttersControl-set-renewTimer"></a>
|
||||
<li><strong>renewTimer</strong> - erneuert beim ausgewählten Rollladen die Zeiten für Sonnenauf- und -untergang und setzt die internen Timer neu.</li>
|
||||
<li><strong>renewTimer</strong> - Erneuert beim ausgewählten Rollladen die Zeiten für Sonnenauf- und -untergang und setzt die internen Timer neu.</li>
|
||||
<a id="AutoShuttersControl-set-renewAllTimer"></a>
|
||||
<li><strong>renewAllTimer</strong> - erneuert bei allen Rollläden die Zeiten für Sonnenauf- und -untergang und setzt die internen Timer neu.</li>
|
||||
<li><strong>renewAllTimer</strong> - Erneuert bei allen Rollläden die Zeiten für Sonnenauf- und -untergang und setzt die internen Timer neu.</li>
|
||||
<a id="AutoShuttersControl-set-scanForShutters"></a>
|
||||
<li><strong>scanForShutters</strong> - Durchsucht das System nach GerätenRo mit dem Attribut <em>ASC = 1</em> oder <em>ASC = 2</em></li>
|
||||
<a id="AutoShuttersControl-set-selfDefense"></a>
|
||||
@ -967,14 +975,14 @@ __END__
|
||||
<a id="AutoShuttersControl-set-sunriseTimeWeHoliday"></a>
|
||||
<li><strong>sunriseTimeWeHoliday - on/off</strong> - Aktiviert die Wochenendunterstützung und somit, ob im Rollladengerät das Attribut <em>ASC_Time_Up_WE_Holiday</em> beachtet werden soll oder nicht.</li>
|
||||
<a id="AutoShuttersControl-set-wiggle"></a>
|
||||
<li><strong>wiggle</strong> - bewegt einen oder mehrere Rollläden um einen definierten Wert (Default: 5%) und nach einer Minute wieder zurück in die Ursprungsposition. Diese Funktion könnte bspw. zur Abschreckung in einem Alarmsystem eingesetzt werden.</li>
|
||||
<li><strong>wiggle</strong> - Bewegt einen oder mehrere Rollläden um einen definierten Wert (default: 5%) und nach einer Minute wieder zurück in die Ursprungsposition. Diese Funktion könnte bspw. zur Abschreckung in einem Alarmsystem eingesetzt werden.</li>
|
||||
</ul>
|
||||
<br /><br />
|
||||
<a id="AutoShuttersControl-get"></a>
|
||||
<strong>Get</strong>
|
||||
<ul>
|
||||
<a id="AutoShuttersControl-get-showNotifyDevsInformations"></a>
|
||||
<li><strong>showNotifyDevsInformations</strong> - zeigt eine Übersicht der abgelegten NOTIFYDEV Struktur. Diese Funktion wird primär fürs Debugging genutzt. Hierzu ist das Attribut <em>ASC_expert = 1</em> zu setzen.</li>
|
||||
<li><strong>showNotifyDevsInformations</strong> - Zeigt eine Übersicht der abgelegten NOTIFYDEV Struktur. Diese Funktion wird primär fürs Debugging genutzt. Hierzu ist das Attribut <em>ASC_expert = 1</em> zu setzen.</li>
|
||||
</ul>
|
||||
<br /><br />
|
||||
<a id="AutoShuttersControl-attr"></a>
|
||||
@ -1006,10 +1014,12 @@ __END__
|
||||
<li><strong>ASC_expert</strong> - ist der Wert 1, so werden erweiterte Informationen bezüglich des NotifyDevs unter set und get angezeigt</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_freezeTemp"></a>
|
||||
<li><strong>ASC_freezeTemp</strong> - Temperatur, ab welcher der Frostschutz greifen soll und der Rollladen nicht mehr fährt. Der letzte Fahrbefehl wird gespeichert.</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_advDate"></a>
|
||||
<li><strong>ASC_advDate</strong> - Adventszeit, Auswahl ab wann die Adventszeit beginnen soll.</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_advStartDate"></a>
|
||||
<li><strong>ASC_advStartDate</strong> - Start der Adventszeit, Auswahl ab wann die Adventszeit beginnen soll. 1. Advent oder Totensonntag</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_advEndDate"></a>
|
||||
<li><strong>ASC_advEndDate</strong> - Ende der Adventszeit, Auswahl ab wann die Adventszeit Enden soll. EpiphanyDay 6. Januar oder CandlemasDay 2. Februar</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_rainSensor"></a>
|
||||
<li><strong>ASC_rainSensor - DEVICENAME[:READINGNAME] MAXTRIGGER[:HYSTERESE] [CLOSEDPOS:[WAITINGTIME]]</strong> - der Inhalt ist eine Kombination aus Devicename, Readingname, Wert ab dem getriggert werden soll, Hysterese Wert ab dem der Status Regenschutz aufgehoben werden soll und der "wegen Regen geschlossen Position", sowie der Wartezeit bis dann tatsächlich die aktion ausgeführt wird.</li>
|
||||
<li><strong>ASC_rainSensor - DEVICENAME[:READINGNAME] MAXTRIGGER[:HYSTERESE] [CLOSEDPOS:[WAITINGTIME]]</strong> - der Inhalt ist eine Kombination aus Devicename, Readingname, Wert ab dem getriggert werden soll, Hysterese Wert ab dem der Status Regenschutz aufgehoben werden soll und der "wegen Regen geschlossen Position", sowie der Wartezeit bis dann tatsächlich die aktion ausgeführt wird.</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_residentsDev"></a>
|
||||
<li><strong>ASC_residentsDev - DEVICENAME[:READINGNAME]</strong> - der Inhalt ist eine Kombination aus Devicenamen und Readingnamen des Residents-Device der obersten Ebene (z.B. rgr_Residents:state)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_shuttersDriveDelay"></a>
|
||||
@ -1030,46 +1040,46 @@ __END__
|
||||
<a id="AutoShuttersControl-attr-ASC_Antifreeze"></a>
|
||||
<li><strong>ASC_Antifreeze - soft/am/pm/hard/off</strong> - Frostschutz, wenn soft fährt der Rollladen in die ASC_Antifreeze_Pos und wenn hard/am/pm wird gar nicht oder innerhalb der entsprechenden Tageszeit nicht gefahren (default: off)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Antifreeze_Pos"></a>
|
||||
<li><strong>ASC_Antifreeze_Pos</strong> - Position die angefahren werden soll, wenn der Fahrbefehl komplett schließen lautet, aber der Frostschutz aktiv ist (Default: ist abhängig vom Attribut<em>ASC</em> 85/15) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<li><strong>ASC_Antifreeze_Pos</strong> - Position die angefahren werden soll, wenn der Fahrbefehl komplett schließen lautet, aber der Frostschutz aktiv ist (default: ist abhängig vom Attribut <em>ASC</em> 85/15) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_AutoAstroModeEvening"></a>
|
||||
<li><strong>ASC_AutoAstroModeEvening</strong> - aktuell REAL,CIVIL,NAUTIC,ASTRONOMIC (default: none)</li>
|
||||
<li><strong>ASC_AutoAstroModeEvening</strong> - aktuell REAL,CIVIL,NAUTIC,ASTRONOMIC oder HORIZON (default: none)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_AutoAstroModeEveningHorizon"></a>
|
||||
<li><strong>ASC_AutoAstroModeEveningHorizon</strong> - Höhe über Horizont, wenn beim Attribut ASC_autoAstroModeEvening HORIZON ausgewählt (default: none)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_AutoAstroModeMorning"></a>
|
||||
<li><strong>ASC_AutoAstroModeMorning</strong> - aktuell REAL,CIVIL,NAUTIC,ASTRONOMIC (default: none)</li>
|
||||
<li><strong>ASC_AutoAstroModeMorning</strong> - aktuell REAL,CIVIL,NAUTIC,ASTRONOMIC oder HORIZON (default: none)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_AutoAstroModeMorningHorizon"></a>
|
||||
<li><strong>ASC_AutoAstroModeMorningHorizon</strong> - Höhe über Horizont,a wenn beim Attribut ASC_autoAstroModeMorning HORIZON ausgewählt (default: none)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_BlockingTime_afterManual"></a>
|
||||
<li><strong>ASC_BlockingTime_afterManual</strong> - wie viel Sekunden soll die Automatik nach einer manuellen Fahrt aussetzen. (default: 1200)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_BlockingTime_beforeDayOpen"></a>
|
||||
<li><strong>ASC_BlockingTime_beforeDayOpen</strong> - wie viel Sekunden vor dem morgendlichen öffnen soll keine schließen Fahrt mehr stattfinden. (default: 3600)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_BlockingTime_beforeNightClose"></a>
|
||||
<li><strong>ASC_BlockingTime_beforeNightClose</strong> - wie viel Sekunden vor dem nächtlichen schließen soll keine öffnen Fahrt mehr stattfinden. (default: 3600)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_BlockingTime_beforDayOpen"></a>
|
||||
<li><strong>ASC_BlockingTime_beforDayOpen</strong> - wie viel Sekunden vor dem morgendlichen öffnen soll keine schließen Fahrt mehr stattfinden. (default: 3600)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_BlockingTime_beforNightClose"></a>
|
||||
<li><strong>ASC_BlockingTime_beforNightClose</strong> - wie viel Sekunden vor dem nächtlichen schließen soll keine öffnen Fahrt mehr stattfinden. (default: 3600)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_BrightnessSensor"></a>
|
||||
<li><strong>ASC_BrightnessSensor - DEVICE[:READING] WERT-MORGENS:WERT-ABENDS</strong> / 'Sensorname[:brightness [400:800]]' Angaben zum Helligkeitssensor mit (Readingname, optional) für die Beschattung und dem Fahren der Rollladen nach brightness und den optionalen Brightnesswerten für Sonnenauf- und Sonnenuntergang. (default: none)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Down"></a>
|
||||
<li><strong>ASC_Down - astro/time/brightness</strong> - bei astro wird Sonnenuntergang berechnet, bei time wird der Wert aus ASC_Time_Down_Early als Fahrzeit verwendet und bei brightness muss ASC_Time_Down_Early und ASC_Time_Down_Late korrekt gesetzt werden. Der Timer läuft dann nach ASC_Time_Down_Late Zeit, es wird aber in der Zeit zwischen ASC_Time_Down_Early und ASC_Time_Down_Late geschaut, ob die als Attribut im Moduldevice hinterlegte ASC_brightnessDriveUpDown der Down Wert erreicht wurde. Wenn ja, wird der Rollladen runter gefahren (default: astro)</li>
|
||||
<ul></p>
|
||||
<li><strong>ASC_Down - astro/time/brightness/roommate</strong> - bei astro wird Sonnenuntergang berechnet, bei time wird der Wert aus ASC_Time_Down_Early als Fahrzeit verwendet und bei brightness muss ASC_Time_Down_Early und ASC_Time_Down_Late korrekt gesetzt werden. Der Timer läuft dann nach ASC_Time_Down_Late Zeit, es wird aber in der Zeit zwischen ASC_Time_Down_Early und ASC_Time_Down_Late geschaut, ob die als Attribut im Moduldevice hinterlegte ASC_brightnessDriveUpDown der Down Wert erreicht wurde. Wenn ja, wird der Rollladen runter gefahren (default: astro)</li>
|
||||
<ul><p></p>
|
||||
<strong><u>Beschreibung der besonderen Positionsattribute</u></strong>
|
||||
<a id="AutoShuttersControl-attr-ASC_Closed_Pos"></a>
|
||||
<li><strong>ASC_Closed_Pos</strong> - in 10 Schritten von 0 bis 100 (Default: ist abhängig vom Attribut<em>ASC</em> 0/100)</li>
|
||||
<li><strong>ASC_Closed_Pos</strong> - in 10 Schritten von 0 bis 100 (default: ist abhängig vom Attribut <em>ASC</em> 0/100)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Open_Pos"></a>
|
||||
<li><strong>ASC_Open_Pos</strong> - in 10 Schritten von 0 bis 100 (default: ist abhängig vom Attribut<em>ASC</em> 100/0)</li>
|
||||
<li><strong>ASC_Open_Pos</strong> - in 10 Schritten von 0 bis 100 (default: ist abhängig vom Attribut <em>ASC</em> 100/0)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Sleep_Pos"></a>
|
||||
<li><strong>ASC_Sleep_Pos</strong> - in 10 Schritten von 0 bis 100 (default: ist abhängig vom Attribut<em>ASC</em> 75/25) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<li><strong>ASC_Sleep_Pos</strong> - in 10 Schritten von 0 bis 100 (default: ist abhängig vom Attribut <em>ASC</em> 75/25) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_ComfortOpen_Pos"></a>
|
||||
<li><strong>ASC_ComfortOpen_Pos</strong> - in 10 Schritten von 0 bis 100 (Default: ist abhängig vom Attribut<em>ASC</em> 20/80) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<li><strong>ASC_ComfortOpen_Pos</strong> - in 10 Schritten von 0 bis 100 (default: ist abhängig vom Attribut <em>ASC</em> 20/80) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Shading_Pos"></a>
|
||||
<li><strong>ASC_Shading_Pos</strong> - Position des Rollladens für die Beschattung (Default: ist abhängig vom Attribut<em>ASC</em> 80/20) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<li><strong>ASC_Shading_Pos</strong> - Position des Rollladens für die Beschattung (default: ist abhängig vom Attribut <em>ASC</em> 80/20) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Ventilate_Pos"></a>
|
||||
<li><strong>ASC_Ventilate_Pos</strong> - in 10 Schritten von 0 bis 100 (default: ist abhängig vom Attribut <em>ASC</em> 70/30) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
</p>
|
||||
<li><strong>ASC_Ventilate_Pos</strong> - in 10 Schritten von 0 bis 100 (default: ist abhängig vom Attribut <em>ASC</em> 70/30) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<p></p>
|
||||
<strong>In Bezug auf die Verwendung mit Lamellen gibt es folgende ergänzende Parameter</strong>.
|
||||
<ul>
|
||||
<li>Wird die gesamte Position inklusive der Lamellen mit Hilfe einer "festen Zurdnung" angefahren, so z.B. <em>set ROLLONAME Beschattung</em> dann wird hinter dem Positionswert mittels : getrennt die "feste Zuordnung" geschrieben. Beispiel: <em>attr ROLLONAME ASC_Shading_Pos 30:Beschattung</em></li>
|
||||
<li>Wird hingegen ein ander Command verwendet z.B. slatPct oder ähnliches dann muss hinter der normalen Positionsangebe noch die Position für die Lamellen mit angegeb werden. Beispiel: <em>attr ROLLONAME ASC_Shading_Pos 30:75</em>. <strong>Bitte beachtet in diesem Zusammenhang auch das Attribut ASC_SlatPosCmd_SlatDevice wo mindesten die Angabe des SlatPosCMD Voraussetzung ist.</strong></li>
|
||||
<li>Wird hingegen ein ander Command verwendet z.B. slatPct oder ähnliches dann muss hinter der normalen Positionsangebe noch die Position für die Lamellen mit angegeben werden. Beispiel: <em>attr ROLLONAME ASC_Shading_Pos 30:75</em>. <strong>Bitte beachtet in diesem Zusammenhang auch das Attribut ASC_SlatPosCmd_SlatDevice wo mindestens die Angabe des SlatPosCMD Voraussetzung ist.</strong></li>
|
||||
</ul>
|
||||
</p></ul>
|
||||
<p></p></ul>
|
||||
<a id="AutoShuttersControl-attr-ASC_Shutter_IdleDetection"></a>
|
||||
<li><strong>ASC_Shutter_IdleDetection</strong> - <strong>READING:VALUE</strong> gibt das Reading an welches Auskunft über den Fahrstatus des Rollos gibt, sowie als zweites den Wert im Reading welcher aus sagt das das Rollo <strong>nicht</strong> fährt</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_DriveUpMaxDuration"></a>
|
||||
@ -1087,17 +1097,17 @@ __END__
|
||||
<a id="AutoShuttersControl-attr-ASC_Mode_Up"></a>
|
||||
<li><strong>ASC_Mode_Up - always/home/absent/off</strong> - Wann darf die Automatik steuern. immer, niemals, bei Abwesenheit des Roommate (ist kein Roommate und absent eingestellt, wird gar nicht gesteuert) (default: always)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Partymode"></a>
|
||||
<li><strong>ASC_Partymode - on/off</strong> - schaltet den Partymodus an oder aus. Wird am ASC Device set ASC-DEVICE partyMode on geschalten, werden alle Fahrbefehle an den Rollläden, welche das Attribut auf on haben, zwischengespeichert und später erst ausgeführt (default: off)</li>
|
||||
<li><strong>ASC_Partymode - on/off</strong> - schaltet den Partymodus an oder aus. Wird am ASC Device set ASC-DEVICE partyMode on geschalten, werden alle Fahrbefehle an den Rollläden, welche das Attribut auf on haben, zwischengespeichert und später erst ausgeführt (default: off)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Pos_Reading"></a>
|
||||
<li><strong>ASC_Pos_Reading</strong> - Name des Readings, welches die Position des Rollladen in Prozent an gibt; wird bei unbekannten Device Typen auch als set Befehl zum fahren verwendet</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_PrivacyUpValue_beforeDayOpen"></a>
|
||||
<li><strong>ASC_PrivacyUpValue_beforeDayOpen</strong> - wie viele Sekunden vor dem morgendlichen öffnen soll der Rollladen in die Sichtschutzposition fahren, oder bei Brightness ab welchem minimum Brightnesswert soll das Rollo in die Privacy Position fahren. Bei Brightness muss zusätzlich zum Zeitwert der Brightnesswert mit angegeben werden 1800:600 bedeutet 30 min vor day open oder bei über einem Brightnesswert von 600 (default: -1)</li>
|
||||
<li><strong>ASC_PrivacyUpValue_beforeDayOpen</strong> - wie viele Sekunden vor dem morgendlichen öffnen soll der Rollladen in die Sichtschutzposition fahren, oder bei Brightness ab welchem minimum Brightnesswert soll das Rollo in die Privacy Position fahren. Bei Brightness muss zusätzlich zum Zeitwert der Brightnesswert mit angegeben werden 1800:600 bedeutet 30 min vor day open oder bei über einem Brightnesswert von 600 (default: -1)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_PrivacyDownValue_beforeNightClose"></a>
|
||||
<li><strong>ASC_PrivacyDownValue_beforeNightClose</strong> - wie viele Sekunden vor dem abendlichen schließen soll der Rollladen in die Sichtschutzposition fahren, oder bei Brightness ab welchem minimum Brightnesswert soll das Rollo in die Privacy Position fahren. Bei Brightness muss zusätzlich zum Zeitwert der Brightnesswert mit angegeben werden 1800:300 bedeutet 30 min vor night close oder bei unter einem Brightnesswert von 300 (default: -1)</li>
|
||||
<li><strong>ASC_PrivacyDownValue_beforeNightClose</strong> - wie viele Sekunden vor dem abendlichen schließen soll der Rollladen in die Sichtschutzposition fahren, oder bei Brightness ab welchem minimum Brightnesswert soll das Rollo in die Privacy Position fahren. Bei Brightness muss zusätzlich zum Zeitwert der Brightnesswert mit angegeben werden 1800:300 bedeutet 30 min vor night close oder bei unter einem Brightnesswert von 300 (default: -1)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_PrivacyUp_Pos"></a>
|
||||
<li><strong>ASC_PrivacyUp_Pos</strong> - Position den Rollladens für den morgendlichen Sichtschutz (default: 50) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<li><strong>ASC_PrivacyUp_Pos</strong> - Position den Rollladens für den morgendlichen Sichtschutz (default: 50) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_PrivacyDown_Pos"></a>
|
||||
<li><strong>ASC_PrivacyDown_Pos</strong> - Position den Rollladens für den abendlichen Sichtschutz (default: 50) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<li><strong>ASC_PrivacyDown_Pos</strong> - Position den Rollladens für den abendlichen Sichtschutz (default: 50) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_ExternalTrigger"></a>
|
||||
<li><strong>ASC_ExternalTrigger</strong> - DEVICE:READING VALUEACTIVE:VALUEINACTIVE POSACTIVE:[POSINACTIVE VALUEACTIVE2:POSACTIVE2], Beispiel: "WohnzimmerTV:state on:off 66:100" bedeutet das wenn ein "state:on" Event kommt soll das Rollo in Position 66 fahren, kommt ein "state:off" Event soll es in Position 100 fahren. Es ist möglich die POSINACTIVE weg zu lassen dann fährt das Rollo in LastStatus Position.</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_WindProtection"></a>
|
||||
@ -1118,7 +1128,7 @@ __END__
|
||||
<a id="AutoShuttersControl-attr-ASC_Self_Defense_AbsentDelay"></a>
|
||||
<li><strong>ASC_Self_Defense_AbsentDelay</strong> - um wie viele Sekunden soll das fahren in Selfdefense bei Residents absent verzögert werden. (default: 300)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Self_Defense_Exclude"></a>
|
||||
<li><strong>ASC_Self_Defense_Exclude - on/off</strong> - bei on Wert wird dieser Rollladen bei aktiven Self Defense und offenen Fenster nicht runter gefahren, wenn Residents absent ist. (default: off), off bedeutet das es ausgeschlossen ist vom Self Defense</li></p>
|
||||
<li><strong>ASC_Self_Defense_Exclude - on/off</strong> - bei on Wert wird dieser Rollladen bei aktiven Self Defense und offenen Fenster nicht runter gefahren, wenn Residents absent ist. (default: off), off bedeutet das es ausgeschlossen ist vom Self Defense</li><p></p>
|
||||
<ul>
|
||||
<strong><u>Beschreibung der Beschattungsfunktion</u></strong>
|
||||
</br>Damit die Beschattung Funktion hat, müssen folgende Anforderungen erfüllt sein.
|
||||
@ -1126,42 +1136,42 @@ __END__
|
||||
</br><strong>In den Rollladendevices</strong> benötigt ihr ein Helligkeitssensor als Attribut "ASC_BrightnessSensor", sofern noch nicht vorhanden. Findet der Sensor nur für die Beschattung Verwendung ist der Wert DEVICENAME[:READING] ausreichend.
|
||||
</br>Alle weiteren Attribute sind optional und wenn nicht gesetzt mit Default-Werten belegt. Ihr solltet sie dennoch einmal anschauen und entsprechend Euren Gegebenheiten setzen. Die Werte für die Fensterposition und den Vor- Nachlaufwinkel sowie die Grenzwerte für die StateChange_Cloudy und StateChange_Sunny solltet ihr besondere Beachtung dabei schenken.
|
||||
<a id="AutoShuttersControl-attr-ASC_Shading_InOutAzimuth"></a>
|
||||
<li><strong>ASC_Shading_InOutAzimuth</strong> - Azimut Wert ab dem bei Überschreiten Beschattet und bei Unterschreiten Endschattet werden soll. (default: 95:265)</li>
|
||||
<li><strong>ASC_Shading_InOutAzimuth</strong> - Azimut Wert ab dem bei überschreiten beschattet und bei unterschreiten endschattet werden soll. (default: 95:265)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Shading_MinMax_Elevation"></a>
|
||||
<li><strong>ASC_Shading_MinMax_Elevation</strong> - ab welcher min Höhe des Sonnenstandes soll beschattet und ab welcher max Höhe wieder beendet werden, immer in Abhängigkeit der anderen einbezogenen Sensorwerte (default: 25.0:100.0)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Shading_Min_OutsideTemperature"></a>
|
||||
<li><strong>ASC_Shading_Min_OutsideTemperature</strong> - ab welcher Temperatur soll Beschattet werden, immer in Abhängigkeit der anderen einbezogenen Sensorwerte (default: 18)</li>
|
||||
<li><strong>ASC_Shading_Min_OutsideTemperature</strong> - ab welcher Temperatur soll beschattet werden, immer in Abhängigkeit der anderen einbezogenen Sensorwerte (default: 18)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Shading_Mode"></a>
|
||||
<li><strong>ASC_Shading_Mode - absent,always,off,home</strong> / wann soll die Beschattung nur stattfinden. (default: off)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Shading_Pos"></a>
|
||||
<li><strong>ASC_Shading_Pos</strong> - Position des Rollladens für die Beschattung (Default: ist abhängig vom Attribut<em>ASC</em> 80/20) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<li><strong>ASC_Shading_Pos</strong> - Position des Rollladens für die Beschattung (default: ist abhängig vom Attribut <em>ASC</em> 80/20) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss eine positive Zahl/Dezimalzahl sein!!!</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Shading_StateChange_SunnyCloudy"></a>
|
||||
<li><strong>ASC_Shading_StateChange_SunnyCloudy</strong> - Brightness Wert ab welchen die Beschattung stattfinden und aufgehoben werden soll, immer in Abhängigkeit der anderen einbezogenen Sensorwerte. Ein optionaler dritter Wert gibt an wie, viele Brightnesswerte für den aktuellen Brightness-Durchschnitt berücksichtigt werden. Standard ist 3, es sollten nicht mehr als 5 berücksichtigt werden. (default: 35000:20000 [3])</li>
|
||||
<li><strong>ASC_Shading_StateChange_SunnyCloudy</strong> - Brightness Wert ab welchen die Beschattung stattfinden und aufgehoben werden soll, immer in Abhängigkeit der anderen einbezogenen Sensorwerte. Ein optionaler dritter Wert gibt an, wie viele Brightnesswerte für den aktuellen Brightness-Durchschnitt berücksichtigt werden. Standard ist 3, es sollten nicht mehr als 5 berücksichtigt werden. (default: 35000:20000 [3])</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Shading_WaitingPeriod"></a>
|
||||
<li><strong>ASC_Shading_WaitingPeriod</strong> - wie viele Sekunden soll gewartet werden bevor eine weitere Auswertung der Sensordaten für die Beschattung stattfinden soll (default: 1200)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Shading_BetweenTheTime"></a>
|
||||
<li><strong>ASC_Shading_BetweenTheTime</strong> - das Fahren in die Beschattung erfolgt bei Angabe nur innerhalb des Zeitraumes, Bsp: 9:00-13:00 11:25-15:30</li>
|
||||
</ul></p>
|
||||
<li><strong>ASC_Shading_BetweenTheTime</strong> - das Fahren in die Beschattung erfolgt bei Angabe nur innerhalb des Zeitraumes, Bsp: 09:00-13:00 11:25-15:30</li>
|
||||
</ul><p></p>
|
||||
<a id="AutoShuttersControl-attr-ASC_ShuttersPlace"></a>
|
||||
<li><strong>ASC_ShuttersPlace - window/terrace/awning</strong> - Wenn dieses Attribut auf terrace gesetzt ist, das Residence Device in den Status "gone" geht und SelfDefense aktiv ist (ohne das das Reading selfDefense gesetzt sein muss), wird das Rollo geschlossen. awning steht für Markise und wirkt sich auf die Beschattungssteuerung aus. (default: window)</li>
|
||||
<li><strong>ASC_ShuttersPlace - window/terrace/awning</strong> - Wenn dieses Attribut auf terrace gesetzt ist, das Residence Device in den Status "gone" geht und SelfDefense aktiv ist (ohne das das Reading selfDefense gesetzt sein muss), wird das Rollo geschlossen. awning steht für Markise und wirkt sich auf die Beschattungssteuerung aus. (default: window)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Time_Down_Early"></a>
|
||||
<li><strong>ASC_Time_Down_Early</strong> - Sonnenuntergang frühste Zeit zum Runterfahren (default: 16:00) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss ein Zeitformat in Form HH:MM[:SS] sein!!!</li>
|
||||
<li><strong>ASC_Time_Down_Early</strong> - Sonnenuntergang früheste Zeit zum Runterfahren (default: 16:00) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss ein Zeitformat in Form HH:MM[:SS] sein!!!</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Time_Down_Late"></a>
|
||||
<li><strong>ASC_Time_Down_Late</strong> - Sonnenuntergang späteste Zeit zum Runterfahren (default: 22:00) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss ein Zeitformat in Form HH:MM[:SS] sein!!!</li>
|
||||
<li><strong>ASC_Time_Down_Late</strong> - Sonnenuntergang späteste Zeit zum Runterfahren (default: 22:00) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss ein Zeitformat in Form HH:MM[:SS] sein!!!</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Time_Up_Early"></a>
|
||||
<li><strong>ASC_Time_Up_Early</strong> - Sonnenaufgang frühste Zeit zum Hochfahren (default: 05:00) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss ein Zeitformat in Form HH:MM[:SS] sein!!!</li>
|
||||
<li><strong>ASC_Time_Up_Early</strong> - Sonnenaufgang früheste Zeit zum Hochfahren (default: 05:00) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss ein Zeitformat in Form HH:MM[:SS] sein!!!</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Time_Up_Late"></a>
|
||||
<li><strong>ASC_Time_Up_Late</strong> - Sonnenaufgang späteste Zeit zum Hochfahren (default: 08:30) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss ein Zeitformat in Form HH:MM[:SS] sein!!!</li>
|
||||
<li><strong>ASC_Time_Up_Late</strong> - Sonnenaufgang späteste Zeit zum Hochfahren (default: 08:30) !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss ein Zeitformat in Form HH:MM[:SS] sein!!!</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Time_Up_WE_Holiday"></a>
|
||||
<li><strong>ASC_Time_Up_WE_Holiday</strong> - Sonnenaufgang frühste Zeit zum Hochfahren am Wochenende und/oder Urlaub (holiday2we wird beachtet). (default: 08:00) ACHTUNG!!! in Verbindung mit Brightness für <em>ASC_Up</em> muss die Uhrzeit kleiner sein wie die Uhrzeit aus <em>ASC_Time_Up_Late</em> !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss ein Zeitformat in Form HH:MM[:SS] sein!!!</li>
|
||||
<li><strong>ASC_Time_Up_WE_Holiday</strong> - Sonnenaufgang früheste Zeit zum Hochfahren am Wochenende und/oder Urlaub (holiday2we wird beachtet). (default: 08:00) ACHTUNG!!! in Verbindung mit Brightness für <em>ASC_Up</em> muss die Uhrzeit kleiner sein wie die Uhrzeit aus <em>ASC_Time_Up_Late</em> !!!Verwendung von Perlcode ist möglich, dieser muss in {} eingeschlossen sein. Rückgabewert muss ein Zeitformat in Form HH:MM[:SS] sein!!!</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Up"></a>
|
||||
<li><strong>ASC_Up - astro/time/brightness</strong> - bei astro wird Sonnenaufgang berechnet, bei time wird der Wert aus ASC_Time_Up_Early als Fahrzeit verwendet und bei brightness muss ASC_Time_Up_Early und ASC_Time_Up_Late korrekt gesetzt werden. Der Timer läuft dann nach ASC_Time_Up_Late Zeit, es wird aber in der Zeit zwischen ASC_Time_Up_Early und ASC_Time_Up_Late geschaut, ob die als Attribut im Moduldevice hinterlegte Down Wert von ASC_brightnessDriveUpDown erreicht wurde. Wenn ja, wird der Rollladen hoch gefahren (default: astro)</li>
|
||||
<li><strong>ASC_Up - astro/time/brightness/roommate</strong> - bei astro wird Sonnenaufgang berechnet, bei time wird der Wert aus ASC_Time_Up_Early als Fahrzeit verwendet und bei brightness muss ASC_Time_Up_Early und ASC_Time_Up_Late korrekt gesetzt werden. Der Timer läuft dann nach ASC_Time_Up_Late Zeit, es wird aber in der Zeit zwischen ASC_Time_Up_Early und ASC_Time_Up_Late geschaut, ob die als Attribut im Moduldevice hinterlegte Down Wert von ASC_brightnessDriveUpDown erreicht wurde. Wenn ja, wird der Rollladen hoch gefahren (default: astro)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_Ventilate_Window_Open"></a>
|
||||
<li><strong>ASC_Ventilate_Window_Open</strong> - auf lüften, wenn das Fenster gekippt/geöffnet wird und aktuelle Position unterhalb der Lüften-Position ist (default: on)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_WiggleValue"></a>
|
||||
<li><strong>ASC_WiggleValue</strong> - Wert um welchen sich die Position des Rollladens ändern soll (default: 5)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_WindParameters"></a>
|
||||
<li><strong>ASC_WindParameters - TRIGGERMAX[:HYSTERESE] [DRIVEPOSITION]</strong> / Angabe von Max Wert ab dem für Wind getriggert werden soll, Hytsrese Wert ab dem der Windschutz aufgehoben werden soll TRIGGERMAX - HYSTERESE / Ist es bei einigen Rollläden nicht gewünscht das gefahren werden soll, so ist der TRIGGERMAX Wert mit -1 an zu geben. (default: '50:20 ClosedPosition')</li>
|
||||
<li><strong>ASC_WindParameters - TRIGGERMAX[:HYSTERESE] [DRIVEPOSITION]</strong> / ACHTUNG! Wird nur beachtet wenn ASC_WindProtection auf on gesetzt ist. - Angabe von Max Wert ab dem für Wind getriggert werden soll, Hytsrese Wert ab dem der Windschutz aufgehoben werden soll TRIGGERMAX - HYSTERESE / Ist es bei einigen Rollläden nicht gewünscht das gefahren werden soll, so ist der TRIGGERMAX Wert mit -1 an zu geben. (default: '50:20 ASC_Closed_Pos')</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_WindowRec_PosAfterDayClosed"></a>
|
||||
<li><strong>ASC_WindowRec_PosAfterDayClosed</strong> - open,lastManual / auf welche Position soll das Rollo nach dem schließen am Tag fahren. Open Position oder letzte gespeicherte manuelle Position (default: open)</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_WindowRec"></a>
|
||||
@ -1172,45 +1182,45 @@ __END__
|
||||
<li><strong>ASC_SlatPosCmd_SlatDevice</strong> - Angaben zu einem Slat (Lamellen) CMD und - sofern diese Lamellen über ein anderes Device gesteuert werden - zum Slat Device. Beispiele: <i>attr ROLLO ASC_SlatPosCmd_SlatDevice slatPct</i> oder <i>attr ROLLO ASC_SlatPosCmd_SlatDevice dim:ROLLOSLATDEVICE</i>. Die Angabe des Devices ist nur erforderlich, wenn zur Steuerung der Lamellen ein anderes Device verwendet wird. Damit das ganze dann auch greift, muss in den 6 Positionsangaben ASC_Open_Pos, ASC_Closed_Pos, ASC_Ventilate_Pos, ASC_ComfortOpen_Pos, ASC_Shading_Pos und ASC_Sleep_Pos ein weiterer Parameter für die Lamellenstellung mit angegeben werden.</li>
|
||||
<a id="AutoShuttersControl-attr-ASC_CommandTemplate"></a>
|
||||
<a id="AutoShuttersControl-attr-ASC_CommandTemplate"></a>
|
||||
<li><strong>ASC_CommandTemplate</strong> - <strong>FHEM-Kommando(s) oder Perl-Anweisung</strong> (in geschweiften Klammern unter Beachtung der üblichen Regeln für das escapen von Semicolons etc.).<br>
|
||||
Dieses Attribut übersteuert das sonst intern ermittelte Fahrkommando und ist <strong>für seltene und spezielle Fälle</strong> gedacht. In der Regel ist es nicht erforderlich, dieses Attribut zu setzen!<br>
|
||||
Die Variablen <i>$name</i> (der Name des Rollladen-Devices), <i>$pos</i> (die Zielposition des Fahrbefehls), <i>$slatPos</i> (die Zielposition des Fahrbefehls für eventuelle Lamellen) und <i>$cause</i> (die interne Benennung des Fahranlasses) werden durch die ermittelten Werte ersetzt, es muss selbst dafür gesorgt werden, dass eventuell unnötige Fahrbefehle aussortiert werden.
|
||||
<li><strong>ASC_CommandTemplate</strong> - <strong>FHEM-Kommando(s) oder Perl-Anweisung</strong> (in geschweiften Klammern unter Beachtung der üblichen Regeln für das escapen von Semicolons etc.).<br>
|
||||
Dieses Attribut übersteuert das sonst intern ermittelte Fahrkommando und ist <strong>für seltene und spezielle Fälle</strong> gedacht. In der Regel ist es nicht erforderlich, dieses Attribut zu setzen!<br>
|
||||
Die Variablen <i>$name</i> (der Name des Rollladen-Devices), <i>$pos</i> (die Zielposition des Fahrbefehls), <i>$slatPos</i> (die Zielposition des Fahrbefehls für eventuelle Lamellen) und <i>$cause</i> (die interne Benennung des Fahranlasses) werden durch die ermittelten Werte ersetzt, es muss selbst dafür gesorgt werden, dass eventuell unnötige Fahrbefehle aussortiert werden.
|
||||
Beispiele:
|
||||
<ul>
|
||||
<li><i>attr ROLLO ASC_CommandTemplate set $name $pos</i> - Positionsbefehl direkt an Gerät
|
||||
<li><i>attr ROLLO ASC_CommandTemplate set $name $pos</i> - Positionsbefehl direkt an Gerät
|
||||
setzen</li>
|
||||
<li><i>attr ROLLO ASC_CommandTemplate set $name pct $pos</i> - Positionsbefehl auf den setter <i>pct</i> absetzen</li>
|
||||
<li><i>attr ROLLO ASC_CommandTemplate set $name datapoint 4.LEVEL_2 $slatPos 4.LEVEL $pos</i> - Positionsbefehl und Lamellen-Ansteuerung für HM-IP-Jalousieaktoren</li>
|
||||
<li><i>attr ROLLO ASC_CommandTemplate { fhem("set $name ".($pos+1024)).";set $name 0")}</i> - Positionsbefehl für eine SPS in Perl umrechnen</li>
|
||||
<li><i>attr ROLLO ASC_CommandTemplate set $name datapoint 4.LEVEL_2 $slatPos 4.LEVEL $pos</i> - Positionsbefehl und Lamellen-Ansteuerung für HM-IP-Jalousieaktoren</li>
|
||||
<li><i>attr ROLLO ASC_CommandTemplate { fhem("set $name ".($pos+1024)).";set $name 0")}</i> - Positionsbefehl für eine SPS in Perl umrechnen</li>
|
||||
<li><i>attr ROLLO ASC_CommandTemplate { myPerlFn("$name",$pos,$slatPos,"$cause")}</i> - eigene Perl-Funktion (z.B. in 99_myUtils.pm) aufrufen</li>
|
||||
</ul>
|
||||
<strong>Hinweis: ASC_CommandTemplate</strong> ist für seltene und spezielle Fälle gedacht. In der Regel ist es nicht erforderlich, dieses Attribut zu setzen!
|
||||
<strong>Hinweis: ASC_CommandTemplate</strong> ist für seltene und spezielle Fälle gedacht. In der Regel ist es nicht erforderlich, dieses Attribut zu setzen!
|
||||
</li>
|
||||
</ul>
|
||||
</ul>
|
||||
</p>
|
||||
<p></p>
|
||||
<a id="AutoShuttersControl-API"></a>
|
||||
<strong><u>Beschreibung der AutoShuttersControl API</u></strong>
|
||||
</br>Mit dem Aufruf der API Funktion und Übergabe der entsprechenden Parameter ist es möglich auf interne Daten zu zu greifen.
|
||||
</p>
|
||||
<p></p>
|
||||
<u>Übersicht für das Rollladen-Device Getter</u>
|
||||
<ul>
|
||||
<code>{ ascAPIget('GETTER','ROLLODEVICENAME') }</code><br>
|
||||
</ul>
|
||||
<table>
|
||||
<tr><th>Getter</th><th>Erläuterung</th></tr>
|
||||
<tr><td>FreezeStatus</td><td>1=soft, 2=Daytime, 3=hard</td></tr>
|
||||
<tr><td>FreezeStatus</td><td>1=soft, 2=daytime, 3=hard</td></tr>
|
||||
<tr><td>AntiFreezePos</td><td>konfigurierte Position beim AntiFreeze Status</td></tr>
|
||||
<tr><td>AntiFreezePosAssignment</td><td>konfigurierte Lamellen Position bei der AntiFreeze Position</td></tr>
|
||||
<tr><td>AntiFreeze</td><td>aktuelle Konfiguration für AntiFreeze</td></tr>
|
||||
<tr><td>ShuttersPlace</td><td>aktuelle Konfiguration an welchem Platz sich das Rollo befindet, Fenster oder Terrasse</td></tr>
|
||||
<tr><td>SlatPosCmd</td><td>welcher PosCmd ist aktuell für den Lamellen Befehl konfiguriert</td></tr>
|
||||
<tr><td>SlatDevice</td><td>welches Device aktuell für die Lamellen Steuerung konfiguriert ist</td></tr>
|
||||
<tr><td>PrivacyUpTime</td><td>Privacy Zeit in Sekunden zum fahren in die Privacy Pos vor dem vollen öffnen</td></tr>
|
||||
<tr><td>PrivacyUpTime</td><td>Privacy Zeit in Sekunden zum fahren in die Privacy Pos vor dem vollen Öffnen</td></tr>
|
||||
<tr><td>PrivacyUpBrightnessVal</td><td>Privacy Brightness Wert zum fahren in die Privacy Pos</td></tr>
|
||||
<tr><td>PrivacyUpPos</td><td>Position für die Privacy Up Fahrt</td></tr>
|
||||
<tr><td>PrivacyUpPositionAssignment</td><td>Position für die Lamellenfahrt von Privacy Up</td></tr>
|
||||
<tr><td>PrivacyDownTime</td><td>Privacy Zeit in Sekunden zum fahren in die Privacy Pos vor dem vollen schließ</td></tr>
|
||||
<tr><td>PrivacyDownTime</td><td>Privacy Zeit in Sekunden zum fahren in die Privacy Pos vor dem vollen schließen</td></tr>
|
||||
<tr><td>PrivacyDownBrightnessVal</td><td>Privacy Brightness Wert zum fahren in die Privacy Pos</td></tr>
|
||||
<tr><td>PrivacyDownPos</td><td>Position für die Privacy Down Fahrt</td></tr>
|
||||
<tr><td>PrivacyDownPositionAssignment</td><td>Position für die Lamellenfahrt von Privacy Down</td></tr>
|
||||
@ -1229,7 +1239,7 @@ __END__
|
||||
<tr><td>ShadingMaxElevation</td><td>über welchem Elevationwert endet die Beschattung</td></tr>
|
||||
<tr><td>ShadingStateChangeSunny</td><td>über welchem Brightnesswert beginnt die Beschattung</td></tr>
|
||||
<tr><td>ShadingStateChangeCloudy</td><td>unter welchem Brightnesswert endet die Beschattung</td></tr>
|
||||
<tr><td>ShadingWaitingPeriod</td><td>nach welcher Wartezeit werden Beschattungsrelevante Sensorwerte wieder beachtet und die Beschattungsroutine abgearbeitet</td></tr>
|
||||
<tr><td>ShadingWaitingPeriod</td><td>nach welcher Wartezeit werden beschattungsrelevante Sensorwerte wieder beachtet und die Beschattungsroutine abgearbeitet</td></tr>
|
||||
<tr><td>ExternalTriggerDevice</td><td>konfiguriertes Triggerdevice</td></tr>
|
||||
<tr><td>ExternalTriggerReading</td><td>kofiguriertes Triggerdevice Reading</td></tr>
|
||||
<tr><td>ExternalTriggerValueActive</td><td>Wert mit welchen der externe Trigger Prozess ausgel&uoml;st werden soll.</td></tr>
|
||||
@ -1263,7 +1273,7 @@ __END__
|
||||
<tr><td>RoommatesStatus</td><td>Roommates Status unter Berücksichtigung aller Roommates und dessen Status</td></tr>
|
||||
<tr><td>RoommatesLastStatus</td><td>Roommates letzter Status unter Berücksichtigung aller Roommates und dessen letzten Status</td></tr>
|
||||
<tr><td>WindPos</td><td>Rollo Position bei Windtrigger</td></tr>
|
||||
<tr><td>WindMax</td><td>Wert über dem die Windprotection aktiviert werden soll</td></tr>
|
||||
<tr><td>WindMax</td><td>Wert über dem die Windprotection aktiviert werden soll</td></tr>
|
||||
<tr><td>WindMin</td><td>Wert unter dem die Windprotection aufgehoben werden soll</td></tr>
|
||||
<tr><td>WindProtection</td><td>Windprotection soll aktiv sein oder nicht</td></tr>
|
||||
<tr><td>WindProtectionStatus</td><td>aktueller Status der Wind Protection „protected“ oder „unprotected“</td></tr>
|
||||
@ -1279,9 +1289,9 @@ __END__
|
||||
<tr><td>AutoAstroModeEveningHorizon</td><td>HORIZON Wert Abends</td></tr>
|
||||
<tr><td>Up</td><td>aktueller Wert für Morgenfahrten</td></tr>
|
||||
<tr><td>Down</td><td>aktueller Wert für Abendfahrten</td></tr>
|
||||
<tr><td>TimeUpEarly</td><td>aktueller Wert für frühste Morgenfahrt</td></tr>
|
||||
<tr><td>TimeUpEarly</td><td>aktueller Wert für früheste Morgenfahrt</td></tr>
|
||||
<tr><td>TimeUpLate</td><td>aktueller Wert für späteste Morgenfahrt</td></tr>
|
||||
<tr><td>TimeDownEarly</td><td>aktueller Wert für frühste Abendfahrt</td></tr>
|
||||
<tr><td>TimeDownEarly</td><td>aktueller Wert für früheste Abendfahrt</td></tr>
|
||||
<tr><td>TimeDownLate</td><td>aktueller Wert für späteste Abendfahrt</td></tr>
|
||||
<tr><td>TimeUpWeHoliday</td><td>aktueller Wert für Wochenende und Feiertags Morgenfahrten</td></tr>
|
||||
<tr><td>BrightnessMinVal</td><td> </td></tr>
|
||||
@ -1326,7 +1336,7 @@ __END__
|
||||
<tr><td>Sunrise</td><td>1=Morgenfahrt wurde durchgeführt, 0=noch keine Morgenfahrt durchgeführt</td></tr>
|
||||
<tr><td>RoommatesStatus</td><td>aktueller Status der/des Roommate/s für den Rollladen</td></tr>
|
||||
<tr><td>RoommatesLastStatus</td><td>letzter Status der/des Roommate/s für den Rollladen</td></tr>
|
||||
<tr><td>ShadingStatus</td><td>Ausgabe des aktuellen Shading Status, „in“, „out“, „in reserved“, „out reserved“</td></tr>
|
||||
<tr><td>ShadingStatus</td><td>Ausgabe des aktuellen Shading Status, <EFBFBD><EFBFBD><EFBFBD>in“, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>out“, „in reserved“, „out reserved“</td></tr>
|
||||
<tr><td>ShadingStatusTimestamp</td><td>Timestamp des letzten Beschattungsstatus</td></tr>
|
||||
<tr><td>IfInShading</td><td>Befindet sich der Rollladen, in Abhängigkeit des Shading Mode, in der Beschattung</td></tr>
|
||||
<tr><td>DelayCmd</td><td>letzter Fahrbefehl welcher in die Warteschlange kam. Grund z.B. Partymodus.</td></tr>
|
||||
@ -1337,7 +1347,7 @@ __END__
|
||||
<tr><td>OutTemp</td><td>aktuelle Außentemperatur sofern ein Sensor definiert ist, wenn nicht kommt -100 als Wert zurück</td></tr>
|
||||
<tr><td>ShadingBetweenTheTime</td><td>Konfiguration für die Zeit der Beschattung</td></tr>
|
||||
</table>
|
||||
</p>
|
||||
<p></p>
|
||||
<u>Übersicht für das Rollladen-Device mit Parameterübergabe Getter</u>
|
||||
<ul>
|
||||
<code>{ ascAPIget('GETTER','ROLLODEVICENAME',VALUE) }</code><br>
|
||||
@ -1346,7 +1356,7 @@ __END__
|
||||
<tr><th>Getter</th><th>Erläuterung</th></tr>
|
||||
<tr><td>QueryShuttersPos</td><td>Rückgabewert 1 bedeutet das die aktuelle Position des Rollos unterhalb der Valueposition ist. 0 oder nichts bedeutet oberhalb der Valueposition.</td></tr>
|
||||
</table>
|
||||
</p>
|
||||
<p></p>
|
||||
<u>Übersicht für das Rollladen-Device Setter</u>
|
||||
<ul>
|
||||
<code>{ ascAPIset('SETTER','ROLLODEVICENAME','VALUE') }</code><br>
|
||||
@ -1407,7 +1417,7 @@ __END__
|
||||
<tr><td>WinDev</td><td> </td></tr>
|
||||
<tr><td>ShadingBetweenTheTime</td><td>Konfiguration für die Zeit der Beschattung, Beispiel: 09:00-13:00 WICHTIG!!!! Immer bei einstelligen Stunden die 0 davor setzen</td></tr>
|
||||
</table>
|
||||
</p>
|
||||
<p></p>
|
||||
<u>Übersicht für das ASC Device Getter</u>
|
||||
<ul>
|
||||
<code>{ ascAPIget('GETTER') }</code><br>
|
||||
@ -1442,6 +1452,19 @@ __END__
|
||||
<tr><td>RainWaitingTime</td><td> </td></tr>
|
||||
<tr><td>BlockAscDrivesAfterManual</td><td> </td></tr>
|
||||
</table>
|
||||
<p></p>
|
||||
<u>Wichtige Informationen zur allgemeinen Verwendung</u>
|
||||
<p>
|
||||
Es wurde eine Möglichkeit geschaffen um das verzögerte fahren eines Rolles durch öffnen eines Fensterkontaktes zu unterbinden.
|
||||
Feststellung der Griffstellung vor Fahrt, nicht vor Wartezeit!
|
||||
Voraussetzung für diese Funktion ist folgende Einstellung:
|
||||
<ul>
|
||||
<li>das Rollo muss in der Position Open stehen</i>
|
||||
<li>der Sensor muss auf open stehen / gestellt werden</i>
|
||||
<li>Attribut ASC_ShuttersPlace muss auf terrace gesetzt sein</i>
|
||||
<li>Attribut ASC_Self_Defense_Mode muss auf off gesetzt sein</i>
|
||||
</ul>
|
||||
</p>
|
||||
</ul>
|
||||
|
||||
=end html_DE
|
||||
@ -1451,7 +1474,7 @@ __END__
|
||||
"abstract": "Module for controlling shutters depending on various conditions",
|
||||
"x_lang": {
|
||||
"de": {
|
||||
"abstract": "Modul zur Automatischen Rolladensteuerung auf Basis bestimmter Ereignisse"
|
||||
"abstract": "Modul zur Automatischen Rollladensteuerung auf Basis bestimmter Ereignisse"
|
||||
}
|
||||
},
|
||||
"keywords": [
|
||||
@ -1465,7 +1488,7 @@ __END__
|
||||
],
|
||||
"release_status": "stable",
|
||||
"license": "GPL_2",
|
||||
"version": "v0.10.18",
|
||||
"version": "v1.0.1",
|
||||
"author": [
|
||||
"Marko Oldenburg <fhemdevelopment@cooltux.net>"
|
||||
],
|
||||
@ -1479,7 +1502,7 @@ __END__
|
||||
"runtime": {
|
||||
"requires": {
|
||||
"FHEM": 5.00918799,
|
||||
"perl": 5.016,
|
||||
"perl": 5.023,
|
||||
"Meta": 0,
|
||||
"JSON": 0,
|
||||
"Date::Parse": 0
|
||||
|
@ -1,16 +1,16 @@
|
||||
UPD 2021-10-27_09:58:32 115685 FHEM/73_AutoShuttersControl.pm
|
||||
UPD 2021-10-27_09:48:09 75254 lib/FHEM/Automation/ShuttersControl.pm
|
||||
UPD 2021-10-09_07:12:54 2657 lib/FHEM/Automation/ShuttersControl/Dev.pm
|
||||
UPD 2021-10-09_07:12:54 2494 lib/FHEM/Automation/ShuttersControl/Roommate.pm
|
||||
UPD 2021-10-24_07:33:53 31900 lib/FHEM/Automation/ShuttersControl/Shutters.pm
|
||||
UPD 2021-10-09_07:12:54 25333 lib/FHEM/Automation/ShuttersControl/Shading.pm
|
||||
UPD 2021-10-27_08:50:46 110681 lib/FHEM/Automation/ShuttersControl/EventProcessingFunctions.pm
|
||||
UPD 2021-10-09_07:12:54 40628 lib/FHEM/Automation/ShuttersControl/Helper.pm
|
||||
UPD 2021-10-09_07:12:54 2173 lib/FHEM/Automation/ShuttersControl/Window.pm
|
||||
UPD 2021-10-09_07:12:54 11739 lib/FHEM/Automation/ShuttersControl/Dev/Attr.pm
|
||||
UPD 2021-10-09_07:12:54 7249 lib/FHEM/Automation/ShuttersControl/Dev/Readings.pm
|
||||
UPD 2021-10-27_08:50:46 52649 lib/FHEM/Automation/ShuttersControl/Shutters/Attr.pm
|
||||
UPD 2021-10-09_07:12:54 2901 lib/FHEM/Automation/ShuttersControl/Shutters/Readings.pm
|
||||
UPD 2021-10-09_07:12:54 3978 lib/FHEM/Automation/ShuttersControl/Window/Attr.pm
|
||||
UPD 2021-10-09_07:12:54 2286 lib/FHEM/Automation/ShuttersControl/Window/Readings.pm
|
||||
UPD 2021-10-27_08:50:46 6716 lib/FHEM/Automation/ShuttersControl/Rainprotection.pm
|
||||
UPD 2025-02-05_07:57:04 117935 FHEM/73_AutoShuttersControl.pm
|
||||
UPD 2025-01-25_11:47:02 76570 lib/FHEM/Automation/ShuttersControl.pm
|
||||
UPD 2024-10-12_09:12:30 2691 lib/FHEM/Automation/ShuttersControl/Dev.pm
|
||||
UPD 2024-10-12_09:12:30 2675 lib/FHEM/Automation/ShuttersControl/Roommate.pm
|
||||
UPD 2024-10-12_09:12:30 31828 lib/FHEM/Automation/ShuttersControl/Shutters.pm
|
||||
UPD 2024-10-12_09:12:30 25541 lib/FHEM/Automation/ShuttersControl/Shading.pm
|
||||
UPD 2024-10-12_09:12:30 112297 lib/FHEM/Automation/ShuttersControl/EventProcessingFunctions.pm
|
||||
UPD 2024-10-12_09:12:30 40681 lib/FHEM/Automation/ShuttersControl/Helper.pm
|
||||
UPD 2024-10-12_09:12:30 2209 lib/FHEM/Automation/ShuttersControl/Window.pm
|
||||
UPD 2024-10-12_09:12:30 11857 lib/FHEM/Automation/ShuttersControl/Dev/Attr.pm
|
||||
UPD 2024-10-12_09:12:30 7265 lib/FHEM/Automation/ShuttersControl/Dev/Readings.pm
|
||||
UPD 2024-10-12_09:12:30 52751 lib/FHEM/Automation/ShuttersControl/Shutters/Attr.pm
|
||||
UPD 2024-10-12_09:12:30 2799 lib/FHEM/Automation/ShuttersControl/Shutters/Readings.pm
|
||||
UPD 2024-10-12_09:12:30 3887 lib/FHEM/Automation/ShuttersControl/Window/Attr.pm
|
||||
UPD 2024-10-12_09:12:30 2200 lib/FHEM/Automation/ShuttersControl/Window/Readings.pm
|
||||
UPD 2024-10-12_09:12:30 7394 lib/FHEM/Automation/ShuttersControl/Rainprotection.pm
|
||||
|
36
hooks/commit-msg
Executable file
36
hooks/commit-msg
Executable file
@ -0,0 +1,36 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
# An example hook script to check the commit log message.
|
||||
# Called by "git commit" with one argument, the name of the file
|
||||
# that has the commit message. The hook should exit with non-zero
|
||||
# status after issuing an appropriate message if it wants to stop the
|
||||
# commit. The hook is allowed to edit the commit message file.
|
||||
#
|
||||
# To enable this hook, rename this file to "commit-msg".
|
||||
|
||||
# Uncomment the below to add a Signed-off-by line to the message.
|
||||
# Doing this in a hook is a bad idea in general, but the prepare-commit-msg
|
||||
# hook is more suited to it.
|
||||
#
|
||||
# SOB=$(git var GIT_AUTHOR_IDENT | sed -n 's/^\(.*>\).*$/Signed-off-by: \1/p')
|
||||
# grep -qs "^$SOB" "$1" || echo "$SOB" >> "$1"
|
||||
|
||||
# This example catches duplicate Signed-off-by lines.
|
||||
|
||||
commit_msg=$(cat "${1:?Missing commit message file}")
|
||||
|
||||
test "" = "$(grep '^Signed-off-by: ' "$1" |
|
||||
sort | uniq -c | sed -e '/^[ ]*1[ ]/d')" || {
|
||||
echo >&2 Duplicate Signed-off-by lines.
|
||||
exit 1
|
||||
}
|
||||
|
||||
if ! echo "$commit_msg" | grep -Eq "^(build|chore|ci|docs|feat|feat!|fix|perf|refactor|revert|style|test)(\(.+\))?: .*$" ; then
|
||||
|
||||
echo "Invalid commit message"
|
||||
|
||||
exit 1
|
||||
|
||||
fi
|
||||
|
||||
echo "Commit message is valid!"
|
18
hooks/post-commit
Executable file
18
hooks/post-commit
Executable file
@ -0,0 +1,18 @@
|
||||
#!/bin/bash
|
||||
set -eu
|
||||
|
||||
# destination of the final changelog file
|
||||
OUTPUT_FILE=CHANGELOG.md
|
||||
|
||||
# generate the changelog
|
||||
git --no-pager log --no-merges --format="### %s%d%n>%aD%n%n>Author: %aN (%aE)%n%n>Commiter: %cN (%cE)%n%n%b%n%N%n" > $OUTPUT_FILE
|
||||
|
||||
# prevent recursion!
|
||||
# since a 'commit --amend' will trigger the post-commit script again
|
||||
# we have to check if the changelog file has changed or not
|
||||
res=$(git status --porcelain | grep -c ".\$OUTPUT_FILE$")
|
||||
if [ "$res" -gt 0 ]; then
|
||||
git add $OUTPUT_FILE
|
||||
git commit --amend
|
||||
echo "Populated Changelog in $OUTPUT_FILE"
|
||||
fi
|
File diff suppressed because it is too large
Load Diff
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -43,7 +43,7 @@ package FHEM::Automation::ShuttersControl::Dev;
|
||||
use FHEM::Automation::ShuttersControl::Dev::Readings;
|
||||
use FHEM::Automation::ShuttersControl::Dev::Attr;
|
||||
|
||||
our @ISA =
|
||||
use base
|
||||
qw(FHEM::Automation::ShuttersControl::Dev::Readings FHEM::Automation::ShuttersControl::Dev::Attr);
|
||||
|
||||
use strict;
|
||||
|
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemdevelopment@cooltux.net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -44,23 +44,12 @@ use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
|
||||
use GPUtils qw(GP_Import);
|
||||
|
||||
## Import der FHEM Funktionen
|
||||
BEGIN {
|
||||
GP_Import(
|
||||
qw(
|
||||
AttrVal
|
||||
gettimeofday)
|
||||
);
|
||||
}
|
||||
|
||||
sub getShuttersOffset {
|
||||
my $self = shift;
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_shuttersDriveDelay', -1 );
|
||||
return ::AttrVal( $name, 'ASC_shuttersDriveDelay', -1 );
|
||||
}
|
||||
|
||||
sub getBrightnessMinVal {
|
||||
@ -70,7 +59,7 @@ sub getBrightnessMinVal {
|
||||
|
||||
return $self->{ASC_brightness}->{triggermin}
|
||||
if ( exists( $self->{ASC_brightness}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_brightness}->{LASTGETTIME} ) < 2 );
|
||||
&& ( ::gettimeofday() - $self->{ASC_brightness}->{LASTGETTIME} ) < 2 );
|
||||
$FHEM::Automation::ShuttersControl::ascDev->getBrightnessMaxVal;
|
||||
|
||||
return $self->{ASC_brightness}->{triggermin};
|
||||
@ -83,8 +72,8 @@ sub getBrightnessMaxVal {
|
||||
|
||||
return $self->{ASC_brightness}->{triggermax}
|
||||
if ( exists( $self->{ASC_brightness}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_brightness}->{LASTGETTIME} ) < 2 );
|
||||
$self->{ASC_brightness}->{LASTGETTIME} = int( gettimeofday() );
|
||||
&& ( ::gettimeofday() - $self->{ASC_brightness}->{LASTGETTIME} ) < 2 );
|
||||
$self->{ASC_brightness}->{LASTGETTIME} = int( ::gettimeofday() );
|
||||
|
||||
my ( $triggermax, $triggermin ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $name,
|
||||
@ -104,7 +93,7 @@ sub _getTwilightDevice {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_twilightDevice', 'none' );
|
||||
return ::AttrVal( $name, 'ASC_twilightDevice', 'none' );
|
||||
}
|
||||
|
||||
sub getAutoAstroModeEvening {
|
||||
@ -112,7 +101,7 @@ sub getAutoAstroModeEvening {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_autoAstroModeEvening', 'REAL' );
|
||||
return ::AttrVal( $name, 'ASC_autoAstroModeEvening', 'REAL' );
|
||||
}
|
||||
|
||||
sub getAutoAstroModeEveningHorizon {
|
||||
@ -120,7 +109,7 @@ sub getAutoAstroModeEveningHorizon {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_autoAstroModeEveningHorizon', 0 );
|
||||
return ::AttrVal( $name, 'ASC_autoAstroModeEveningHorizon', 0 );
|
||||
}
|
||||
|
||||
sub getAutoAstroModeMorning {
|
||||
@ -128,7 +117,7 @@ sub getAutoAstroModeMorning {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_autoAstroModeMorning', 'REAL' );
|
||||
return ::AttrVal( $name, 'ASC_autoAstroModeMorning', 'REAL' );
|
||||
}
|
||||
|
||||
sub getAutoAstroModeMorningHorizon {
|
||||
@ -136,7 +125,7 @@ sub getAutoAstroModeMorningHorizon {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_autoAstroModeMorningHorizon', 0 );
|
||||
return ::AttrVal( $name, 'ASC_autoAstroModeMorningHorizon', 0 );
|
||||
}
|
||||
|
||||
sub getAutoShuttersControlMorning {
|
||||
@ -144,7 +133,7 @@ sub getAutoShuttersControlMorning {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_autoShuttersControlMorning', 'on' );
|
||||
return ::AttrVal( $name, 'ASC_autoShuttersControlMorning', 'on' );
|
||||
}
|
||||
|
||||
sub getAutoShuttersControlEvening {
|
||||
@ -152,7 +141,7 @@ sub getAutoShuttersControlEvening {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_autoShuttersControlEvening', 'on' );
|
||||
return ::AttrVal( $name, 'ASC_autoShuttersControlEvening', 'on' );
|
||||
}
|
||||
|
||||
sub getAutoShuttersControlComfort {
|
||||
@ -160,7 +149,7 @@ sub getAutoShuttersControlComfort {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_autoShuttersControlComfort', 'off' );
|
||||
return ::AttrVal( $name, 'ASC_autoShuttersControlComfort', 'off' );
|
||||
}
|
||||
|
||||
sub getFreezeTemp {
|
||||
@ -168,7 +157,7 @@ sub getFreezeTemp {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_freezeTemp', 3 );
|
||||
return ::AttrVal( $name, 'ASC_freezeTemp', 3 );
|
||||
}
|
||||
|
||||
sub getSlatDriveCmdInverse {
|
||||
@ -176,7 +165,7 @@ sub getSlatDriveCmdInverse {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_slatDriveCmdInverse', 0 );
|
||||
return ::AttrVal( $name, 'ASC_slatDriveCmdInverse', 0 );
|
||||
}
|
||||
|
||||
sub _getTempSensor {
|
||||
@ -186,11 +175,11 @@ sub _getTempSensor {
|
||||
|
||||
return $self->{ASC_tempSensor}->{device}
|
||||
if ( exists( $self->{ASC_tempSensor}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_tempSensor}->{LASTGETTIME} ) < 2 );
|
||||
$self->{ASC_tempSensor}->{LASTGETTIME} = int( gettimeofday() );
|
||||
&& ( ::gettimeofday() - $self->{ASC_tempSensor}->{LASTGETTIME} ) < 2 );
|
||||
$self->{ASC_tempSensor}->{LASTGETTIME} = int( ::gettimeofday() );
|
||||
my ( $device, $reading ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $name, 'ASC_tempSensor',
|
||||
'none' );
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $name,
|
||||
'ASC_tempSensor', 'none' );
|
||||
|
||||
## erwartetes Ergebnis
|
||||
# DEVICE:READING
|
||||
@ -208,7 +197,7 @@ sub getTempSensorReading {
|
||||
|
||||
return $self->{ASC_tempSensor}->{reading}
|
||||
if ( exists( $self->{ASC_tempSensor}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_tempSensor}->{LASTGETTIME} ) < 2 );
|
||||
&& ( ::gettimeofday() - $self->{ASC_tempSensor}->{LASTGETTIME} ) < 2 );
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getTempSensor;
|
||||
return $self->{ASC_tempSensor}->{reading};
|
||||
}
|
||||
@ -220,8 +209,9 @@ sub _getResidentsDev {
|
||||
|
||||
return $self->{ASC_residentsDev}->{device}
|
||||
if ( exists( $self->{ASC_residentsDev}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_residentsDev}->{LASTGETTIME} ) < 2 );
|
||||
$self->{ASC_residentsDev}->{LASTGETTIME} = int( gettimeofday() );
|
||||
&& ( ::gettimeofday() - $self->{ASC_residentsDev}->{LASTGETTIME} ) <
|
||||
2 );
|
||||
$self->{ASC_residentsDev}->{LASTGETTIME} = int( ::gettimeofday() );
|
||||
my ( $device, $reading ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $name,
|
||||
'ASC_residentsDev', 'none' );
|
||||
@ -240,7 +230,8 @@ sub getResidentsReading {
|
||||
|
||||
return $self->{ASC_residentsDev}->{reading}
|
||||
if ( exists( $self->{ASC_residentsDev}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_residentsDev}->{LASTGETTIME} ) < 2 );
|
||||
&& ( ::gettimeofday() - $self->{ASC_residentsDev}->{LASTGETTIME} ) <
|
||||
2 );
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getResidentsDev;
|
||||
return $self->{ASC_residentsDev}->{reading};
|
||||
}
|
||||
@ -252,11 +243,11 @@ sub _getRainSensor {
|
||||
|
||||
return $self->{ASC_rainSensor}->{device}
|
||||
if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
$self->{ASC_rainSensor}->{LASTGETTIME} = int( gettimeofday() );
|
||||
&& ( ::gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
$self->{ASC_rainSensor}->{LASTGETTIME} = int( ::gettimeofday() );
|
||||
my ( $device, $reading, $max, $hyst, $pos, $wait ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $name, 'ASC_rainSensor',
|
||||
'none' );
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $name,
|
||||
'ASC_rainSensor', 'none' );
|
||||
|
||||
## erwartetes Ergebnis
|
||||
# DEVICE:READING MAX:HYST
|
||||
@ -266,10 +257,10 @@ sub _getRainSensor {
|
||||
$self->{ASC_rainSensor}->{reading} =
|
||||
( $reading ne 'none' ? $reading : 'rain' );
|
||||
$self->{ASC_rainSensor}->{triggermax} = (
|
||||
( $max ne 'none'
|
||||
&& $max =~ m{\A(-?\d+(\.\d+)?)\z}xms )
|
||||
( $max ne 'none' && $max =~ m{\A(-?\d+(\.\d+)?)\z}xms )
|
||||
? $max
|
||||
: 1000 );
|
||||
: 1000
|
||||
);
|
||||
|
||||
$self->{ASC_rainSensor}->{triggerhyst} = (
|
||||
$hyst ne 'none'
|
||||
@ -277,10 +268,11 @@ sub _getRainSensor {
|
||||
: ( $self->{ASC_rainSensor}->{triggermax} * 0 )
|
||||
);
|
||||
|
||||
$self->{ASC_rainSensor}->{shuttersClosedPos} =
|
||||
( $pos ne 'none'
|
||||
$self->{ASC_rainSensor}->{shuttersClosedPos} = (
|
||||
$pos ne 'none'
|
||||
? $pos
|
||||
: $FHEM::Automation::ShuttersControl::shutters->getClosedPos );
|
||||
: $FHEM::Automation::ShuttersControl::shutters->getClosedPos
|
||||
);
|
||||
$self->{ASC_rainSensor}->{waitingTime} =
|
||||
( $wait ne 'none' ? $wait : 0 );
|
||||
|
||||
@ -294,7 +286,7 @@ sub getRainSensorReading {
|
||||
|
||||
return $self->{ASC_rainSensor}->{reading}
|
||||
if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
&& ( ::gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getRainSensor;
|
||||
return $self->{ASC_rainSensor}->{reading};
|
||||
}
|
||||
@ -306,7 +298,7 @@ sub getRainTriggerMax {
|
||||
|
||||
return $self->{ASC_rainSensor}->{triggermax}
|
||||
if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
&& ( ::gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getRainSensor;
|
||||
return $self->{ASC_rainSensor}->{triggermax};
|
||||
}
|
||||
@ -318,7 +310,7 @@ sub getRainTriggerMin {
|
||||
|
||||
return $self->{ASC_rainSensor}->{triggerhyst}
|
||||
if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
&& ( ::gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getRainSensor;
|
||||
return $self->{ASC_rainSensor}->{triggerhyst};
|
||||
}
|
||||
@ -330,7 +322,7 @@ sub getRainSensorShuttersClosedPos {
|
||||
|
||||
return $self->{ASC_rainSensor}->{shuttersClosedPos}
|
||||
if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
&& ( ::gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getRainSensor;
|
||||
return $self->{ASC_rainSensor}->{shuttersClosedPos};
|
||||
}
|
||||
@ -342,7 +334,7 @@ sub getRainWaitingTime {
|
||||
|
||||
return $self->{ASC_rainSensor}->{waitingTime}
|
||||
if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
&& ( ::gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getRainSensor;
|
||||
return $self->{ASC_rainSensor}->{waitingTime};
|
||||
}
|
||||
@ -354,11 +346,11 @@ sub _getWindSensor {
|
||||
|
||||
return $self->{ASC_windSensor}->{device}
|
||||
if ( exists( $self->{ASC_windSensor}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_windSensor}->{LASTGETTIME} ) < 2 );
|
||||
$self->{ASC_windSensor}->{LASTGETTIME} = int( gettimeofday() );
|
||||
&& ( ::gettimeofday() - $self->{ASC_windSensor}->{LASTGETTIME} ) < 2 );
|
||||
$self->{ASC_windSensor}->{LASTGETTIME} = int( ::gettimeofday() );
|
||||
my ( $device, $reading ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $name, 'ASC_windSensor',
|
||||
'none' );
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $name,
|
||||
'ASC_windSensor', 'none' );
|
||||
|
||||
return $device if ( $device eq 'none' );
|
||||
$self->{ASC_windSensor}->{device} = $device;
|
||||
@ -375,7 +367,7 @@ sub getWindSensorReading {
|
||||
|
||||
return $self->{ASC_windSensor}->{reading}
|
||||
if ( exists( $self->{ASC_windSensor}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() - $self->{ASC_windSensor}->{LASTGETTIME} ) < 2 );
|
||||
&& ( ::gettimeofday() - $self->{ASC_windSensor}->{LASTGETTIME} ) < 2 );
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getWindSensor;
|
||||
return (
|
||||
defined( $self->{ASC_windSensor}->{reading} )
|
||||
@ -389,18 +381,23 @@ sub getBlockAscDrivesAfterManual {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_blockAscDrivesAfterManual', 0 );
|
||||
return ::AttrVal( $name, 'ASC_blockAscDrivesAfterManual', 0 );
|
||||
}
|
||||
|
||||
sub getAdvDate {
|
||||
sub getAdvStartDate {
|
||||
my $self = shift;
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return AttrVal( $name, 'ASC_advDate', 'FirstAdvent' );
|
||||
return ::AttrVal( $name, 'ASC_advStartDate', 'FirstAdvent' );
|
||||
}
|
||||
|
||||
sub getAdvEndDate {
|
||||
my $self = shift;
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return ::AttrVal( $name, 'ASC_advEndDate', 'EpiphanyDay' );
|
||||
}
|
||||
|
||||
1;
|
||||
|
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemdevelopment@cooltux.net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -48,12 +48,7 @@ use GPUtils qw(GP_Import);
|
||||
|
||||
## Import der FHEM Funktionen
|
||||
BEGIN {
|
||||
GP_Import(
|
||||
qw(
|
||||
readingsSingleUpdate
|
||||
ReadingsVal
|
||||
defs)
|
||||
);
|
||||
GP_Import(qw(defs));
|
||||
}
|
||||
|
||||
sub setDelayCmdReading {
|
||||
@ -62,7 +57,7 @@ sub setDelayCmdReading {
|
||||
my $name = $self->{name};
|
||||
my $hash = $defs{$name};
|
||||
|
||||
readingsSingleUpdate(
|
||||
::readingsSingleUpdate(
|
||||
$hash,
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShuttersDev
|
||||
. '_lastDelayPosValue',
|
||||
@ -79,7 +74,7 @@ sub setStateReading {
|
||||
my $name = $self->{name};
|
||||
my $hash = $defs{$name};
|
||||
|
||||
readingsSingleUpdate(
|
||||
::readingsSingleUpdate(
|
||||
$hash, 'state',
|
||||
(
|
||||
defined($value)
|
||||
@ -97,7 +92,7 @@ sub setPosReading {
|
||||
my $name = $self->{name};
|
||||
my $hash = $defs{$name};
|
||||
|
||||
readingsSingleUpdate(
|
||||
::readingsSingleUpdate(
|
||||
$hash,
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShuttersDev
|
||||
. '_PosValue',
|
||||
@ -113,7 +108,7 @@ sub setLastPosReading {
|
||||
my $name = $self->{name};
|
||||
my $hash = $defs{$name};
|
||||
|
||||
readingsSingleUpdate(
|
||||
::readingsSingleUpdate(
|
||||
$hash,
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShuttersDev
|
||||
. '_lastPosValue',
|
||||
@ -128,7 +123,7 @@ sub getPartyMode {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return ReadingsVal( $name, 'partyMode', 'off' );
|
||||
return ::ReadingsVal( $name, 'partyMode', 'off' );
|
||||
}
|
||||
|
||||
sub getHardLockOut {
|
||||
@ -136,7 +131,7 @@ sub getHardLockOut {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return ReadingsVal( $name, 'hardLockOut', 'none' );
|
||||
return ::ReadingsVal( $name, 'hardLockOut', 'none' );
|
||||
}
|
||||
|
||||
sub getSunriseTimeWeHoliday {
|
||||
@ -144,7 +139,7 @@ sub getSunriseTimeWeHoliday {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return ReadingsVal( $name, 'sunriseTimeWeHoliday', 'none' );
|
||||
return ::ReadingsVal( $name, 'sunriseTimeWeHoliday', 'none' );
|
||||
}
|
||||
|
||||
sub getMonitoredDevs {
|
||||
@ -152,14 +147,14 @@ sub getMonitoredDevs {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
$self->{monitoredDevs} = ReadingsVal( $name, '.monitoredDevs', 'none' );
|
||||
$self->{monitoredDevs} = ::ReadingsVal( $name, '.monitoredDevs', 'none' );
|
||||
return $self->{monitoredDevs};
|
||||
}
|
||||
|
||||
sub getOutTemp {
|
||||
my $self = shift;
|
||||
|
||||
return ReadingsVal(
|
||||
return ::ReadingsVal(
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getTempSensor,
|
||||
$FHEM::Automation::ShuttersControl::ascDev->getTempSensorReading,
|
||||
-100 );
|
||||
@ -169,7 +164,8 @@ sub getResidentsStatus {
|
||||
my $self = shift;
|
||||
|
||||
my $val =
|
||||
ReadingsVal( $FHEM::Automation::ShuttersControl::ascDev->_getResidentsDev,
|
||||
::ReadingsVal(
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getResidentsDev,
|
||||
$FHEM::Automation::ShuttersControl::ascDev->getResidentsReading,
|
||||
'none' );
|
||||
|
||||
@ -178,7 +174,7 @@ sub getResidentsStatus {
|
||||
return $1 && $1 eq 'pet' ? 'absent' : $2;
|
||||
}
|
||||
elsif (
|
||||
ReadingsVal(
|
||||
::ReadingsVal(
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getResidentsDev,
|
||||
'homealoneType', '-' ) eq 'PET'
|
||||
)
|
||||
@ -196,7 +192,8 @@ sub getResidentsLastStatus {
|
||||
my $self = shift;
|
||||
|
||||
my $val =
|
||||
ReadingsVal( $FHEM::Automation::ShuttersControl::ascDev->_getResidentsDev,
|
||||
::ReadingsVal(
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getResidentsDev,
|
||||
'lastState', 'none' );
|
||||
|
||||
if ( $val =~ m{^(?:(.+)_)?(.+)$}xms ) {
|
||||
@ -204,7 +201,7 @@ sub getResidentsLastStatus {
|
||||
return $1 && $1 eq 'pet' ? 'absent' : $2;
|
||||
}
|
||||
elsif (
|
||||
ReadingsVal(
|
||||
::ReadingsVal(
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getResidentsDev,
|
||||
'lastHomealoneType', '-' ) eq 'PET'
|
||||
)
|
||||
@ -223,7 +220,7 @@ sub getAutoShuttersControlShading {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return ReadingsVal( $name, 'controlShading', 'none' );
|
||||
return ::ReadingsVal( $name, 'controlShading', 'none' );
|
||||
}
|
||||
|
||||
sub getSelfDefense {
|
||||
@ -231,7 +228,7 @@ sub getSelfDefense {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return ReadingsVal( $name, 'selfDefense', 'none' );
|
||||
return ::ReadingsVal( $name, 'selfDefense', 'none' );
|
||||
}
|
||||
|
||||
sub getAzimuth {
|
||||
@ -239,13 +236,13 @@ sub getAzimuth {
|
||||
|
||||
my $azimuth;
|
||||
|
||||
$azimuth = ReadingsVal(
|
||||
$azimuth = ::ReadingsVal(
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getTwilightDevice,
|
||||
'azimuth', -1 )
|
||||
if (
|
||||
$defs{ $FHEM::Automation::ShuttersControl::ascDev->_getTwilightDevice }
|
||||
->{TYPE} eq 'Twilight' );
|
||||
$azimuth = ReadingsVal(
|
||||
$azimuth = ::ReadingsVal(
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getTwilightDevice,
|
||||
'SunAz', -1 )
|
||||
if (
|
||||
@ -260,13 +257,13 @@ sub getElevation {
|
||||
|
||||
my $elevation;
|
||||
|
||||
$elevation = ReadingsVal(
|
||||
$elevation = ::ReadingsVal(
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getTwilightDevice,
|
||||
'elevation', -1 )
|
||||
if (
|
||||
$defs{ $FHEM::Automation::ShuttersControl::ascDev->_getTwilightDevice }
|
||||
->{TYPE} eq 'Twilight' );
|
||||
$elevation = ReadingsVal(
|
||||
$elevation = ::ReadingsVal(
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getTwilightDevice,
|
||||
'SunAlt', -1 )
|
||||
if (
|
||||
@ -281,7 +278,7 @@ sub getASCenable {
|
||||
|
||||
my $name = $self->{name};
|
||||
|
||||
return ReadingsVal( $name, 'ascEnable', 'none' );
|
||||
return ::ReadingsVal( $name, 'ascEnable', 'none' );
|
||||
}
|
||||
|
||||
1;
|
||||
|
File diff suppressed because it is too large
Load Diff
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemsupport@cooltux.net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -46,7 +46,9 @@ use POSIX qw(strftime);
|
||||
use utf8;
|
||||
|
||||
require Exporter;
|
||||
our @ISA = qw(Exporter);
|
||||
use base qw(Exporter);
|
||||
|
||||
# our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw(
|
||||
PositionValueWindowRec
|
||||
AutoSearchTwilightDev
|
||||
@ -82,28 +84,14 @@ our %EXPORT_TAGS = (
|
||||
PerlCodeCheck
|
||||
IsAdv
|
||||
IsInTime
|
||||
)
|
||||
)
|
||||
],
|
||||
);
|
||||
|
||||
use GPUtils qw(GP_Import);
|
||||
## Import der FHEM Funktionen
|
||||
BEGIN {
|
||||
GP_Import(
|
||||
qw(
|
||||
devspec2array
|
||||
CommandAttr
|
||||
AttrVal
|
||||
Log3
|
||||
computeAlignTime
|
||||
gettimeofday
|
||||
sunset
|
||||
sunset_abs
|
||||
sunrise
|
||||
sunrise_abs
|
||||
cmdFromAnalyze
|
||||
)
|
||||
);
|
||||
GP_Import(qw(cmdFromAnalyze));
|
||||
}
|
||||
|
||||
sub PositionValueWindowRec {
|
||||
@ -156,12 +144,12 @@ sub AutoSearchTwilightDev {
|
||||
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
if ( devspec2array('TYPE=(Astro|Twilight)') > 0 ) {
|
||||
CommandAttr( undef,
|
||||
if ( ::devspec2array('TYPE=(Astro|Twilight)') > 0 ) {
|
||||
::CommandAttr( undef,
|
||||
$name
|
||||
. ' ASC_twilightDevice '
|
||||
. ( devspec2array('TYPE=(Astro|Twilight)') )[0] )
|
||||
if ( AttrVal( $name, 'ASC_twilightDevice', 'none' ) eq 'none' );
|
||||
. ( ::devspec2array('TYPE=(Astro|Twilight)') )[0] )
|
||||
if ( ::AttrVal( $name, 'ASC_twilightDevice', 'none' ) eq 'none' );
|
||||
}
|
||||
|
||||
return;
|
||||
@ -172,8 +160,10 @@ sub GetAttrValues {
|
||||
my $attribut = shift;
|
||||
my $default = shift;
|
||||
|
||||
my @values = split( ' ',
|
||||
AttrVal( $dev, $attribut, ( defined($default) ? $default : 'none' ) ) );
|
||||
my @values = split(
|
||||
' ',
|
||||
::AttrVal( $dev, $attribut, ( defined($default) ? $default : 'none' ) )
|
||||
);
|
||||
my ( $value1, $value2 ) = split( ':', $values[0] );
|
||||
|
||||
my ( $value3, $value4, $value5, $value6, $value7, $value8 );
|
||||
@ -217,7 +207,7 @@ sub CheckIfShuttersWindowRecOpen {
|
||||
m{[Cc]lose|true}xms )
|
||||
{
|
||||
return 0;
|
||||
} # CK: covers: close|closed
|
||||
} # CK: covers: close|closed
|
||||
}
|
||||
|
||||
sub ExtractNotifyDevFromEvent {
|
||||
@ -227,10 +217,10 @@ sub ExtractNotifyDevFromEvent {
|
||||
|
||||
my %notifyDevs;
|
||||
while ( my $notifyDev = each %{ $hash->{monitoredDevs} } ) {
|
||||
Log3( $hash->{NAME}, 4,
|
||||
::Log3( $hash->{NAME}, 4,
|
||||
"AutoShuttersControl ($hash->{NAME}) - ExtractNotifyDevFromEvent - NotifyDev: "
|
||||
. $notifyDev );
|
||||
Log3( $hash->{NAME}, 5,
|
||||
::Log3( $hash->{NAME}, 5,
|
||||
"AutoShuttersControl ($hash->{NAME}) - ExtractNotifyDevFromEvent - ShuttersDev: "
|
||||
. $shuttersDev );
|
||||
|
||||
@ -238,10 +228,10 @@ sub ExtractNotifyDevFromEvent {
|
||||
&& $hash->{monitoredDevs}{$notifyDev}{$shuttersDev} eq
|
||||
$shuttersAttr )
|
||||
{
|
||||
Log3( $hash->{NAME}, 4,
|
||||
::Log3( $hash->{NAME}, 4,
|
||||
"AutoShuttersControl ($hash->{NAME}) - ExtractNotifyDevFromEvent - ShuttersDevHash: "
|
||||
. $hash->{monitoredDevs}{$notifyDev}{$shuttersDev} );
|
||||
Log3( $hash->{NAME}, 5,
|
||||
::Log3( $hash->{NAME}, 5,
|
||||
"AutoShuttersControl ($hash->{NAME}) - ExtractNotifyDevFromEvent - return ShuttersDev: "
|
||||
. $notifyDev );
|
||||
$notifyDevs{$notifyDev} = $shuttersDev;
|
||||
@ -279,24 +269,27 @@ sub _IsDay {
|
||||
(
|
||||
(
|
||||
(
|
||||
int( gettimeofday() / 86400 ) != int(
|
||||
computeAlignTime( '24:00',
|
||||
int( ::gettimeofday() / 86400 ) != int(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpEarly ) / 86400
|
||||
->getTimeUpEarly
|
||||
) / 86400
|
||||
)
|
||||
&& ( !IsWe()
|
||||
|| ( IsWe()
|
||||
&& ( $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getSunriseTimeWeHoliday eq 'off'
|
||||
|| $FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpWeHoliday eq '01:25'
|
||||
)
|
||||
)
|
||||
&& (
|
||||
!IsWe()
|
||||
|| (
|
||||
IsWe()
|
||||
&& ( $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getSunriseTimeWeHoliday eq 'off'
|
||||
|| $FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpWeHoliday eq '01:25' )
|
||||
)
|
||||
)
|
||||
)
|
||||
|| (
|
||||
int( gettimeofday() / 86400 ) != int(
|
||||
computeAlignTime(
|
||||
int( ::gettimeofday() / 86400 ) != int(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpWeHoliday
|
||||
@ -309,23 +302,23 @@ sub _IsDay {
|
||||
->getTimeUpWeHoliday ne '01:25'
|
||||
)
|
||||
)
|
||||
&& int( gettimeofday() / 86400 ) == int(
|
||||
computeAlignTime(
|
||||
&& int( ::gettimeofday() / 86400 ) == int(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters->getTimeUpLate
|
||||
) / 86400
|
||||
)
|
||||
)
|
||||
|| (
|
||||
int( gettimeofday() / 86400 ) != int(
|
||||
computeAlignTime(
|
||||
int( ::gettimeofday() / 86400 ) != int(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeDownEarly
|
||||
) / 86400
|
||||
)
|
||||
&& int( gettimeofday() / 86400 ) == int(
|
||||
computeAlignTime(
|
||||
&& int( ::gettimeofday() / 86400 ) == int(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeDownLate
|
||||
@ -390,25 +383,32 @@ sub _IsDay {
|
||||
. $FHEM::Automation::ShuttersControl::shutters->getSunrise );
|
||||
}
|
||||
|
||||
|
||||
$respIsDay = 1
|
||||
if (
|
||||
( $FHEM::Automation::ShuttersControl::shutters->getDown eq 'roommate'
|
||||
and ( $FHEM::Automation::ShuttersControl::shutters->getRoommates ne 'asleep'
|
||||
or $FHEM::Automation::ShuttersControl::shutters->getRoommates ne 'gotosleep' )
|
||||
)
|
||||
or ( $FHEM::Automation::ShuttersControl::shutters->getUp eq 'roommate'
|
||||
and ( $FHEM::Automation::ShuttersControl::shutters->getRoommates ne 'asleep'
|
||||
or $FHEM::Automation::ShuttersControl::shutters->getRoommates ne 'gotosleep' )
|
||||
)
|
||||
(
|
||||
$FHEM::Automation::ShuttersControl::shutters->getDown eq 'roommate'
|
||||
and ( $FHEM::Automation::ShuttersControl::shutters->getRoommates ne
|
||||
'asleep'
|
||||
or $FHEM::Automation::ShuttersControl::shutters->getRoommates
|
||||
ne 'gotosleep' )
|
||||
)
|
||||
or (
|
||||
$FHEM::Automation::ShuttersControl::shutters->getUp eq 'roommate'
|
||||
and ( $FHEM::Automation::ShuttersControl::shutters->getRoommates ne
|
||||
'asleep'
|
||||
or $FHEM::Automation::ShuttersControl::shutters->getRoommates
|
||||
ne 'gotosleep' )
|
||||
)
|
||||
or ( $FHEM::Automation::ShuttersControl::shutters->getShuttersPlace eq
|
||||
'awning' )
|
||||
);
|
||||
|
||||
|
||||
return $respIsDay;
|
||||
}
|
||||
|
||||
sub ShuttersSunrise {
|
||||
my $shuttersDev = shift;
|
||||
my $tm = shift; # Tm steht für Timemode und bedeutet Realzeit oder Unixzeit
|
||||
my $tm = shift; # Tm steht für Timemode und bedeutet Realzeit oder Unixzeit
|
||||
|
||||
my $autoAstroMode;
|
||||
$FHEM::Automation::ShuttersControl::shutters->setShuttersDev($shuttersDev);
|
||||
@ -436,7 +436,7 @@ sub ShuttersSunrise {
|
||||
my $oldFuncHash =
|
||||
$FHEM::Automation::ShuttersControl::shutters->getInTimerFuncHash;
|
||||
my $shuttersSunriseUnixtime =
|
||||
computeAlignTime( '24:00', sunrise( 'REAL', 0, '4:30', '8:30' ) );
|
||||
::computeAlignTime( '24:00', ::sunrise( 'REAL', 0, '4:30', '8:30' ) );
|
||||
|
||||
if ( $tm eq 'unix' ) {
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters->getUp eq 'astro' ) {
|
||||
@ -449,11 +449,11 @@ sub ShuttersSunrise {
|
||||
if ( !IsWe('tomorrow') ) {
|
||||
if (
|
||||
IsWe()
|
||||
&& int( gettimeofday() / 86400 ) == int(
|
||||
&& int( ::gettimeofday() / 86400 ) == int(
|
||||
(
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -465,9 +465,9 @@ sub ShuttersSunrise {
|
||||
)
|
||||
{
|
||||
$shuttersSunriseUnixtime = (
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -477,11 +477,11 @@ sub ShuttersSunrise {
|
||||
);
|
||||
}
|
||||
elsif (
|
||||
int( gettimeofday() / 86400 ) == int(
|
||||
int( ::gettimeofday() / 86400 ) == int(
|
||||
(
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -495,9 +495,9 @@ sub ShuttersSunrise {
|
||||
)
|
||||
{
|
||||
$shuttersSunriseUnixtime = (
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -508,9 +508,9 @@ sub ShuttersSunrise {
|
||||
}
|
||||
else {
|
||||
$shuttersSunriseUnixtime = (
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -526,11 +526,11 @@ sub ShuttersSunrise {
|
||||
if (
|
||||
IsWe()
|
||||
&& (
|
||||
int( gettimeofday() / 86400 ) == int(
|
||||
int( ::gettimeofday() / 86400 ) == int(
|
||||
(
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -539,11 +539,11 @@ sub ShuttersSunrise {
|
||||
) + 1
|
||||
) / 86400
|
||||
)
|
||||
|| int( gettimeofday() / 86400 ) != int(
|
||||
|| int( ::gettimeofday() / 86400 ) != int(
|
||||
(
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -556,9 +556,9 @@ sub ShuttersSunrise {
|
||||
)
|
||||
{
|
||||
$shuttersSunriseUnixtime = (
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -568,11 +568,11 @@ sub ShuttersSunrise {
|
||||
);
|
||||
}
|
||||
elsif (
|
||||
int( gettimeofday() / 86400 ) == int(
|
||||
int( ::gettimeofday() / 86400 ) == int(
|
||||
(
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -586,9 +586,9 @@ sub ShuttersSunrise {
|
||||
)
|
||||
{
|
||||
$shuttersSunriseUnixtime = (
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -601,11 +601,11 @@ sub ShuttersSunrise {
|
||||
}
|
||||
else {
|
||||
if (
|
||||
int( gettimeofday() / 86400 ) == int(
|
||||
int( ::gettimeofday() / 86400 ) == int(
|
||||
(
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -617,9 +617,9 @@ sub ShuttersSunrise {
|
||||
)
|
||||
{
|
||||
$shuttersSunriseUnixtime = (
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -630,9 +630,9 @@ sub ShuttersSunrise {
|
||||
}
|
||||
else {
|
||||
$shuttersSunriseUnixtime = (
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -646,9 +646,9 @@ sub ShuttersSunrise {
|
||||
}
|
||||
else {
|
||||
$shuttersSunriseUnixtime = (
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -669,11 +669,11 @@ sub ShuttersSunrise {
|
||||
{
|
||||
if ( !IsWe('tomorrow') ) {
|
||||
if (
|
||||
int( gettimeofday() / 86400 ) == int(
|
||||
int( ::gettimeofday() / 86400 ) == int(
|
||||
(
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunrise_abs(
|
||||
::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -690,7 +690,7 @@ sub ShuttersSunrise {
|
||||
( $shuttersSunriseUnixtime + 86400 )
|
||||
if ( $shuttersSunriseUnixtime <
|
||||
( $oldFuncHash->{sunrisetime} + 180 )
|
||||
&& $oldFuncHash->{sunrisetime} < gettimeofday() );
|
||||
&& $oldFuncHash->{sunrisetime} < ::gettimeofday() );
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -698,7 +698,7 @@ sub ShuttersSunrise {
|
||||
$shuttersSunriseUnixtime = ( $shuttersSunriseUnixtime + 86400 )
|
||||
if ( $shuttersSunriseUnixtime <
|
||||
( $oldFuncHash->{sunrisetime} + 180 )
|
||||
&& $oldFuncHash->{sunrisetime} < gettimeofday() );
|
||||
&& $oldFuncHash->{sunrisetime} < ::gettimeofday() );
|
||||
}
|
||||
}
|
||||
elsif ( $FHEM::Automation::ShuttersControl::shutters->getUp eq 'time' )
|
||||
@ -711,8 +711,8 @@ sub ShuttersSunrise {
|
||||
{
|
||||
if ( !IsWe('tomorrow') ) {
|
||||
if (
|
||||
int( gettimeofday() / 86400 ) == int(
|
||||
computeAlignTime(
|
||||
int( ::gettimeofday() / 86400 ) == int(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpWeHoliday
|
||||
@ -720,13 +720,13 @@ sub ShuttersSunrise {
|
||||
)
|
||||
)
|
||||
{
|
||||
$shuttersSunriseUnixtime = computeAlignTime( '24:00',
|
||||
$shuttersSunriseUnixtime = ::computeAlignTime( '24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpWeHoliday );
|
||||
}
|
||||
elsif (
|
||||
int( gettimeofday() / 86400 ) == int(
|
||||
computeAlignTime(
|
||||
int( ::gettimeofday() / 86400 ) == int(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpEarly
|
||||
@ -736,12 +736,12 @@ sub ShuttersSunrise {
|
||||
->getSunrise
|
||||
)
|
||||
{
|
||||
$shuttersSunriseUnixtime = computeAlignTime( '24:00',
|
||||
$shuttersSunriseUnixtime = ::computeAlignTime( '24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpEarly ) + 86400;
|
||||
}
|
||||
else {
|
||||
$shuttersSunriseUnixtime = computeAlignTime( '24:00',
|
||||
$shuttersSunriseUnixtime = ::computeAlignTime( '24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpEarly );
|
||||
}
|
||||
@ -749,8 +749,8 @@ sub ShuttersSunrise {
|
||||
else {
|
||||
if (
|
||||
IsWe()
|
||||
&& int( gettimeofday() / 86400 ) == int(
|
||||
computeAlignTime(
|
||||
&& int( ::gettimeofday() / 86400 ) == int(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpWeHoliday
|
||||
@ -758,13 +758,13 @@ sub ShuttersSunrise {
|
||||
)
|
||||
)
|
||||
{
|
||||
$shuttersSunriseUnixtime = computeAlignTime( '24:00',
|
||||
$shuttersSunriseUnixtime = ::computeAlignTime( '24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpWeHoliday );
|
||||
}
|
||||
elsif (
|
||||
int( gettimeofday() / 86400 ) == int(
|
||||
computeAlignTime(
|
||||
int( ::gettimeofday() / 86400 ) == int(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpEarly
|
||||
@ -772,13 +772,13 @@ sub ShuttersSunrise {
|
||||
)
|
||||
)
|
||||
{
|
||||
$shuttersSunriseUnixtime = computeAlignTime( '24:00',
|
||||
$shuttersSunriseUnixtime = ::computeAlignTime( '24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpEarly );
|
||||
}
|
||||
elsif (
|
||||
int( gettimeofday() / 86400 ) != int(
|
||||
computeAlignTime(
|
||||
int( ::gettimeofday() / 86400 ) != int(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpWeHoliday
|
||||
@ -786,19 +786,19 @@ sub ShuttersSunrise {
|
||||
)
|
||||
)
|
||||
{
|
||||
$shuttersSunriseUnixtime = computeAlignTime( '24:00',
|
||||
$shuttersSunriseUnixtime = ::computeAlignTime( '24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpWeHoliday );
|
||||
}
|
||||
else {
|
||||
$shuttersSunriseUnixtime = computeAlignTime( '24:00',
|
||||
$shuttersSunriseUnixtime = ::computeAlignTime( '24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpWeHoliday ) + 86400;
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
$shuttersSunriseUnixtime = computeAlignTime( '24:00',
|
||||
$shuttersSunriseUnixtime = ::computeAlignTime( '24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getTimeUpEarly );
|
||||
}
|
||||
@ -806,15 +806,14 @@ sub ShuttersSunrise {
|
||||
elsif ( $FHEM::Automation::ShuttersControl::shutters->getUp eq
|
||||
'brightness' )
|
||||
{
|
||||
$shuttersSunriseUnixtime = computeAlignTime( '24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters->getTimeUpLate
|
||||
);
|
||||
$shuttersSunriseUnixtime = ::computeAlignTime( '24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters->getTimeUpLate );
|
||||
}
|
||||
|
||||
return $shuttersSunriseUnixtime;
|
||||
}
|
||||
elsif ( $tm eq 'real' ) {
|
||||
return sunrise_abs(
|
||||
return ::sunrise_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters->getTimeUpEarly,
|
||||
@ -830,7 +829,7 @@ sub ShuttersSunrise {
|
||||
|
||||
sub ShuttersSunset {
|
||||
my $shuttersDev = shift;
|
||||
my $tm = shift; # Tm steht für Timemode und bedeutet Realzeit oder Unixzeit
|
||||
my $tm = shift; # Tm steht für Timemode und bedeutet Realzeit oder Unixzeit
|
||||
|
||||
my $autoAstroMode;
|
||||
$FHEM::Automation::ShuttersControl::shutters->setShuttersDev($shuttersDev);
|
||||
@ -858,15 +857,15 @@ sub ShuttersSunset {
|
||||
my $oldFuncHash =
|
||||
$FHEM::Automation::ShuttersControl::shutters->getInTimerFuncHash;
|
||||
my $shuttersSunsetUnixtime =
|
||||
computeAlignTime( '24:00', sunset( 'REAL', 0, '15:30', '21:30' ) );
|
||||
::computeAlignTime( '24:00', ::sunset( 'REAL', 0, '15:30', '21:30' ) );
|
||||
|
||||
if ( $tm eq 'unix' ) {
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters->getDown eq 'astro' )
|
||||
{
|
||||
$shuttersSunsetUnixtime = (
|
||||
computeAlignTime(
|
||||
::computeAlignTime(
|
||||
'24:00',
|
||||
sunset_abs(
|
||||
::sunset_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -880,13 +879,13 @@ sub ShuttersSunset {
|
||||
$shuttersSunsetUnixtime += 86400
|
||||
if ( $shuttersSunsetUnixtime <
|
||||
( $oldFuncHash->{sunsettime} + 180 )
|
||||
&& $oldFuncHash->{sunsettime} < gettimeofday() );
|
||||
&& $oldFuncHash->{sunsettime} < ::gettimeofday() );
|
||||
}
|
||||
}
|
||||
elsif (
|
||||
$FHEM::Automation::ShuttersControl::shutters->getDown eq 'time' )
|
||||
{
|
||||
$shuttersSunsetUnixtime = computeAlignTime( '24:00',
|
||||
$shuttersSunsetUnixtime = ::computeAlignTime( '24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters->getTimeDownEarly
|
||||
);
|
||||
}
|
||||
@ -894,13 +893,13 @@ sub ShuttersSunset {
|
||||
'brightness' )
|
||||
{
|
||||
$shuttersSunsetUnixtime =
|
||||
computeAlignTime( '24:00',
|
||||
::computeAlignTime( '24:00',
|
||||
$FHEM::Automation::ShuttersControl::shutters->getTimeDownLate );
|
||||
}
|
||||
return $shuttersSunsetUnixtime;
|
||||
}
|
||||
elsif ( $tm eq 'real' ) {
|
||||
return sunset_abs(
|
||||
return ::sunset_abs(
|
||||
$autoAstroMode,
|
||||
0,
|
||||
$FHEM::Automation::ShuttersControl::shutters->getTimeDownEarly,
|
||||
@ -923,7 +922,7 @@ sub IsAfterShuttersTimeBlocking {
|
||||
|
||||
if (
|
||||
(
|
||||
int( gettimeofday() ) -
|
||||
int( ::gettimeofday() ) -
|
||||
$FHEM::Automation::ShuttersControl::shutters->getLastManPosTimestamp
|
||||
) <
|
||||
$FHEM::Automation::ShuttersControl::shutters->getBlockingTimeAfterManual
|
||||
@ -933,7 +932,7 @@ sub IsAfterShuttersTimeBlocking {
|
||||
$FHEM::Automation::ShuttersControl::shutters->getSunriseUnixTime
|
||||
)
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getSunriseUnixTime
|
||||
- ( int( gettimeofday() ) ) <
|
||||
- ( int( ::gettimeofday() ) ) <
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getBlockingTimeBeforDayOpen
|
||||
)
|
||||
@ -943,7 +942,7 @@ sub IsAfterShuttersTimeBlocking {
|
||||
$FHEM::Automation::ShuttersControl::shutters->getSunriseUnixTime
|
||||
)
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getSunsetUnixTime
|
||||
- ( int( gettimeofday() ) ) <
|
||||
- ( int( ::gettimeofday() ) ) <
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getBlockingTimeBeforNightClose
|
||||
)
|
||||
@ -982,7 +981,7 @@ sub IsAfterShuttersManualBlocking {
|
||||
}
|
||||
elsif (
|
||||
(
|
||||
int( gettimeofday() ) -
|
||||
int( ::gettimeofday() ) -
|
||||
$FHEM::Automation::ShuttersControl::shutters->getLastManPosTimestamp
|
||||
) <
|
||||
$FHEM::Automation::ShuttersControl::shutters->getBlockingTimeAfterManual
|
||||
@ -994,25 +993,6 @@ sub IsAfterShuttersManualBlocking {
|
||||
else { return 1 }
|
||||
}
|
||||
|
||||
sub makeReadingName {
|
||||
my ($rname) = shift;
|
||||
my %charHash = (
|
||||
chr(0xe4) => "ae", # ä
|
||||
chr(0xc4) => "Ae", # Ä
|
||||
chr(0xfc) => "ue", # ü
|
||||
chr(0xdc) => "Ue", # Ü
|
||||
chr(0xf6) => "oe", # ö
|
||||
chr(0xd6) => "Oe", # Ö
|
||||
chr(0xdf) => "ss" # ß
|
||||
);
|
||||
my $charHashkeys = join( "", keys(%charHash) );
|
||||
|
||||
return $rname if ( $rname =~ m{^\./}xms );
|
||||
$rname =~ s/([$charHashkeys])/$charHash{$1}/xgi;
|
||||
$rname =~ s/[^a-z0-9._\-\/]/_/xgi;
|
||||
return $rname;
|
||||
}
|
||||
|
||||
sub IsWe {
|
||||
return main::IsWe( shift, shift );
|
||||
}
|
||||
@ -1038,24 +1018,32 @@ sub PerlCodeCheck {
|
||||
sub IsAdv {
|
||||
use HTTP::Date;
|
||||
my ( undef, undef, undef, $monthday, $month, $year, undef, undef, undef ) =
|
||||
localtime( gettimeofday() );
|
||||
localtime( ::gettimeofday() );
|
||||
my $adv = 0;
|
||||
$year += 1900;
|
||||
|
||||
if ( $month < 1 ) {
|
||||
if ( $monthday < 7 ) {
|
||||
$adv = 1;
|
||||
}
|
||||
if ( $month < 1
|
||||
&& $FHEM::Automation::ShuttersControl::ascDev->getAdvEndDate eq
|
||||
'EpiphanyDay' )
|
||||
{
|
||||
$adv = $monthday < 7 ? 1 : 0;
|
||||
}
|
||||
elsif ($month < 2
|
||||
&& $FHEM::Automation::ShuttersControl::ascDev->getAdvEndDate eq
|
||||
'CandlemasDay' )
|
||||
{
|
||||
$adv = $month = 1 || ( $month = 2 && $monthday < 3 ) ? 1 : 0;
|
||||
}
|
||||
else {
|
||||
my $time = str2time( $year . '-12-25' );
|
||||
my $wday = ( localtime($time) )[6];
|
||||
$wday = $wday ? $wday : 7;
|
||||
$time -= ( $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getAdvDate eq 'DeadSunday'
|
||||
? ($wday + 27) * 86400
|
||||
: ($wday + 21) * 86400
|
||||
);
|
||||
$time -= (
|
||||
$FHEM::Automation::ShuttersControl::ascDev->getAdvStartDate eq
|
||||
'DeadSunday'
|
||||
? ( $wday + 27 ) * 86400
|
||||
: ( $wday + 21 ) * 86400
|
||||
);
|
||||
$adv = 1 if ( $time < time );
|
||||
}
|
||||
|
||||
@ -1065,18 +1053,19 @@ sub IsAdv {
|
||||
sub IsInTime {
|
||||
my $dfi = shift;
|
||||
|
||||
$dfi =~ s/{([^\x7d]*)}/$cmdFromAnalyze=$1; eval $1/ge; # Forum #69787
|
||||
my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime(gettimeofday());
|
||||
my $dhms = sprintf("%s\@%02d:%02d:%02d", $wday, $hour, $min, $sec);
|
||||
foreach my $ft (split(" ", $dfi)) {
|
||||
my ($from, $to) = split("-", $ft);
|
||||
if(defined($from) && defined($to)) {
|
||||
$from = "$wday\@$from" if(index($from,"@") < 0);
|
||||
$to = "$wday\@$to" if(index($to, "@") < 0);
|
||||
return 1 if($from le $dhms && $dhms le $to);
|
||||
$dfi =~ s/{([^\x7d]*)}/$cmdFromAnalyze=$1; eval $1/ge; # Forum #69787
|
||||
my ( $sec, $min, $hour, $mday, $month, $year, $wday, $yday, $isdst ) =
|
||||
localtime( ::gettimeofday() );
|
||||
my $dhms = sprintf( "%s\@%02d:%02d:%02d", $wday, $hour, $min, $sec );
|
||||
foreach my $ft ( split( " ", $dfi ) ) {
|
||||
my ( $from, $to ) = split( "-", $ft );
|
||||
if ( defined($from) && defined($to) ) {
|
||||
$from = "$wday\@$from" if ( index( $from, "@" ) < 0 );
|
||||
$to = "$wday\@$to" if ( index( $to, "@" ) < 0 );
|
||||
return 1 if ( $from le $dhms && $dhms le $to );
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemdevelopment@cooltux.net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -47,7 +47,9 @@ use utf8;
|
||||
use FHEM::Automation::ShuttersControl::Helper qw (:ALL);
|
||||
|
||||
require Exporter;
|
||||
our @ISA = qw(Exporter);
|
||||
use base qw(Exporter);
|
||||
|
||||
# our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw(
|
||||
RainProcessing
|
||||
);
|
||||
@ -55,16 +57,15 @@ our %EXPORT_TAGS = (
|
||||
ALL => [
|
||||
qw(
|
||||
RainProcessing
|
||||
)
|
||||
)
|
||||
],
|
||||
);
|
||||
|
||||
|
||||
sub RainProcessing {
|
||||
my ( $hash, $val, $triggerMax, $triggerMin ) = @_;
|
||||
|
||||
|
||||
my $rainClosedPos = $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getRainSensorShuttersClosedPos;
|
||||
->getRainSensorShuttersClosedPos;
|
||||
|
||||
for my $shuttersDev ( @{ $hash->{helper}{shuttersList} } ) {
|
||||
$FHEM::Automation::ShuttersControl::shutters->setShuttersDev(
|
||||
@ -75,49 +76,53 @@ sub RainProcessing {
|
||||
$FHEM::Automation::ShuttersControl::shutters->getRainProtection eq
|
||||
'off' );
|
||||
|
||||
if ( $val > $triggerMax
|
||||
if (
|
||||
$val > $triggerMax
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getStatus !=
|
||||
$rainClosedPos
|
||||
&& $FHEM::Automation::ShuttersControl::shutters
|
||||
->getRainProtectionStatus eq 'unprotected'
|
||||
->getRainProtectionStatus eq 'unprotected'
|
||||
|| ( $FHEM::Automation::ShuttersControl::shutters
|
||||
->getRainProtectionStatus eq 'unprotected'
|
||||
&& $FHEM::Automation::ShuttersControl::shutters
|
||||
->getRainUnprotectionDelayObj ne 'none')
|
||||
->getRainProtectionStatus eq 'unprotected'
|
||||
&& $FHEM::Automation::ShuttersControl::shutters
|
||||
->getRainUnprotectionDelayObj ne 'none' )
|
||||
)
|
||||
{
|
||||
_RainProtected();
|
||||
}
|
||||
elsif ( ( $val == 0 || $val < $triggerMin )
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getStatus ==
|
||||
$rainClosedPos
|
||||
$rainClosedPos
|
||||
&& IsAfterShuttersManualBlocking($shuttersDev)
|
||||
&& $FHEM::Automation::ShuttersControl::shutters
|
||||
->getRainProtectionStatus eq 'protected' )
|
||||
->getRainProtectionStatus eq 'protected' )
|
||||
{
|
||||
my %funcHash = (
|
||||
shuttersdevice => $shuttersDev,
|
||||
my %funcHash = ( shuttersdevice => $shuttersDev, );
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->setRainUnprotectionDelayObj( \%funcHash );
|
||||
::InternalTimer(
|
||||
::gettimeofday() +
|
||||
$FHEM::Automation::ShuttersControl::ascDev
|
||||
->getRainWaitingTime,
|
||||
\&_RainUnprotected, \%funcHash
|
||||
);
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters->setRainUnprotectionDelayObj(\%funcHash);
|
||||
::InternalTimer( ::gettimeofday() + $FHEM::Automation::ShuttersControl::ascDev->getRainWaitingTime
|
||||
, \&_RainUnprotected
|
||||
, \%funcHash );
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->setRainProtectionStatus('unprotected');
|
||||
->setRainProtectionStatus('unprotected');
|
||||
}
|
||||
else {
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters->getStatus != $rainClosedPos
|
||||
&& ($val == 0 || $val < $triggerMin) )
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters->getStatus !=
|
||||
$rainClosedPos
|
||||
&& ( $val == 0 || $val < $triggerMin ) )
|
||||
{
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->setRainProtectionStatus('unprotected');
|
||||
}
|
||||
elsif ($val > $triggerMax) {
|
||||
elsif ( $val > $triggerMax ) {
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->setRainProtectionStatus('protected');
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
@ -126,58 +131,76 @@ sub RainProcessing {
|
||||
|
||||
### es muss noch beobachtet werden ob die Auswahl des Rollos welches bearbeitet werden soll bestehen bleibt oder mit in die neuen Funktionen übergeben werden muss
|
||||
sub _RainProtected {
|
||||
::RemoveInternalTimer($FHEM::Automation::ShuttersControl::shutters->getRainUnprotectionDelayObj)
|
||||
if($FHEM::Automation::ShuttersControl::shutters->getRainUnprotectionDelayObj ne 'none');
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters->setRainUnprotectionDelayObj('none');
|
||||
::RemoveInternalTimer( $FHEM::Automation::ShuttersControl::shutters
|
||||
->getRainUnprotectionDelayObj )
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters
|
||||
->getRainUnprotectionDelayObj ne 'none' );
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters->setRainUnprotectionDelayObj(
|
||||
'none');
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters->setLastDrive(
|
||||
'rain protected');
|
||||
'rain protected');
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters->setDriveCmd(
|
||||
$FHEM::Automation::ShuttersControl::ascDev
|
||||
->getRainSensorShuttersClosedPos);
|
||||
->getRainSensorShuttersClosedPos );
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->setRainProtectionStatus('protected');
|
||||
$FHEM::Automation::ShuttersControl::shutters->setRainProtectionStatus(
|
||||
'protected');
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
sub _RainUnprotected {
|
||||
my $h = shift;
|
||||
|
||||
my $h = shift;
|
||||
my $targetPos = $FHEM::Automation::ShuttersControl::shutters->getLastPos;
|
||||
|
||||
my $shuttersDev = $h->{shuttersdevice};
|
||||
$FHEM::Automation::ShuttersControl::shutters->setShuttersDev(
|
||||
$shuttersDev);
|
||||
$FHEM::Automation::ShuttersControl::shutters->setShuttersDev($shuttersDev);
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters->setLastDrive(
|
||||
'rain un-protected');
|
||||
'rain un-protected');
|
||||
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters->getRainUnprotectionDelayObj ne 'none' ) {
|
||||
::RemoveInternalTimer($FHEM::Automation::ShuttersControl::shutters->getRainUnprotectionDelayObj);
|
||||
$FHEM::Automation::ShuttersControl::shutters->setRainUnprotectionDelayObj('none');
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters
|
||||
->getRainUnprotectionDelayObj ne 'none' )
|
||||
{
|
||||
::RemoveInternalTimer( $FHEM::Automation::ShuttersControl::shutters
|
||||
->getRainUnprotectionDelayObj );
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->setRainUnprotectionDelayObj('none');
|
||||
}
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters->setDriveCmd(
|
||||
(
|
||||
$FHEM::Automation::ShuttersControl::shutters->getIsDay
|
||||
? $FHEM::Automation::ShuttersControl::shutters->getLastPos
|
||||
: (
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getPrivacyDownStatus == 2
|
||||
? $FHEM::Automation::ShuttersControl::shutters
|
||||
->getPrivacyDownPos
|
||||
: $FHEM::Automation::ShuttersControl::shutters
|
||||
->getClosedPos
|
||||
)
|
||||
)
|
||||
)
|
||||
if (IsAfterShuttersTimeBlocking($shuttersDev));
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters->getIsDay
|
||||
&& !$FHEM::Automation::ShuttersControl::shutters->getIfInShading
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getLastPos ==
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingPos )
|
||||
{
|
||||
$targetPos = $FHEM::Automation::ShuttersControl::shutters->getOpenPos;
|
||||
}
|
||||
else {
|
||||
$targetPos = $FHEM::Automation::ShuttersControl::shutters->getLastPos;
|
||||
}
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->setRainProtectionStatus('unprotected');
|
||||
if ( !$FHEM::Automation::ShuttersControl::shutters->getIsDay
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getShuttersPlace ne
|
||||
'awning' )
|
||||
{
|
||||
$targetPos = (
|
||||
$FHEM::Automation::ShuttersControl::shutters->getPrivacyDownStatus
|
||||
== 2
|
||||
? $FHEM::Automation::ShuttersControl::shutters->getPrivacyDownPos
|
||||
: $FHEM::Automation::ShuttersControl::shutters->getClosedPos
|
||||
);
|
||||
}
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters->setRainProtectionStatus(
|
||||
'unprotected');
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters->setDriveCmd($targetPos)
|
||||
if ( IsAfterShuttersTimeBlocking($shuttersDev) );
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemdevelopment@cooltux.net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -44,37 +44,41 @@ use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
|
||||
use GPUtils qw(GP_Import);
|
||||
require Exporter;
|
||||
use base qw(Exporter);
|
||||
|
||||
## Import der FHEM Funktionen
|
||||
BEGIN {
|
||||
GP_Import(
|
||||
# our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw(
|
||||
getRoommateStatus
|
||||
getRoommateLastStatus
|
||||
);
|
||||
our %EXPORT_TAGS = (
|
||||
ALL => [
|
||||
qw(
|
||||
ReadingsVal)
|
||||
);
|
||||
}
|
||||
getRoommateStatus
|
||||
getRoommateLastStatus
|
||||
)
|
||||
],
|
||||
);
|
||||
|
||||
sub _getRoommateStatus {
|
||||
sub getRoommateStatus {
|
||||
my $self = shift;
|
||||
|
||||
my $roommate = $self->{roommate};
|
||||
|
||||
return ReadingsVal( $roommate,
|
||||
return ::ReadingsVal( $roommate,
|
||||
$FHEM::Automation::ShuttersControl::shutters->getRoommatesReading,
|
||||
'none' );
|
||||
}
|
||||
|
||||
sub _getRoommateLastStatus {
|
||||
sub getRoommateLastStatus {
|
||||
my $self = shift;
|
||||
|
||||
my $roommate = $self->{roommate};
|
||||
my $default = $self->{defaultarg};
|
||||
|
||||
$default = 'none' if ( !defined($default) );
|
||||
return ReadingsVal( $roommate, 'lastState', $default );
|
||||
return ::ReadingsVal( $roommate, 'lastState', $default );
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemdevelopment@cooltux.net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -48,7 +48,9 @@ use utf8;
|
||||
use FHEM::Automation::ShuttersControl::Helper qw (IsInTime);
|
||||
|
||||
require Exporter;
|
||||
our @ISA = qw(Exporter);
|
||||
use base qw(Exporter);
|
||||
|
||||
# our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw(
|
||||
CheckASC_ConditionsForShadingFn
|
||||
ShadingProcessing
|
||||
@ -60,31 +62,13 @@ our %EXPORT_TAGS = (
|
||||
CheckASC_ConditionsForShadingFn
|
||||
ShadingProcessing
|
||||
ShadingProcessingDriveCommand
|
||||
)
|
||||
)
|
||||
],
|
||||
);
|
||||
|
||||
use GPUtils qw(GP_Import);
|
||||
## Import der FHEM Funktionen
|
||||
BEGIN {
|
||||
GP_Import(
|
||||
qw(
|
||||
Log3
|
||||
gettimeofday
|
||||
InternalTimer
|
||||
ReadingsVal
|
||||
readingsBeginUpdate
|
||||
readingsBulkUpdate
|
||||
readingsBulkUpdateIfChanged
|
||||
readingsEndUpdate
|
||||
defs
|
||||
)
|
||||
);
|
||||
}
|
||||
|
||||
sub CheckASC_ConditionsForShadingFn {
|
||||
my $hash = shift;
|
||||
my $value = shift;
|
||||
my $hash = shift;
|
||||
my $value = shift;
|
||||
|
||||
my $error;
|
||||
|
||||
@ -98,14 +82,14 @@ sub CheckASC_ConditionsForShadingFn {
|
||||
my $count = 1;
|
||||
for my $shuttersDev ( @{ $hash->{helper}{shuttersList} } ) {
|
||||
my %funcHash = (
|
||||
hash => $hash,
|
||||
shuttersdevice => $shuttersDev,
|
||||
value => $value,
|
||||
attrEvent => 0,
|
||||
hash => $hash,
|
||||
shuttersdevice => $shuttersDev,
|
||||
value => $value,
|
||||
attrEvent => 0,
|
||||
);
|
||||
|
||||
InternalTimer(
|
||||
gettimeofday() + $count,
|
||||
::InternalTimer(
|
||||
::gettimeofday() + $count,
|
||||
'FHEM::Automation::ShuttersControl::Shading::_CheckShuttersConditionsForShadingFn',
|
||||
\%funcHash
|
||||
);
|
||||
@ -121,86 +105,93 @@ sub CheckASC_ConditionsForShadingFn {
|
||||
}
|
||||
|
||||
sub _CheckShuttersConditionsForShadingFn {
|
||||
my $funcHash = shift;
|
||||
|
||||
my $funcHash = shift;
|
||||
|
||||
my $hash = $funcHash->{hash};
|
||||
my $shuttersDev = $funcHash->{shuttersdevice};
|
||||
my $value = $funcHash->{value};
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters->setShuttersDev($shuttersDev);
|
||||
my $shuttersDevHash = $defs{$shuttersDev};
|
||||
my $shuttersDevHash = $::defs{$shuttersDev};
|
||||
my $message = '';
|
||||
my $errorMessage;
|
||||
my $warnMessage;
|
||||
my $infoMessage;
|
||||
|
||||
|
||||
if ( $value eq 'off' ) {
|
||||
$FHEM::Automation::ShuttersControl::shutters->setShadingStatus('out');
|
||||
$infoMessage .= ' shading was deactivated ' . ($funcHash->{attrEvent} ? 'in the device' : 'globally');
|
||||
$errorMessage .= '';
|
||||
$infoMessage .= ' shading was deactivated '
|
||||
. ( $funcHash->{attrEvent} ? 'in the device' : 'globally' );
|
||||
$errorMessage .= '';
|
||||
ShadingProcessingDriveCommand( $hash, $shuttersDev );
|
||||
}
|
||||
else {
|
||||
$infoMessage .= (
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingMode ne 'off'
|
||||
&& $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getAutoShuttersControlShading eq 'on'
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getOutTemp == -100
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingMode ne
|
||||
'off'
|
||||
&& $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getAutoShuttersControlShading eq 'on'
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getOutTemp ==
|
||||
-100
|
||||
? ' shading active, global temp sensor is set, but shutters temperature sensor is not set'
|
||||
: ''
|
||||
);
|
||||
|
||||
$warnMessage .= (
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingMode eq 'off'
|
||||
&& $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getAutoShuttersControlShading eq 'on'
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingMode eq
|
||||
'off'
|
||||
&& $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getAutoShuttersControlShading eq 'on'
|
||||
? ' global shading active but ASC_Shading_Mode attribut is not set or off'
|
||||
: ''
|
||||
);
|
||||
|
||||
$errorMessage .= (
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingMode ne 'off'
|
||||
&& $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getAutoShuttersControlShading ne 'on'
|
||||
&& $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getAutoShuttersControlShading ne 'off'
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingMode ne
|
||||
'off'
|
||||
&& $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getAutoShuttersControlShading ne 'on'
|
||||
&& $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getAutoShuttersControlShading ne 'off'
|
||||
? ' ASC_Shading_Mode attribut is set but global shading has errors, look at ASC device '
|
||||
. '<a href="'
|
||||
. '/fhem?detail='
|
||||
. ReadingsVal( $shuttersDev, 'associatedWith', 'ASC device' )
|
||||
. $::FW_CSRF . '">'
|
||||
. ReadingsVal( $shuttersDev, 'associatedWith', 'ASC device' )
|
||||
. '</a>'
|
||||
. '<a href="'
|
||||
. '/fhem?detail='
|
||||
. ::ReadingsVal( $shuttersDev, 'associatedWith', 'ASC device' )
|
||||
. $::FW_CSRF . '">'
|
||||
. ::ReadingsVal( $shuttersDev, 'associatedWith', 'ASC device' )
|
||||
. '</a>'
|
||||
: ''
|
||||
);
|
||||
|
||||
$errorMessage .= (
|
||||
$FHEM::Automation::ShuttersControl::shutters->getBrightness == -1
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getShadingMode ne
|
||||
'off'
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getShadingMode
|
||||
ne 'off'
|
||||
? ' no brightness sensor found, please set ASC_BrightnessSensor attribut'
|
||||
: ''
|
||||
);
|
||||
}
|
||||
|
||||
$message .= ' ERROR: ' . $errorMessage
|
||||
if ( defined($errorMessage)
|
||||
if ( defined($errorMessage)
|
||||
&& $errorMessage ne '' );
|
||||
|
||||
$message .= ' WARN: ' . $warnMessage
|
||||
if ( defined($warnMessage)
|
||||
if ( defined($warnMessage)
|
||||
&& $warnMessage ne ''
|
||||
&& $errorMessage eq '' );
|
||||
|
||||
$message .= ' INFO: ' . $infoMessage
|
||||
if ( defined($infoMessage)
|
||||
if ( defined($infoMessage)
|
||||
&& $infoMessage ne ''
|
||||
&& $errorMessage eq '' );
|
||||
|
||||
readingsBeginUpdate($shuttersDevHash);
|
||||
readingsBulkUpdateIfChanged( $shuttersDevHash, 'ASC_ShadingMessage',
|
||||
::readingsBeginUpdate($shuttersDevHash);
|
||||
::readingsBulkUpdateIfChanged( $shuttersDevHash, 'ASC_ShadingMessage',
|
||||
'<html>' . $message . ' </html>' );
|
||||
readingsEndUpdate( $shuttersDevHash, 1 );
|
||||
::readingsEndUpdate( $shuttersDevHash, 1 );
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
sub ShadingProcessing {
|
||||
@ -215,12 +206,18 @@ sub ShadingProcessing {
|
||||
$FHEM::Automation::ShuttersControl::shutters->setShuttersDev($shuttersDev);
|
||||
my $brightness =
|
||||
$FHEM::Automation::ShuttersControl::shutters->getBrightnessAverage;
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters->setShadingBetweenTheTimeSuspend(
|
||||
( IsInTime($FHEM::Automation::ShuttersControl::shutters->getShadingBetweenTheTime)
|
||||
? 0
|
||||
: 1 )
|
||||
);
|
||||
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->setShadingBetweenTheTimeSuspend(
|
||||
(
|
||||
IsInTime(
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getShadingBetweenTheTime
|
||||
)
|
||||
? 0
|
||||
: 1
|
||||
)
|
||||
);
|
||||
|
||||
FHEM::Automation::ShuttersControl::ASC_Debug(
|
||||
'ShadingProcessing: '
|
||||
@ -250,7 +247,7 @@ sub ShadingProcessing {
|
||||
. ', Ist es nach der Hälfte der Beschattungswartezeit: '
|
||||
. (
|
||||
(
|
||||
int( gettimeofday() ) -
|
||||
int( ::gettimeofday() ) -
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getShadingStatusTimestamp
|
||||
) < (
|
||||
@ -260,7 +257,7 @@ sub ShadingProcessing {
|
||||
)
|
||||
);
|
||||
|
||||
Log3( $name, 4,
|
||||
::Log3( $name, 4,
|
||||
"AutoShuttersControl ($name) - Shading Processing, Rollladen: "
|
||||
. $shuttersDev
|
||||
. " Azimuth: "
|
||||
@ -279,18 +276,22 @@ sub ShadingProcessing {
|
||||
|| $brightness == -1
|
||||
|| $outTemp == -100
|
||||
|| (
|
||||
int( gettimeofday() ) -
|
||||
int( ::gettimeofday() ) -
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getShadingStatusTimestamp ) < (
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getShadingWaitingPeriod / 2
|
||||
)
|
||||
|| $FHEM::Automation::ShuttersControl::shutters
|
||||
->getExternalTriggerStatus
|
||||
|| $FHEM::Automation::ShuttersControl::shutters->getShadingMode eq 'off'
|
||||
|| $FHEM::Automation::ShuttersControl::ascDev
|
||||
->getAutoShuttersControlShading eq 'off'
|
||||
->getAutoShuttersControlShading eq 'off'
|
||||
|| $FHEM::Automation::ShuttersControl::shutters
|
||||
->getExternalTriggerStatus
|
||||
);
|
||||
|
||||
Log3( $name, 4,
|
||||
::Log3( $name, 4,
|
||||
"AutoShuttersControl ($name) - Shading Processing, Rollladen: "
|
||||
. $shuttersDev
|
||||
. " Nach dem return" );
|
||||
@ -300,7 +301,7 @@ sub ShadingProcessing {
|
||||
my $getStatus = $FHEM::Automation::ShuttersControl::shutters->getStatus;
|
||||
my $oldShadingStatus =
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingStatus;
|
||||
my $shuttersDevHash = $defs{$shuttersDev};
|
||||
my $shuttersDevHash = $::defs{$shuttersDev};
|
||||
|
||||
my $getModeUp = $FHEM::Automation::ShuttersControl::shutters->getModeUp;
|
||||
my $homemode = $FHEM::Automation::ShuttersControl::shutters->getHomemode;
|
||||
@ -316,9 +317,9 @@ sub ShadingProcessing {
|
||||
->getShadingMinOutsideTemperature - 4
|
||||
|| $azimuth < $azimuthLeft
|
||||
|| $azimuth > $azimuthRight
|
||||
|| ( !$FHEM::Automation::ShuttersControl::shutters->getIsDay
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getSunriseUnixTime
|
||||
- ( int( gettimeofday() ) ) > 7200 )
|
||||
|| ( !$FHEM::Automation::ShuttersControl::shutters->getIsDay
|
||||
&& $FHEM::Automation::ShuttersControl::shutters
|
||||
->getSunriseUnixTime - ( int( ::gettimeofday() ) ) > 7200 )
|
||||
)
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getShadingStatus ne
|
||||
'out'
|
||||
@ -331,7 +332,7 @@ sub ShadingProcessing {
|
||||
. ' - Es ist Nacht oder die Aussentemperatur unterhalb der Shading Temperatur. Die Beschattung wird Zwangsbeendet'
|
||||
);
|
||||
|
||||
Log3( $name, 4,
|
||||
::Log3( $name, 4,
|
||||
"AutoShuttersControl ($name) - Shading Processing - Der Sonnenstand ist ausserhalb der Winkelangaben oder die Aussentemperatur unterhalb der Shading Temperatur "
|
||||
);
|
||||
}
|
||||
@ -358,7 +359,7 @@ sub ShadingProcessing {
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingStatus
|
||||
eq 'out reserved'
|
||||
and (
|
||||
int( gettimeofday() ) -
|
||||
int( ::gettimeofday() ) -
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getShadingStatusTimestamp )
|
||||
) > $FHEM::Automation::ShuttersControl::shutters
|
||||
@ -369,7 +370,7 @@ sub ShadingProcessing {
|
||||
'out');
|
||||
}
|
||||
|
||||
Log3( $name, 4,
|
||||
::Log3( $name, 4,
|
||||
"AutoShuttersControl ($name) - Shading Processing, Rollladen: "
|
||||
. $shuttersDev
|
||||
. " In der Out Abfrage, Shadingwert: "
|
||||
@ -411,7 +412,7 @@ sub ShadingProcessing {
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingStatus eq
|
||||
'in reserved'
|
||||
and (
|
||||
int( gettimeofday() ) -
|
||||
int( ::gettimeofday() ) -
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getShadingStatusTimestamp ) > (
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -423,7 +424,7 @@ sub ShadingProcessing {
|
||||
'in');
|
||||
}
|
||||
|
||||
Log3( $name, 4,
|
||||
::Log3( $name, 4,
|
||||
"AutoShuttersControl ($name) - Shading Processing, Rollladen: "
|
||||
. $shuttersDev
|
||||
. " In der In Abfrage, Shadingwert: "
|
||||
@ -468,22 +469,18 @@ sub ShadingProcessing {
|
||||
|| $FHEM::Automation::ShuttersControl::shutters->getShadingMode eq
|
||||
$homemode )
|
||||
&& (
|
||||
$getModeUp eq 'always'
|
||||
|| $getModeUp eq
|
||||
$homemode
|
||||
$getModeUp eq 'always'
|
||||
|| $getModeUp eq $homemode
|
||||
|| $getModeUp eq 'off'
|
||||
|| $getModeUp eq
|
||||
'absent'
|
||||
|| $getModeUp eq
|
||||
'gone'
|
||||
|| ( $getModeUp eq
|
||||
'home'
|
||||
|| $getModeUp eq 'absent'
|
||||
|| $getModeUp eq 'gone'
|
||||
|| ( $getModeUp eq 'home'
|
||||
&& $homemode ne 'asleep' )
|
||||
)
|
||||
&& (
|
||||
(
|
||||
(
|
||||
int( gettimeofday() ) -
|
||||
int( ::gettimeofday() ) -
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getShadingStatusTimestamp
|
||||
) < 2
|
||||
@ -497,18 +494,18 @@ sub ShadingProcessing {
|
||||
)
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getIfInShading
|
||||
)
|
||||
|| ( !$FHEM::Automation::ShuttersControl::shutters->getIfInShading
|
||||
|| ( !$FHEM::Automation::ShuttersControl::shutters->getIfInShading
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getStatus ==
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingPos
|
||||
)
|
||||
|| ( !$FHEM::Automation::ShuttersControl::shutters->getShadingBetweenTheTimeSuspend
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingPos )
|
||||
|| ( !$FHEM::Automation::ShuttersControl::shutters
|
||||
->getShadingBetweenTheTimeSuspend
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getStatus !=
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingPos )
|
||||
)
|
||||
);
|
||||
|
||||
readingsBeginUpdate($shuttersDevHash);
|
||||
readingsBulkUpdate(
|
||||
::readingsBeginUpdate($shuttersDevHash);
|
||||
::readingsBulkUpdate(
|
||||
$shuttersDevHash,
|
||||
'ASC_ShadingMessage',
|
||||
'INFO: current shading status is \''
|
||||
@ -531,7 +528,7 @@ sub ShadingProcessing {
|
||||
) / 60
|
||||
. 'm'
|
||||
);
|
||||
readingsEndUpdate( $shuttersDevHash, 1 );
|
||||
::readingsEndUpdate( $shuttersDevHash, 1 );
|
||||
|
||||
return;
|
||||
}
|
||||
@ -551,19 +548,28 @@ sub ShadingProcessingDriveCommand {
|
||||
$FHEM::Automation::ShuttersControl::shutters->setShadingStatus(
|
||||
$FHEM::Automation::ShuttersControl::shutters->getShadingStatus );
|
||||
|
||||
if ( IsInTime($FHEM::Automation::ShuttersControl::shutters->getShadingBetweenTheTime)
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getShadingStatus eq 'in'
|
||||
if (
|
||||
IsInTime(
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getShadingBetweenTheTime
|
||||
)
|
||||
&& $FHEM::Automation::ShuttersControl::shutters->getShadingStatus eq
|
||||
'in'
|
||||
&& $getShadingPos != $getStatus
|
||||
&& ( $getStatus != $FHEM::Automation::ShuttersControl::shutters->getClosedPos
|
||||
|| ( $getStatus == $FHEM::Automation::ShuttersControl::shutters->getClosedPos
|
||||
&& $marker
|
||||
)
|
||||
)
|
||||
&& ( $getStatus != $FHEM::Automation::ShuttersControl::shutters->getSleepPos
|
||||
|| ( $getStatus == $FHEM::Automation::ShuttersControl::shutters->getSleepPos
|
||||
&& $marker
|
||||
)
|
||||
)
|
||||
&& (
|
||||
$getStatus !=
|
||||
$FHEM::Automation::ShuttersControl::shutters->getClosedPos
|
||||
|| ( $getStatus ==
|
||||
$FHEM::Automation::ShuttersControl::shutters->getClosedPos
|
||||
&& $marker )
|
||||
)
|
||||
&& (
|
||||
$getStatus !=
|
||||
$FHEM::Automation::ShuttersControl::shutters->getSleepPos
|
||||
|| ( $getStatus ==
|
||||
$FHEM::Automation::ShuttersControl::shutters->getSleepPos
|
||||
&& $marker )
|
||||
)
|
||||
&& (
|
||||
FHEM::Automation::ShuttersControl::CheckIfShuttersWindowRecOpen(
|
||||
$shuttersDev) != 2
|
||||
@ -602,10 +608,10 @@ sub ShadingProcessingDriveCommand {
|
||||
(
|
||||
(
|
||||
$getShadingPos ==
|
||||
$FHEM::Automation::ShuttersControl::shutters->getLastPos
|
||||
$FHEM::Automation::ShuttersControl::shutters->getLastPos
|
||||
|| $getShadingPos ==
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getShadingLastPos
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getShadingLastPos
|
||||
)
|
||||
? $FHEM::Automation::ShuttersControl::shutters->getOpenPos
|
||||
: (
|
||||
@ -626,8 +632,10 @@ sub ShadingProcessingDriveCommand {
|
||||
: $FHEM::Automation::ShuttersControl::shutters->getOpenPos
|
||||
)
|
||||
)
|
||||
) if ( $FHEM::Automation::ShuttersControl::shutters->getIsDay
|
||||
|| $FHEM::Automation::ShuttersControl::shutters->getShuttersPlace eq 'awning' );
|
||||
)
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters->getIsDay
|
||||
|| $FHEM::Automation::ShuttersControl::shutters->getShuttersPlace
|
||||
eq 'awning' );
|
||||
|
||||
FHEM::Automation::ShuttersControl::ASC_Debug(
|
||||
'ShadingProcessingDriveCommand: '
|
||||
@ -639,7 +647,7 @@ sub ShadingProcessingDriveCommand {
|
||||
. ' zum beenden der Beschattung gefahren' );
|
||||
}
|
||||
|
||||
Log3( $name, 4,
|
||||
::Log3( $name, 4,
|
||||
"AutoShuttersControl ($name) - Shading Processing - In der Routine zum fahren der Rollläden, Shading Wert: "
|
||||
. $FHEM::Automation::ShuttersControl::shutters->getShadingStatus );
|
||||
|
||||
|
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemdevelopment@cooltux.net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -45,18 +45,18 @@
|
||||
|
||||
package FHEM::Automation::ShuttersControl::Shutters;
|
||||
|
||||
use FHEM::Automation::ShuttersControl::Shutters::Readings;
|
||||
use FHEM::Automation::ShuttersControl::Shutters::Attr;
|
||||
use FHEM::Automation::ShuttersControl::Roommate;
|
||||
use FHEM::Automation::ShuttersControl::Window;
|
||||
|
||||
our @ISA =
|
||||
qw(FHEM::Automation::ShuttersControl::Shutters::Readings FHEM::Automation::ShuttersControl::Shutters::Attr FHEM::Automation::ShuttersControl::Roommate FHEM::Automation::ShuttersControl::Window);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
|
||||
use FHEM::Automation::ShuttersControl::Shutters::Readings;
|
||||
use FHEM::Automation::ShuttersControl::Shutters::Attr;
|
||||
use FHEM::Automation::ShuttersControl::Roommate qw (:ALL);
|
||||
use FHEM::Automation::ShuttersControl::Window;
|
||||
|
||||
use base
|
||||
qw(FHEM::Automation::ShuttersControl::Shutters::Readings FHEM::Automation::ShuttersControl::Shutters::Attr FHEM::Automation::ShuttersControl::Roommate FHEM::Automation::ShuttersControl::Window);
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my $self = {
|
||||
@ -161,9 +161,6 @@ sub setDriveCmd {
|
||||
$FHEM::Automation::ShuttersControl::shutters->setDelayCmd($posValue);
|
||||
$FHEM::Automation::ShuttersControl::ascDev->setDelayCmdReading;
|
||||
$FHEM::Automation::ShuttersControl::shutters->setNoDelay(0);
|
||||
# $FHEM::Automation::ShuttersControl::shutters->setExternalTriggerStatus(0)
|
||||
# if ( $FHEM::Automation::ShuttersControl::shutters
|
||||
# ->getExternalTriggerStatus );
|
||||
|
||||
FHEM::Automation::ShuttersControl::ASC_Debug( 'setDriveCmd: '
|
||||
. $FHEM::Automation::ShuttersControl::shutters->getShuttersDev
|
||||
@ -177,7 +174,8 @@ sub setDriveCmd {
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters->getDelayCmd ne
|
||||
'none' )
|
||||
; # setzt den Wert auf none da der Rolladen nun gesteuert werden kann.
|
||||
$FHEM::Automation::ShuttersControl::shutters->setExternalTriggerStatus(0)
|
||||
$FHEM::Automation::ShuttersControl::shutters->setExternalTriggerStatus(
|
||||
0)
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters
|
||||
->getExternalTriggerStatus );
|
||||
|
||||
@ -233,7 +231,7 @@ sub setDriveCmd {
|
||||
::gettimeofday() +
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getSelfDefenseAbsentDelay,
|
||||
\&FHEM::Automation::ShuttersControl::_SetCmdFn, \%h
|
||||
\&FHEM::Automation::ShuttersControl::SetCmdFn, \%h
|
||||
);
|
||||
$FHEM::Automation::ShuttersControl::shutters->setSelfDefenseAbsent(
|
||||
1, 0, \%h );
|
||||
@ -247,7 +245,7 @@ sub setDriveCmd {
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
->getDelayStart
|
||||
),
|
||||
\&FHEM::Automation::ShuttersControl::_SetCmdFn,
|
||||
\&FHEM::Automation::ShuttersControl::SetCmdFn,
|
||||
\%h
|
||||
);
|
||||
|
||||
@ -258,7 +256,7 @@ sub setDriveCmd {
|
||||
elsif ($offSetStart < 1
|
||||
|| $FHEM::Automation::ShuttersControl::shutters->getNoDelay )
|
||||
{
|
||||
FHEM::Automation::ShuttersControl::_SetCmdFn( \%h );
|
||||
FHEM::Automation::ShuttersControl::SetCmdFn( \%h );
|
||||
FHEM::Automation::ShuttersControl::ASC_Debug( 'FnSetDriveCmd: '
|
||||
. $FHEM::Automation::ShuttersControl::shutters->getShuttersDev
|
||||
. ' - NICHT versetztes fahren' );
|
||||
@ -346,8 +344,7 @@ sub setLastDriveReading {
|
||||
);
|
||||
|
||||
::InternalTimer( ::gettimeofday() + 0.1,
|
||||
\&FHEM::Automation::ShuttersControl::_setShuttersLastDriveDelayed,
|
||||
\%h );
|
||||
\&FHEM::Automation::ShuttersControl::setShuttersLastDriveDelayed, \%h );
|
||||
return;
|
||||
}
|
||||
|
||||
@ -460,7 +457,8 @@ sub setRainUnprotectionDelayObj {
|
||||
my $self = shift;
|
||||
my $value = shift;
|
||||
|
||||
$self->{ $self->{shuttersDev} }->{RainProtection}->{UNPROTECTIONDELAYOBJVAL} = $value
|
||||
$self->{ $self->{shuttersDev} }->{RainProtection}->{UNPROTECTIONDELAYOBJVAL}
|
||||
= $value
|
||||
if ( defined($value) );
|
||||
return;
|
||||
}
|
||||
@ -545,12 +543,13 @@ sub getAttrUpdateChanges {
|
||||
sub getIsDay {
|
||||
my $self = shift;
|
||||
|
||||
return FHEM::Automation::ShuttersControl::Helper::_IsDay( $self->{shuttersDev} );
|
||||
return FHEM::Automation::ShuttersControl::Helper::_IsDay(
|
||||
$self->{shuttersDev} );
|
||||
}
|
||||
|
||||
sub getAntiFreezeStatus {
|
||||
use POSIX qw(strftime);
|
||||
my $self = shift;
|
||||
my $self = shift;
|
||||
my $daytime = strftime( "%P", localtime() );
|
||||
$daytime = (
|
||||
defined($daytime) && $daytime
|
||||
@ -595,7 +594,7 @@ sub getShuttersPosCmdValueNegate {
|
||||
sub getQueryShuttersPos
|
||||
{ # Es wird geschaut ob die aktuelle Position des Rollos unterhalb der Zielposition ist
|
||||
my $self = shift;
|
||||
my $posValue = shift; # wenn dem so ist wird 1 zurück gegeben ansonsten 0
|
||||
my $posValue = shift; # wenn dem so ist wird 1 zurück gegeben ansonsten 0
|
||||
|
||||
return (
|
||||
$FHEM::Automation::ShuttersControl::shutters
|
||||
@ -756,10 +755,12 @@ sub getRainUnprotectionDelayObj {
|
||||
(
|
||||
defined( $self->{ $self->{shuttersDev} }->{RainProtection} )
|
||||
&& defined(
|
||||
$self->{ $self->{shuttersDev} }->{RainProtection}->{UNPROTECTIONDELAYOBJVAL}
|
||||
$self->{ $self->{shuttersDev} }->{RainProtection}
|
||||
->{UNPROTECTIONDELAYOBJVAL}
|
||||
)
|
||||
)
|
||||
? $self->{ $self->{shuttersDev} }->{RainProtection}->{UNPROTECTIONDELAYOBJVAL}
|
||||
? $self->{ $self->{shuttersDev} }->{RainProtection}
|
||||
->{UNPROTECTIONDELAYOBJVAL}
|
||||
: 'none'
|
||||
);
|
||||
}
|
||||
@ -821,7 +822,7 @@ sub getRoommatesStatus {
|
||||
$FHEM::Automation::ShuttersControl::shutters->setRoommate($ro);
|
||||
my $currentPrio =
|
||||
$statePrio{ $FHEM::Automation::ShuttersControl::shutters
|
||||
->_getRoommateStatus };
|
||||
->getRoommateStatus };
|
||||
$minPrio = $currentPrio if ( $minPrio > $currentPrio );
|
||||
}
|
||||
|
||||
@ -854,7 +855,7 @@ sub getRoommatesLastStatus {
|
||||
$FHEM::Automation::ShuttersControl::shutters->setRoommate($ro);
|
||||
my $currentPrio =
|
||||
$statePrio{ $FHEM::Automation::ShuttersControl::shutters
|
||||
->_getRoommateLastStatus };
|
||||
->getRoommateLastStatus };
|
||||
$minPrio = $currentPrio if ( $minPrio > $currentPrio );
|
||||
}
|
||||
|
||||
@ -884,7 +885,7 @@ sub getIdleDetection {
|
||||
### Begin Beschattung Objekt mit Daten befüllen
|
||||
sub setShadingStatus {
|
||||
my $self = shift;
|
||||
my $value = shift; ### Werte für value = in, out, in reserved, out reserved
|
||||
my $value = shift; ### Werte für value = in, out, in reserved, out reserved
|
||||
|
||||
# Es wird durch das return die ShadingWaitingTime nicht mehr beachtet, Bugmeldung von Bernd Griemsmann
|
||||
# return
|
||||
@ -899,7 +900,8 @@ sub setShadingStatus {
|
||||
|
||||
$self->{ $self->{shuttersDev} }{ShadingStatus}{VAL} = $value
|
||||
if ( defined($value) );
|
||||
$self->{ $self->{shuttersDev} }{ShadingStatus}{TIME} = int( ::gettimeofday() )
|
||||
$self->{ $self->{shuttersDev} }{ShadingStatus}{TIME} =
|
||||
int( ::gettimeofday() )
|
||||
if ( defined( $self->{ $self->{shuttersDev} }{ShadingStatus} ) );
|
||||
|
||||
return;
|
||||
@ -945,7 +947,7 @@ sub setShadingLastPos {
|
||||
return;
|
||||
}
|
||||
|
||||
sub setShadingBetweenTheTimeSuspend { # Werte für value = 0, 1
|
||||
sub setShadingBetweenTheTimeSuspend { # Werte für value = 0, 1
|
||||
my $self = shift;
|
||||
my $value = shift;
|
||||
|
||||
@ -996,7 +998,7 @@ sub getBrightnessAverage {
|
||||
return;
|
||||
}
|
||||
|
||||
sub getShadingStatus { # Werte für value = in, out, in reserved, out reserved
|
||||
sub getShadingStatus { # Werte für value = in, out, in reserved, out reserved
|
||||
my $self = shift;
|
||||
|
||||
return (
|
||||
@ -1007,12 +1009,16 @@ sub getShadingStatus { # Werte für value = in, out, in reserved, out reserved
|
||||
);
|
||||
}
|
||||
|
||||
sub getShadingBetweenTheTimeSuspend { # Werte für value = 0, 1
|
||||
sub getShadingBetweenTheTimeSuspend { # Werte für value = 0, 1
|
||||
my $self = shift;
|
||||
|
||||
return (
|
||||
defined( $self->{ $self->{shuttersDev} }{ShadingBetweenTheTimeSuspend} )
|
||||
&& defined( $self->{ $self->{shuttersDev} }{ShadingBetweenTheTimeSuspend}{VAL} )
|
||||
defined(
|
||||
$self->{ $self->{shuttersDev} }{ShadingBetweenTheTimeSuspend}
|
||||
)
|
||||
&& defined(
|
||||
$self->{ $self->{shuttersDev} }{ShadingBetweenTheTimeSuspend}{VAL}
|
||||
)
|
||||
? $self->{ $self->{shuttersDev} }{ShadingBetweenTheTimeSuspend}{VAL}
|
||||
: 0
|
||||
);
|
||||
@ -1084,9 +1090,7 @@ sub getShadingLastPos {
|
||||
|
||||
return (
|
||||
defined( $self->{ $self->{shuttersDev} }{ShadingLastPos} )
|
||||
&& defined(
|
||||
$self->{ $self->{shuttersDev} }{ShadingLastPos}{VAL}
|
||||
)
|
||||
&& defined( $self->{ $self->{shuttersDev} }{ShadingLastPos}{VAL} )
|
||||
? $self->{ $self->{shuttersDev} }{ShadingLastPos}{VAL}
|
||||
: $FHEM::Automation::ShuttersControl::shutters->getShadingPos
|
||||
);
|
||||
@ -1094,7 +1098,4 @@ sub getShadingLastPos {
|
||||
|
||||
### Ende Beschattung
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemdevelopment@cooltux.net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -46,24 +46,12 @@ use utf8;
|
||||
|
||||
use FHEM::Automation::ShuttersControl::Helper qw (IsAdv PerlCodeCheck);
|
||||
|
||||
use GPUtils qw(GP_Import);
|
||||
|
||||
## Import der FHEM Funktionen
|
||||
BEGIN {
|
||||
GP_Import(
|
||||
qw(
|
||||
AttrVal
|
||||
CommandAttr
|
||||
gettimeofday)
|
||||
);
|
||||
}
|
||||
|
||||
sub _setAttributs {
|
||||
my $shuttersDev = shift;
|
||||
my $attr = shift;
|
||||
my $attrVal = shift;
|
||||
|
||||
CommandAttr( undef, $shuttersDev . ' ' . $attr . ' ' . $attrVal );
|
||||
::CommandAttr( undef, $shuttersDev . ' ' . $attr . ' ' . $attrVal );
|
||||
|
||||
return;
|
||||
}
|
||||
@ -77,28 +65,28 @@ sub _getPosition {
|
||||
return $self->{ $self->{shuttersDev} }->{$attr}->{position}
|
||||
if (
|
||||
exists( $self->{ $self->{shuttersDev} }->{$attr}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{$attr}->{LASTGETTIME} ) < 2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{$attr}->{LASTGETTIME} =
|
||||
int( gettimeofday() );
|
||||
int( ::gettimeofday() );
|
||||
|
||||
my $position;
|
||||
my $posAssignment;
|
||||
|
||||
if (
|
||||
AttrVal( $self->{shuttersDev}, $attr,
|
||||
::AttrVal( $self->{shuttersDev}, $attr,
|
||||
$FHEM::Automation::ShuttersControl::userAttrList{$userAttrList}
|
||||
[ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ] ) =~
|
||||
[ ::AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ] ) =~
|
||||
m{\A\{.+\}\z}xms
|
||||
)
|
||||
{
|
||||
my $response = PerlCodeCheck(
|
||||
AttrVal(
|
||||
::AttrVal(
|
||||
$self->{shuttersDev},
|
||||
$attr,
|
||||
$FHEM::Automation::ShuttersControl::userAttrList{$userAttrList}
|
||||
[ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ]
|
||||
[ ::AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ]
|
||||
)
|
||||
);
|
||||
|
||||
@ -108,14 +96,14 @@ sub _getPosition {
|
||||
$position =~ m{\A\d+(\.\d+)?\z}xms
|
||||
? $position
|
||||
: $FHEM::Automation::ShuttersControl::userAttrList{$userAttrList}
|
||||
[ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ]
|
||||
[ ::AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ]
|
||||
);
|
||||
|
||||
$posAssignment = (
|
||||
defined($posAssignment)
|
||||
&& $posAssignment =~ m{\A\d+(\.\d+)?\z}xms
|
||||
? $posAssignment
|
||||
: 'none'
|
||||
defined($posAssignment)
|
||||
&& $posAssignment =~ m{\A\d+(\.\d+)?\z}xms
|
||||
? $posAssignment
|
||||
: 'none'
|
||||
);
|
||||
}
|
||||
else {
|
||||
@ -124,7 +112,7 @@ sub _getPosition {
|
||||
$self->{shuttersDev},
|
||||
$attr,
|
||||
$FHEM::Automation::ShuttersControl::userAttrList{$userAttrList}
|
||||
[ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ]
|
||||
[ ::AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ]
|
||||
);
|
||||
}
|
||||
|
||||
@ -145,8 +133,7 @@ sub _getPosition {
|
||||
)
|
||||
{
|
||||
$self->{ $self->{shuttersDev} }->{$attr}->{position} =
|
||||
PerlCodeCheck(
|
||||
$self->{ $self->{shuttersDev} }->{$attr}->{position} );
|
||||
PerlCodeCheck( $self->{ $self->{shuttersDev} }->{$attr}->{position} );
|
||||
}
|
||||
|
||||
return (
|
||||
@ -154,7 +141,7 @@ sub _getPosition {
|
||||
m{^\d+(\.\d+)?$}xms
|
||||
? $self->{ $self->{shuttersDev} }->{$attr}->{position}
|
||||
: $FHEM::Automation::ShuttersControl::userAttrList{$userAttrList}
|
||||
[ AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ]
|
||||
[ ::AttrVal( $self->{shuttersDev}, 'ASC', 2 ) ]
|
||||
);
|
||||
}
|
||||
|
||||
@ -167,7 +154,7 @@ sub _getPositionAssignment {
|
||||
return $self->{ $self->{shuttersDev} }->{$attr}->{posAssignment}
|
||||
if (
|
||||
exists( $self->{ $self->{shuttersDev} }->{$attr}->{LASTGETTIME} )
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{$attr}->{LASTGETTIME} ) < 2
|
||||
);
|
||||
$FHEM::Automation::ShuttersControl::shutters->$getFn;
|
||||
@ -213,7 +200,7 @@ sub setShuttersPlace {
|
||||
sub getShuttersPlace {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_ShuttersPlace', 'window' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_ShuttersPlace', 'window' );
|
||||
}
|
||||
|
||||
sub setSlatPosCmd {
|
||||
@ -236,15 +223,15 @@ sub getSlatPosCmd {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_SlatPosCmd_SlatDevice}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_SlatPosCmd_SlatDevice}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_SlatPosCmd_SlatDevice}->{LASTGETTIME}
|
||||
= int( gettimeofday() );
|
||||
= int( ::gettimeofday() );
|
||||
my ( $slatPosCmd, $slatDevice ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $self->{shuttersDev},
|
||||
'ASC_SlatPosCmd_SlatDevice', 'none:none' );
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues(
|
||||
$self->{shuttersDev}, 'ASC_SlatPosCmd_SlatDevice', 'none:none' );
|
||||
|
||||
## Erwartetes Ergebnis
|
||||
# upTime:upBrightnessVal
|
||||
@ -268,7 +255,7 @@ sub getSlatDevice {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_SlatPosCmd_SlatDevice}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_SlatPosCmd_SlatDevice}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -299,15 +286,15 @@ sub getPrivacyUpTime {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_PrivacyUpValue_beforeDayOpen}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_PrivacyUpValue_beforeDayOpen}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_PrivacyUpValue_beforeDayOpen}
|
||||
->{LASTGETTIME} = int( gettimeofday() );
|
||||
->{LASTGETTIME} = int( ::gettimeofday() );
|
||||
my ( $upTime, $upBrightnessVal ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $self->{shuttersDev},
|
||||
'ASC_PrivacyUpValue_beforeDayOpen', '-1:-1' );
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues(
|
||||
$self->{shuttersDev}, 'ASC_PrivacyUpValue_beforeDayOpen', '-1:-1' );
|
||||
|
||||
## Erwartetes Ergebnis
|
||||
# upTime:upBrightnessVal
|
||||
@ -341,7 +328,7 @@ sub getPrivacyUpBrightnessVal {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_PrivacyUpValue_beforeDayOpen}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_PrivacyUpValue_beforeDayOpen}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -378,14 +365,15 @@ sub getPrivacyDownTime {
|
||||
$self->{ $self->{shuttersDev} }
|
||||
->{ASC_PrivacyDownValue_beforeNightClose}->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }
|
||||
->{ASC_PrivacyDownValue_beforeNightClose}->{LASTGETTIME} ) < 2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_PrivacyDownValue_beforeNightClose}
|
||||
->{LASTGETTIME} = int( gettimeofday() );
|
||||
->{LASTGETTIME} = int( ::gettimeofday() );
|
||||
my ( $downTime, $downBrightnessVal ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $self->{shuttersDev},
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues(
|
||||
$self->{shuttersDev},
|
||||
'ASC_PrivacyDownValue_beforeNightClose', '-1:-1' );
|
||||
|
||||
## Erwartetes Ergebnis
|
||||
@ -420,7 +408,7 @@ sub getPrivacyDownBrightnessVal {
|
||||
$self->{ $self->{shuttersDev} }
|
||||
->{ASC_PrivacyDownValue_beforeNightClose}->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }
|
||||
->{ASC_PrivacyDownValue_beforeNightClose}->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -497,7 +485,7 @@ sub setSelfDefenseMode {
|
||||
sub getSelfDefenseMode {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Self_Defense_Mode', 'gone' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Self_Defense_Mode', 'gone' );
|
||||
}
|
||||
|
||||
sub setSelfDefenseAbsentDelay {
|
||||
@ -513,13 +501,14 @@ sub setSelfDefenseAbsentDelay {
|
||||
sub getSelfDefenseAbsentDelay {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Self_Defense_AbsentDelay', 300 );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Self_Defense_AbsentDelay',
|
||||
300 );
|
||||
}
|
||||
|
||||
sub getCommandTemplate {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_CommandTemplate', 'none' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_CommandTemplate', 'none' );
|
||||
}
|
||||
|
||||
sub setWiggleValue {
|
||||
@ -534,7 +523,7 @@ sub setWiggleValue {
|
||||
sub getWiggleValue {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_WiggleValue', 5 );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_WiggleValue', 5 );
|
||||
}
|
||||
|
||||
sub setAdv {
|
||||
@ -550,7 +539,7 @@ sub getAdv {
|
||||
my $self = shift;
|
||||
|
||||
return (
|
||||
AttrVal( $self->{shuttersDev}, 'ASC_Adv', 'off' ) eq 'on'
|
||||
::AttrVal( $self->{shuttersDev}, 'ASC_Adv', 'off' ) eq 'on'
|
||||
? ( IsAdv == 1 ? 1 : 0 )
|
||||
: 0
|
||||
);
|
||||
@ -593,7 +582,7 @@ sub setShadingMode {
|
||||
sub getShadingMode {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Shading_Mode', 'off' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Shading_Mode', 'off' );
|
||||
}
|
||||
|
||||
sub _getTempSensor {
|
||||
@ -604,15 +593,15 @@ sub _getTempSensor {
|
||||
exists(
|
||||
$self->{ $self->{shuttersDev} }->{ASC_TempSensor}->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_TempSensor}->{LASTGETTIME} )
|
||||
< 2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_TempSensor}->{LASTGETTIME} =
|
||||
int( gettimeofday() );
|
||||
int( ::gettimeofday() );
|
||||
my ( $device, $reading ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $self->{shuttersDev},
|
||||
'ASC_TempSensor', 'none' );
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues(
|
||||
$self->{shuttersDev}, 'ASC_TempSensor', 'none' );
|
||||
|
||||
### erwartetes Ergebnis
|
||||
# DEVICE:READING
|
||||
@ -631,7 +620,7 @@ sub getTempSensorReading {
|
||||
exists(
|
||||
$self->{ $self->{shuttersDev} }->{ASC_TempSensor}->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_TempSensor}->{LASTGETTIME} )
|
||||
< 2
|
||||
);
|
||||
@ -664,15 +653,15 @@ sub _getIdleDetectionReading {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shutter_IdleDetection}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shutter_IdleDetection}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shutter_IdleDetection}->{LASTGETTIME}
|
||||
= int( gettimeofday() );
|
||||
= int( ::gettimeofday() );
|
||||
my ( $reading, $value ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $self->{shuttersDev},
|
||||
'ASC_Shutter_IdleDetection', 'none' );
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues(
|
||||
$self->{shuttersDev}, 'ASC_Shutter_IdleDetection', 'none' );
|
||||
|
||||
### erwartetes Ergebnis
|
||||
# READING:VALUE
|
||||
@ -694,7 +683,7 @@ sub getIdleDetectionValue {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shutter_IdleDetection}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shutter_IdleDetection}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -728,15 +717,15 @@ sub _getBrightnessSensor {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_BrightnessSensor}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_BrightnessSensor}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_BrightnessSensor}->{LASTGETTIME} =
|
||||
int( gettimeofday() );
|
||||
int( ::gettimeofday() );
|
||||
my ( $device, $reading, $max, $min ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $self->{shuttersDev},
|
||||
'ASC_BrightnessSensor', 'none' );
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues(
|
||||
$self->{shuttersDev}, 'ASC_BrightnessSensor', 'none' );
|
||||
|
||||
### erwartetes Ergebnis
|
||||
# DEVICE:READING MAX:MIN
|
||||
@ -760,7 +749,7 @@ sub getBrightnessReading {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_BrightnessSensor}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_BrightnessSensor}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -785,7 +774,7 @@ sub getShadingAzimuthLeft {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shading_InOutAzimuth}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shading_InOutAzimuth}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -814,15 +803,15 @@ sub getShadingAzimuthRight {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shading_InOutAzimuth}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shading_InOutAzimuth}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shading_InOutAzimuth}->{LASTGETTIME}
|
||||
= int( gettimeofday() );
|
||||
= int( ::gettimeofday() );
|
||||
my ( $left, $right ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $self->{shuttersDev},
|
||||
'ASC_Shading_InOutAzimuth', '95:265' );
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues(
|
||||
$self->{shuttersDev}, 'ASC_Shading_InOutAzimuth', '95:265' );
|
||||
|
||||
### erwartetes Ergebnis
|
||||
# MIN:MAX
|
||||
@ -849,8 +838,8 @@ sub setShadingMinOutsideTemperature {
|
||||
sub getShadingMinOutsideTemperature {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Shading_Min_OutsideTemperature',
|
||||
18 );
|
||||
return ::AttrVal( $self->{shuttersDev},
|
||||
'ASC_Shading_Min_OutsideTemperature', 18 );
|
||||
}
|
||||
|
||||
sub setShadingMinMaxElevation {
|
||||
@ -873,15 +862,15 @@ sub getShadingMinElevation {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shading_MinMax_Elevation}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shading_MinMax_Elevation}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shading_MinMax_Elevation}
|
||||
->{LASTGETTIME} = int( gettimeofday() );
|
||||
->{LASTGETTIME} = int( ::gettimeofday() );
|
||||
my ( $min, $max ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $self->{shuttersDev},
|
||||
'ASC_Shading_MinMax_Elevation', '25.0:100.0' );
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues(
|
||||
$self->{shuttersDev}, 'ASC_Shading_MinMax_Elevation', '25.0:100.0' );
|
||||
|
||||
### erwartetes Ergebnis
|
||||
# MIN:MAX
|
||||
@ -905,7 +894,7 @@ sub getShadingMaxElevation {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shading_MinMax_Elevation}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shading_MinMax_Elevation}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -943,15 +932,15 @@ sub getShadingStateChangeSunny {
|
||||
$self->{ $self->{shuttersDev} }
|
||||
->{ASC_Shading_StateChange_SunnyCloudy}->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }
|
||||
->{ASC_Shading_StateChange_SunnyCloudy}->{LASTGETTIME} ) < 2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_Shading_StateChange_SunnyCloudy}
|
||||
->{LASTGETTIME} = int( gettimeofday() );
|
||||
->{LASTGETTIME} = int( ::gettimeofday() );
|
||||
my ( $sunny, $cloudy, $maxBrightnessAverageArrayObjects ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $self->{shuttersDev},
|
||||
'ASC_Shading_StateChange_SunnyCloudy',
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues(
|
||||
$self->{shuttersDev}, 'ASC_Shading_StateChange_SunnyCloudy',
|
||||
'35000:20000' );
|
||||
|
||||
### erwartetes Ergebnis
|
||||
@ -982,7 +971,7 @@ sub getShadingStateChangeCloudy {
|
||||
$self->{ $self->{shuttersDev} }
|
||||
->{ASC_Shading_StateChange_SunnyCloudy}->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }
|
||||
->{ASC_Shading_StateChange_SunnyCloudy}->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -1002,7 +991,7 @@ sub getMaxBrightnessAverageArrayObjects {
|
||||
$self->{ $self->{shuttersDev} }
|
||||
->{ASC_Shading_StateChange_SunnyCloudy}->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }
|
||||
->{ASC_Shading_StateChange_SunnyCloudy}->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -1025,7 +1014,7 @@ sub setShadingWaitingPeriod {
|
||||
sub getShadingWaitingPeriod {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Shading_WaitingPeriod', 1200 );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Shading_WaitingPeriod', 1200 );
|
||||
}
|
||||
### Ende Beschattung
|
||||
sub setExternalTrigger {
|
||||
@ -1046,16 +1035,16 @@ sub getExternalTriggerDevice {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}->{LASTGETTIME} =
|
||||
int( gettimeofday() );
|
||||
int( ::gettimeofday() );
|
||||
my ( $device, $reading, $valueActive, $valueInactive, $posActive,
|
||||
$posInactive, $valueActive2, $posActive2 )
|
||||
= FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $self->{shuttersDev},
|
||||
'ASC_ExternalTrigger', 'none' );
|
||||
= FHEM::Automation::ShuttersControl::Helper::GetAttrValues(
|
||||
$self->{shuttersDev}, 'ASC_ExternalTrigger', 'none' );
|
||||
|
||||
### erwartetes Ergebnis
|
||||
# DEVICE:READING VALUEACTIVE:VALUEINACTIVE POSACTIVE:POSINACTIVE VALUEACTIVE2:POSACTIVE2
|
||||
@ -1070,10 +1059,11 @@ sub getExternalTriggerDevice {
|
||||
$valueInactive;
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}->{posactive} =
|
||||
$posActive;
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}->{posinactive} =
|
||||
( $posInactive ne 'none'
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}->{posinactive} = (
|
||||
$posInactive ne 'none'
|
||||
? $posInactive
|
||||
: $FHEM::Automation::ShuttersControl::shutters->getLastPos );
|
||||
: $FHEM::Automation::ShuttersControl::shutters->getLastPos
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}->{valueactive2} =
|
||||
$valueActive2;
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}->{posactive2} =
|
||||
@ -1092,7 +1082,7 @@ sub getExternalTriggerReading {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -1110,7 +1100,7 @@ sub getExternalTriggerValueActive {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -1130,7 +1120,7 @@ sub getExternalTriggerValueActive2 {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -1150,7 +1140,7 @@ sub getExternalTriggerValueInactive {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -1169,7 +1159,7 @@ sub getExternalTriggerPosActive {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -1187,7 +1177,7 @@ sub getExternalTriggerPosActive2 {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -1205,7 +1195,7 @@ sub getExternalTriggerPosInactive {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -1227,7 +1217,7 @@ sub setDelay {
|
||||
sub getDelay {
|
||||
my $self = shift;
|
||||
|
||||
my $val = AttrVal( $self->{shuttersDev}, 'ASC_Drive_Delay', -1 );
|
||||
my $val = ::AttrVal( $self->{shuttersDev}, 'ASC_Drive_Delay', -1 );
|
||||
return ( $val =~ m{^\d+$}xms ? $val : -1 );
|
||||
}
|
||||
|
||||
@ -1243,7 +1233,7 @@ sub setDelayStart {
|
||||
sub getDelayStart {
|
||||
my $self = shift;
|
||||
|
||||
my $val = AttrVal( $self->{shuttersDev}, 'ASC_Drive_DelayStart', -1 );
|
||||
my $val = ::AttrVal( $self->{shuttersDev}, 'ASC_Drive_DelayStart', -1 );
|
||||
return ( ( $val > 0 && $val =~ m{^\d+$}xms ) ? $val : -1 );
|
||||
}
|
||||
|
||||
@ -1260,7 +1250,7 @@ sub setBlockingTimeAfterManual {
|
||||
sub getBlockingTimeAfterManual {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_BlockingTime_afterManual',
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_BlockingTime_afterManual',
|
||||
1200 );
|
||||
}
|
||||
|
||||
@ -1277,7 +1267,7 @@ sub setBlockingTimeBeforNightClose {
|
||||
sub getBlockingTimeBeforNightClose {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_BlockingTime_beforNightClose',
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_BlockingTime_beforNightClose',
|
||||
3600 );
|
||||
}
|
||||
|
||||
@ -1294,7 +1284,7 @@ sub setBlockingTimeBeforDayOpen {
|
||||
sub getBlockingTimeBeforDayOpen {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_BlockingTime_beforDayOpen',
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_BlockingTime_beforDayOpen',
|
||||
3600 );
|
||||
}
|
||||
|
||||
@ -1310,9 +1300,9 @@ sub setPosCmd {
|
||||
sub getPosCmd {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Pos_Reading',
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Pos_Reading',
|
||||
$FHEM::Automation::ShuttersControl::userAttrList{'ASC_Pos_Reading'}
|
||||
[ AttrVal( $self->{shuttersDev}, 'ASC', 1 ) ] );
|
||||
[ ::AttrVal( $self->{shuttersDev}, 'ASC', 1 ) ] );
|
||||
}
|
||||
|
||||
sub setOpenPos {
|
||||
@ -1377,7 +1367,7 @@ sub setVentilatePosAfterDayClosed {
|
||||
sub getVentilatePosAfterDayClosed {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_WindowRec_PosAfterDayClosed',
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_WindowRec_PosAfterDayClosed',
|
||||
'open' );
|
||||
}
|
||||
|
||||
@ -1442,7 +1432,7 @@ sub setVentilateOpen {
|
||||
sub getVentilateOpen {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Ventilate_Window_Open', 'on' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Ventilate_Window_Open', 'on' );
|
||||
}
|
||||
|
||||
sub setComfortOpenPos {
|
||||
@ -1482,7 +1472,7 @@ sub setPartyMode {
|
||||
sub getPartyMode {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Partymode', 'off' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Partymode', 'off' );
|
||||
}
|
||||
|
||||
sub setRoommates {
|
||||
@ -1497,7 +1487,7 @@ sub setRoommates {
|
||||
sub getRoommates {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Roommate_Device', 'none' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Roommate_Device', 'none' );
|
||||
}
|
||||
|
||||
sub setRoommatesReading {
|
||||
@ -1512,7 +1502,7 @@ sub setRoommatesReading {
|
||||
sub getRoommatesReading {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Roommate_Reading', 'state' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Roommate_Reading', 'state' );
|
||||
}
|
||||
|
||||
sub getWindPos {
|
||||
@ -1525,7 +1515,7 @@ sub getWindPos {
|
||||
exists(
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{LASTGETTIME}
|
||||
) < 2
|
||||
);
|
||||
@ -1544,15 +1534,15 @@ sub getWindMax {
|
||||
exists(
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{LASTGETTIME}
|
||||
) < 2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{LASTGETTIME} =
|
||||
int( gettimeofday() );
|
||||
int( ::gettimeofday() );
|
||||
my ( $max, $hyst, $pos ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $self->{shuttersDev},
|
||||
'ASC_WindParameters', '50:20' );
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues(
|
||||
$self->{shuttersDev}, 'ASC_WindParameters', '50:20' );
|
||||
|
||||
## Erwartetes Ergebnis
|
||||
# max:hyst pos
|
||||
@ -1560,10 +1550,11 @@ sub getWindMax {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{triggermax} = $max;
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{triggerhyst} =
|
||||
( $hyst ne 'none' ? $max - $hyst : $max - 20 );
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{closedPos} =
|
||||
( $pos ne 'none'
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{closedPos} = (
|
||||
$pos ne 'none'
|
||||
? $pos
|
||||
: $FHEM::Automation::ShuttersControl::shutters->getOpenPos );
|
||||
: $FHEM::Automation::ShuttersControl::shutters->getOpenPos
|
||||
);
|
||||
|
||||
return $self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{triggermax};
|
||||
}
|
||||
@ -1587,7 +1578,7 @@ sub getWindMin {
|
||||
exists(
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindParameters}->{LASTGETTIME}
|
||||
) < 2
|
||||
);
|
||||
@ -1608,7 +1599,7 @@ sub setWindProtection {
|
||||
sub getWindProtection {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_WindProtection', 'off' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_WindProtection', 'off' );
|
||||
}
|
||||
|
||||
sub setRainProtection {
|
||||
@ -1623,7 +1614,7 @@ sub setRainProtection {
|
||||
sub getRainProtection {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_RainProtection', 'off' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_RainProtection', 'off' );
|
||||
}
|
||||
|
||||
sub setModeUp {
|
||||
@ -1638,7 +1629,7 @@ sub setModeUp {
|
||||
sub getModeUp {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Mode_Up', 'always' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Mode_Up', 'always' );
|
||||
}
|
||||
|
||||
sub setModeDown {
|
||||
@ -1653,7 +1644,7 @@ sub setModeDown {
|
||||
sub getModeDown {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Mode_Down', 'always' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Mode_Down', 'always' );
|
||||
}
|
||||
|
||||
sub setLockOut {
|
||||
@ -1668,7 +1659,7 @@ sub setLockOut {
|
||||
sub getLockOut {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_LockOut', 'off' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_LockOut', 'off' );
|
||||
}
|
||||
|
||||
sub setLockOutCmd {
|
||||
@ -1683,7 +1674,7 @@ sub setLockOutCmd {
|
||||
sub getLockOutCmd {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_LockOut_Cmd', 'none' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_LockOut_Cmd', 'none' );
|
||||
}
|
||||
|
||||
sub setAntiFreeze {
|
||||
@ -1698,7 +1689,7 @@ sub setAntiFreeze {
|
||||
sub getAntiFreeze {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Antifreeze', 'off' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Antifreeze', 'off' );
|
||||
}
|
||||
|
||||
sub setAutoAstroModeMorning {
|
||||
@ -1713,7 +1704,8 @@ sub setAutoAstroModeMorning {
|
||||
sub getAutoAstroModeMorning {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_AutoAstroModeMorning', 'none' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_AutoAstroModeMorning',
|
||||
'none' );
|
||||
}
|
||||
|
||||
sub setAutoAstroModeEvening {
|
||||
@ -1728,7 +1720,8 @@ sub setAutoAstroModeEvening {
|
||||
sub getAutoAstroModeEvening {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_AutoAstroModeEvening', 'none' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_AutoAstroModeEvening',
|
||||
'none' );
|
||||
}
|
||||
|
||||
sub setAutoAstroModeMorningHorizon {
|
||||
@ -1744,7 +1737,7 @@ sub setAutoAstroModeMorningHorizon {
|
||||
sub getAutoAstroModeMorningHorizon {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_AutoAstroModeMorningHorizon',
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_AutoAstroModeMorningHorizon',
|
||||
0 );
|
||||
}
|
||||
|
||||
@ -1761,7 +1754,7 @@ sub setAutoAstroModeEveningHorizon {
|
||||
sub getAutoAstroModeEveningHorizon {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_AutoAstroModeEveningHorizon',
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_AutoAstroModeEveningHorizon',
|
||||
0 );
|
||||
}
|
||||
|
||||
@ -1777,7 +1770,7 @@ sub setUp {
|
||||
sub getUp {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Up', 'astro' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Up', 'astro' );
|
||||
}
|
||||
|
||||
sub setDown {
|
||||
@ -1792,14 +1785,15 @@ sub setDown {
|
||||
sub getDown {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Down', 'astro' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Down', 'astro' );
|
||||
}
|
||||
|
||||
sub setShadingBetweenTheTime {
|
||||
my $self = shift;
|
||||
my $attrVal = shift;
|
||||
|
||||
_setAttributs( $self->{shuttersDev}, 'ASC_Shading_BetweenTheTime', $attrVal );
|
||||
_setAttributs( $self->{shuttersDev}, 'ASC_Shading_BetweenTheTime',
|
||||
$attrVal );
|
||||
|
||||
return;
|
||||
}
|
||||
@ -1807,7 +1801,8 @@ sub setShadingBetweenTheTime {
|
||||
sub getShadingBetweenTheTime {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_Shading_BetweenTheTime', '00:00-24:00' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_Shading_BetweenTheTime',
|
||||
'00:00-24:00' );
|
||||
}
|
||||
|
||||
sub setTimeUpEarly {
|
||||
@ -1822,7 +1817,7 @@ sub setTimeUpEarly {
|
||||
sub getTimeUpEarly {
|
||||
my $self = shift;
|
||||
|
||||
my $val = AttrVal( $self->{shuttersDev}, 'ASC_Time_Up_Early', '05:00' );
|
||||
my $val = ::AttrVal( $self->{shuttersDev}, 'ASC_Time_Up_Early', '05:00' );
|
||||
|
||||
if ( defined( PerlCodeCheck($val) ) ) {
|
||||
$val = PerlCodeCheck($val);
|
||||
@ -1847,7 +1842,7 @@ sub setTimeUpLate {
|
||||
sub getTimeUpLate {
|
||||
my $self = shift;
|
||||
|
||||
my $val = AttrVal( $self->{shuttersDev}, 'ASC_Time_Up_Late', '08:30' );
|
||||
my $val = ::AttrVal( $self->{shuttersDev}, 'ASC_Time_Up_Late', '08:30' );
|
||||
|
||||
if ( defined( PerlCodeCheck($val) ) ) {
|
||||
$val = PerlCodeCheck($val);
|
||||
@ -1872,7 +1867,7 @@ sub setTimeDownEarly {
|
||||
sub getTimeDownEarly {
|
||||
my $self = shift;
|
||||
|
||||
my $val = AttrVal( $self->{shuttersDev}, 'ASC_Time_Down_Early', '16:00' );
|
||||
my $val = ::AttrVal( $self->{shuttersDev}, 'ASC_Time_Down_Early', '16:00' );
|
||||
|
||||
if ( defined( PerlCodeCheck($val) ) ) {
|
||||
$val = PerlCodeCheck($val);
|
||||
@ -1897,7 +1892,7 @@ sub setTimeDownLate {
|
||||
sub getTimeDownLate {
|
||||
my $self = shift;
|
||||
|
||||
my $val = AttrVal( $self->{shuttersDev}, 'ASC_Time_Down_Late', '22:00' );
|
||||
my $val = ::AttrVal( $self->{shuttersDev}, 'ASC_Time_Down_Late', '22:00' );
|
||||
|
||||
if ( defined( PerlCodeCheck($val) ) ) {
|
||||
$val = PerlCodeCheck($val);
|
||||
@ -1923,7 +1918,7 @@ sub getTimeUpWeHoliday {
|
||||
my $self = shift;
|
||||
|
||||
my $val =
|
||||
AttrVal( $self->{shuttersDev}, 'ASC_Time_Up_WE_Holiday', '01:25' );
|
||||
::AttrVal( $self->{shuttersDev}, 'ASC_Time_Up_WE_Holiday', '01:25' );
|
||||
|
||||
if ( defined( PerlCodeCheck($val) ) ) {
|
||||
$val = PerlCodeCheck($val);
|
||||
@ -1945,7 +1940,7 @@ sub getBrightnessMinVal {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_BrightnessSensor}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_BrightnessSensor}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -1964,7 +1959,7 @@ sub getBrightnessMaxVal {
|
||||
$self->{ $self->{shuttersDev} }->{ASC_BrightnessSensor}
|
||||
->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_BrightnessSensor}
|
||||
->{LASTGETTIME} ) < 2
|
||||
);
|
||||
@ -1986,7 +1981,7 @@ sub setDriveUpMaxDuration {
|
||||
sub getDriveUpMaxDuration {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_DriveUpMaxDuration', 60 );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_DriveUpMaxDuration', 60 );
|
||||
}
|
||||
|
||||
1;
|
||||
|
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemdevelopment@cooltux.net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -44,21 +44,10 @@ use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
|
||||
use GPUtils qw(GP_Import);
|
||||
|
||||
## Import der FHEM Funktionen
|
||||
BEGIN {
|
||||
GP_Import(
|
||||
qw(
|
||||
ReadingsVal
|
||||
ReadingsNum)
|
||||
);
|
||||
}
|
||||
|
||||
sub getBrightness {
|
||||
my $self = shift;
|
||||
|
||||
return ReadingsNum(
|
||||
return ::ReadingsNum(
|
||||
$FHEM::Automation::ShuttersControl::shutters->_getBrightnessSensor,
|
||||
$FHEM::Automation::ShuttersControl::shutters->getBrightnessReading,
|
||||
-1 );
|
||||
@ -67,7 +56,7 @@ sub getBrightness {
|
||||
sub getWindStatus {
|
||||
my $self = shift;
|
||||
|
||||
return ReadingsVal(
|
||||
return ::ReadingsVal(
|
||||
$FHEM::Automation::ShuttersControl::ascDev->_getWindSensor,
|
||||
$FHEM::Automation::ShuttersControl::ascDev->getWindSensorReading, -1 );
|
||||
}
|
||||
@ -75,7 +64,7 @@ sub getWindStatus {
|
||||
sub getStatus {
|
||||
my $self = shift;
|
||||
|
||||
return ReadingsNum( $self->{shuttersDev},
|
||||
return ::ReadingsNum( $self->{shuttersDev},
|
||||
$FHEM::Automation::ShuttersControl::shutters->getPosCmd, 0 );
|
||||
}
|
||||
|
||||
@ -88,7 +77,7 @@ sub getDelayCmd {
|
||||
sub getASCenable {
|
||||
my $self = shift;
|
||||
|
||||
return ReadingsVal( $self->{shuttersDev}, 'ASC_Enable', 'on' );
|
||||
return ::ReadingsVal( $self->{shuttersDev}, 'ASC_Enable', 'on' );
|
||||
}
|
||||
|
||||
1;
|
||||
|
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemdevelopment@cooltux.net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -47,7 +47,7 @@ use utf8;
|
||||
use FHEM::Automation::ShuttersControl::Window::Attr;
|
||||
use FHEM::Automation::ShuttersControl::Window::Readings;
|
||||
|
||||
our @ISA =
|
||||
use base
|
||||
qw(FHEM::Automation::ShuttersControl::Window::Attr FHEM::Automation::ShuttersControl::Window::Readings);
|
||||
|
||||
1;
|
||||
|
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemdevelopment@cooltux.net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -44,17 +44,6 @@ use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
|
||||
use GPUtils qw(GP_Import);
|
||||
|
||||
## Import der FHEM Funktionen
|
||||
BEGIN {
|
||||
GP_Import(
|
||||
qw(
|
||||
AttrVal
|
||||
gettimeofday)
|
||||
);
|
||||
}
|
||||
|
||||
sub setSubTyp {
|
||||
my $self = shift;
|
||||
my $attrVal = shift;
|
||||
@ -67,7 +56,8 @@ sub setSubTyp {
|
||||
sub getSubTyp {
|
||||
my $self = shift;
|
||||
|
||||
return AttrVal( $self->{shuttersDev}, 'ASC_WindowRec_subType', 'twostate' );
|
||||
return ::AttrVal( $self->{shuttersDev}, 'ASC_WindowRec_subType',
|
||||
'twostate' );
|
||||
}
|
||||
|
||||
sub setWinDev {
|
||||
@ -87,15 +77,15 @@ sub _getWinDev {
|
||||
exists(
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{LASTGETTIME} ) <
|
||||
2
|
||||
);
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{LASTGETTIME} =
|
||||
int( gettimeofday() );
|
||||
int( ::gettimeofday() );
|
||||
my ( $device, $reading ) =
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues( $self->{shuttersDev},
|
||||
'ASC_WindowRec', 'none' );
|
||||
FHEM::Automation::ShuttersControl::Helper::GetAttrValues(
|
||||
$self->{shuttersDev}, 'ASC_WindowRec', 'none' );
|
||||
|
||||
### erwartetes Ergebnis
|
||||
# DEVICE:READING VALUEACTIVE:VALUEINACTIVE POSACTIVE:POSINACTIVE
|
||||
@ -116,7 +106,7 @@ sub getWinDevReading {
|
||||
exists(
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{LASTGETTIME}
|
||||
)
|
||||
&& ( gettimeofday() -
|
||||
&& ( ::gettimeofday() -
|
||||
$self->{ $self->{shuttersDev} }->{ASC_WindowRec}->{LASTGETTIME} ) <
|
||||
2
|
||||
);
|
||||
|
@ -1,8 +1,8 @@
|
||||
###############################################################################
|
||||
#
|
||||
# Developed with Kate
|
||||
# Developed with VSCodium and richterger perl plugin
|
||||
#
|
||||
# (c) 2018-2021 Copyright: Marko Oldenburg (fhemdevelopment@cooltux.net)
|
||||
# (c) 2018-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
|
||||
# All rights reserved
|
||||
#
|
||||
# Special thanks goes to:
|
||||
@ -44,20 +44,10 @@ use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
|
||||
use GPUtils qw(GP_Import);
|
||||
|
||||
## Import der FHEM Funktionen
|
||||
BEGIN {
|
||||
GP_Import(
|
||||
qw(
|
||||
ReadingsVal)
|
||||
);
|
||||
}
|
||||
|
||||
sub getWinStatus {
|
||||
my $self = shift;
|
||||
|
||||
return ReadingsVal(
|
||||
return ::ReadingsVal(
|
||||
$FHEM::Automation::ShuttersControl::shutters->_getWinDev,
|
||||
$FHEM::Automation::ShuttersControl::shutters->getWinDevReading,
|
||||
'closed' );
|
||||
|
Reference in New Issue
Block a user