- my ($self,$command, $target, $msg) = @_;
-
- $msg =~ s`<b>(.*?)</b>`${\(chr(2))}$1${\(chr(15))}`gi;
- $msg =~ s`<c(\d+)>(.*?)</c>`${\(chr(3))}$1$2${\(chr(15))}`gi;
-
- $self->command($command, $target, $msg);
-}
-
-sub command {
- my ($self,@command) = @_;
-
- $self->server->yield(@command);