--- trunk/irc-logger.pl	2006/03/13 17:07:40	18
+++ trunk/irc-logger.pl	2006/03/13 21:02:16	19
@@ -33,7 +33,7 @@
    ERROR => "/var/log/apache/error.log",
   );
 
-my $DSN = 'DBI:Pg:dbname=irc-logger';
+my $DSN = 'DBI:Pg:dbname=' . $NICK;
 
 my $ENCODING = 'ISO-8859-2';
 
@@ -51,13 +51,19 @@
 
 my $dbh = DBI->connect($DSN,"","", { RaiseError => 1, AutoCommit => 1 }) || die $DBI::errstr;
 
-=for SQL schema
+eval {
+	$dbh->do(qq{ select count(*) from log });
+};
+
+if ($@) {
+	warn "creating database table in $DSN\n";
+	$dbh->do(<<'_SQL_SCHEMA_');
 
-$dbh->do(qq{
 create table log (
 	id serial,
 	time timestamp default now(),
 	channel text not null,
+	me boolean default false,
 	nick text not null,
 	message text not null,
 	primary key(id)
@@ -67,14 +73,13 @@
 create index log_channel on log(channel);
 create index log_nick on log(nick);
 
-});
-
-=cut
+_SQL_SCHEMA_
+}
 
 my $sth = $dbh->prepare(qq{
 insert into log
-	(channel, nick, message)
-values (?,?,?)
+	(channel, me, nick, message)
+values (?,?,?,?)
 });
 
 =head2 get_from_log
@@ -218,7 +223,18 @@
 		from_to($msg, 'UTF-8', $ENCODING);
 
 		print "$channel: <$nick> $msg\n";
-		$sth->execute($channel, $nick, $msg);
+		$sth->execute($channel, 0, $nick, $msg);
+    },
+    irc_ctcp_action => sub {
+		my $kernel = $_[KERNEL];
+		my $nick = (split /!/, $_[ARG0])[0];
+		my $channel = $_[ARG1]->[0];
+		my $msg = $_[ARG2];
+
+		from_to($msg, 'UTF-8', $ENCODING);
+
+		print "$channel ***$nick $msg\n";
+		$sth->execute($channel, 1, $nick, $msg);
     },
 	irc_msg => sub {
 		my $kernel = $_[KERNEL];