projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ce93c2b
)
allow bbses to input stuff a la pms
author
djk
<djk>
Sun, 21 Nov 1999 23:34:56 +0000
(23:34 +0000)
committer
djk
<djk>
Sun, 21 Nov 1999 23:34:56 +0000
(23:34 +0000)
Changes
patch
|
blob
|
history
cmd/send.pl
patch
|
blob
|
history
perl/cluster.pl
patch
|
blob
|
history
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.
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 ($notincalls && ($f eq 'RR')) {
$loc->{rrreq} = '1';
+ } elsif ($f eq '@') { # this is bbs syntax, for now lose the rest
+ last;
} else {
# callsign ?
} 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)
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
-$version = "1.3
5
"; # the version no of the software
+$version = "1.3
6
"; # 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
$starttime = 0; # the starting time of the cluster
$lockfn = "cluster.lock"; # lock file name
@outstanding_connects = (); # list of outstanding connects