X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAnnTalk.pm;h=341857450be90e8e45dd5003fed742875d645682;hb=f939c447ca5ef37073054a73e50b48a63533a9bc;hp=383e71557fa7551561bf735659ea097bfed431aa;hpb=4e359e198dfc0ca889413a72ea20e698b995e094;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 {