spider/cmd/bye.pl

24 lines
330 B
Perl
Raw Permalink Normal View History

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