$text = substr($text, 0, $duplth) if length $text > $duplth;
my $dupkey = "$call|$to|$text";
return 1 if exists $dup{$dupkey};
$text = substr($text, 0, $duplth) if length $text > $duplth;
my $dupkey = "$call|$to|$text";
return 1 if exists $dup{$dupkey};