mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
f155969d60
2. Added WCY processing 3. Added new node types (clx, spider, dxnet, arcluster) 4. Store echo settings 5. Store pagelth settings 6. sort out source of DXVars for callbot.pl
32 lines
676 B
Perl
32 lines
676 B
Perl
#
|
|
# disconnect a local user
|
|
#
|
|
my ($self, $line) = @_;
|
|
my @calls = split /\s+/, $line;
|
|
my $call;
|
|
my @out;
|
|
|
|
if ($self->priv < 5) {
|
|
return (1, $self->msg('e5'));
|
|
}
|
|
|
|
foreach $call (@calls) {
|
|
$call = uc $call;
|
|
next if $call eq $main::mycall;
|
|
my $dxchan = DXChannel->get($call);
|
|
if ($dxchan) {
|
|
if ($dxchan->is_node) {
|
|
# $dxchan->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', $self->call)));
|
|
} else {
|
|
return (1, $self->msg('e5')) if $self->priv < 8;
|
|
$dxchan->send_now('D', $self->msg('disc1', $self->call));
|
|
}
|
|
$dxchan->disconnect;
|
|
push @out, $self->msg('disc2', $call);
|
|
} else {
|
|
push @out, $self->msg('e10', $call);
|
|
}
|
|
}
|
|
|
|
return (1, @out);
|