--- trunk/bin/irc-logger.pl	2007/06/08 12:06:48	62
+++ trunk/bin/irc-logger.pl	2007/06/08 12:07:45	63
@@ -75,6 +75,7 @@
 use DateTime;
 use URI::Escape;
 use Data::Dump qw/dump/;
+use DateTime::Format::ISO8601;
 
 my $use_twitter = 1;
 eval { require Net::Twitter; };
@@ -261,7 +262,10 @@
 
 	$sql .= " where message ilike ? or nick ilike ? " if ($args->{search});
 	$sql .= " where id in (" . join(",", @{ $tags->{ $args->{tag} } }) . ") " if ($args->{tag} && $tags->{ $args->{tag} });
-	$sql .= " where date(time) = ? " if ($args->{date});
+	if ($args->{date}) {
+		$args->{date} = DateTime::Format::ISO8601->parse_datetime( $args->{date} )->ymd;
+		$sql .= " where date(time) = ? ";
+	}
 	$sql .= " order by log.time desc";
 	$sql .= " limit " . $args->{limit} if ($args->{limit});