/[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 71 by dpavlin, Sun Dec 16 18:51:05 2007 UTC revision 72 by dpavlin, Sun Dec 16 19:03:35 2007 UTC
# Line 972  sub root_handler { Line 972  sub root_handler {
972    
973          if ($request->url =~ m#/rss#i) {          if ($request->url =~ m#/rss#i) {
974                  my $type = 'RSS';       # Atom                  my $type = 'RSS';       # Atom
                 my $url = "http://$http_hostname:$http_port";  
975    
976                  $response->content_type("application/$type+xml");                  $response->content_type( 'application/' . lc($type) . '+xml' );
977    
978                  my $html = '<!-- error -->';                  my $html = '<!-- error -->';
979                  warn "create $type feed from ",dump( @last_tags );                  warn "create $type feed from ",dump( @last_tags );
# Line 982  sub root_handler { Line 981  sub root_handler {
981                  my $feed = XML::Feed->new( $type );                  my $feed = XML::Feed->new( $type );
982    
983                  $feed->title( "last $last_x_tags from $CHANNEL" );                  $feed->title( "last $last_x_tags from $CHANNEL" );
984                  $feed->link( "http://$http_hostname:$http_port" );  #               $feed->link( "http://$http_hostname:$http_port" );
985                  $feed->description( "collects messages which have tags// in them" );                  $feed->description( "collects messages which have tags// in them" );
986    
987                  foreach my $m ( @last_tags ) {                  foreach my $m ( @last_tags ) {

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

  ViewVC Help
Powered by ViewVC 1.1.26