added ping and rcmd commands

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