Contents 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	#!/usr/bin/perl -w
2
3	# SVNBrowser indexer
4	#
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	use SVNBrowser::Indexer;
16
17	BEGIN { Jifty->new };
18
19	my $repository = shift @ARGV \|\| Jifty->config->app('repository');
20
21	my $system_user = SVNBrowser::CurrentUser->superuser;
22
23	my $rep_col = SVNBrowser::Model::RepositoryCollection->new(current_user => $system_user);
24	$rep_col->unlimit;
25	while ( my $rep = $rep_col->next ) {
26	eval {
27	SVNBrowser::Indexer->reindex( $rep );
28	};
29	if ($@) {
30	warn "ERROR: cannot reindex repository ", $rep->uri;
31	}
32	}
33