Babble::Processors::Extra - Extra processors for Babble

Babble documentation Contained in the Babble distribution.

Index

Code Index:

NAME

Top

Babble::Processors::Extra - Extra processors for Babble

SYNOPSIS

Top

 use Babble;
 use Babble::Processors::Extra;

 my $babble = Babble->new
    (-processors => [ \&Babble::Processors::Extra::creator_map ]);
 $babble->add_sources (Babble::DataSource::RSS->new (
    -location => $some_location,
    -creator_map => { joe => { author => "Joe R. Blogger" } }));

DESCRIPTION

Top

Babble::Processors::Extra is a collection of optional, yet useful processors for Babble. In some circumstances, one might wish to use them. However, none of these are enabled by default, since they usually require some configuration.

METHODS

Top

creator_map()

This processor takes the -creator_map field of the source and if an items creator matches a key of it, adds all the keys from the hash pointed to by the source's key to the item.

parent_map()

This processor takes the -parent_map field of the source and copies all fields listed in -parent_map from the channel, to the current item.

AUTHOR

Top

Gergely Nagy, algernon@bonehunter.rulez.org

Bugs should be reported at http://bugs.bonehunter.rulez.org/babble.

SEE ALSO

Top

Babble, Babble::Processors

Babble documentation Contained in the Babble distribution. 
## Babble/Processors/Extra.pm
## Copyright (C) 2004 Gergely Nagy <algernon@bonehunter.rulez.org>
##
## This file is part of Babble.
##
## Babble is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation; version 2 dated June, 1991.
##
## Babble is distributed in the hope that it will be useful, but WITHOUT
## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
## FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
## for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software
## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

package Babble::Processors::Extra;

use strict;
use Babble::Encode;
use Date::Manip;
use Data::Dumper;


sub creator_map {
	my ($item, $channel, $source, undef) = @_;

	return unless defined $$source->{-creator_map}->{$$item->{author}};

	map {
		$$item->{$_} = to_utf8
			($$source->{-creator_map}->{$$item->{author}}->{$_});
	} keys (%{$$source->{-creator_map}->{$$item->{author}}});
}


sub parent_map {
	my ($item, $channel, $source) = @_;

	return unless defined $$source->{-parent_map};

	map {
		$$item->{parent}->{$_} = to_utf8 ($$channel->{$_});
	} @{$$source->{-parent_map}};
}


1;

# arch-tag: 11829b85-9461-43b2-86b3-436a3a84eb35