]> dxcluster.org Git - spider.git/blob - cmd/bye.pl
add cty-2007
[spider.git] / cmd / bye.pl
1 #
2 # the bye command
3 #
4 #
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);