From 17d7089b88fcc1ebb6c96e6f8dde46c4ee2f7c5d Mon Sep 17 00:00:00 2001
From: borisneubert <borisneubert@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 9 Feb 2014 16:03:32 +0000
Subject: [PATCH] tweak for HttpUtils logging and minor fix

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@4858 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/57_Calendar.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/57_Calendar.pm b/fhem/FHEM/57_Calendar.pm
index 610a85958..a43b3d843 100644
--- a/fhem/FHEM/57_Calendar.pm
+++ b/fhem/FHEM/57_Calendar.pm
@@ -829,7 +829,7 @@ sub Calendar_GetUpdate($) {
   my $ics;
   
   if($type eq "url"){ 
-    $ics= GetFileFromURLQuiet($url) if($type eq "url");
+    $ics= GetFileFromURLQuiet($url,10,undef,0,1) if($type eq "url");
   } elsif($type eq "file") {
     if(open(ICSFILE, $url)) {
       while(<ICSFILE>) { 
@@ -962,7 +962,7 @@ sub Calendar_Get($@) {
     if(defined($a[3])) {
       my $keep= $a[3];
       return "Argument $keep is not a number." unless($keep =~ /\d+/);
-      splice @texts, $keep if($#texts>= 0);  
+      splice @texts, $keep if($#texts>= 0 && $#texts >= $keep);  
     }
     return join("\n", @texts);