From cc59bad0fce20a5cfdbbe379a68072a3abbb2368 Mon Sep 17 00:00:00 2001 From: minima Date: Thu, 27 Jul 2000 14:19:34 +0000 Subject: [PATCH] try to fix the dups (and the dates on them) --- Changes | 1 + perl/AnnTalk.pm | 2 +- perl/Geomag.pm | 2 +- perl/Spot.pm | 2 +- perl/WCY.pm | 2 +- 5 files changed, 5 insertions(+), 4 deletions(-) diff --git a/Changes b/Changes index 52381943..158f9b68 100644 --- a/Changes +++ b/Changes @@ -2,6 +2,7 @@ 1. made sure that 'en' is the default language on new users. 2. issue error message if shutdown is attempted by a low privileged user. 3. Make sure a privilege is defined for all users (even if it is 0). +4. Try to fix some more dups (and the time on time). 26Jul00======================================================================= 1. added wantgrid (to control display of grid square info on DX Broadcasts) 2. added lastoper for controlling periodic demands for user info from other diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm index b082c385..faa644a3 100644 --- a/perl/AnnTalk.pm +++ b/perl/AnnTalk.pm @@ -30,7 +30,7 @@ sub dup $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; } diff --git a/perl/Geomag.pm b/perl/Geomag.pm index d169565a..a9df0e91 100644 --- a/perl/Geomag.pm +++ b/perl/Geomag.pm @@ -256,7 +256,7 @@ sub dup # $text = substr($text, 0, $duplth) if length $text > $duplth; my $dupkey = "$d|$sfi|$k|$a"; 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; } diff --git a/perl/Spot.pm b/perl/Spot.pm index 3f4313ef..b29592a3 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -217,7 +217,7 @@ sub dup unpad($text); my $dupkey = "$freq|$call|$d|$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; } diff --git a/perl/WCY.pm b/perl/WCY.pm index ef1a9b21..3645e25c 100644 --- a/perl/WCY.pm +++ b/perl/WCY.pm @@ -231,7 +231,7 @@ sub dup # $text = substr($text, 0, $duplth) if length $text > $duplth; my $dupkey = "$d|$sfi|$k|$a|$r"; 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; } -- 2.43.0