X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAGWConnect.pm;h=f9fc2761aceaafbbfdfaf6252b83d941ea435c04;hb=a2fc02fa7ad04e42be78783a4aa38a771b7d1ec3;hp=c19055ef4e731adbd2dde14b28eb594eeeb22938;hpb=1491e268e8069080922896cd8ea67aee254f28d1;p=spider.git

diff --git a/perl/AGWConnect.pm b/perl/AGWConnect.pm
index c19055ef..f9fc2761 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 = 120;
  
 1;