added inscript test to selected commands

[spider.git] / cmd / bye.pl

diff --git a/cmd/bye.pl b/cmd/bye.pl
index 653e939407a4067141f4da5bad97e11074af859a..9a842efd09b8268776af292d56275fc7e589daf7 100644 (file)
--- a/cmd/bye.pl
+++ b/cmd/bye.pl
@@ -5,6 +5,7 @@
 #
 
 my $self = shift;
+return (1, $self->msg('e5')) if $self->inscript;
 
 # log out text
 if ($self->is_user && -e "$main::data/logout") {