/[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 72 by dpavlin, Sun Dec 16 19:03:35 2007 UTC revision 73 by dpavlin, Sun Dec 16 20:06:47 2007 UTC
# Line 32  log all conversation on irc channel Line 32  log all conversation on irc channel
32    
33  ## CONFIG  ## CONFIG
34    
35  my $HOSTNAME = `hostname`;  my $HOSTNAME = `hostname -f`;
36    chomp($HOSTNAME);
37    
38  my $NICK = 'irc-logger';  my $NICK = 'irc-logger';
39  $NICK .= '-dev' if ($HOSTNAME =~ m/llin/);  $NICK .= '-dev' if ($HOSTNAME =~ m/llin/);
# Line 59  my $TIMESTAMP = '%Y-%m-%d %H:%M:%S'; Line 60  my $TIMESTAMP = '%Y-%m-%d %H:%M:%S';
60  my $sleep_on_error = 5;  my $sleep_on_error = 5;
61    
62  my $http_port = $NICK =~ m/-dev/ ? 8001 : 8000;  my $http_port = $NICK =~ m/-dev/ ? 8001 : 8000;
63  my $http_hostname = `hostname`;  
64  chomp( $http_hostname );  my $url = "http://$HOSTNAME:$http_port";
65    
66  ## END CONFIG  ## END CONFIG
67    
# Line 128  my $filter = { Line 129  my $filter = {
129                  $m =~ s/($escape_re)/$escape{$1}/gs;                  $m =~ s/($escape_re)/$escape{$1}/gs;
130                  $m =~ s#($RE{URI}{HTTP})#e(qq{<a href="$1">$1</a>})#egs ||                  $m =~ s#($RE{URI}{HTTP})#e(qq{<a href="$1">$1</a>})#egs ||
131                  $m =~ s#\/(\w+)\/#<i>$1</i>#gs;                  $m =~ s#\/(\w+)\/#<i>$1</i>#gs;
132                  $m =~ s#$tag_regex#e(qq{<a href="?tag=$1" class="tag">$1</a>})#egs;                  $m =~ s#$tag_regex#e(qq{<a href="$url?tag=$1" class="tag">$1</a>})#egs;
133                  $m =~ s#\*(\w+)\*#<b>$1</b>#gs;                  $m =~ s#\*(\w+)\*#<b>$1</b>#gs;
134                  $m =~ s#_(\w+)_#<u>$1</u>#gs;                  $m =~ s#_(\w+)_#<u>$1</u>#gs;
135    
# Line 500  sub add_tag { Line 501  sub add_tag {
501                  next if (! $tag || $tag =~ m/https?:/i);                  next if (! $tag || $tag =~ m/https?:/i);
502                  push @{ $tags->{$tag} }, $arg->{id};                  push @{ $tags->{$tag} }, $arg->{id};
503                  #warn "+tag $tag: $arg->{id}\n";                  #warn "+tag $tag: $arg->{id}\n";
504                  $cloud->add($tag, "?tag=$tag", scalar @{$tags->{$tag}} + 1);                  $cloud->add($tag, "$url?tag=$tag", scalar @{$tags->{$tag}} + 1);
505                  push @tags, $tag;                  push @tags, $tag;
506    
507          }          }
# Line 526  sub seed_tags { Line 527  sub seed_tags {
527          }          }
528    
529          foreach my $tag (keys %$tags) {          foreach my $tag (keys %$tags) {
530                  $cloud->add($tag, "?tag=$tag", scalar @{$tags->{$tag}} + 1);                  $cloud->add($tag, "$url?tag=$tag", scalar @{$tags->{$tag}} + 1);
531          }          }
532  }  }
533    
# Line 958  sub root_handler { Line 959  sub root_handler {
959          my ($request, $response) = @_;          my ($request, $response) = @_;
960          $response->code(RC_OK);          $response->code(RC_OK);
961    
962            return RC_OK if $request->uri =~ m/favicon.ico$/;
963    
964          my $q;          my $q;
965    
966          if ( $request->method eq 'POST' ) {          if ( $request->method eq 'POST' ) {
# Line 985  sub root_handler { Line 988  sub root_handler {
988                  $feed->description( "collects messages which have tags// in them" );                  $feed->description( "collects messages which have tags// in them" );
989    
990                  foreach my $m ( @last_tags ) {                  foreach my $m ( @last_tags ) {
991                          warn dump( $m );  #                       warn dump( $m );
992                          #my $tags = join(' ', @{$m->{tags}} );                          #my $tags = join(' ', @{$m->{tags}} );
993                          my $feed_entry = XML::Feed::Entry->new($type);                          my $feed_entry = XML::Feed::Entry->new($type);
994                          $feed_entry->title( $m->{nick} . '@' . $m->{time} );                          $feed_entry->title( $m->{nick} . '@' . $m->{time} );
995                          $feed_entry->author( $m->{nick} );                          $feed_entry->author( $m->{nick} );
996  #                       $feed_entry->link(  );                          $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                          $feed_entry->summary(                          #$feed_entry->summary(
999                            $feed_entry->content(
1000                                  '<![CDATA[' .                                  '<![CDATA[' .
1001  #                               $filter->{nick}->( $m->{nick} ) .  #                               $filter->{nick}->( $m->{nick} ) .
1002  #                               '<tt>' . $m->{nick} . '</tt> ' .  #                               '<tt>' . $m->{nick} . '</tt> ' .
1003                                  $filter->{message}->( $m->{message} ) .                                  $filter->{message}->( $m->{message} ) .
1004                                  ']]>'                                  "<br/>\n]]>"
1005                          );                          );
1006                          $feed_entry->category( join(', ', @{$m->{tags}}) );                          $feed_entry->category( join(', ', @{$m->{tags}}) );
1007                          $feed->add_entry( $feed_entry );                          $feed->add_entry( $feed_entry );
# Line 1058  sub root_handler { Line 1062  sub root_handler {
1062                                  ($l_yyyy,$l_mm) = ($yyyy,$mm);                                  ($l_yyyy,$l_mm) = ($yyyy,$mm);
1063                          }                          }
1064                          $cal->setcontent($dd, qq{                          $cal->setcontent($dd, qq{
1065                                  <a href="/?date=$row->{date}">$row->{nr}</a><br/>$row->{len}                                  <a href="$url?date=$row->{date}">$row->{nr}</a><br/>$row->{len}
1066                          });                          });
1067                                                    
1068                  }                  }
# Line 1074  sub root_handler { Line 1078  sub root_handler {
1078                                  fmt => {                                  fmt => {
1079                                          date => sub {                                          date => sub {
1080                                                  my $date = shift || return;                                                  my $date = shift || return;
1081                                                  qq{<hr/><div class="date"><a href="/?date=$date">$date</a></div>};                                                  qq{<hr/><div class="date"><a href="$url?date=$date">$date</a></div>};
1082                                          },                                          },
1083                                          time => '<span class="time">%s</span> ',                                          time => '<span class="time">%s</span> ',
1084                                          time_channel => '<span class="channel">%s %s</span> ',                                          time_channel => '<span class="channel">%s %s</span> ',
# Line 1093  sub root_handler { Line 1097  sub root_handler {
1097          </body></html>};          </body></html>};
1098    
1099          $response->content( $html );          $response->content( $html );
1100            warn "<< ", $request->method, $request->uri, " created ", length($html), " bytes\n";
1101          return RC_OK;          return RC_OK;
1102  }  }
1103    

Legend:
Removed from v.72  
changed lines
  Added in v.73

  ViewVC Help
Powered by ViewVC 1.1.26