61 |
my $CHANNEL = '#razmjenavjestina'; |
my $CHANNEL = '#razmjenavjestina'; |
62 |
|
|
63 |
if ( $HOSTNAME =~ m/llin/ ) { |
if ( $HOSTNAME =~ m/llin/ ) { |
64 |
$irc_config->{nick} = 'irc-logger-dev'; |
$irc_config->{nick} = 'irc-logger-llin'; |
65 |
# $irc_config = { |
# $irc_config = { |
66 |
# nick => 'irc-logger-dev', |
# nick => 'irc-logger-llin', |
67 |
# server => 'localhost', |
# server => 'localhost', |
68 |
# port => 6668, |
# port => 6668, |
69 |
# }; |
# }; |
696 |
$msg .= prefix( ' | ' , $entry->title ); |
$msg .= prefix( ' | ' , $entry->title ); |
697 |
$msg .= prefix( ' | ' , $link ); |
$msg .= prefix( ' | ' , $link ); |
698 |
# $msg .= prefix( ' id ' , $entry->id ); |
# $msg .= prefix( ' id ' , $entry->id ); |
699 |
|
if ( my $tags = $entry->category ) { |
700 |
|
$tags =~ s!^\s+!!; |
701 |
|
$tags =~ s!\s*$! !; |
702 |
|
$tags =~ s!\s+!// !g; |
703 |
|
$msg .= prefix( ' ' , $tags ); |
704 |
|
} |
705 |
|
|
706 |
if ( $args->{kernel} && $send_rss_msgs ) { |
if ( $args->{kernel} && $send_rss_msgs ) { |
707 |
$send_rss_msgs--; |
$send_rss_msgs--; |
1015 |
irc_376 => sub { |
irc_376 => sub { |
1016 |
_log "<< motd", $_[ARG0], "end"; |
_log "<< motd", $_[ARG0], "end"; |
1017 |
}, |
}, |
1018 |
|
# irc_433 => sub { |
1019 |
|
# print "# irc_433: ",$_[ARG1], "\n"; |
1020 |
|
# warn "## indetify $NICK\n"; |
1021 |
|
# $_[KERNEL]->post( $irc => privmsg => 'nickserv', "IDENTIFY $NICK" ); |
1022 |
|
# }, |
1023 |
|
# irc_451 # please register |
1024 |
irc_477 => sub { |
irc_477 => sub { |
1025 |
_log "<< irc_477: ",$_[ARG1]; |
_log "<< irc_477: ",$_[ARG1]; |
1026 |
$_[KERNEL]->post( $irc => privmsg => 'nickserv', "register $NICK" ); |
_log ">> IDENTIFY $NICK"; |
1027 |
|
$_[KERNEL]->post( $irc => privmsg => 'NickServ', "IDENTIFY $NICK" ); |
1028 |
}, |
}, |
1029 |
irc_505 => sub { |
irc_505 => sub { |
1030 |
_log "<< irc_505: ",$_[ARG1]; |
_log "<< irc_505: ",$_[ARG1]; |
1031 |
$_[KERNEL]->post( $irc => privmsg => 'nickserv', "register $NICK" ); |
_log ">> register $NICK"; |
1032 |
|
$_[KERNEL]->post( $irc => privmsg => 'NickServ', "register $NICK" ); |
1033 |
|
# $_[KERNEL]->post( $irc => privmsg => 'nickserv', "IDENTIFY $NICK" ); |
1034 |
# $_[KERNEL]->post( $irc => privmsg => 'nickserv', "set hide email on" ); |
# $_[KERNEL]->post( $irc => privmsg => 'nickserv', "set hide email on" ); |
1035 |
# $_[KERNEL]->post( $irc => privmsg => 'nickserv', "set email dpavlin\@rot13.org" ); |
# $_[KERNEL]->post( $irc => privmsg => 'nickserv', "set email dpavlin\@rot13.org" ); |
1036 |
}, |
}, |
1047 |
sleep($sleep_on_error); |
sleep($sleep_on_error); |
1048 |
$_[KERNEL]->post( $irc => connect => {} ); |
$_[KERNEL]->post( $irc => connect => {} ); |
1049 |
}, |
}, |
|
# irc_433 => sub { |
|
|
# print "# irc_433: ",$_[ARG1], "\n"; |
|
|
# warn "## indetify $NICK\n"; |
|
|
# $_[KERNEL]->post( $irc => privmsg => 'nickserv', "IDENTIFY $NICK" ); |
|
|
# }, |
|
|
# irc_451 # please register |
|
1050 |
irc_notice => sub { |
irc_notice => sub { |
1051 |
_log "<< notice",$_[ARG0]; |
_log "<< notice",$_[ARG0],dump($_[ARG1]); |
1052 |
if ( $_[ARG0] =~ m!/msg\s+NickServ\s+IDENTIFY!i ) { |
if ( $_[ARG0] =~ m!/msg\s+NickServ\s+IDENTIFY!i ) { |
1053 |
|
_log ">> IDENTIFY"; |
1054 |
$_[KERNEL]->post( $irc => privmsg => 'nickserv', "IDENTIFY $NICK" ); |
$_[KERNEL]->post( $irc => privmsg => 'nickserv', "IDENTIFY $NICK" ); |
1055 |
} |
} |
1056 |
}, |
}, |
1075 |
|
|
1076 |
# http server |
# http server |
1077 |
|
|
1078 |
|
_log "WEB archive at $url"; |
1079 |
|
|
1080 |
my $httpd = POE::Component::Server::HTTP->new( |
my $httpd = POE::Component::Server::HTTP->new( |
1081 |
Port => $http_port, |
Port => $http_port, |
1082 |
PreHandler => { |
PreHandler => { |
1123 |
$style .= ".col-${max_color} { background: $c }\n"; |
$style .= ".col-${max_color} { background: $c }\n"; |
1124 |
$max_color++; |
$max_color++; |
1125 |
} |
} |
1126 |
warn "defined $max_color colors for users...\n"; |
_log "WEB defined $max_color colors for users..."; |
1127 |
|
|
1128 |
sub root_handler { |
sub root_handler { |
1129 |
my ($request, $response) = @_; |
my ($request, $response) = @_; |
1245 |
$feed->add_entry( $feed_entry ); |
$feed->add_entry( $feed_entry ); |
1246 |
|
|
1247 |
} else { |
} else { |
1248 |
_log "unknown rss request $r_url"; |
_log "WEB unknown rss request $r_url"; |
1249 |
$feed->title( "unknown $r_url" ); |
$feed->title( "unknown $r_url" ); |
1250 |
foreach my $c ( @commands ) { |
foreach my $c ( @commands ) { |
1251 |
my $feed_entry = XML::Feed::Entry->new($type); |
my $feed_entry = XML::Feed::Entry->new($type); |