--- trunk/irc-logger.pl	2006/06/24 22:15:47	33
+++ trunk/irc-logger.pl	2006/06/24 22:57:26	34
@@ -40,6 +40,7 @@
 my $DSN = 'DBI:Pg:dbname=' . $NICK;
 
 my $ENCODING = 'ISO-8859-2';
+my $TIMESTAMP = '%Y-%m-%d %H:%M:%S';
 
 ## END CONFIG
 
@@ -52,6 +53,7 @@
 use Regexp::Common qw /URI/;
 use CGI::Simple;
 use HTML::TagCloud;
+use POSIX qw/strftime/;
 
 my $dbh = DBI->connect($DSN,"","", { RaiseError => 1, AutoCommit => 1 }) || die $DBI::errstr;
 
@@ -272,8 +274,7 @@
 
 POE::Component::IRC->new($IRC_ALIAS);
 
-POE::Session->create
-  (inline_states =>
+POE::Session->create( inline_states =>
    {_start => sub {      
 		$_[KERNEL]->post($IRC_ALIAS => register => 'all');
 		$_[KERNEL]->post($IRC_ALIAS => connect => $CONNECT);
@@ -399,30 +400,13 @@
 #		warn "## indetify $NICK\n";
 #		$_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "IDENTIFY $NICK" );
 #	},
-	irc_372 => sub {
-		print "MOTD: ", $_[ARG1], "\n";
-	},
-	irc_snotice => sub {
-		print "(server notice): ", $_[ARG0], "\n";
-	},
-    (map
-     {
-       ;"irc_$_" => sub { }}
-     qw(
-		)),
-#	join
-#     	ctcp_version
-#	connected snotice ctcp_action ping notice mode part quit
-#	001 002 003 004 005
-#	250 251 252 253 254 265 266
-#	332 333 353 366 372 375 376
-#	477
     _child => sub {},
     _default => sub {
-      printf "%s: session %s caught an unhandled %s event.\n",
-        scalar localtime(), $_[SESSION]->ID, $_[ARG0];
-      print "The $_[ARG0] event was given these parameters: ",
-        join(" ", map({"ARRAY" eq ref $_ ? "[@$_]" : "$_"} @{$_[ARG1]})), "\n";
+		printf "%s #%s %s %s\n",
+			strftime($TIMESTAMP,localtime()), $_[SESSION]->ID, $_[ARG0],
+			ref($_[ARG1]) eq "ARRAY"	?	join(",", map { ref($_) eq "ARRAY" ? join(";", @{$_}) : $_ } @{ $_[ARG1] })	:
+			$_[ARG1]					?	$_[ARG1]					:
+			"";
       0;                        # false for signals
     },
     my_add => sub {