#!/usr/bin/perl
use warnings;
use strict;

use SVN::Log::Index;
use Data::Dumper;
use POSIX qw(nice);

nice 19;

my $index_file = 'svn_index';

my $idx = SVN::Log::Index->new({ index_path => $index_file });

if (!-e $index_file){
    $idx->create({
            repo_url        => 'http://svn.pugscode.org/pugs/',
            analyzer_class  => 'KinoSearch::Analysis::PolyAnalyzer',
            analyzer_opts   => [ language => 'en' ],
            overwrite       => 1,
            });
};

$idx->open();

while (1) {
    eval {
        $idx->add({
                start_rev       => $idx->get_last_indexed_rev + 1,
                end_rev         => $idx->get_last_indexed_rev + 1,
                });
    };
    last if $@;
}

# vim: expandtab