6. Implemented PC49 delete/full from outside (kill full on the inside)

[spider.git] / cmd / kill.pl

diff --git a/cmd/kill.pl b/cmd/kill.pl
index b6d193fe48f276ac9b2b40a116c5074b6adfefa5..d3614c3632f4dd5e4e1ca40623ba23b8db54f5dc 100644 (file)
--- a/cmd/kill.pl
+++ b/cmd/kill.pl
@@ -13,6 +13,13 @@ my @out;
 my @body;
 my $ref;
 my $call = $self->call;
+my $full;
+
+if ($f[0] =~ /^f/io) {
+       return (1, $self->msg('e5')) if $self->priv < 5;
+       $full = 1;
+       shift @f;
+}
 
 # $DB::single = 1;
 
@@ -29,6 +36,9 @@ for $msgno (@f) {
        next;
   } 
   Log('msg', "Message $ref->{msgno} from $ref->{from} to $ref->{to} deleted by $call");
+  if ($full) {
+         DXProt::broadcast_ak1a(DXProt::pc49($self->call, $ref->{subject}), $DXProt::me);
+  }
   $ref->del_msg;
   push @out, "Message $msgno deleted";
 }