fix(Gorgone): fix proxy eating 100% cpu

Refs:MON-130747

gorgone/gorgone/modules/core/proxy/class.pm

@@ -465,8 +465,9 @@ sub event {
 
     my $socket;
     if (defined($options{channel})) {
-        #$self->{logger}->writeLogDebug("[proxy] event channel $options{channel} delete: $self->{clients}->{ $options{channel} }->{delete} com_read_internal: $self->{clients}->{ $options{channel} }->{com_read_internal}")
-        #    if (defined($self->{clients}->{ $options{channel} }));
+        if (defined($self->{clients}->{ $options{channel} })) {
+            $self->{logger}->writeLogDebug("[proxy] event channel $options{channel} delete: $self->{clients}->{ $options{channel} }->{delete} com_read_internal: $self->{clients}->{ $options{channel} }->{com_read_internal}");
+        }
         return if (defined($self->{clients}->{ $options{channel} })
                    && ( $self->{clients}->{ $options{channel} }->{com_read_internal} == 0
                         || $self->{clients}->{ $options{channel} }->{delete} == 1)
@@ -507,6 +508,11 @@ sub periodic_exec {
                 $connector->{clients}->{$_}->{class}->close();
                 $connector->{clients}->{$_}->{class}->cleanup();
             }
+            # if the connection to the node is not established, we stop listenning for new event for this destination,
+            # so event will be stored in zmq buffer until we start processng them again (see proxy_addnode)
+            # zmq queue have a limit in size (high water mark), so if the node never connect we will loose some message,
+            # stoping us from memory leak or other nasty problem.
+            delete $connector->{watchers}->{$_};
             $connector->{clients}->{$_}->{class}             = undef;
             $connector->{clients}->{$_}->{delete}            = 0;
             $connector->{clients}->{$_}->{com_read_internal} = 0;