# Request init string
sub pc18
{
- return "PC18^wot a load of twaddle^$DXProt::myprot_version^~";
+ my $info = DXCluster::cluster;
+ return "PC18^$info^$DXProt::myprot_version^~";
}
#
# 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;