spider/cmd/bye.pl

23 lines
286 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->send_now('Z', "");
$self->disconnect;
return (1);