55_GDS.pm: fixed error in getListForecastStations #44523
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10003 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
@@ -42,6 +42,8 @@ use Archive::Extract;
|
|||||||
use Net::FTP;
|
use Net::FTP;
|
||||||
use XML::Simple;
|
use XML::Simple;
|
||||||
|
|
||||||
|
use Data::Dumper;
|
||||||
|
|
||||||
eval "use GDSweblink";
|
eval "use GDSweblink";
|
||||||
|
|
||||||
no if $] >= 5.017011, warnings => 'experimental';
|
no if $] >= 5.017011, warnings => 'experimental';
|
||||||
@@ -1882,6 +1884,7 @@ sub getListForecastStations($) {
|
|||||||
|
|
||||||
eval {
|
eval {
|
||||||
foreach my $region (@regions) {
|
foreach my $region (@regions) {
|
||||||
|
$data = "";
|
||||||
my $areaAndTime = 'Daten_'.$region.'_morgen_spaet';
|
my $areaAndTime = 'Daten_'.$region.'_morgen_spaet';
|
||||||
while(($k, $v) = each %allForecastData){
|
while(($k, $v) = each %allForecastData){
|
||||||
if ($k eq $areaAndTime) {
|
if ($k eq $areaAndTime) {
|
||||||
|
|||||||
Reference in New Issue
Block a user