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 522200da3b8249cb74f3bc492a92fa1862d17331..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");
}
#
}
#
@@
-192,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;
}