From aedd7de39e1fd743e05ff2fb9fb286a616bb50b3 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Fri, 19 Nov 1999 01:25:44 +0000
Subject: [PATCH] prevent self pinging altered no of pings to take into account
 to 6 from 10

---
 cmd/ping.pl    | 3 +++
 perl/DXProt.pm | 2 +-
 perl/Messages  | 1 +
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/cmd/ping.pl b/cmd/ping.pl
index 1d75a826..9447b67b 100644
--- a/cmd/ping.pl
+++ b/cmd/ping.pl
@@ -16,6 +16,9 @@ return (1, $self->msg('e5')) if $self->priv < 1;
 # is there a call?
 return (1, $self->msg('e6')) if !$call;
 
+# is it me?
+return (1, $self->msg('pinge1')) if $call eq $main::mycall;
+
 # can we see it? Is it a node?
 my $noderef = DXCluster->get_exact($call);
 $noderef = DXChannel->get($call) unless $noderef;
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b4ff5f65..486cfa95 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -718,7 +718,7 @@ sub normal
 								if ($tochan) {
 									$tochan->nopings(3); # pump up the timer
 									push @{$tochan->pingtime}, $t;
-									shift @{$tochan->pingtime} if @{$tochan->pingtime} > 10;
+									shift @{$tochan->pingtime} if @{$tochan->pingtime} > 6;
 									my $st;
 									for (@{$tochan->pingtime}) {
 										$st += $_;
diff --git a/perl/Messages b/perl/Messages
index 6a49c2af..570e4e75 100644
--- a/perl/Messages
+++ b/perl/Messages
@@ -119,6 +119,7 @@ package DXM;
 				password => 'Password set or changed for $_[0]',
 				pingo => 'Ping Started to $_[0]',
 				pingi => 'Ping Returned from $_[0] $_[1] (Ave $_[2]) secs',
+				pinge1 => 'Cannot ping yourself!',
 				pr => '$_[0] de $main::mycall $main::cldate $main::ztime >',
 				pr2 => '($_[0]) de $main::mycall $main::cldate $main::ztime >',
 				priv => 'Privilege level changed on $_[0]',
-- 
2.43.0