mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
20 lines
259 B
Perl
20 lines
259 B
Perl
#
|
|
# the bye command
|
|
#
|
|
# $Id$
|
|
#
|
|
|
|
my $self = shift;
|
|
|
|
# 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->state('bye');
|
|
return (1);
|