$text = substr($text, 0, $duplth) if length $text > $duplth;
my $dupkey = "A$to|$text";
return DXDupe::check($dupkey, $main::systime + $dupage);
$text = substr($text, 0, $duplth) if length $text > $duplth;
my $dupkey = "A$to|$text";
return DXDupe::check($dupkey, $main::systime + $dupage);