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

88_Timer: fix sort function + added check

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@20222 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
HomeAuto_User 2019-09-21 18:34:05 +00:00
parent a45a391442
commit 614e710884
2 changed files with 34 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it.
- bugfix: 88_Timer: fix sort function
- feature: 70_SolarEdgeAPI: start using "overview" API, new attributes
- new: 88_Timer: new modul
- bugfix: 95_Dashboard: fix eliminating links to detail view

49
fhem/FHEM/88_Timer.pm
View File

@ -149,34 +149,51 @@ sub Timer_Set($$$@) {
my @timers_unsortet;
my $userattr_new = "";
my @userattr_values;
my @attr_values_names;
my $timer_nr_new;
RemoveInternalTimer($hash, "Timer_Check");
foreach my $readingsName (keys %{$hash->{READINGS}}) {
foreach my $readingsName (sort keys %{$hash->{READINGS}}) {
if ($readingsName =~ /^Timer_(\d+)$/) {
my $value = ReadingsVal($name, $readingsName, 0);
$value =~ /^.*\d{2},(.*),(on|off|Def)/;
push(@timers_unsortet,$1.",".ReadingsVal($name, $readingsName, 0).",$readingsName"); # unsort Reading Wert in Array
readingsDelete($hash, $readingsName); # Timer loeschen
}
}
my @timers_sort = sort @timers_unsortet; # Timer in neues Array sortieren
my $array_diff = 0;
for (my $i=0; $i<scalar(@timers_unsortet); $i++) {
$array_diff++ if ($timers_unsortet[$i] ne $timers_sort[$i]);
}
return "cancellation! No sorting necessary." if ($array_diff == 0); # check, need action continues
for (my $i=0; $i<scalar(@timers_sort); $i++) {
readingsDelete($hash, substr($timers_sort[$i],-8)); # Readings Timer loeschen
}
for (my $i=0; $i<scalar(@timers_sort); $i++) {
$timer_nr_new = sprintf("%02s",$i + 1); # neue Timer-Nummer
if ($timers_sort[$i] =~ /^.*\d{2},(.*),(Def),.*,(Timer_\d+)/) { # filtre Def values - Perl Code (Def must in S2 - Timer nr old $3)
if ($attr{$name}{$3."_set"}) {
Log3 $name, 3, "in if ".$timers_sort[$i];
Log3 $name, 4, "$name: Set | $cmd: ".$timers_sort[$i];
if (defined AttrVal($name, $3."_set", undef)) {
Log3 $name, 4, "$name: Set | $cmd: ".$3." remember values";
push(@userattr_values,"Timer_$timer_nr_new".",".AttrVal($name, $3."_set",0)); # userattr value in Array with new numbre
}
Timer_delFromUserattr($hash,$3."_set:textField-long"); # delete from userattr (old numbre)
addToDevAttrList($name,"Timer_$timer_nr_new"."_set:textField-long "); # added to userattr (new numbre)
Log3 $name, 4, "$name: Set | $cmd: added to array attr_values_names -> "."Timer_$timer_nr_new"."_set:textField-long";
push(@attr_values_names, "Timer_$timer_nr_new"."_set:textField-long");
}
$timers_sort[$i] = substr( substr($timers_sort[$i],index($timers_sort[$i],",")+1) ,0,-9);
readingsSingleUpdate($hash, "Timer_".$timer_nr_new , $timers_sort[$i], 1);
}
for (my $i=0; $i<scalar(@attr_values_names); $i++) {
Log3 $name, 4, "$name: Set | $cmd: from array to attrib userattr -> $attr_values_names[$i]";
addToDevAttrList($name,$attr_values_names[$i]); # added to userattr (new numbre)
}
addStructChange("modify", $name, "attr $name userattr"); # note with question mark
if (scalar(@userattr_values) > 0) { # write userattr_values
@ -184,7 +201,7 @@ sub Timer_Set($$$@) {
my $timer_nr = substr($userattr_values[$i],0,8)."_set";
my $value_attr = substr($userattr_values[$i],index($userattr_values[$i],",")+1);
CommandAttr($hash,"$name $timer_nr $value_attr");
}
}
}
Timer_Check($hash);
}
@ -420,7 +437,7 @@ sub Timer_Notify($$) {
my $events = deviceEvents($dev_hash, 1);
if($devName eq "global" && grep(m/^INITIALIZED|REREADCFG$/, @{$events}) && $typ eq "Timer") {
Log3 $name, 4, "$name: Notify is running and starting $name";
Log3 $name, 5, "$name: Notify is running and starting $name";
Timer_Check($hash);
}
@ -490,7 +507,7 @@ sub Timer_FW_Detail($$$$) {
</style>';
}
Log3 $name, 4, "$name: attr2html is running";
Log3 $name, 5, "$name: attr2html is running";
foreach my $d (sort keys %{$hash->{READINGS}}) {
if ($d =~ /^Timer_\d+$/) {
@ -550,8 +567,8 @@ sub Timer_FW_Detail($$$$) {
# Log3 $name, 3, "$name: Zeile $zeile, id $id, select";
$html.= "<td align=\"center\" style=\"$style_code1 $style_background\"><select id=\"".$id."\">"; # id need for java script
$html.= "<option>$description_all</option>" if ($spalte <= 6); # Jahr, Monat, Tag, Stunde, Minute
if ($spalte == 5 || $spalte == 6) { # Stunde, Minute
$html.= "<option>$description_all</option>" if ($spalte <= 6); # Jahr, Monat, Tag, Stunde, Minute
if ($spalte == 5 || $spalte == 6) { # Stunde, Minute
$selected = $select_Value[$spalte-2] eq $designations[4] ? "selected=\"selected\"" : "";
$html.= "<option $selected value=\"".$designations[4]."\">".$designations[4]."</option>"; # Sonnenaufgang -> pos 4 array
$selected = $select_Value[$spalte-2] eq $designations[5] ? "selected=\"selected\"" : "";
@ -649,7 +666,7 @@ sub FW_pushed_savebutton {
my @timestamp_values = split(/-|\s|:/ , $timestamp); # Time now splitted
my ($sec, $min, $hour, $mday, $month, $year) = ($timestamp_values[5], $timestamp_values[4], $timestamp_values[3], $timestamp_values[2], $timestamp_values[1], $timestamp_values[0]);
Log3 $name, 4, "$name: FW_pushed_savebutton is running";
Log3 $name, 5, "$name: FW_pushed_savebutton is running";
foreach my $d (sort keys %{$hash->{READINGS}}) {
if ($d =~ /^Timer_(\d+)$/) {
@ -724,7 +741,7 @@ sub FW_pushed_savebutton {
if ($oldValue eq "Def" && ($newValue eq "on" || $newValue eq "off")) {
$state = "Timer_".sprintf("%02s", $selected_buttons[0])." is save and deleted from userattr";
Timer_delFromUserattr($hash,$userattrName) if ($attr{$name}{userattr});
Timer_delFromUserattr($hash,$userattrName) if (AttrVal($name, "userattr", undef));
addStructChange("modify", $name, "attr $name userattr"); # note with question mark
$reload++;
}
@ -746,7 +763,7 @@ sub Timer_delFromUserattr($$) {
my $deleteTimer = shift;
my $name = $hash->{NAME};
if ($attr{$name}{userattr} =~ /$deleteTimer/) {
if (AttrVal($name, "userattr", undef) =~ /$deleteTimer/) {
delFromDevAttrList($name, $deleteTimer);
Log3 $name, 3, "$name: delete $deleteTimer from userattr Attributes";
}
@ -766,8 +783,8 @@ sub Timer_Check($) {
my @sunsetValues = split(":" , sunset_abs("REAL")); # Sonnenuntergang (19:34:24) splitted in array
my $state;;
Log3 $name, 4, "$name: Check is running, Sonnenaufgang $sunriseValues[0]:$sunriseValues[1]:$sunriseValues[2], Sonnenuntergang $sunsetValues[0]:$sunsetValues[1]:$sunsetValues[2]";
Log3 $name, 4, "$name: Check is running, drift $microseconds microSeconds";
Log3 $name, 5, "$name: Check is running, Sonnenaufgang $sunriseValues[0]:$sunriseValues[1]:$sunriseValues[2], Sonnenuntergang $sunsetValues[0]:$sunsetValues[1]:$sunsetValues[2]";
Log3 $name, 5, "$name: Check is running, drift $microseconds microSeconds";
foreach my $d (keys %{$hash->{READINGS}}) {
if ($d =~ /^Timer_\d+$/) {
@ -789,7 +806,7 @@ sub Timer_Check($) {
$set = 0 if ($values[5] eq "00" && $timestamp_values[5] ne "00"); # Sekunde (Intervall 60)
$set = 0 if ($values[5] ne "00" && $timestamp_values[5] ne $values[5]); # Sekunde (Intervall 10)
$intervall = 10 if ($values[5] ne "00");
Log3 $name, 4, "$name: $d - set=$set intervall=$intervall dayOfWeek=$dayOfWeek column array=".(($dayOfWeek*1) + 7)." (".$values[($dayOfWeek*1) + 7].") $values[0]-$values[1]-$values[2] $values[3]:$values[4]:$values[5]";
Log3 $name, 5, "$name: $d - set=$set intervall=$intervall dayOfWeek=$dayOfWeek column array=".(($dayOfWeek*1) + 7)." (".$values[($dayOfWeek*1) + 7].") $values[0]-$values[1]-$values[2] $values[3]:$values[4]:$values[5]";
if ($set == 1) {
Log3 $name, 4, "$name: $d - set $values[6] $values[7] ($dayOfWeek, $values[0]-$values[1]-$values[2] $values[3]:$values[4]:$values[5])";
CommandSet($hash, $values[6]." ".$values[7]) if ($values[7] ne "Def");