sub reply {
my ($self,$msg) = @_;
+ $self->message($self->reply_string , $msg);
+}
+
+sub message {
+ my ($self,$command,$msg) = @_;
+
$msg =~ s`<b>(.*?)</b>`${\(chr(2))}$1${\(chr(15))}`gi;
$msg =~ s`<c(\d+)>(.*?)</c>`${\(chr(3))}$1$2${\(chr(15))}`gi;
- $self->server->command($self->reply_string . $msg);
+ $self->server->command("$command $msg");
}
sub _build_roles {
my $reply_string;
given ($p){
when ('!'){
- $reply_string = "msg $nick ";
+ $reply_string = "msg $nick";
}
when ('~'){
- $reply_string = "msg $channel ";
+ $reply_string = "msg $channel";
}
default {
- $reply_string = "notice $nick ";
+ $reply_string = "notice $nick";
}
}