Changeset 6644

Timestamp:

06/18/09 15:13:28 (9 months ago)

Author:

metamorph68

Message:

Fixed harbor idle deconnection..

Location:

branches/bugfix-0.9.1

Files:

• CHANGES (modified) (1 diff)
• src/sources/harbor_input.ml (modified) (2 diffs)

branches/bugfix-0.9.1/CHANGES

@@ -7 +7 @@
  - Fixed append operator. (#284)
  - fixed OSS compilation for non-linux systems.
+ - Disconnect idle harbor sources after timeout has expired.
+   Thanks to Roman Savrulin for reporting and fixing !
 
 0.9.0 (01-03-2009)

branches/bugfix-0.9.1/src/sources/harbor_input.ml

@@ -103 +103 @@
             if l=[] then begin
               self#log#f 4 "No network activity for %d second(s)." n ;
-              wait (n+1)
+              if float n >= Harbor.conf_timeout#get then
+               begin
+                self#log#f 4 "network activity timeout! disconnecting source" ;
+                self#disconnect
+               end
+              else
+               wait (n+1)
             end
         in wait 1
@@ -133 +139 @@
     self#disconnect ;
     try
-      Unix.shutdown socket Unix.SHUTDOWN_ALL ;
       Unix.close socket
     with