--- trunk/bin/irc-logger.pl	2007/06/08 12:07:45	63
+++ trunk/bin/irc-logger.pl	2007/06/08 12:12:45	64
@@ -263,8 +263,13 @@
 	$sql .= " where message ilike ? or nick ilike ? " if ($args->{search});
 	$sql .= " where id in (" . join(",", @{ $tags->{ $args->{tag} } }) . ") " if ($args->{tag} && $tags->{ $args->{tag} });
 	if ($args->{date}) {
-		$args->{date} = DateTime::Format::ISO8601->parse_datetime( $args->{date} )->ymd;
+		my $date = eval { DateTime::Format::ISO8601->parse_datetime( $args->{date} )->ymd; };
+		if ( $@ ) {
+			warn "invalid date ", $args->{date}, $/;
+			$date = DateTime->now->ymd;
+		}
 		$sql .= " where date(time) = ? ";
+		$args->{date} = $date;
 	}
 	$sql .= " order by log.time desc";
 	$sql .= " limit " . $args->{limit} if ($args->{limit});