- if ($t) {
- my $dt = $main::systime + $dupage - $t;
- return 1 if $dt < 300;
- }
- $t = DXDupe::find($sdupkey);
- if ($t) {
- my $dt = $main::systime + $dupage - $t;
- return 1 if $dt < 300;
+ return 1 if $t && $t - $main::systime > 0;
+ if ($otext) {
+ DXDupe::add($ldupkey, $main::systime+$dupage);
+ $otext = substr($otext, 0, $duplth) if length $otext > $duplth;
+ $ldupkey = "X$freq|$call|$by|$otext";
+ $t = DXDupe::find($ldupkey);
+ return 1 if $t && $t - $main::systime > 0;
+ DXDupe::add($ldupkey, $main::systime+$dupage);