#!/usr/bin/perl
#
# example of simple SWISH::Prog indexer

use strict;
use warnings;
use Carp;
use SWISH::Prog;
use Getopt::Long;

my $usage = "$0 [-c config] [-d] [-v] [-w] [-a fs|mail|spider] target";

my $Opt = {
    verbose    => 0,
    debug      => 0,
    config     => '',    #SWISH::Prog::Config->new
    warnings   => 0,
    aggregator => 'fs'
};

my %allopts = (
    'config=s'   => 'config file',
    'verbose'    => 'be verbose',
    debug        => 'debugging',
    warnings     => 'print libxml2 warnings',
    'aggregator=s' => 'aggregator type',
);

GetOptions( $Opt, keys %allopts ) or croak $usage;
croak $usage unless @ARGV;

my $prog = SWISH::Prog->new( %$Opt, aggregator => $Opt->{aggregator} );
$prog->run(@ARGV);
exit;

=pod

=head1 AUTHOR

Peter Karman, E<lt>perl@peknet.comE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2008 by Peter Karman

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. 

=cut