X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fbye.pl;h=9a842efd09b8268776af292d56275fc7e589daf7;hb=d0d643e52b8c7ab9f481c78edb8ab953a5da3b29;hp=1fc73f66648a9251cb327d9c5923902adc20d308;hpb=6b6a8002929017b6d4217f68fa492a2d728ee1fe;p=spider.git diff --git a/cmd/bye.pl b/cmd/bye.pl index 1fc73f66..9a842efd 100644 --- a/cmd/bye.pl +++ b/cmd/bye.pl @@ -5,5 +5,19 @@ # my $self = shift; -$self->state('bye'); +return (1, $self->msg('e5')) if $self->inscript; + +# log out text +if ($self->is_user && -e "$main::data/logout") { + open(I, "$main::data/logout") or confess; + my @in = ; + close(I); + $self->send_now('D', @in); + sleep(1); +} + +#$self->send_now('Z', ""); + +$self->disconnect; + return (1);