#!/usr/bin/perl
# Time-stamp: <2009-02-09 01:37:44 phm>

=head1 NAME

news_tmplfil

=head1 SYNPOSIS

    news_tmplfil -o eupat08.news.de.rss --kanals eupat_events,eupat_stories --news_start 2008-01-01 --news_stop 2009-01-01 --lang de --news_limit 10 --news_level 1 /opt/a2e/share/tmpl/news_rss_tmpl.txt

=head1 DESCRIPTION

Generate an RSS file for a given channel(s), language(s), timeframe, priority and maximal number, using a given output template
that uses either the RSS format or any kind of equivalent thereof, based on date read from tables in
a database whose structure is to some extent configurable.

=head1 FILES

general configuration

    /etc/opt/a2e/news_tmplfil.konf

as well as user-specific additions

    ~/.news_tmplfil_konf

and document specific configuration file

    @news_tmplfil

=head1 BUGS, CAVEATS

report to adv@a2e.de

=head1 PREREQUISITES

    A2E::NewsTmplfil(3)

see more explanations there.

=cut

use A2E::NewsTmplfil;
my $p = new_ready A2E::NewsTmplfil debug => $ENV{DEBUG}, verbose => $ENV{VERBOSE};
$p->news_tmplfil(@ARGV) or die 'failed to news_tmplfil';
$p->vecho('OK');

=head1 BUGS, LIMITATIONS, TODO

notify adv@a2e.de

=cut

exit 0;

# Local Variables:
# coding: utf-8
# mode: perl
# srcfile: /adv/prg/bin/news_tmplfil.pl
# End:
