projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'newusers' of ssh://server/scm/spider into newusers
[spider.git]
/
perl
/
DXChannel.pm
diff --git
a/perl/DXChannel.pm
b/perl/DXChannel.pm
index fbdbeee310bf430b5bac3d5f7282347916f47b04..0e543e9cea6f424c9dfe4cc6634b8b97ef7dc74c 100644
(file)
--- a/
perl/DXChannel.pm
+++ b/
perl/DXChannel.pm
@@
-161,7
+161,7
@@
sub alloc
$self->{group} = $user->group;
$self->{sort} = $user->sort;
}
$self->{group} = $user->group;
$self->{sort} = $user->sort;
}
- $self->{startt} = $self->{t} = time;
+ $self->{startt} = $self->{t} =
$main::sys
time;
$self->{state} = 0;
$self->{oldstate} = 0;
$self->{lang} = $main::lang if !$self->{lang};
$self->{state} = 0;
$self->{oldstate} = 0;
$self->{lang} = $main::lang if !$self->{lang};
@@
-497,7
+497,7
@@
sub disconnect
my $self = shift;
my $user = $self->{user};
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();
}
$self->{conn}->disconnect if $self->{conn};
$self->del();
}