916 |
|
|
917 |
my $httpd = POE::Component::Server::HTTP->new( |
my $httpd = POE::Component::Server::HTTP->new( |
918 |
Port => $http_port, |
Port => $http_port, |
919 |
|
PreHandler => { |
920 |
|
'/' => sub { |
921 |
|
$_[0]->header(Connection => 'close') |
922 |
|
} |
923 |
|
}, |
924 |
ContentHandler => { '/' => \&root_handler }, |
ContentHandler => { '/' => \&root_handler }, |
925 |
Headers => { Server => 'irc-logger' }, |
Headers => { Server => 'irc-logger' }, |
926 |
); |
); |
966 |
my ($request, $response) = @_; |
my ($request, $response) = @_; |
967 |
$response->code(RC_OK); |
$response->code(RC_OK); |
968 |
|
|
969 |
|
# this doesn't seem to work, so moved to PreHandler |
970 |
|
#$response->header(Connection => 'close'); |
971 |
|
|
972 |
return RC_OK if $request->uri =~ m/favicon.ico$/; |
return RC_OK if $request->uri =~ m/favicon.ico$/; |
973 |
|
|
974 |
my $q; |
my $q; |
983 |
|
|
984 |
my $search = $q->param('search') || $q->param('grep') || ''; |
my $search = $q->param('search') || $q->param('grep') || ''; |
985 |
|
|
986 |
if ($request->url =~ m#/rss(?:/(tags|last-tag?)\w+(?:=(\d+))?)?#i) { |
if ($request->url =~ m#/rss(?:/(tags|last-tag)\w*(?:=(\d+))?)?#i) { |
987 |
my $show = lc($1); |
my $show = lc($1); |
988 |
my $nr = $2; |
my $nr = $2; |
989 |
|
|