use latest big cty.dat
[spider.git] / cmd / bye.pl
index d6e2d14becc76790295e429a02a093bb15653f54..ec04f0566e49ea92390e9a5876846ae55117687a 100644 (file)
@@ -1,10 +1,11 @@
 #
 # the bye command
 #
-# $Id$
+#
 #
 
 my $self = shift;
+return (1, $self->msg('e5')) if $self->inscript;
 
 # log out text
 if ($self->is_user && -e "$main::data/logout") {
@@ -12,8 +13,11 @@ if ($self->is_user && -e "$main::data/logout") {
        my @in = <I>;
        close(I);
        $self->send_now('D', @in);
-       sleep(1);
+#      Msg->sleep(1);
 }
 
-$self->state('bye');
+#$self->send_now('Z', "");
+
+$self->disconnect;
+
 return (1);