18 |
use XML::Feed; |
use XML::Feed; |
19 |
use DateTime::Format::Flexible; |
use DateTime::Format::Flexible; |
20 |
use Encode; |
use Encode; |
21 |
use Redis 2.0; |
#use Redis 2.0; |
22 |
|
|
23 |
=head1 NAME |
=head1 NAME |
24 |
|
|
567 |
eval { $sth_insert_log->execute($a->{channel}, $a->{me}, $a->{nick}, $a->{message}, $a->{time}); }; |
eval { $sth_insert_log->execute($a->{channel}, $a->{me}, $a->{nick}, $a->{message}, $a->{time}); }; |
568 |
|
|
569 |
eval { |
eval { |
|
my $redis = Redis->new( server => '192.168.1.61:6379' ); |
|
570 |
my @channel = ( 'channel' , $a->{channel}, $a->{nick} ); |
my @channel = ( 'channel' , $a->{channel}, $a->{nick} ); |
571 |
push @channel, 'me' if $a->{me}; |
push @channel, 'me' if $a->{me}; |
572 |
$redis->publish( join(' ',@channel), $a->{message} ); |
# my $redis = Redis->new( server => '192.168.1.61:6379' ); |
573 |
|
# $redis->publish( join(' ',@channel), $a->{message} ); |
574 |
}; |
}; |
575 |
|
|
576 |
if ( $@ ) { |
if ( $@ ) { |