/[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 133 by dpavlin, Sat Apr 5 21:08:27 2008 UTC revision 139 by dpavlin, Sat Jun 7 13:10:15 2008 UTC
# Line 1350  sub root_handler { Line 1350  sub root_handler {
1350          } else {          } else {
1351                  $html .= join("</p><p>",                  $html .= join("</p><p>",
1352                          get_from_log(                          get_from_log(
1353                                  limit => ( $q->param('last') || $q->param('date') ) ? undef : 100,                                  limit => ( $q->param('date') ? undef : $q->param('last') || 100 ),
1354                                  search => $search || undef,                                  search => $search || undef,
1355                                  tag => $q->param('tag') || undef,                                  tag => $q->param('tag') || undef,
1356                                  date => $q->param('date') || undef,                                  date => $q->param('date') || undef,
# Line 1375  sub root_handler { Line 1375  sub root_handler {
1375          <p>See <a href="/history">history</a> of all messages.</p>          <p>See <a href="/history">history</a> of all messages.</p>
1376          </body></html>};          </body></html>};
1377    
1378          $response->content( decode('utf-8',$html) );          $response->content( $html );
1379          warn "<< ", $request->method, " ", $request->uri, " created ", length($html), " bytes\n";          warn "<< ", $request->method, " ", $request->uri, " created ", length($html), " bytes\n";
1380          return RC_OK;          return RC_OK;
1381  }  }
# Line 1415  sub html { Line 1415  sub html {
1415          }          }
1416    
1417    my $html = qq{<div id="htmltagcloud">};    my $html = qq{<div id="htmltagcloud">};
1418    foreach my $tag (@tags) {    foreach my $tag ( sort { lc($a->{name}) cmp lc($b->{name}) } @tags) {
1419      $html .=  sprintf(qq{<span class="tag tagcloud%d"><a href="%s" title="%s">%s</a></span>\n},      $html .=  sprintf(qq{<span class="tag tagcloud%d"><a href="%s" title="%s">%s</a></span>\n},
1420                  $tag->{level}, $tag->{url}, $tag->{count}, $tag->{name}                  $tag->{level}, $tag->{url}, $tag->{count}, $tag->{name}
1421          );          );
Legend:
Removed from v.133  
changed lines
  Added in v.139
  ViewVC Help
Powered by ViewVC 1.1.26