projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
6a13b95
)
fix problem with users on multiple nodes not being propagated
author
minima
<minima>
Sun, 19 Jan 2003 17:12:55 +0000
(17:12 +0000)
committer
minima
<minima>
Sun, 19 Jan 2003 17:12:55 +0000
(17:12 +0000)
Changes
patch
|
blob
|
history
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 5e3e1c049de97fe24518ac26b60d6b79cdb0d1d0..7008373b081039e2c0a22b7b75bfa25ae08074f0 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-15,6
+15,7
@@
for each 'new' PC16 that the node sees. This is normal and will go away the
second time the system needs to issue a PC19.
2. Alter the export_user command to remove users that have no useful info
and have not been seen for more than (default) 1 year.
second time the system needs to issue a PC19.
2. Alter the export_user command to remove users that have no useful info
and have not been seen for more than (default) 1 year.
+3. fix the problem of users on more than one node not being propagated
17Jan03=======================================================================
1. Fix problem with lines being left in the main input queue for a
disconnected/ing node.
17Jan03=======================================================================
1. Fix problem with lines being left in the main input queue for a
disconnected/ing node.
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index efa5ff9b57d5e058eb3ac64c3a727e4296044bda..9c04497680673939c3fc8ca9ac6c3e520e932ed8 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-729,11
+729,13
@@
sub normal
my $flags = Route::here($here)|Route::conf($conf);
if ($r) {
my $flags = Route::here($here)|Route::conf($conf);
if ($r) {
+ my @add;
+ push @add, $r->addparent($parent);
if ($r->flags != $flags) {
$r->flags($flags);
if ($r->flags != $flags) {
$r->flags($flags);
- push @
rout, $r
;
+ push @
add, $r unless @add
;
}
}
-
$r->addparent($parent)
;
+
push @rout, @add
;
} else {
push @rout, $parent->add_user($call, $flags);
}
} else {
push @rout, $parent->add_user($call, $flags);
}
@@
-1893,8
+1895,8
@@
sub disconnect
$self->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', "System Op")));
}
$self->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', "System Op")));
}
- # get rid of any PC16/17/19
/21s
- eph_del_regex("^PC
(?:1[679]|21).
*$call");
+ # get rid of any PC16/17/19
+ eph_del_regex("^PC
1[679]
*$call");
# do routing stuff, remove me from routing table
my $node = Route::Node::get($call);
# do routing stuff, remove me from routing table
my $node = Route::Node::get($call);
@@
-1905,7
+1907,7
@@
sub disconnect
# and all my ephemera as well
for (@rout) {
my $c = $_->call;
# and all my ephemera as well
for (@rout) {
my $c = $_->call;
- eph_del_regex("^PC
(?:1[679]|21)
.*$c");
+ eph_del_regex("^PC
1[679]
.*$c");
}
}
}
}
@@
-1919,7
+1921,7
@@
sub disconnect
}
# and the ephemera
}
# and the ephemera
- eph_del_regex("^PC
(?:1[679]|21)
.*$k");
+ eph_del_regex("^PC
1[679]
.*$k");
}
# unbusy and stop and outgoing mail
}
# unbusy and stop and outgoing mail