allow bbses to input stuff a la pms

diff --git a/Changes b/Changes
index 8c9494aea0c1beb41fdd268b47f659eb847b1bb2..fe846fcb9bc4a665e8f2115b999cd1e9ae5e129f 100644 (file)
--- 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 3c08ddbbb483bac93a733cfe4f7e81ccb64613c5..ce8db2d0c2cedaf8d247842c5bd5fdaf4090ed39 100644 (file)
--- 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 d9827a651fc8daf635f886aae7ef1fd6dbfdf717..8fa8acc2734c6faa82f5d5ca4cffbf3bd801b5d0 100755 (executable)
--- 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