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, |
144 |
|
|
145 |
my $sql = $context ? $sql_context : $sql_message; |
my $sql = $context ? $sql_context : $sql_message; |
146 |
|
|
147 |
$sql .= " where message ilike ? " if ($args->{search}); |
$sql .= " where message ilike ? or nick ilike ? " if ($args->{search}); |
148 |
$sql .= " order by log.time desc"; |
$sql .= " order by log.time desc"; |
149 |
$sql .= " limit " . $args->{limit}; |
$sql .= " limit " . $args->{limit}; |
150 |
|
|
152 |
if (my $search = $args->{search}) { |
if (my $search = $args->{search}) { |
153 |
$search =~ s/^\s+//; |
$search =~ s/^\s+//; |
154 |
$search =~ s/\s+$//; |
$search =~ s/\s+$//; |
155 |
$sth->execute( '%' . $search . '%' ); |
$sth->execute( ( '%' . $search . '%' ) x 2 ); |
156 |
warn "search for '$search' returned ", $sth->rows, " results ", $context || '', "\n"; |
warn "search for '$search' returned ", $sth->rows, " results ", $context || '', "\n"; |
157 |
} else { |
} else { |
158 |
$sth->execute(); |
$sth->execute(); |
217 |
my $append = 1; |
my $append = 1; |
218 |
|
|
219 |
my $nick = $row->{nick}; |
my $nick = $row->{nick}; |
220 |
$nick =~ s/^_*(.*?)_*$/$1/; |
if ($nick =~ s/^_*(.*?)_*$/$1/) { |
221 |
|
$row->{nick} = $nick; |
222 |
|
} |
223 |
|
|
224 |
if ($last_row->{nick} ne $nick) { |
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}; |
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> ', |