From 86d51f0fa62823f2502d805d3110e066d93d1ad4 Mon Sep 17 00:00:00 2001
From: delmar <delmar@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 22 Oct 2018 16:40:45 +0000
Subject: [PATCH] 70_ZoneMinder:added attribute loginInterval and setter for
 login

git-svn-id: https://svn.fhem.de/fhem/trunk@17594 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/70_ZoneMinder.pm | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/70_ZoneMinder.pm b/fhem/FHEM/70_ZoneMinder.pm
index 9b5625efe..0dc5a88eb 100755
--- a/fhem/FHEM/70_ZoneMinder.pm
+++ b/fhem/FHEM/70_ZoneMinder.pm
@@ -53,7 +53,7 @@ sub ZoneMinder_Initialize {
   $hash->{WriteFn}   = "ZoneMinder_Write";
   $hash->{ReadyFn}   = "ZoneMinder_Ready";
 
-  $hash->{AttrList} = "interval publicAddress webConsoleContext " . $readingFnAttributes;
+  $hash->{AttrList} = "loginInterval publicAddress webConsoleContext " . $readingFnAttributes;
   $hash->{MatchList} = { "1:ZM_Monitor" => "^.*" };
 
   Log3 '', 3, "ZoneMinder - Initialize done ...";
@@ -182,6 +182,7 @@ sub ZoneMinder_API_Login_Callback {
   my $name = $hash->{NAME};
 
   $hash->{APILoginStatus} = $param->{code};
+  Log3 $name, 3, "ZoneMinder ($name) - login status: $hash->{APILoginStatus}";
 
   if($err ne "") {
     Log3 $name, 0, "error while requesting ".$param->{url}." - $err";
@@ -205,7 +206,9 @@ sub ZoneMinder_API_Login_Callback {
     }
   }
 
-  InternalTimer(gettimeofday() + 3600, "ZoneMinder_API_Login", $hash);
+  RemoveInternalTimer($hash, "ZoneMinder_API_Login");
+  my $interval = AttrVal($name, 'loginInterval', 3600);
+  InternalTimer(gettimeofday() + $interval, "ZoneMinder_API_Login", $hash);
   
   return undef;
 }
@@ -624,11 +627,16 @@ sub ZoneMinder_Get {
 }
 
 sub ZoneMinder_Set {
-  my ( $hash, $param ) = @_;
+  my ( $hash, $name, $opt, $args ) = @_;
+
+  if ("login" eq $opt) {
+    Log3 $name, 1, "ZoneMinder ($name) - Manually triggered Login";
+    ZoneMinder_API_Login($hash);
+    return undef;
+  }
 
-  my $name = $hash->{NAME};
 #  Log3 $name, 3, "ZoneMinder ($name) - Set done ...";
-  return undef;
+  return "Unknown argument $opt, choose one of login";
 }
 
 sub ZoneMinder_Ready {