From 0b3e23be9f6feaf115d2faebeb95cd3dcf450a3c Mon Sep 17 00:00:00 2001 From: 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