X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=ddfefc6e082af843a86e5e14e188400bb761ab43;hb=0824a94355e5fb2b4c379bb013d66466725629f5;hp=d39af559e625f135b6c5e1a032a3f0883b4ccb74;hpb=7432cb12ce865030c8b0315a30764e0088a59102;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index d39af559..ddfefc6e 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;
@@ -342,7 +342,7 @@ sub eval_file {
 	}
 	if ($@) {
 	  delete_package($package);
-	  return (0, "Syserr: Eval err $@ on $package");
+	  return (1, "Syserr: Eval err $@ on $package");
 	}
 		
 	#cache it unless we're cleaning out each time
@@ -352,10 +352,10 @@ sub eval_file {
   my @r;
   my $c = qq{ \@r = \$self->$package(\@_); };
   dbg('eval', "cluster cmd = $c\n");
-  eval  $c; ;
+  eval  $c;
   if ($@) {
     delete_package($package);
-	return (0, "Syserr: Eval err $@ on cached $package");
+	return (1, "Syserr: Eval err $@ on cached $package");
   }
 
   #take a look if you want