X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FAnnTalk.pm;fp=perl%2FAnnTalk.pm;h=341857450be90e8e45dd5003fed742875d645682;hb=8e0eef80216fbb2bca3606daf5797e39b2889d7a;hp=383e71557fa7551561bf735659ea097bfed431aa;hpb=eef5d189206ebcfaf8e83675803829c72671a320;p=spider.git diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm index 383e7155..34185745 100644 --- a/perl/AnnTalk.pm +++ b/perl/AnnTalk.pm @@ -13,12 +13,14 @@ use strict; use DXUtil; use DXDebug; use DXDupe; +use DXVars; use vars qw(%dup $duplth $dupage); $duplth = 60; # the length of text to use in the deduping $dupage = 5*24*3600; # the length of time to hold spot dups + # enter the spot for dup checking and return true if it is already a dup sub dup {