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 ); |
526 |
} . |
} . |
527 |
join("</p><p>", |
join("</p><p>", |
528 |
get_from_log( |
get_from_log( |
529 |
limit => $q->param('limit') || 100, |
limit => $q->param('last') || 100, |
530 |
search => $q->param('search') || $q->param('grep') || undef, |
search => $q->param('search') || $q->param('grep') || undef, |
531 |
fmt => { |
fmt => { |
532 |
time => '<span class="time">%s</span> ', |
time => '<span class="time">%s</span> ', |