got some basic local user add and subtract database going

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index d39af559e625f135b6c5e1a032a3f0883b4ccb74..18dbf2acd8130fd491f3a708fdc8028bcf73fbe3 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -67,8 +67,8 @@ sub start
   
   # issue a pc16 to everybody interested
   my $nchan = DXChannel->get($main::mycall);
-  my $pc16 = $nchan->pc16($cuser);
-  DXProt::broadcast_ak1a($pc16);
+  my @pc16 = DXProt::pc16($nchan, $cuser);
+  DXProt::broadcast_ak1a(@pc16);
 }
 
 #
@@ -153,7 +153,7 @@ sub finish
 
   # issue a pc17 to everybody interested
   my $nchan = DXChannel->get($main::mycall);
-  my $pc17 = $nchan->pc17($ref);
+  my $pc17 = $nchan->pc17($self);
   DXProt::broadcast_ak1a($pc17);
   
   $ref->del() if $ref;