spider/cmd/bye.pl

23 lines
286 B
Perl
Raw Normal View History

#
# the bye command
#
1998-06-19 21:24:01 +00:00
# $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', "");
2001-11-07 17:00:28 +00:00
$self->disconnect;
return (1);