projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added Log Parsing
[spider.git]
/
cmd
/
kill.pl
diff --git
a/cmd/kill.pl
b/cmd/kill.pl
index d3de0beb3417b22f36e26f6c36830e9825d2c72f..b6d193fe48f276ac9b2b40a116c5074b6adfefa5 100644
(file)
--- a/
cmd/kill.pl
+++ b/
cmd/kill.pl
@@
-12,6
+12,7
@@
my $msgno;
my @out;
my @body;
my $ref;
my @out;
my @body;
my $ref;
+my $call = $self->call;
# $DB::single = 1;
# $DB::single = 1;
@@
-27,6
+28,7
@@
for $msgno (@f) {
push @out, "Msg $msgno not available";
next;
}
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";
}
$ref->del_msg;
push @out, "Message $msgno deleted";
}