/[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 79 by dpavlin, Wed Feb 20 20:26:45 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;
# Line 975  sub root_handler { Line 983  sub root_handler {
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    
# Line 1010  sub root_handler { Line 1018  sub root_handler {
1018                  } elsif ( $show eq 'last-tag' ) {                  } elsif ( $show eq 'last-tag' ) {
1019    
1020                          $nr ||= $last_x_tags;                          $nr ||= $last_x_tags;
1021                            $nr = $last_x_tags if $nr > $last_x_tags;
1022    
1023                          $feed->title( "last $nr tagged messages from $CHANNEL" );                          $feed->title( "last $nr tagged messages from $CHANNEL" );
1024                          $feed->link( $url );                          $feed->link( $url );
Legend:
Removed from v.79  
changed lines
  Added in v.83
  ViewVC Help
Powered by ViewVC 1.1.26