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 ); |
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 { |