cmd/bye.pl

   1 #
   2 # the bye command
   3 #
   4 # $Id$
   5 #
   6
   7 my $self = shift;
   8
   9 # log out text
  10 if ($self->is_user && -e "$main::data/logout") {
  11         open(I, "$main::data/logout") or confess;
  12         my @in = <I>;
  13         close(I);
  14         $self->send_now('D', @in);
  15         sleep(1);
  16 }
  17
  18 #$self->send_now('Z', "");
  19
  20 $self->disconnect;
  21
  22 return (1);