sanitise newlines

This commit is contained in:
Pavol Rusnak 2011-06-22 18:17:25 +02:00
parent f057156b42
commit ced66e2f11

View file

@ -554,9 +554,10 @@ sub irc_public {
foreach my $subpod (@{$pod->subpods}) {
if ($subpod->plaintext) {
my $answer = '';
$answer .= ($pod->title . ' - ') if $pod->title;
$answer .= ($subpod->title . ' - ') if $subpod->title;
$answer .= ($pod->title . ': ') if $pod->title;
$answer .= ($subpod->title . ': ') if $subpod->title;
$answer .= $subpod->plaintext;
$answer =~ s/\n/, /g;
$irc->yield( privmsg => $channel => "$nick: $answer" );
}
}