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 ( $@ ) { |
1329 |
my $html = |
my $html = |
1330 |
qq{<html><head><title>$NICK</title><style type="text/css">$style} |
qq{<html><head><title>$NICK</title><style type="text/css">$style} |
1331 |
. $cloud->css |
. $cloud->css |
1332 |
. qq{</style></head><body>} |
. qq{</style> |
1333 |
|
<meta name="google-site-verification" content="oe-LvUiNiQRPpc_uB-3rY4MWvFifkmLf276WzAvTL5U" /> |
1334 |
|
</head><body>} |
1335 |
. qq{ |
. qq{ |
1336 |
<form method="post" class="search" action="/"> |
<form method="post" class="search" action="/"> |
1337 |
<input type="text" name="search" value="$search" size="10"> |
<input type="text" name="search" value="$search" size="10"> |