| Subject: | Private Messages are not sent properly |
The function to send Private Messages expects a name in a certain
format, but then uses a different format, which results in errors.
The function should be edited as follows (which appears to work as long
as the correct name is passed as <level><nickname>).
sub sendPrivate {
my ($self,$to,$msg) = @_;
# Remove newline characters.
$to =~ s/[\x0d\x0a]//ig;
$msg =~ s/[\x0d\x0a]//ig;
return undef unless (length $to > 0 && length $msg > 0);
$self->send ("20|$to|^1$msg");
return 1;
}