--- trunk/irc-logger.pl	2006/06/25 00:10:13	35
+++ trunk/irc-logger.pl	2006/06/25 16:37:39	36
@@ -287,6 +287,20 @@
 
 POE::Component::IRC->new($IRC_ALIAS);
 
+=head2 save_message
+
+  save_message($channel,$me,$nick,$msg);
+
+=cut
+
+sub save_message {
+	my ($channel,$me,$nick,$msg) = @_;
+	$me ||= 0;
+	$sth->execute($channel, $me, $nick, $msg);
+	add_tag( id => $dbh->last_insert_id(undef,undef,"log",undef),
+		message => $msg);
+}
+
 POE::Session->create( inline_states =>
    {_start => sub {      
 		$_[KERNEL]->post($IRC_ALIAS => register => 'all');
@@ -308,9 +322,7 @@
 		from_to($msg, 'UTF-8', $ENCODING);
 
 		print "$channel: <$nick> $msg\n";
-		$sth->execute($channel, 0, $nick, $msg);
-		add_tag( id => $dbh->last_insert_id(undef,undef,"log",undef),
-			message => $msg);
+		save_message($channel, 0, $nick, $msg);
     },
     irc_ctcp_action => sub {
 		my $kernel = $_[KERNEL];
@@ -321,9 +333,7 @@
 		from_to($msg, 'UTF-8', $ENCODING);
 
 		print "$channel ***$nick $msg\n";
-		$sth->execute($channel, 1, $nick, $msg);
-		add_tag( id => $dbh->last_insert_id(undef,undef,"log",undef),
-			message => $msg);
+		save_message($channel, 1, $nick, $msg);
     },
 	irc_msg => sub {
 		my $kernel = $_[KERNEL];