From: minima <minima>
Date: Sun, 13 Aug 2000 21:08:33 +0000 (+0000)
Subject: removed  / 60 from AnnTalk to make Ann deduping work better
X-Git-Tag: R_1_44~37
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=44803b76e72d76567f70a11e150a53a1cd87c2d3;p=spider.git

removed  / 60 from AnnTalk to make Ann deduping work better
---

diff --git a/Changes b/Changes
index ec290fc5..919cf3cd 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+13Aug00=======================================================================
+1. removed extra /60 in AnnTalk to make deduping of announces work a bit
+better for longer...
 05Aug00=======================================================================
 1. Fixed hax character problem put in somewhen in the C Client
 03Aug00=======================================================================
diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index 5bd44fd4..ddb59a4c 100644
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -23,7 +23,7 @@ $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);
diff --git a/perl/cluster.pl b/perl/cluster.pl
index 6cdd417d..6f82b0d0 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -71,7 +71,7 @@ package main;
 
 @inqueue = ();					# the main input queue, an array of hashes
 $systime = 0;					# the time now (in seconds)
-$version = "1.43";				# the version no of the software
+$version = "1.44";				# the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 $lockfn = "cluster.lock";       # lock file name
 @outstanding_connects = ();     # list of outstanding connects