X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=d680251b2fa27afcd31853d0cf0ad72593bb3115;hb=fda536aef281e0f6fc68a02c537d18650bd5505f;hp=fbdbeee310bf430b5bac3d5f7282347916f47b04;hpb=8bb4b460148fbc97739e8645f627cb9ab049d512;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index fbdbeee3..d680251b 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -161,7 +161,7 @@ sub alloc
 		$self->{group} = $user->group;
 		$self->{sort} = $user->sort;
 	}
-	$self->{startt} = $self->{t} = time;
+	$self->{startt} = $self->{t} = $main::systime;
 	$self->{state} = 0;
 	$self->{oldstate} = 0;
 	$self->{lang} = $main::lang if !$self->{lang};
@@ -427,7 +427,7 @@ sub send						# this is always later and always data
 	my $call = $self->{call};
 
 	foreach my $l (@_) {
-		for (ref $l ? @$l : $l) {
+		for (ref($l) eq 'ARRAY' ? @$l : $l) {
 			my @lines = split /\n/;
 			for (@lines) {
 				$conn->send_later("D$call|$_");
@@ -497,7 +497,7 @@ sub disconnect
 	my $self = shift;
 	my $user = $self->{user};
 	
-	$user->close() if defined $user;
+	$user->close($self->{startt}, $self->{hostname}) if defined $user;
 	$self->{conn}->disconnect if $self->{conn};
 	$self->del();
 }