summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
67e8ed5)
This is for Jim AD1C really. But "set/debug cluster" will put out
lines like:
CLUSTER: node N0VD-7 added
CLUSTER: user AD6KH added
and
CLUSTER: user AD6KH deleted
CLUSTER: node N0VD-7 deleted
and represent this node's view of which nodes and users are
available on the cluster as a whole.
+29Oct10=======================================================================
+1. Allow Jim AD1C to track the changes to the cluster in realtime using the
+debug system (set/debug cluster).
27Oct10=======================================================================
1. fix chat problem introduced in the last update
25Oct10=======================================================================
27Oct10=======================================================================
1. fix chat problem introduced in the last update
25Oct10=======================================================================
$self->send_announce(1, pc12($from, $text, $local, $sysop, $wx, $pcall), $from, $local, $text, $sysop, $pcall, $wx, $via eq 'LOCAL' ? $via : undef);
return if $via eq 'LOCAL';
} elsif (!is_callsign($to) && $text =~ /^#\d+ /) {
$self->send_announce(1, pc12($from, $text, $local, $sysop, $wx, $pcall), $from, $local, $text, $sysop, $pcall, $wx, $via eq 'LOCAL' ? $via : undef);
return if $via eq 'LOCAL';
} elsif (!is_callsign($to) && $text =~ /^#\d+ /) {
- # chat messages to non-pc9x nodes
- $self->send_chat(1, pc12($from, $text, undef, $to, undef, $pcall), $from, '*', $text, $to, $pcall, '0');
+ # chat messages really only locally connected users
+ $self->send_chat(1, $line, $from, '*', $text, $to, $pcall, '0');
}
# broadcast this chat sentence everywhere unless it is targetted to 'LOCAL'
}
# broadcast this chat sentence everywhere unless it is targetted to 'LOCAL'
}
$self = $parent->new($call, @_);
$parent->_addnode($self);
}
$self = $parent->new($call, @_);
$parent->_addnode($self);
+ dbg("CLUSTER: node $call added") if isdbg('cluster');
$self->_del_users;
delete $list{$ncall};
push @nodes, $self;
$self->_del_users;
delete $list{$ncall};
push @nodes, $self;
+ dbg("CLUSTER: node $ncall deleted") if isdbg('cluster');
my $call = shift;
$call = shift if ref $call;
my $ref = $list{uc $call};
my $call = shift;
$call = shift if ref $call;
my $ref = $list{uc $call};
- dbg("Failed to get Node $call" ) if !$ref && isdbg('routerr');
+ dbg("ROUTE: Failed to get Node $call" ) if !$ref && isdbg('routerr');
my $pkg = ref $self;
my $call = $self->{call} || "Unknown";
my $pkg = ref $self;
my $call = $self->{call} || "Unknown";
- dbg("destroying $pkg with $call") if isdbg('routelow');
+ dbg("ROUTE: destroying $pkg with $call") if isdbg('routelow');
$self->{flags} = $flags || Route::here(1);
$self->{ip} = $ip if defined $ip;
$list{$call} = $self;
$self->{flags} = $flags || Route::here(1);
$self->{ip} = $ip if defined $ip;
$list{$call} = $self;
+ dbg("CLUSTER: user $call added") if isdbg('cluster');
{
my $self = shift;
my $pref = shift;
{
my $self = shift;
my $pref = shift;
+ my $call = $self->{call};
$self->delparent($pref);
unless (@{$self->{parent}}) {
$self->delparent($pref);
unless (@{$self->{parent}}) {
- delete $list{$self->{call}};
+ delete $list{$call};
+ dbg("CLUSTER: user $call deleted") if isdbg('cluster');
return $self;
}
return undef;
return $self;
}
return undef;
$version = '1.55';
$subversion = '0';
$version = '1.55';
$subversion = '0';
-$build = '80';
-$gitversion = 'fc55b5f';
+$build = '81';
+$gitversion = '67e8ed5';