projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added logging
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index a0cdbb480e5e8d01212a7ebd9da634921a0cdf61..aa4cb1a37a4fb287f9245612ec0b9d88e1c8c346 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-17,6
+17,7
@@
use DXUser;
use DXVars;
use DXDebug;
use DXM;
use DXVars;
use DXDebug;
use DXM;
+use DXLog;
use CmdAlias;
use FileHandle;
use Carp;
use CmdAlias;
use FileHandle;
use Carp;
@@
-74,6
+75,7
@@
sub start
my $nchan = DXChannel->get($main::mycall);
my @pc16 = DXProt::pc16($nchan, $cuser);
DXProt::broadcast_ak1a(@pc16);
my $nchan = DXChannel->get($main::mycall);
my @pc16 = DXProt::pc16($nchan, $cuser);
DXProt::broadcast_ak1a(@pc16);
+ Log('DXCommand', "$call connected");
}
#
}
#
@@
-137,8
+139,6
@@
sub normal
}
}
}
}
-# my @ans = $self->eval_file($path, $fcmd, $args) if $path && $fcmd;
-# @ans = $self->eval_file($main::cmd, $cmd, $args) if !$ans[0];
if ($ans[0]) {
shift @ans;
$self->send(@ans) if @ans > 0;
if ($ans[0]) {
shift @ans;
$self->send(@ans) if @ans > 0;
@@
-194,7
+194,8
@@
sub finish
my $nchan = DXChannel->get($main::mycall);
my $pc17 = $nchan->pc17($self);
DXProt::broadcast_ak1a($pc17);
my $nchan = DXChannel->get($main::mycall);
my $pc17 = $nchan->pc17($self);
DXProt::broadcast_ak1a($pc17);
-
+
+ Log('DXCommand', "$call disconnected");
$ref->del() if $ref;
}
$ref->del() if $ref;
}