add CTY-3304

[spider.git] / perl / AGWConnect.pm

diff --git a/perl/AGWConnect.pm b/perl/AGWConnect.pm
index c19055ef4e731adbd2dde14b28eb594eeeb22938..88f6c5e1682141a23c79161939912a1ac7520da6 100644 (file)
--- a/perl/AGWConnect.pm
+++ b/perl/AGWConnect.pm
@@ -10,7 +10,7 @@
 package AGWMsg;
 
 use strict;
-use vars qw($enable $login $passwd $addr $port $monitor);
+use vars qw($enable $login $passwd $addr $port $monitor $ypolltime $hpolltime);
 
 # set this to 1 to enable AGW Engine handling
 $enable = 0;
@@ -32,5 +32,11 @@ $port = 8000;
 
 # default monitor status
 $monitor = 0;
+
+# time between polls of channel queues
+$ypolltime = 10;
+
+# time between polls of Mheard
+$hpolltime = 300;
  
 1;