X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAGWConnect.pm;h=88f6c5e1682141a23c79161939912a1ac7520da6;hb=refs%2Fheads%2Fnewpc92timings;hp=c19055ef4e731adbd2dde14b28eb594eeeb22938;hpb=c644e2f01b7528fb3cd4666a552a5ee282462e88;p=spider.git

diff --git a/perl/AGWConnect.pm b/perl/AGWConnect.pm
index c19055ef..88f6c5e1 100644
--- 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;