Annotation of /trunk/bin/indexer

#!/usr/bin/perl -w

# SVNBrowser indexer
#
# 12/04/06 22:19:20 CET Dobrica Pavlinusic <dpavlin@rot13.org>

use strict;

use lib 'lib';

use SVN::Log;
use Data::Dump qw/dump/;

use Jifty;
use SVNBrowser::Indexer;

BEGIN { Jifty->new };

my $repository = shift @ARGV || Jifty->config->app('repository');

my $system_user = SVNBrowser::CurrentUser->superuser;

my $rep_col = SVNBrowser::Model::RepositoryCollection->new(current_user => $system_user);
$rep_col->unlimit;
while ( my $rep = $rep_col->next ) {
        eval {
                SVNBrowser::Indexer->reindex( $rep );
        };
        if ($@) {
                warn "ERROR: cannot reindex repository ", $rep->uri;
        }
}

1	dpavlin	1	#!/usr/bin/perl -w
2
3	dpavlin	63	# SVNBrowser indexer
4	dpavlin	1	#
5			# 12/04/06 22:19:20 CET Dobrica Pavlinusic <dpavlin@rot13.org>
6
7			use strict;
8
9			use lib 'lib';
10
11			use SVN::Log;
12			use Data::Dump qw/dump/;
13
14			use Jifty;
15	dpavlin	63	use SVNBrowser::Indexer;
16	dpavlin	1
17			BEGIN { Jifty->new };
18
19	dpavlin	21	my $repository = shift @ARGV \|\| Jifty->config->app('repository');
20
21	dpavlin	1	my $system_user = SVNBrowser::CurrentUser->superuser;
22
23	dpavlin	63	my $rep_col = SVNBrowser::Model::RepositoryCollection->new(current_user => $system_user);
24			$rep_col->unlimit;
25			while ( my $rep = $rep_col->next ) {
26	dpavlin	70	eval {
27			SVNBrowser::Indexer->reindex( $rep );
28			};
29			if ($@) {
30			warn "ERROR: cannot reindex repository ", $rep->uri;
31			}
32	dpavlin	3	}
33