From dd01a8824f3896015e031cf301181760a6496bbd Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 23 May 2020 18:37:49 +0100
Subject: [PATCH] limit the no of spots stored for a search

This is to cope with people that suck skimmer spots and end up
with 100Mb files to read. But it does rely on the hint getting
most of the candidates with not more than 2 false positives.
---
 perl/DXCron.pm     |  2 +-
 perl/DXDebug.pm    | 12 ++++++------
 perl/DXLogPrint.pm |  2 ++
 perl/Msg.pm        |  2 +-
 perl/Spot.pm       |  1 +
 perl/cluster.pl    |  4 ++--
 6 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index 16d27cdd..5cccfc49 100644
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -72,7 +72,7 @@ sub cread
 		my ($min, $hour, $mday, $month, $wday, $cmd) = /^\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(.+)$/o;
 		next unless defined $min;
 		my $ref = bless {};
-		my $err;
+		my $err = '';
 
 		if (defined $min && defined $hour && defined $cmd) { # it isn't all of them, but should be enough to tell if this is a real line
 			$err .= parse($ref, 'min', $min, 0, 60);
diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index b0b723ce..25d74225 100644
--- a/perl/DXDebug.pm
+++ b/perl/DXDebug.pm
@@ -85,7 +85,7 @@ if (!defined $DB::VERSION) {
 
 my $_isdbg;						# current dbg level we are processing
 
-sub dbg($)
+sub dbg
 {
 #	return unless $fp;
 	my $t = time; 
@@ -93,11 +93,11 @@ sub dbg($)
 		my $r = $_;
 		chomp $r;
 		my @l = split /\n/, $r;
-		for (@l) {
-			s/([\x00-\x08\x0B-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
-			print "$_\n" if defined \*STDOUT && !$no_stdout;
-			my $tag = $_isdbg ? "($_isdbg) " : '';
-			my $str = "$t^$tag$_";
+		foreach my $l (@l) {
+			$l =~ s/([\x00-\x08\x0B-\x1f\x7f-\xff])/sprintf("%%%02X",ord($1))/eg;
+			print "$l\n" if defined \*STDOUT && !$no_stdout;
+			my $tag = $_isdbg ? "($_isdbg) " : '(*) ';
+			my $str = "$t^$tag$l";
 			&$callback($str) if $callback;
 			if ($dbgringlth) {
 				shift @dbgring while (@dbgring > $dbgringlth);
diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index 9564ae69..9bb51f20 100644
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -20,6 +20,8 @@ use Julian;
 
 our $readback = `which tac`;
 chomp $readback;
+undef $readback; 				# yet another reason not to use the cloud!
+ 
 
 use strict;
 
diff --git a/perl/Msg.pm b/perl/Msg.pm
index 5e40d3c2..9e7a03a1 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -484,7 +484,7 @@ sub new_client {
 	$sock->start;
 	$conn->{peerhost} = $handle->peerhost;
 	$conn->{peerhost} =~ s|^::ffff:||; # chop off leading pseudo IPV6 stuff on dual stack listeners
-	$conn->{peerport} = $handle->peerport;
+	$conn->{peerport} = $handle->peerport || 0;
 	dbg((ref $conn) . " accept $conn->{cnum} from $conn->{peerhost}:$conn->{peerport}") if isdbg('conn') || isdbg('connect');
 	my ($rproc, $eproc) = &{$server_conn->{rproc}} ($conn, $conn->{peerhost}, $conn->{peerport});
 	$conn->{sort} = 'Incoming';
diff --git a/perl/Spot.pm b/perl/Spot.pm
index 2d04f411..0761f07d 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -307,6 +307,7 @@ sub search
 				   my \@s = split /\\^/;
                    $checkfilter;
                    push \@spots, \\\@s;
+                   shift \@spots if \@spots > $to + 2; 
 			   }
 			   my \$c;
 			   my \$ref;
diff --git a/perl/cluster.pl b/perl/cluster.pl
index a4185caa..02e86a77 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -513,8 +513,8 @@ sub setup_start
 				if ($desc) {
 					my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
 					$s ||= '';
-					dbg("Git: $desc");
-					dbg("Git: V=$v S=$s B=$b g=$g");
+					dbg("Git: $desc") if isdbg('git');
+					dbg("Git: V=$v S=$s B=$b g=$g") if isdbg('git');
 					$version = $v;
 					$build = $b || 0;
 					$gitversion = "$g\[r]";
-- 
2.34.1