perl/AGWConnect.pm

   1 #
   2 # Copy this file to /spider/local and modify it to your requirements
   3 #
   4 #
   5 # This file specifies whether you want to connect to an AGW Engine
   6 # You are only likely to want to do this in a Microsoft Windows
   7 # environment
   8 #
   9
  10 package AGWMsg;
  11
  12 use strict;
  13 use vars qw($enable $login $passwd $addr $port $monitor $ypolltime $hpolltime);
  14
  15 # set this to 1 to enable AGW Engine handling
  16 $enable = 0;
  17
  18 # user name you are logging in as
  19 $login = '';
  20
  21 # password required
  22 $passwd = '';
  23
  24 #
  25 # -- don't change these unless you know what you are doing --
  26 #
  27 # the ip address of the AGW engine you are connecting to
  28 $addr = "localhost";
  29
  30 # the port number the AGW engine is listening to
  31 $port = 8000;
  32
  33 # default monitor status
  34 $monitor = 0;
  35
  36 # time between polls of channel queues
  37 $ypolltime = 10;
  38
  39 # time between polls of Mheard
  40 $hpolltime = 300;
  41
  42 1;