mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

76_SolarForecast.pm: contrib 1.52.5

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@29991 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
DS_Starter
2025-05-23 07:13:03 +00:00
parent a9c4cc85d3
commit e67ae5468c
1 changed files with 30 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
fhem/contrib/DS_Starter/76_SolarForecast.pm
View File

@@ -6126,12 +6126,12 @@ sub _attrconsumer { ## no critic "not used"
};
if ($cmd eq "set") {
return 'The parameters entered must not contain square brackets [...]' if($aVal =~ /[\[\]]+/xs); # Absturzschutz!
my ($err, $codev, $h) = isDeviceValid ( { name => $name, obj => $aVal, method => 'string' } );
return $err if($err);
for my $key (keys %{$h}) {
return 'The keys entered must not contain square brackets [...]' if($key =~ /[\[\]]+/xs); # Absturzschutz!
if (!grep /^$key$/, keys %{$valid}) {
return qq{The key '$key' is not a valid key in attribute '$aName'};
}
@@ -6372,11 +6372,11 @@ sub _attrconsumerControl { ## no critic "not used"
my ($a, $h) = parseParams ($aVal);
if ($cmd eq 'set') {
return 'The parameters entered must not contain square brackets [...]' if($aVal =~ /[\[\]]+/xs); # Absturzschutz!
## 1. Durchlauf - Prüfungen
#############################
for my $key (keys %{$h}) {
return 'The keys entered must not contain square brackets [...]' if($key =~ /[\[\]]+/xs); # Absturzschutz!
if (!grep /^$key$/, keys %{$valid}) {
return qq{The key '$key' is not a valid key in attribute '$aName'};
}
@@ -6519,11 +6519,11 @@ sub _attrgraphicControl { ## no critic "not used"
my ($a, $h) = parseParams ($aVal);
if ($cmd eq 'set') {
return 'The parameters entered must not contain square brackets [...]' if($aVal =~ /[\[\]]+/xs); # Absturzschutz!
## 1. Durchlauf - Prüfungen
#############################
for my $key (keys %{$h}) {
return 'The keys entered must not contain square brackets [...]' if($key =~ /[\[\]]+/xs); # Absturzschutz!
if (!grep /^$key$/, keys %{$valid}) {
return qq{The key '$key' is not a valid key in attribute '$aName'};
}
@@ -6674,11 +6674,11 @@ sub _attraiControl { ## no critic "not used"
my ($a, $h) = parseParams ($aVal);
if ($cmd eq 'set') {
return 'The parameters entered must not contain square brackets [...]' if($aVal =~ /[\[\]]+/xs); # Absturzschutz!
## 1. Durchlauf - Prüfungen
#############################
for my $key (keys %{$h}) {
return 'The keys entered must not contain square brackets [...]' if($key =~ /[\[\]]+/xs); # Absturzschutz!
if (!grep /^$key$/, keys %{$valid}) {
return qq{The key '$key' is not a valid key in attribute '$aName'};
}
@@ -6750,11 +6750,11 @@ sub _attrplantControl { ## no critic "not used"
my ($a, $h) = parseParams ($aVal);
if ($cmd eq 'set') {
return 'The parameters entered must not contain square brackets [...]' if($aVal =~ /[\[\]]+/xs); # Absturzschutz!
## 1. Durchlauf - Prüfungen
#############################
for my $key (keys %{$h}) {
return 'The keys entered must not contain square brackets [...]' if($key =~ /[\[\]]+/xs); # Absturzschutz!
if (!grep /^$key$/, keys %{$valid}) {
return qq{The key '$key' is not a valid key in attribute '$aName'};
}
@@ -6825,12 +6825,12 @@ sub _attrMeterDev { ## no critic "not used"
};
if ($paref->{cmd} eq 'set') {
return 'The parameters entered must not contain square brackets [...]' if($aVal =~ /[\[\]]+/xs); # Absturzschutz!
my ($err, $medev, $h) = isDeviceValid ( { name => $name, obj => $aVal, method => 'string' } );
return $err if($err);
for my $key (keys %{$h}) {
return 'The keys entered must not contain square brackets [...]' if($key =~ /[\[\]]+/xs); # Absturzschutz!
if (!grep /^$key$/, keys %{$valid}) {
return qq{The key '$key' is not a valid key in attribute '$aName'};
}
@@ -6902,12 +6902,12 @@ sub _attrProducerDev { ## no critic "not used"
};
if ($paref->{cmd} eq 'set') {
return 'The parameters entered must not contain square brackets [...]' if($aVal =~ /[\[\]]+/xs); # Absturzschutz!
my ($err, $dev, $h) = isDeviceValid ( { name => $name, obj => $aVal, method => 'string' } );
return $err if($err);
for my $key (keys %{$h}) {
return 'The keys entered must not contain square brackets [...]' if($key =~ /[\[\]]+/xs); # Absturzschutz!
if (!grep /^$key$/, keys %{$valid}) {
return qq{The key '$key' is not a valid key in attribute '$aName'};
}
@@ -6968,8 +6968,6 @@ sub _attrInverterDev { ## no critic "not used"
};
if ($paref->{cmd} eq 'set') {
return 'The parameters entered must not contain square brackets [...]' if($aVal =~ /[\[\]]+/xs); # Absturzschutz!
my ($err, $indev, $h) = isDeviceValid ( { name => $name, obj => $aVal, method => 'string' } );
return $err if($err);
@@ -6978,6 +6976,8 @@ sub _attrInverterDev { ## no critic "not used"
}
for my $key (keys %{$h}) {
return 'The keys entered must not contain square brackets [...]' if($key =~ /[\[\]]+/xs); # Absturzschutz!
if (!grep /^$key$/, keys %{$valid}) {
return qq{The key '$key' is not a valid key in attribute '$aName'};
}
@@ -7342,12 +7342,12 @@ sub _attrBatteryDev { ## no critic "not used"
};
if ($paref->{cmd} eq 'set') {
return 'The parameters entered must not contain square brackets [...]' if($aVal =~ /[\[\]]+/xs); # Absturzschutz!
my ($err, $badev, $h) = isDeviceValid ( { name => $name, obj => $aVal, method => 'string' } );
return $err if($err);
for my $key (keys %{$h}) {
return 'The keys entered must not contain square brackets [...]' if($key =~ /[\[\]]+/xs); # Absturzschutz!
if (!grep /^$key$/, keys %{$valid}) {
return qq{The key '$key' is not a valid key in attribute '$aName'};
}
@@ -7446,8 +7446,6 @@ sub _attrBatSocManagement { ## no critic "not used"
my ($a, $h) = parseParams ($aVal);
if ($cmd eq 'set') {
return 'The parameters entered must not contain square brackets [...]' if($aVal =~ /[\[\]]+/xs); # Absturzschutz!
## 1. Durchlauf - Prüfungen
#############################
for my $mkey (keys %{$valid}) {
@@ -7455,6 +7453,8 @@ sub _attrBatSocManagement { ## no critic "not used"
}
for my $key (keys %{$h}) {
return 'The keys entered must not contain square brackets [...]' if($key =~ /[\[\]]+/xs); # Absturzschutz!
if (!grep /^$key$/, keys %{$valid}) {
return qq{The key '$key' is not a valid key in attribute '$aName'};
}