diff --git a/fhem/FHEM/72_FRITZBOX.pm b/fhem/FHEM/72_FRITZBOX.pm index 443a657e4..8a96ae06b 100644 --- a/fhem/FHEM/72_FRITZBOX.pm +++ b/fhem/FHEM/72_FRITZBOX.pm @@ -1587,7 +1587,7 @@ sub FRITZBOX_Ring_Run($) # Reset internal ring tones for the Fritz!Fons if ($ringTone) { - foreach (keys @FritzFons) + for (0 .. $#FritzFons) { push @cmdArray, "ctlmgr_ctl w telcfg settings/Foncontrol/User".$FritzFons[$_]."/IntRingTone ".$result->[2*$_]; # Reset internet station for the Fritz!Fons @@ -2320,7 +2320,7 @@ sub FRITZBOX_Exec_Local($$) } $result =~ s/\n|\r//g; my @resultArray = split /\|#\|/, $result; - foreach (keys @resultArray) + for (0 .. $#resultArray) { $resultArray[$_] =~ s/\s$//; } @@ -2975,7 +2975,7 @@ sub FRITZBOX_fritztris($)
get <name> shellCommand <Befehl>
defaultUploadDir <fritzBoxPath>