X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=18f37e88cb483c806ccd9750451f229ef45c9f9f;hb=893a6f6711e298eda86d8696093bf223c431729f;hp=6fbe90482f23dcaae9b34db21c97f877c15e5618;hpb=e788d90520036ffa8998db5d1cbad40c10ed977a;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 6fbe9048..18f37e88 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -1174,5 +1174,12 @@ sub import_cmd
 		}
 	}
 }
+
+sub print_find_reply
+{
+	my ($self, $node, $target, $flag, $ms) = @_;
+	my $sort = $flag == 2 ? "External" : "Local";
+	$self->send("$sort $target found at $node in $ms ms" );
+}
 1;
 __END__