to => '0,To',
from => '0,From',
t => '0,Msg Time,cldatetime',
- private => '5,Private',
+ private => '5,Private,yesno',
subject => '0,Subject',
linesreq => '0,Lines per Gob',
- rrreq => '5,Read Confirm',
+ rrreq => '5,Read Confirm,yesno',
origin => '0,Origin',
lines => '5,Data',
stream => '9,Stream No',
confess "local var gone missing" if !ref $self->{loc};
my $loc = $self->{loc};
if (my @ans = BadWords::check($line)) {
+ $self->{badcount} += @ans;
Log('msg', $self->call . " used badwords: @ans to @{$loc->{to}} in msg");
return ($self->msg('e17', @ans), $self->msg('m1'));
}
$self->state('prompt');
} else {
if (my @ans = BadWords::check($line)) {
+ $self->{badcount} += @ans;
Log('msg', $self->call . " used badwords: @ans to @{$loc->{to}} subject: '$loc->{subject}' in msg");
Log('msg', "line: $line");
return ($self->msg('e17', @ans));