/[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 17 by dpavlin, Mon Mar 13 16:50:07 2006 UTC revision 18 by dpavlin, Mon Mar 13 17:07:40 2006 UTC
# Line 402  my $httpd = POE::Component::Server::HTTP Line 402  my $httpd = POE::Component::Server::HTTP
402          Headers        => { Server => 'irc-logger' },          Headers        => { Server => 'irc-logger' },
403  );  );
404    
405    my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');
406    my $escape_re  = join '|' => keys %escape;
407    
408  my $style = <<'_END_OF_STYLE_';  my $style = <<'_END_OF_STYLE_';
409  p { margin: 0; padding: 0.1em; }  p { margin: 0; padding: 0.1em; }
410  .time, .channel { color: #808080; font-size: 60%; }  .time, .channel { color: #808080; font-size: 60%; }
# Line 447  sub root_handler { Line 450  sub root_handler {
450                                  },                                  },
451                                  message_filter => sub {                                  message_filter => sub {
452                                          my $m = shift || return;                                          my $m = shift || return;
453                                            $m =~ s/($escape_re)/$escape{$1}/gs;
454                                          $m =~ s#($RE{URI}{HTTP})#<a href="$1">$1</a>#gs;                                          $m =~ s#($RE{URI}{HTTP})#<a href="$1">$1</a>#gs;
455                                          return $m;                                          return $m;
456                                  },                                  },

Legend:
Removed from v.17  
changed lines
  Added in v.18

  ViewVC Help
Powered by ViewVC 1.1.26