X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=cmd%2Fkill.pl;h=b6d193fe48f276ac9b2b40a116c5074b6adfefa5;hp=d3de0beb3417b22f36e26f6c36830e9825d2c72f;hb=b060a0a3ee72530aa3f10d453186a662b66d7efe;hpb=3d29b1a4d4aab997da2deff10470068601744530

diff --git a/cmd/kill.pl b/cmd/kill.pl
index d3de0beb..b6d193fe 100644
--- a/cmd/kill.pl
+++ b/cmd/kill.pl
@@ -12,6 +12,7 @@ my $msgno;
 my @out;
 my @body;
 my $ref;
+my $call = $self->call;
 
 # $DB::single = 1;
 
@@ -27,6 +28,7 @@ for $msgno (@f) {
     push @out, "Msg $msgno not available";
 	next;
   } 
+  Log('msg', "Message $ref->{msgno} from $ref->{from} to $ref->{to} deleted by $call");
   $ref->del_msg;
   push @out, "Message $msgno deleted";
 }