75 |
use DateTime; |
use DateTime; |
76 |
use URI::Escape; |
use URI::Escape; |
77 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
78 |
|
use DateTime::Format::ISO8601; |
79 |
|
|
80 |
my $use_twitter = 1; |
my $use_twitter = 1; |
81 |
eval { require Net::Twitter; }; |
eval { require Net::Twitter; }; |
262 |
|
|
263 |
$sql .= " where message ilike ? or nick ilike ? " if ($args->{search}); |
$sql .= " where message ilike ? or nick ilike ? " if ($args->{search}); |
264 |
$sql .= " where id in (" . join(",", @{ $tags->{ $args->{tag} } }) . ") " if ($args->{tag} && $tags->{ $args->{tag} }); |
$sql .= " where id in (" . join(",", @{ $tags->{ $args->{tag} } }) . ") " if ($args->{tag} && $tags->{ $args->{tag} }); |
265 |
$sql .= " where date(time) = ? " if ($args->{date}); |
if ($args->{date}) { |
266 |
|
my $date = eval { DateTime::Format::ISO8601->parse_datetime( $args->{date} )->ymd; }; |
267 |
|
if ( $@ ) { |
268 |
|
warn "invalid date ", $args->{date}, $/; |
269 |
|
$date = DateTime->now->ymd; |
270 |
|
} |
271 |
|
$sql .= " where date(time) = ? "; |
272 |
|
$args->{date} = $date; |
273 |
|
} |
274 |
$sql .= " order by log.time desc"; |
$sql .= " order by log.time desc"; |
275 |
$sql .= " limit " . $args->{limit} if ($args->{limit}); |
$sql .= " limit " . $args->{limit} if ($args->{limit}); |
276 |
|
|