From fdc1150da7dbd9c1094d8df7a4744fb917017ed2 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sun, 20 Sep 1998 21:45:08 +0000
Subject: [PATCH] got some basic local user add and subtract database going

---
 perl/DXCommandmode.pm | 6 +++---
 perl/DXProtout.pm     | 8 ++++----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index d39af559..18dbf2ac 100644
--- 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;
diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 66252c7a..9fb0b711 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -69,11 +69,11 @@ sub pc16
   my $self = shift;
   my @out;
 
-  while (@_) {
+  foreach (@_) {
     my $str = "PC16^$self->{call}";
     my $i;
     
-    for ($i = 0; @_ && $i < $DXProt::pc16_max_users; $i++) {
+    for ($i = 0; @_ > 0  && $i < $DXProt::pc16_max_users; $i++) {
       my $ref = shift;
 	  $str .= sprintf "^%s %s %d", $ref->call, $ref->confmode ? '*' : '-', $ref->here;
 	}
@@ -86,9 +86,9 @@ sub pc16
 # remove a local user
 sub pc17
 {
-  my $self = shift;
+  my ($self, $ref) = @_;
   my $hops = get_hops(17);
-  return "PC17^$self->{call}^$main::mycall^$hops^";
+  return "PC17^$self->{call}^$ref->{call}^$hops^";
 }
 
 # Request init string
-- 
2.43.0