X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=cmd%2Fkill.pl;fp=cmd%2Fkill.pl;h=c2062ba4bd69e0327ad98fac206f5e1b66f75279;hb=3eb722692c2c1e9de84752391d5b6330e062c7e6;hp=fb58bc247c09655408dbb91193f7fe596c518e75;hpb=f0ac8322367c66080b6dbb74da4de72dae126dc3;p=spider.git diff --git a/cmd/kill.pl b/cmd/kill.pl index fb58bc24..c2062ba4 100644 --- a/cmd/kill.pl +++ b/cmd/kill.pl @@ -64,10 +64,10 @@ while (@f) { foreach $ref ( @refs) { Log('msg', "Message $ref->{msgno} from $ref->{from} to $ref->{to} deleted by $call"); if ($full) { - DXProt::broadcast_all_ak1a(DXProt::pc49($self->call, $ref->{subject}), $DXProt::me); + DXProt::broadcast_ak1a(DXProt::pc49($ref->{from}, $ref->{subject}), $DXProt::me); } $ref->del_msg; - push @out, "Message $ref->{msgno} deleted"; + push @out, $self->msg('m12', $ref->msgno); } return (1, @out);