--- trunk/bin/irc-logger.pl	2008/03/10 21:52:49	114
+++ trunk/bin/irc-logger.pl	2008/03/12 17:21:07	116
@@ -112,12 +112,12 @@
 #	confess "fatal error";
 #};
 
-open(STDOUT, '>', $log_path) || warn "can't redirect log to $log_path: $!";
-
 sub _log {
-	print strftime($TIMESTAMP,localtime()) . ' ' . join(" ",@_) . $/;
+	print strftime($TIMESTAMP,localtime()) . ' ' . join(" ",map { ref($_) ? dump( $_ ) : $_ } @_) . $/;
 }
 
+open(STDOUT, '>', $log_path) && warn "log to $log_path: $!\n";
+
 # HTML formatters
 
 my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');
@@ -1048,14 +1048,20 @@
 		$_[KERNEL]->post( $irc => connect => {} );
 	},
 	irc_notice => sub {
-		_log "<< notice",$_[ARG0],dump($_[ARG1]);
-		if ( $_[ARG0] =~ m!/msg\s+NickServ\s+IDENTIFY!i ) {
-			_log ">> IDENTIFY";
+		_log "<< notice from ", $_[ARG0], $_[ARG1], $_[ARG2];
+		my $m = $_[ARG2];
+		if ( $m =~ m!/msg.*(NickServ).*(IDENTIFY)!i ) {
+			_log ">> suggested to $1 $2";
+			$_[KERNEL]->post( $irc => privmsg => $1, "$2 $NICK" );
+		} elsif ( $m =~ m!\Q$NICK\E.*registered!i ) {
+			_log ">> registreted, so IDENTIFY";
 			$_[KERNEL]->post( $irc => privmsg => 'nickserv', "IDENTIFY $NICK" );
+		} else {
+			warn "## ignore $m\n";
 		}
 	},
 	irc_snotice => sub {
-		_log "<< snotice",$_[ARG0];
+		_log "<< snotice", $_[ARG0]; #dump( $_[ARG0],$_[ARG1], $_[ARG2] );
 		if ( $_[ARG0] =~ m!/(QUOTE)\s+(PASS\s+\d+)!i ) {
 			warn ">> $1 | $2\n";
 			$_[KERNEL]->post( $irc => lc($1) => $2);