From 0b3e23be9f6feaf115d2faebeb95cd3dcf450a3c Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sun, 21 Nov 1999 23:34:56 +0000
Subject: [PATCH] allow bbses to input stuff a la pms

---
 Changes         | 2 ++
 cmd/send.pl     | 2 ++
 perl/cluster.pl | 2 +-
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 8c9494ae..fe846fcb 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+21Nov99=======================================================================
+1. lose extraneous rubbish after the callsign as sent by BBSes.
 20Nov99=======================================================================
 1. Added set/unset logininfo which will tell anybody that has this set when
 someone has either logged in or out of this node.
diff --git a/cmd/send.pl b/cmd/send.pl
index 3c08ddbb..ce8db2d0 100644
--- a/cmd/send.pl
+++ b/cmd/send.pl
@@ -92,6 +92,8 @@ if ($self->state eq "prompt") {
 			;
 		} elsif ($notincalls && ($f eq 'RR')) {
 			$loc->{rrreq} = '1';
+		} elsif ($f eq '@') {     # this is bbs syntax, for now lose the rest
+			last;
 		} else {
 
 			# callsign ?
diff --git a/perl/cluster.pl b/perl/cluster.pl
index d9827a65..8fa8acc2 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -70,7 +70,7 @@ package main;
 
 @inqueue = ();					# the main input queue, an array of hashes
 $systime = 0;					# the time now (in seconds)
-$version = "1.35";				# the version no of the software
+$version = "1.36";				# the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 $lockfn = "cluster.lock";       # lock file name
 @outstanding_connects = ();     # list of outstanding connects
-- 
2.43.0