216 |
|
|
217 |
my $append = 1; |
my $append = 1; |
218 |
|
|
219 |
if ($last_row->{nick} ne $row->{nick}) { |
my $nick = $row->{nick}; |
220 |
|
$nick =~ s/^_*(.*?)_*$/$1/; |
221 |
|
|
222 |
|
if ($last_row->{nick} ne $nick) { |
223 |
# obfu way to find format for me_nick if needed or fallback to default |
# obfu way to find format for me_nick if needed or fallback to default |
224 |
my $fmt = $row->{me} ? ( $args->{fmt}->{me_nick} || $args->{fmt}->{nick} ) : $args->{fmt}->{nick}; |
my $fmt = $row->{me} ? ( $args->{fmt}->{me_nick} || $args->{fmt}->{nick} ) : $args->{fmt}->{nick}; |
225 |
$fmt ||= '%s'; |
$fmt ||= '%s'; |
226 |
|
|
|
my $nick = $row->{nick}; |
|
227 |
$nick = $args->{filter}->{nick}->($nick) if (ref($args->{filter}->{nick}) eq 'CODE'); |
$nick = $args->{filter}->{nick}->($nick) if (ref($args->{filter}->{nick}) eq 'CODE'); |
228 |
|
|
229 |
$msg .= sprintf( $fmt, $nick ); |
$msg .= sprintf( $fmt, $nick ); |