reolink: Don’t die when camera unavailable

Now that multiple cameras are supported, keep going when one can’t be
reached for some reason.

1 files changed, 8 insertions, 2 deletions

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;