/[irc-logger]/trunk/bin/irc-logger.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/irc-logger.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 81 by dpavlin, Wed Feb 20 20:33:03 2008 UTC revision 83 by dpavlin, Fri Feb 29 22:11:07 2008 UTC
# Line 916  POE::Session->create( inline_states => Line 916  POE::Session->create( inline_states =>
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  );  );
# Line 961  sub root_handler { Line 966  sub root_handler {
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;

Legend:
Removed from v.81  
changed lines
  Added in v.83

  ViewVC Help
Powered by ViewVC 1.1.26