/[irc-logger]/trunk/bin/irc-logger.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/irc-logger.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 62 by dpavlin, Sat Apr 21 12:10:23 2007 UTC revision 63 by dpavlin, Fri Jun 8 12:07:45 2007 UTC
# Line 75  use Getopt::Long; Line 75  use Getopt::Long;
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; };
# Line 261  sub get_from_log { Line 262  sub get_from_log {
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                    $args->{date} = DateTime::Format::ISO8601->parse_datetime( $args->{date} )->ymd;
267                    $sql .= " where date(time) = ? ";
268            }
269          $sql .= " order by log.time desc";          $sql .= " order by log.time desc";
270          $sql .= " limit " . $args->{limit} if ($args->{limit});          $sql .= " limit " . $args->{limit} if ($args->{limit});
271    

Legend:
Removed from v.62  
changed lines
  Added in v.63

  ViewVC Help
Powered by ViewVC 1.1.26