From 24019850d96b2c6b67ae4bc9f52caf120f269aaf Mon Sep 17 00:00:00 2001 From: betateilchen Date: Sun, 11 Aug 2013 01:00:15 +0000 Subject: [PATCH] added: createIndexFile() git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@3664 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/55_GDS.pm | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/fhem/FHEM/55_GDS.pm b/fhem/FHEM/55_GDS.pm index 616d62bb5..fff4fedd4 100644 --- a/fhem/FHEM/55_GDS.pm +++ b/fhem/FHEM/55_GDS.pm @@ -250,6 +250,7 @@ sub GDS_Initialize($) { $readingFnAttributes; CommandDefine(undef, "gds_web HTTPSRV gds /tmp/ GDS Files"); + createIndexFile(); } sub GDS_Define($$$) { @@ -949,6 +950,18 @@ sub sepLine($) { return $output; } +sub createIndexFile(){ + my $text = "". + "Aktuelle Wetterkarte: Wetterlage
". + "Aktuelle Wetterkarte: Vorhersage
". + "Aktuelle Wetterkarte: Warnungen
". + "Aktuelle Radarkarte
". + ""; + open (DATEI, ">/tmp/index.html") or die $!; + print DATEI $text; + close (DATEI); + return; +} 1;