add BDCOM P3600-16E

modules/commands.pm

@@ -54,6 +54,8 @@ async sub command_find :Alias("где")
 
   my @keys = $redis->keys("gpon-*");
 
+  my $search_res = 0;
+
   foreach my $x (@keys) {
     my %values = $redis->hgetall($x);
     my $record = \%values;
@@ -69,10 +71,13 @@ async sub command_find :Alias("где")
             notify($chatid, "Не существует OLT id=$dev_id") unless $olt;
         } else {
             notify($chatid, "$olt->{name} ($olt->{ip}) $record->{name} (MAC-ONU: $record->{mac})");
+            $search_res = 1;
         }
     }
   }
 
+  return notify($chatid, "Не нашёл MAC ONU=\"$onu_mac\"") unless $search_res;
+
 }
 
 # inspect 172.25.7.1 2 - посмотреть информацию об ONU на дереве 2 устройства 172.25.7.1
@@ -313,6 +318,8 @@ sub get_tree_count
         return 8;
     } elsif ($devtype =~ /^BDCOM P3600-08/) {
         return 8;
+    } elsif ($devtype =~ /^BDCOM P3600-16/) {
+        return 16;
     } elsif ($devtype =~ /^BDCOM P3616/) {
         return 16;
     } elsif ($devtype =~ /^BDCOM P3310/) {