From 19980464653659320e9b143f3da34b38bb908cb9 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 25 Jun 2001 17:56:11 +0000
Subject: [PATCH] add not here message fix a few things

---
 perl/DXCommandmode.pm |  9 +++++++++
 perl/DXProt.pm        | 27 +++++++++++++++------------
 perl/DXUser.pm        |  3 ++-
 perl/Messages         |  1 +
 4 files changed, 27 insertions(+), 13 deletions(-)

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 32b1f86c..c7ce8c3c 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -644,6 +644,15 @@ sub talk
 	$line =~ s/\\5E/\^/g;
 	$self->send("$to de $from: $line") if $self->{talk};
 	Log('talk', $to, $from, $main::mycall, $line);
+	# send a 'not here' message if required
+	unless ($self->{here} && $from ne $to) {
+		my ($ref, $dxchan);
+		if (($ref = Route::get($from)) && ($dxchan = $ref->dxchan)) {
+			my $name = $self->user->name || $to;
+			my $s = $self->user->nothere || $dxchan->msg('nothere', $name);
+			$dxchan->talk($to, $from, undef, $s);
+		}
+	}
 }
 
 # send an announce
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 152a5fe0..8bfd6c3e 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -275,10 +275,8 @@ sub normal
 	
 #	print join(',', @field), "\n";
 						
-	# ignore any lines that don't start with PC
-	return if !$field[0] =~ /^PC/;
 	
-	# process PC frames
+	# process PC frames, this will fail unless the frame starts PCnn
 	my ($pcno) = $field[0] =~ /^PC(\d\d)/; # just get the number
 	return unless $pcno;
 	return if $pcno < 10 || $pcno > 99;
@@ -785,16 +783,21 @@ sub normal
 		
 		if ($pcno == 24) {		# set here status
 			my $call = uc $field[1];
-			my $ref = Route::Node::get($call);
-			$ref->here($field[2]) if $ref;
-			$ref = Route::User::get($call);
-			$ref->here($field[2]) if $ref;
-			$ref ||= Route->new($call);
+			my ($nref, $uref);
+			$nref = Route::Node::get($call) && $nref->here($field[2]);
+			$uref = Route::User::get($call) && $uref->here($field[2]);
+			return unless $nref || $uref;	# if we don't know where they are, it's pointless sending it on
 			
-			# input filter if required
-			return unless $self->in_filter_route($ref);
-
-			$self->route_pc24($ref, $field[3]) if $ref && !eph_dup($line);
+			unless (eph_dup($line)) {
+				if ($nref) {
+					return unless $self->in_filter_route($nref);
+					$self->route_pc24($nref, $field[3])
+				}
+				if ($uref) {
+					return unless $self->in_filter_route($uref);
+					$self->route_pc24($uref, $field[3]);
+				}
+			}
 			return;
 		}
 		
diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 23996b07..52b7819d 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -63,8 +63,9 @@ $lasttime = 0;
 		  pingint => '9,Node Ping interval',
 		  nopings => '9,Ping Obs Count',
 		  wantlogininfo => '9,Login info req,yesno',
-	          wantgrid => '0,DX Grid Info,yesno',
+          wantgrid => '0,DX Grid Info,yesno',
 		  lastoper => '9,Last for/oper,cldatetime',
+		  nothere => '0,Not Here Text',
 		 );
 
 no strict;
diff --git a/perl/Messages b/perl/Messages
index a9a1be91..98cf96db 100644
--- a/perl/Messages
+++ b/perl/Messages
@@ -172,6 +172,7 @@ package DXM;
 				nodeu => '$_[0] set back as a User',
 				nodee1 => 'You cannot use this command whilst your target ($_[0]) is on-line',
 				notdone => 'NOT Done',
+				nothere => 'Sorry, but $_[0] isn\'t here at the moment, please try later', 
 				obscount => 'Ping obsolescence count on $_[0] set to $_[1]',
 				ok => 'Operation successful',
 				outconn => 'Outstanding connect to $_[0]',
-- 
2.43.0