18 |
|
|
19 |
## CONFIG |
## CONFIG |
20 |
|
|
21 |
my $NICK = 'irc-logger-dev'; |
my $NICK = 'irc-logger'; |
22 |
my $CONNECT = |
my $CONNECT = |
23 |
{Server => 'irc.freenode.net', |
{Server => 'irc.freenode.net', |
24 |
Nick => $NICK, |
Nick => $NICK, |
216 |
|
|
217 |
my $append = 1; |
my $append = 1; |
218 |
|
|
219 |
if ($last_row->{nick} ne $row->{nick}) { |
my $nick = $row->{nick}; |
220 |
|
if ($nick =~ s/^_*(.*?)_*$/$1/) { |
221 |
|
$row->{nick} = $nick; |
222 |
|
} |
223 |
|
|
224 |
|
if ($last_row->{nick} ne $nick) { |
225 |
# 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 |
226 |
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}; |
227 |
$fmt ||= '%s'; |
$fmt ||= '%s'; |
228 |
|
|
|
my $nick = $row->{nick}; |
|
229 |
$nick = $args->{filter}->{nick}->($nick) if (ref($args->{filter}->{nick}) eq 'CODE'); |
$nick = $args->{filter}->{nick}->($nick) if (ref($args->{filter}->{nick}) eq 'CODE'); |
230 |
|
|
231 |
$msg .= sprintf( $fmt, $nick ); |
$msg .= sprintf( $fmt, $nick ); |
528 |
} . |
} . |
529 |
join("</p><p>", |
join("</p><p>", |
530 |
get_from_log( |
get_from_log( |
531 |
limit => $q->param('limit') || 100, |
limit => $q->param('last') || 100, |
532 |
search => $q->param('search') || $q->param('grep') || undef, |
search => $q->param('search') || $q->param('grep') || undef, |
533 |
fmt => { |
fmt => { |
534 |
time => '<span class="time">%s</span> ', |
time => '<span class="time">%s</span> ', |