From: djk <djk>
Date: Sun, 21 Nov 1999 23:34:56 +0000 (+0000)
Subject: allow bbses to input stuff a la pms
X-Git-Tag: R_1_36~7
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=0b3e23be9f6feaf115d2faebeb95cd3dcf450a3c;p=spider.git

allow bbses to input stuff a la pms
---

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