mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
b060a0a3ee
loads of fixes, but can now connect outbound, do logging, more messages remote commands for outside now work
21 lines
461 B
Perl
21 lines
461 B
Perl
#
|
|
# the shutdown command
|
|
#
|
|
# $Id$
|
|
#
|
|
my $self = shift;
|
|
my $call = $self->call;
|
|
my $ref;
|
|
|
|
if ($self->priv >= 5) {
|
|
foreach $ref (DXChannel::get_all()) {
|
|
$ref->send_now("D", DXProt::pc39($main::mycall, "Shutdown by $call"))
|
|
if $ref->is_ak1a && $ref != $DXProt::me;
|
|
$ref->send_now("D", $self->msg('shutting')) if $ref->is_user;
|
|
}
|
|
|
|
# give some time for the buffers to empty and then shutdown (see cluster.pl)
|
|
$main::decease = 250;
|
|
}
|
|
return (1);
|