550 |
save_message( channel => $channel, me => 1, nick => $nick, msg => $msg); |
save_message( channel => $channel, me => 1, nick => $nick, msg => $msg); |
551 |
|
|
552 |
if ( $use_twitter ) { |
if ( $use_twitter ) { |
553 |
if ( my $twitter = meta( $nick, $channel, 'twitter' ) ) { |
if ( my $twitter = meta( $nick, $NICK, 'twitter' ) ) { |
554 |
my ($login,$passwd) = split(/\s+/,$twitter,2); |
my ($login,$passwd) = split(/\s+/,$twitter,2); |
555 |
_log("sending twitter for $nick/$login on $channel "); |
_log("sending twitter for $nick/$login on $channel "); |
556 |
my $bot = Net::Twitter->new( username=>$login, password=>$passwd ); |
my $bot = Net::Twitter->new( username=>$login, password=>$passwd ); |
602 |
|
|
603 |
my $sth = $dbh->prepare(qq{ |
my $sth = $dbh->prepare(qq{ |
604 |
select |
select |
605 |
nick, |
trim(both '_' from nick) as nick, |
606 |
count(*) as count, |
count(*) as count, |
607 |
sum(length(message)) as len |
sum(length(message)) as len |
608 |
from log |
from log |
609 |
group by nick |
group by trim(both '_' from nick) |
610 |
order by len desc,count desc |
order by len desc,count desc |
611 |
limit $nr |
limit $nr |
612 |
}); |
}); |
927 |
$m =~ s/($escape_re)/$escape{$1}/gs; |
$m =~ s/($escape_re)/$escape{$1}/gs; |
928 |
$m =~ s#($RE{URI}{HTTP})#<a href="$1">$1</a>#gs; |
$m =~ s#($RE{URI}{HTTP})#<a href="$1">$1</a>#gs; |
929 |
$m =~ s#$tag_regex#<a href="?tag=$1" class="tag">$1</a>#g; |
$m =~ s#$tag_regex#<a href="?tag=$1" class="tag">$1</a>#g; |
930 |
|
$m =~ s#\*(\w+)\*#<b>$1</b>#gs; |
931 |
|
$m =~ s#_(\w+)_#<u>$1</u>#gs; |
932 |
|
$m =~ s#\/(\w+)\/#<i>$1</i>#gs; |
933 |
return $m; |
return $m; |
934 |
}, |
}, |
935 |
nick => sub { |
nick => sub { |