projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added gb7dxm connect script
[spider.git]
/
perl
/
DXProtout.pm
diff --git
a/perl/DXProtout.pm
b/perl/DXProtout.pm
index 07d5a0e98baeb9f51173797efd3101f1412d0a7e..a5d5250b161014a817ce5d0c334035600018a18b 100644
(file)
--- a/
perl/DXProtout.pm
+++ b/
perl/DXProtout.pm
@@
-271,7
+271,7
@@
sub pc49
# periodic update of users, plus keep link alive device (always H99)
sub pc50
{
# periodic update of users, plus keep link alive device (always H99)
sub pc50
{
- my $me = DXCluster->get($main::mycall);
+ my $me = DXCluster->get
_exact
($main::mycall);
my $n = $me->users ? $me->users : '0';
return "PC50^$main::mycall^$n^H99^";
}
my $n = $me->users ? $me->users : '0';
return "PC50^$main::mycall^$n^H99^";
}
@@
-279,7
+279,7
@@
sub pc50
# generate pings
sub pc51
{
# generate pings
sub pc51
{
- my ($
self, $
to, $from, $val) = @_;
+ my ($to, $from, $val) = @_;
return "PC51^$to^$from^$val^";
}
1;
return "PC51^$to^$from^$val^";
}
1;