From 3871aba12c9a3a09dbd2cea470031d7ca8f2533c Mon Sep 17 00:00:00 2001
From: Jon duSaint
Date: Mon, 2 Oct 2023 11:23:11 -0700
Subject: reolink: Don't die when camera unavailable

Now that multiple cameras are supported, keep going when one can't be
reached for some reason.
---
 reolink/reolink | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'reolink')

diff --git a/reolink/reolink b/reolink/reolink
index 99b03a6..0ee690e 100755
--- a/reolink/reolink
+++ b/reolink/reolink
@@ -230,7 +230,10 @@ sub setup_reolink {
   my ($resp, $code);
 
   my $r = Reolink->new (host => host ($camera), %{ $cameras{$camera}->{args} });
-  $r->Login || die "Failed to login to $camera\n";
+  unless ($r->Login) {
+    error ("Failed to login to $camera");
+    return;
+  }
   $r->Errors (1);
 
   $code = $r->SetNtp (1, $server_params{ntp_ip});
@@ -270,7 +273,10 @@ sub snapshot {
 
   foreach my $camera (@cameras) {
     my $r = Reolink->new (host => host ($camera), %{ $cameras{$camera}->{args} });
-    $r->Login || die "Failed to login to $camera\n";
+    unless ($r->Login) {
+      error ("Failed to login to $camera");
+      next;
+    }
     $r->Errors (1);
 
     my @t = localtime;
-- 
cgit v1.2.3