lib/SVNBrowser/Bootstrap.pm

use warnings;
use strict;

package SVNBrowser::Bootstrap;
use base qw(Jifty::Bootstrap);

=head1 Bootstrap application data

Create initial data

=cut

sub run {
    my $self = shift;

        $self->log->info("creating initial repository data");

        my $system_user = SVNBrowser::CurrentUser->superuser( _bootstrap => 1 );

        my $db = SVNBrowser::Model::Repository->new(current_user => $system_user);

        $db->create(
                uri => 'file:///home/dpavlin/.svk/bioserv',
                branch_regex => '/upstream(/[^/]+)(/.*)$',
        );

        $db->create(
                uri => 'file:///home/dpavlin/.svk/pliva',
                branch_regex => '(/[^/]+/[^/]+)(/.*)$',
        );
}

1;
1	use warnings;
2	use strict;
3
4	package SVNBrowser::Bootstrap;
5	use base qw(Jifty::Bootstrap);
6
7	=head1 Bootstrap application data
8
9	Create initial data
10
11	=cut
12
13	sub run {
14	my $self = shift;
15
16	$self->log->info("creating initial repository data");
17
18	my $system_user = SVNBrowser::CurrentUser->superuser( _bootstrap => 1 );
19
20	my $db = SVNBrowser::Model::Repository->new(current_user => $system_user);
21
22	$db->create(
23	uri => 'file:///home/dpavlin/.svk/bioserv',
24	branch_regex => '/upstream(/[^/]+)(/.*)$',
25	);
26
27	$db->create(
28	uri => 'file:///home/dpavlin/.svk/pliva',
29	branch_regex => '(/[^/]+/[^/]+)(/.*)$',
30	);
31	}
32
33	1;