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