projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix call/call-ssid locking issue
[spider.git]
/
perl
/
DXChannel.pm
diff --git
a/perl/DXChannel.pm
b/perl/DXChannel.pm
index fbdbeee310bf430b5bac3d5f7282347916f47b04..d680251b2fa27afcd31853d0cf0ad72593bb3115 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};
@@
-427,7
+427,7
@@
sub send # this is always later and always data
my $call = $self->{call};
foreach my $l (@_) {
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|$_");
my @lines = split /\n/;
for (@lines) {
$conn->send_later("D$call|$_");
@@
-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();
}