# 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^";
}
# generate pings
sub pc51
{
- my ($self, $to, $from, $val) = @_;
+ my ($to, $from, $val) = @_;
return "PC51^$to^$from^$val^";
}
1;