X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXProtout.pm;fp=perl%2FDXProtout.pm;h=ec9abaa0b0f2c41e945fd205bb24c6dc7dc883e5;hp=2325e7a5cb36c9c9d1bfd51531c3638d3e315314;hb=2c50f9b4b2b3f29b000d77623a9d7c3748933aef;hpb=7e2b5e1e1f0543a093151889d6e76bcce82bae86

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 2325e7a5..ec9abaa0 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -416,6 +416,12 @@ sub pc92c
 	return _gen_pc92('C', 1, @_);
 }
 
+# send a keep alive
+sub pc92k
+{
+	return _gen_pc92('K', 1, @_);
+}
+
 # send a 'find' message
 sub pc92f
 {