X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXProt.pm;h=ab9e0e33fd0af91dbf9b83e8b45d53672d212cac;hp=8985e8ab4a640a6f8409d213e4cef974a03d5999;hb=cef696652d16bbeec53aca45234ea0b64f3496d3;hpb=d7cd2f1d32971efd542a9e4bf0d1df92a4d054de

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 8985e8ab..ab9e0e33 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -18,6 +18,7 @@ use DXM;
 use DXCluster;
 use DXProtVars;
 use DXCommandmode;
+use DXLog;
 use Spot;
 use DXProtout;
 use Carp;
@@ -68,6 +69,7 @@ sub start
   $self->send(pc18());
   $self->state('init');
   $self->pc50_t(time);
+  Log('DXProt', "$call connected");
 }
 
 #
@@ -427,6 +429,7 @@ sub finish
 
   # now broadcast to all other ak1a nodes that I have gone
   broadcast_ak1a(pc21($self->call, 'Gone.'), $self);
+  Log('DXProt', $self->call . " Disconnected");
   $ref->del() if $ref;
 }