# 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^";
}