--- trunk/bin/irc-logger.pl	2007/03/18 16:03:24	51
+++ trunk/bin/irc-logger.pl	2007/04/07 22:57:08	59
@@ -75,6 +75,10 @@
 use DateTime;
 use Data::Dump qw/dump/;
 
+my $use_twitter = 1;
+eval { require Net::Twitter; };
+$use_twitter = 0 if ($@);
+
 my $import_dircproxy;
 my $log_path;
 GetOptions(
@@ -545,8 +549,13 @@
 
 		save_message( channel => $channel, me => 1, nick => $nick, msg => $msg);
 
-		if ( my $twitter = ( $nick, $channel, 'twitter' ) ) {
-			_log("FIXME: send twitter for $nick on $channel [$twitter]");
+		if ( $use_twitter ) {
+			if ( my $twitter = meta( $nick, $NICK, 'twitter' ) ) {
+				my ($login,$passwd) = split(/\s+/,$twitter,2);
+				_log("sending twitter for $nick/$login on $channel ");
+				my $bot = Net::Twitter->new( username=>$login, password=>$passwd );
+				$bot->update("<${channel}> $msg");
+			}
 		}
 
     },
@@ -593,11 +602,11 @@
 
 			my $sth = $dbh->prepare(qq{
 				select
-					nick,
+					trim(both '_' from nick) as nick,
 					count(*) as count,
 					sum(length(message)) as len
 				from log
-				group by nick
+				group by trim(both '_' from nick)
 				order by len desc,count desc
 				limit $nr
 			});
@@ -673,9 +682,9 @@
 			if ( ! defined( $1 ) ) {
 				my $sth = $dbh->prepare(qq{ select name,value,changed from meta where nick = ? and channel = ? });
 				$sth->execute( $nick, $channel );
-				$res = "config for $nick ";
+				$res = "config for $nick on $channel";
 				while ( my ($n,$v) = $sth->fetchrow_array ) {
-					$res .= "| $n = $v";
+					$res .= " | $n = $v";
 				}
 			} elsif ( ! $2 ) {
 				my $val = meta( $nick, $channel, $1 );
@@ -918,6 +927,9 @@
 						$m =~ s/($escape_re)/$escape{$1}/gs;
 						$m =~ s#($RE{URI}{HTTP})#<a href="$1">$1</a>#gs;
 						$m =~ s#$tag_regex#<a href="?tag=$1" class="tag">$1</a>#g;
+						$m =~ s#\*(\w+)\*#<b>$1</b>#gs;
+						$m =~ s#_(\w+)_#<u>$1</u>#gs;
+						$m =~ s#\/(\w+)\/#<i>$1</i>#gs;
 						return $m;
 					},
 					nick => sub {