changeset 1497:384f8ceb4a32

Kill previous timer pid if any, to prevent overlaps.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 12 Jun 2012 20:31:43 +0300
parents 75f99ae1cdb3
children 918e27cee2c8
files gm-spider.tf
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/gm-spider.tf	Tue Jun 12 20:13:32 2012 +0300
+++ b/gm-spider.tf	Tue Jun 12 20:31:43 2012 +0300
@@ -13,6 +13,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Initialization and options
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+/set spider_pid=0
 /set spider_warn_t=15
 /set spider_avgn_min=60
 /set spider_avgq_min=80
@@ -60,6 +61,9 @@
 /def -i gspider_setup_timer =\
 	/if ({1} >= 15)\
 		/set spider_next_drain=$[time() + {1}]%;\
+		/if (spider_pid > 0)\
+			/kill %{spider_pid}%;\
+		/endif%;\
 		/set spider_pid=$(/grepeat -$[{1} - spider_warn_t] 1 /gspider_inform)%;\
 	/endif