lower case all comments for spots and announces

remove wwv command

diff --git a/Changes b/Changes
index 3f5e94ab9531dc31b12d9fd92f5d475d5bcbf077..813b28a03dc695a4b65ef684abceb8198d862229 100644 (file)
--- 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 (file)
index 20b8383..0000000
--- 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 658c21b82ee52380b0c1b49735bf018774cd9074..383e71557fa7551561bf735659ea097bfed431aa 100644 (file)
--- 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 30c0b6270beaf05a2c159e326676fa3fa8753478..e2b5c7eff3cd889f9780b153fa02d0049f10950e 100644 (file)
--- 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);
 }