limit spot dup checking to first 12 characters

diff --git a/Changes b/Changes
index 1cc0a163ec9d663301303153557f56c669658b4c..aaaf54e5c93f8fd613bcc0b71aeb5ddbef80dc58 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+22Jan02=======================================================================
+1. limit spot dupe checking to first 12 characters
 13Jan02=======================================================================
 1. changed the backstop termination alarm routing in the C client so that
 it flushes the input and output buffer and then commits suicide.

diff --git a/TODO b/TODO
index e3821e2924368f1418bad71e5ead10ca677f8464..d07dc01b6fb151cba69cf69e1a622ce68723b1e3 100644 (file)
--- a/TODO
+++ b/TODO
@@ -15,6 +15,7 @@ Maintenance and Enhancements
 * handle distros in announces
 * check set/homenode et al input for proper callsigns
 * filter names and stuff so that it doesn't cause bad syntax in user_asc
+* sh/cba and sh/contest
 
 New Protocol Stuff
 ------------------

diff --git a/perl/Msg.pm b/perl/Msg.pm
index a30b1f5d064c827fcef6cefa37515927bd0f1ac2..ec2f3b4ca0214836327bb99c8a84aaa60a609b6a 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -37,6 +37,7 @@ $now = time;
 BEGIN {
     # Checks if blocking is supported
     eval {
+               local $^W;
         require POSIX; POSIX->import(qw(O_NONBLOCK F_SETFL F_GETFL))
     };
        if ($@ || $main::is_win) {
@@ -50,12 +51,14 @@ BEGIN {
 
        # import as many of these errno values as are available
        eval {
+               local $^W;
                require Errno; Errno->import(qw(EAGAIN EINPROGRESS EWOULDBLOCK));
        };
 
        unless ($^O eq 'MSWin32') {
                if ($] >= 5.6) {
                        eval {
+                               local $^W;
                                require Socket; Socket->import(qw(IPPROTO_TCP TCP_NODELAY));
                        };
                } else {

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 9fa0086ffa1e5595978a4309638f08d38f61b8f5..b5d560115dc5dd2f7b1502e436df399f83862d32 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -299,6 +299,7 @@ sub dup
        return 2 if $d < $main::systime - $dupage;
  
        $freq = sprintf "%.1f", $freq;       # normalise frequency
+       $call = substr($call, 12) if length $call > 12;
        chomp $text;
        $text =~ s/\%([0-9A-F][0-9A-F])/chr(hex($1))/eg;
        $text = substr($text, 0, $duplth) if length $text > $duplth;