projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
show the correct call on 'connected on other node' messages
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index d3feaa39c813c7936d72fca0abd4a1cdac6ee12a..9c7557bf4fb02b79a8ae974187a31bcdc7099555 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-69,6
+69,7
@@
use DXDb;
use DXHash;
use DXDupe;
use Prefix;
use DXHash;
use DXDupe;
use Prefix;
+use Spot;
use Bands;
use Keps;
use Minimuf;
use Bands;
use Keps;
use Minimuf;
@@
-146,7
+147,7
@@
sub new_channel
;
} else {
if (my $ref = DXCluster->get_exact($call)) {
;
} else {
if (my $ref = DXCluster->get_exact($call)) {
- my $mess = DXM::msg($lang, 'concluster', $call, $ref->mynode->call);
+ my $mess = DXM::msg($lang, 'concluster', $call, $ref->mynode->
dxchan
call);
already_conn($conn, $call, $mess);
return;
}
already_conn($conn, $call, $mess);
return;
}
@@
-154,7
+155,7
@@
sub new_channel
$user->{lang} = $main::lang if !$user->{lang}; # to autoupdate old systems
} else {
if (my $ref = DXCluster->get_exact($call)) {
$user->{lang} = $main::lang if !$user->{lang}; # to autoupdate old systems
} else {
if (my $ref = DXCluster->get_exact($call)) {
- my $mess = DXM::msg($lang, 'concluster', $call, $ref->mynode->call);
+ my $mess = DXM::msg($lang, 'concluster', $call, $ref->mynode->
dxchan
call);
already_conn($conn, $call, $mess);
return;
}
already_conn($conn, $call, $mess);
return;
}