From: minima Date: Thu, 24 Aug 2000 18:03:44 +0000 (+0000) Subject: lower case all comments for spots and announces X-Git-Tag: R_1_44~16 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e359e198dfc0ca889413a72ea20e698b995e094;p=spider.git lower case all comments for spots and announces remove wwv command --- diff --git a/Changes b/Changes index 3f5e94ab..813b28a0 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +24Aug00======================================================================= +1. Removed WWV command so that users can't interfere (read mess up) the +automatic feeds which come from various places on the net. 23Aug00======================================================================= 1. Added persistant dupe file so that all dupes are stored here (including announces) - announces are now kept for 5 days (as default). diff --git a/cmd/wwv.pl b/cmd/wwv.pl deleted file mode 100644 index 20b8383d..00000000 --- a/cmd/wwv.pl +++ /dev/null @@ -1,9 +0,0 @@ -# -# WWV command -# -# Copyright (c) 1998 Dirk Koopman G1TLH -# -# $Id$ -# -my ($self, $line) = @_; -return (1, "not implimented yet"); diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm index 658c21b8..383e7155 100644 --- a/perl/AnnTalk.pm +++ b/perl/AnnTalk.pm @@ -28,7 +28,7 @@ sub dup unpad($text); $text =~ s/[^a-zA-Z0-9]//g; $text = substr($text, 0, $duplth) if length $text > $duplth; - my $dupkey = "A$to|$text"; + my $dupkey = "A$to|\L$text"; return DXDupe::check($dupkey, $main::systime + $dupage); } diff --git a/perl/Spot.pm b/perl/Spot.pm index 30c0b627..e2b5c7ef 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -216,7 +216,7 @@ sub dup $text = substr($text, 0, $duplth) if length $text > $duplth; unpad($text); $text =~ s/[^a-zA-Z0-9]//g; - my $dupkey = "X$freq|$call|$d|$text"; + my $dupkey = "X$freq|$call|$d|\L$text"; return DXDupe::check($dupkey, $main::systime+$dupage); }