fix (remove) peerhost on connect error

[spider.git] / cmd / set / echo.pl

diff --git a/cmd/set/echo.pl b/cmd/set/echo.pl
index 3bea94302569e746f705ce92069cfcf79b63ede0..4e14b995965bd89b730e88420b130bedb519629e 100644 (file)
--- a/cmd/set/echo.pl
+++ b/cmd/set/echo.pl
@@ -3,8 +3,10 @@
 #
 # Copyright (c) 2000 - Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 my $self = shift;
 $self->send_now("E", "1");
+$self->conn->echo(1);
+$self->user->wantecho(1);
 return (1, $self->msg('echoon'));