-# my $sdupkey = "X$freq|$call|$by";
-# $t = DXDupe::find($sdupkey);
-# return 1 if $t && $t - $main::systime > 0;
-# DXDupe::add($sdupkey, $main::systime+$dupage);
+ $otext = substr($otext, 0, $duplth) if length $otext > $duplth;
+ $otext =~ s/\s+$//;
+ if (length $otext && $otext ne $text) {
+ $ldupkey = "X$freq|$call|$by|$otext";
+ $t = DXDupe::find($ldupkey);
+ return 1 if $t && $t - $main::systime > 0;
+ DXDupe::add($ldupkey, $main::systime+$dupage);
+ }