X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=ce9b13a4b077c61cd0c8568784f768061f992081;hb=5acd1be649672f6e5bd2b4a6772b51cd935ebda9;hp=0bde0d2cd010623bc34dfd551989a45336369b61;hpb=cc91428ca79b3cdfdc7733505384f5983ad6c7fa;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 0bde0d2c..ce9b13a4 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -326,7 +326,7 @@ sub normal
 				$user = DXUser->new($call) if !$user;
 				$user->homenode($node->call) if !$user->homenode;
 				$user->node($node->call);
-				$user->lastin($main::systime);
+				$user->lastin($main::systime) unless DXChannel->get($call);
 				$user->put;
 			}
 			
@@ -379,7 +379,7 @@ sub normal
 					$user->homenode($call);
 					$user->node($call);
 				}
-				$user->lastin($main::systime);
+				$user->lastin($main::systime) unless DXChannel->get($call);
 				$user->put;
 			}