mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
24 lines
330 B
Perl
24 lines
330 B
Perl
#
|
|
# the bye command
|
|
#
|
|
#
|
|
#
|
|
|
|
my $self = shift;
|
|
return (1, $self->msg('e5')) if $self->inscript;
|
|
|
|
# log out text
|
|
if ($self->is_user && -e "$main::data/logout") {
|
|
open(I, "$main::data/logout") or confess;
|
|
my @in = <I>;
|
|
close(I);
|
|
$self->send_now('D', @in);
|
|
sleep(1);
|
|
}
|
|
|
|
#$self->send_now('Z', "");
|
|
|
|
$self->disconnect;
|
|
|
|
return (1);
|