4 # this is my version of conferencing....
6 # Copyright (c) 2003 Dirk Koopman G1TLH
10 my ($self, $line) = @_;
13 my @f = split /\s+/, $line, 2;
14 return (1, $self->msg('e5')) if $self->remotecmd || $self->inscript;
15 return (1, $self->msg('e34')) unless @f >= 1;
16 return (1, $self->msg('e28')) unless $self->registered;
18 my $target = uc $f[0];
20 return (1, $self->msg('e35', $target)) unless grep uc $_ eq $target, @{$self->user->group};
24 my $from = $self->call;
30 # change ^ into : for transmission
35 if (@bad = BadWords::check($line)) {
36 $self->badcount(($self->badcount||0) + @bad);
37 LogDbg('DXCommand', "$self->{call} swore: $line (with words:" . join(',', @bad) . ")");
38 Log('chat', $target, $from, "[to $from only] $line");
39 return (1, "$target de $from <$t>: $line");
42 $self->send_chats($target, $text);
44 my $ref = $self->talklist;
46 push @out, $self->msg('chattoomany', $target, $self->talklist->[0]);
48 $self->talklist([ $target ]);
49 push @out, $self->msg('chatinst', $target);
52 Log('chat', $target, $from, "Started chat mode on $target");
53 push @out, $self->chat_prompt;