2 # Announce and Talk Handling routines
4 # Copyright (c) 2000 Dirk Koopman
17 use vars qw(%dup $duplth $dupage);
19 $duplth = 60; # the length of text to use in the deduping
20 $dupage = 5*24*3600; # the length of time to hold spot dups
22 # enter the spot for dup checking and return true if it is already a dup
25 my ($call, $to, $text) = @_;
29 $text = substr($text, 0, $duplth) if length $text > $duplth;
30 my $dupkey = "A$to|$text";
31 return DXDupe::check($dupkey, $main::systime + $dupage);
36 return DXDupe::listdups('A', $dupage, @_);