From: 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://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