From 44803b76e72d76567f70a11e150a53a1cd87c2d3 Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 13 Aug 2000 21:08:33 +0000 Subject: [PATCH] removed / 60 from AnnTalk to make Ann deduping work better --- Changes | 3 +++ perl/AnnTalk.pm | 2 +- perl/cluster.pl | 2 +- 3 files changed, 5 insertions(+), 2 deletions(-) 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 -- 2.43.0