X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FAnnTalk.pm;h=341857450be90e8e45dd5003fed742875d645682;hb=c20a2c1e01d707d6c3fa25067df93d491aba8fff;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 {