From 4e359e198dfc0ca889413a72ea20e698b995e094 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 24 Aug 2000 18:03:44 +0000
Subject: [PATCH] lower case all comments for spots and announces remove wwv
 command

---
 Changes         | 3 +++
 cmd/wwv.pl      | 9 ---------
 perl/AnnTalk.pm | 2 +-
 perl/Spot.pm    | 2 +-
 4 files changed, 5 insertions(+), 11 deletions(-)
 delete mode 100644 cmd/wwv.pl

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);
 }
 
-- 
2.34.1