Parent Directory | Revision Log
skip repositories which can't be reindexed
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 |
Name | Value |
---|---|
svn:executable |
ViewVC Help | |
Powered by ViewVC 1.1.26 |