/[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 74 by dpavlin, Sun Dec 16 20:17:26 2007 UTC revision 76 by dpavlin, Thu Feb 7 17:09:54 2008 UTC
# Line 995  sub root_handler { Line 995  sub root_handler {
995                          $feed_entry->author( $m->{nick} );                          $feed_entry->author( $m->{nick} );
996                          $feed_entry->link( '/#' . $m->{id}  );                          $feed_entry->link( '/#' . $m->{id}  );
997                          $feed_entry->issued( DateTime::Format::Flexible->build( $m->{time} ) );                          $feed_entry->issued( DateTime::Format::Flexible->build( $m->{time} ) );
998    
999                            my $message = $filter->{message}->( $m->{message} );
1000                            $message .= "<br/>\n" unless $message =~ m!<(/p|br/?)>!;
1001                            warn "## message = $message\n";
1002                            from_to( $message, $ENCODING, 'UTF-8' );
1003    
1004                          #$feed_entry->summary(                          #$feed_entry->summary(
1005                          $feed_entry->content(                          $feed_entry->content(
1006                                  '<![CDATA[' .                                  "<![CDATA[$message]]>"
 #                               $filter->{nick}->( $m->{nick} ) .  
 #                               '<tt>' . $m->{nick} . '</tt> ' .  
                                 $filter->{message}->( $m->{message} ) .  
                                 "<br/>\n]]>"  
1007                          );                          );
1008                          $feed_entry->category( join(', ', @{$m->{tags}}) );                          $feed_entry->category( join(', ', @{$m->{tags}}) );
1009                          $feed->add_entry( $feed_entry );                          $feed->add_entry( $feed_entry );
# Line 1029  sub root_handler { Line 1031  sub root_handler {
1031                  } .                  } .
1032                  $cloud->html(500) .                  $cloud->html(500) .
1033                  qq{<p>};                  qq{<p>};
1034          if ($request->url =~ m#/history#) {  
1035            if ($request->url =~ m#/tags?#) {
1036                    # nop
1037            } elsif ($request->url =~ m#/history#) {
1038                  my $sth = $dbh->prepare(qq{                  my $sth = $dbh->prepare(qq{
1039                          select date(time) as date,count(*) as nr,sum(length(message)) as len                          select date(time) as date,count(*) as nr,sum(length(message)) as len
1040                                  from log                                  from log
Legend:
Removed from v.74  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.26