/[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 30 by dpavlin, Fri Jun 16 21:28:46 2006 UTC revision 31 by dpavlin, Sat Jun 17 17:23:26 2006 UTC
# Line 83  values (?,?,?,?) Line 83  values (?,?,?,?)
83  });  });
84    
85  my $tags;  my $tags;
86    my $tag_regex = '\b([\w-_]+)//';
87    
88  =head2 get_from_log  =head2 get_from_log
89    
# Line 501  sub add_tag { Line 502  sub add_tag {
502          my $m = $arg->{message};          my $m = $arg->{message};
503          from_to('UTF-8', 'iso-8859-2', $m) if (is_utf8($m));          from_to('UTF-8', 'iso-8859-2', $m) if (is_utf8($m));
504    
505          while ($m =~ s#\b([\w-_]+)//##s) {          while ($m =~ s#$tag_regex##s) {
506                  my $tag = $1;                  my $tag = $1;
507                  next if (! $tag || $tag =~ m/https?:/i);                  next if (! $tag || $tag =~ m/https?:/i);
508                  push @{ $tags->{$tag} }, $arg->{id};                  push @{ $tags->{$tag} }, $arg->{id};
509                    warn "+tag $tag: $arg->{id}\n";
510          }          }
511  }  }
512    
# Line 551  p { margin: 0; padding: 0.1em; } Line 553  p { margin: 0; padding: 0.1em; }
553  .col-2 { background: #99ff99 }  .col-2 { background: #99ff99 }
554  .col-3 { background: #ff9999 }  .col-3 { background: #ff9999 }
555  .col-4 { background: #ff66ff }  .col-4 { background: #ff66ff }
556    a:link.tag, a:visited.tag { border: 1px dashed #ccc; backgound: #ccc; text-decoration: none }
557    a:hover.tag { border: 1px solid #eee }
558  _END_OF_STYLE_  _END_OF_STYLE_
559    
560  my $max_color = 4;  my $max_color = 4;
# Line 584  sub root_handler { Line 588  sub root_handler {
588                  <input type="submit" value="search">                  <input type="submit" value="search">
589                  </form>                  </form>
590                  } .                  } .
591                  qq{<div>} . $cloud->html(500) . qq{</div>} .                  $cloud->html(500) .
592                  qq{<p>} .                  qq{<p>} .
593                  join("</p><p>",                  join("</p><p>",
594                          get_from_log(                          get_from_log(
# Line 604  sub root_handler { Line 608  sub root_handler {
608                                                  my $m = shift || return;                                                  my $m = shift || return;
609                                                  $m =~ s/($escape_re)/$escape{$1}/gs;                                                  $m =~ s/($escape_re)/$escape{$1}/gs;
610                                                  $m =~ s#($RE{URI}{HTTP})#<a href="$1">$1</a>#gs;                                                  $m =~ s#($RE{URI}{HTTP})#<a href="$1">$1</a>#gs;
611                                                    $m =~ s#$tag_regex#<a href="?tag=$1" class="tag">$1</a>#g;
612                                                  return $m;                                                  return $m;
613                                          },                                          },
614                                          nick => sub {                                          nick => sub {

Legend:
Removed from v.30  
changed lines
  Added in v.31

  ViewVC Help
Powered by ViewVC 1.1.26