cmd/bye.pl

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