1998-06-19 21:20:30 +00:00
|
|
|
#
|
|
|
|
# the bye command
|
|
|
|
#
|
2007-07-11 15:41:51 +00:00
|
|
|
#
|
1998-06-19 21:24:01 +00:00
|
|
|
#
|
1998-06-19 21:20:30 +00:00
|
|
|
|
|
|
|
my $self = shift;
|
2005-01-15 22:03:46 +00:00
|
|
|
return (1, $self->msg('e5')) if $self->inscript;
|
2001-03-13 14:22:13 +00:00
|
|
|
|
|
|
|
# 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);
|
|
|
|
}
|
|
|
|
|
2002-01-27 15:35:33 +00:00
|
|
|
#$self->send_now('Z', "");
|
2001-12-30 22:38:48 +00:00
|
|
|
|
2001-11-07 17:00:28 +00:00
|
|
|
$self->disconnect;
|
|
|
|
|
1998-06-19 21:20:30 +00:00
|
|
|
return (1);
|