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

diff --git a/cmd/kill.pl b/cmd/kill.pl
index d3de0beb..d3614c36 100644
--- a/cmd/kill.pl
+++ b/cmd/kill.pl
@@ -12,6 +12,14 @@ my $msgno;
 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;
 
@@ -27,6 +35,10 @@ for $msgno (@f) {
     push @out, "Msg $msgno not available";
 	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";
 }