From: minima <minima>
Date: Tue, 22 Jan 2002 13:44:06 +0000 (+0000)
Subject: limit spot dup checking to first 12 characters
X-Git-Tag: R_1_50~78
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=21eccb8b2261a8f75ab4a4ac1426b77664733069

limit spot dup checking to first 12 characters
---

diff --git a/Changes b/Changes
index 1cc0a163..aaaf54e5 100644
--- 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 e3821e29..d07dc01b 100644
--- 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 a30b1f5d..ec2f3b4c 100644
--- 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 9fa0086f..b5d56011 100644
--- 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;