#!/usr/bin/perl
#############################
# bpo2rss -- books.perl.org
#          RSS feed generator
# Mike Schilli, 2004
# (m@perlmeister.com)
#############################
use warnings;
use strict;

use RssMaker;
use Log::Log4perl qw(:easy);

Log::Log4perl->easy_init(
  $INFO);

my $url =
  'http://books.perl.org/';

RssMaker::make(
  url    => $url,
  title  => "books.perl.org",
  filter => sub {
    my ( $link, $text ) = @_;

    return 1
      if $link =~
        m#/book/\d+#;
    return 0;
  },
  output => "bpo.rss",
);