-
- # set up the basic channel info - this needs a bit more thought - there is duplication here
- if (!defined $dxchan) {
- my ($sort, $call, $line) = $msg =~ /^(\w)(\S+)\|(.*)$/;
-
- # is there one already connected elsewhere in the cluster (and not a cluster)
- my $user = DXUser->get($call);
- if ($user) {
- if (($user->sort eq 'A' || $call eq $myalias) && !DXCluster->get_exact($call)) {
- ;
- } else {
- if (DXCluster->get($call) || DXChannel->get($call)) {
- my $mess = DXM::msg($lang, $user->sort eq 'A' ? 'concluster' : 'conother', $call);
- already_conn($conn, $call, $mess);
- return;
- }
- }
- $user->{lang} = $main::lang if !$user->{lang}; # to autoupdate old systems
- } else {
- if (DXCluster->get($call)) {
- my $mess = DXM::msg($lang, 'conother', $call);
- already_conn($conn, $call, $mess);
- return;
- }
- $user = DXUser->new($call);
- }