From ca641f6d49944e1d58045bc475f4fad7167e92d9 Mon Sep 17 00:00:00 2001 From: betateilchen Date: Fri, 9 Aug 2013 12:08:03 +0000 Subject: [PATCH] added: some more logging on startup git-svn-id: https://svn.fhem.de/fhem/trunk@3636 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/55_GDS.pm | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/55_GDS.pm b/fhem/FHEM/55_GDS.pm index c94ba8900..c79d904a4 100644 --- a/fhem/FHEM/55_GDS.pm +++ b/fhem/FHEM/55_GDS.pm @@ -215,6 +215,7 @@ sub GDS_Initialize($) { sub GDS_Define($$$) { my ($hash, $def) = @_; my @a = split("[ \t][ \t]*", $def); + my $found; return "syntax: define GDS " if(int(@a) != 4 ); my $name = $hash->{NAME}; @@ -223,10 +224,18 @@ sub GDS_Define($$$) { $hash->{helper}{URL} = "ftp-outgoing2.dwd.de"; $hash->{helper}{INTERVAL} = 3600; - retrieveFile($hash,"conditions"); - $sList = getListStationsDropdown(); + (undef, $found) = retrieveFile($hash,"conditions"); + if($found){ + $sList = getListStationsDropdown() + } else { + Log 2, "GDS $name: No datafile (conditions) found"; + } retrieveFile($hash,"alerts"); - ($aList, undef) = buildCAPList(); + if($found){ + ($aList, undef) = buildCAPList(); + } else { + Log 2, "GDS $name: No datafile (alerts) found"; + } Log 3, "GDS $name created"; $hash->{STATE} = "active";