removed / 60 from AnnTalk to make Ann deduping work better

[spider.git] / perl / AnnTalk.pm

diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index b082c38531bd0f77707129db1ac37b2250e62a86..ddb59a4c4c70a61ad4e5c3c60ea07effb263497f 100644 (file)
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -23,14 +23,14 @@ $dupage = 24*3600;               # the length of time to hold spot dups
 sub dup
 {
        my ($call, $to, $text) = @_; 
-       my $d = $main::systime / 60;
+       my $d = $main::systime;
 
        chomp $text;
        unpad($text);
        $text = substr($text, 0, $duplth) if length $text > $duplth; 
        my $dupkey = "$call|$to|$text";
        return 1 if exists $dup{$dupkey};
-       $dup{$dupkey} = $d * 60;         # in seconds (to the nearest minute)
+       $dup{$dupkey} = $d;         # in seconds (to the nearest minute)
        return 0; 
 }
 
@@ -53,5 +53,6 @@ sub listdups
        return @out;
 }
 
+
 1;