X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fkill.pl;h=d3de0beb3417b22f36e26f6c36830e9825d2c72f;hb=6a0068ec3df1dca0c6ae2714af3c0a4a62998dcf;hp=0d787dd6faed15336a3c3e923d6236449f88e0fb;hpb=82f98b9ed11d362b2bf18f3371bb60ff02f024db;p=spider.git

diff --git a/cmd/kill.pl b/cmd/kill.pl
index 0d787dd6..d3de0beb 100644
--- a/cmd/kill.pl
+++ b/cmd/kill.pl
@@ -13,16 +13,20 @@ my @out;
 my @body;
 my $ref;
 
+# $DB::single = 1;
+
 for $msgno (@f) {
   $ref = DXMsg::get($msgno);
   if (!$ref) {
     push @out, "Msg $msgno not found";
 	next;
   }
-  if ($ref->private && $self->priv < 9 && $ref->to ne $ref->call) {
+  if ($self->priv < 5 && 
+      (($ref->private && $ref->to ne $self->call && $ref->from ne $self->call) ||
+      ($ref->private == 0  && $ref->from ne $self->call))) {
     push @out, "Msg $msgno not available";
 	next;
-  }
+  } 
   $ref->del_msg;
   push @out, "Message $msgno deleted";
 }