loads of changes and added things

[spider.git] / cmd / kill.pl

diff --git a/cmd/kill.pl b/cmd/kill.pl
index b410bc14c63c5a016233ed2ffebaf5633ba30f99..d3de0beb3417b22f36e26f6c36830e9825d2c72f 100644 (file)
--- a/cmd/kill.pl
+++ b/cmd/kill.pl
@@ -21,10 +21,12 @@ for $msgno (@f) {
     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";
 }