lib/Transports/Bootstrap.pm

use warnings;
use strict;

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

=head1 Bootstrap application data

Create initial data

=cut

sub run {
    my $self = shift;

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

        my $u1 = Transports::Model::User->new(current_user => $system_user);
        $u1->create(
                name => 'System administrator',
                email => 'admin@example.com',
                password => 'admin',
                admin => 1,
        );

        my $u2 = Transports::Model::User->new(current_user => $system_user);
        $u2->create(
                name => 'Normal User',
                email => 'user@example.com',
                password => 'user',
        );

        my $s;

        foreach my $i ( 0 ... 5 ) {
                $s->{$i} = Transports::Model::Source->new(current_user => $system_user);
                $s->{$i}->create(
                        name => 'SRC/' . ($i + 1),
                );
        }

        my $d;

        foreach my $i ( 0 ... 2 ) {
                $d->{$i} = Transports::Model::Destination->new(current_user => $system_user);
                $d->{$i}->create(
                        name => 'DEST/' . ($i + 1),
                );
        }

        foreach my $i ( 1 ... 7 ) {
                my $t = Transports::Model::Transport->new(current_user => $system_user);
                $t->create(
                        source => $s->{ $i % 5 },
                        destination => $d->{ $i % 2 },
                        request_nr => $i,
                        client_dependent => $i % 3 == 0 ? 0 : 1,
                        created_by => $i % 2 == 0 ? $u1 : $u2,
                );
        }

}


1;
1	dpavlin	9	use warnings;
2			use strict;
3
4			package Transports::Bootstrap;
5			use base qw(Jifty::Bootstrap);
6
7	dpavlin	10	=head1 Bootstrap application data
8
9			Create initial data
10
11			=cut
12
13	dpavlin	9	sub run {
14			my $self = shift;
15
16	dpavlin	27	my $system_user = Transports::CurrentUser->superuser( _bootstrap => 1 );
17	dpavlin	10
18	dpavlin	27	my $u1 = Transports::Model::User->new(current_user => $system_user);
19			$u1->create(
20	dpavlin	9	name => 'System administrator',
21	dpavlin	10	email => 'admin@example.com',
22	dpavlin	9	password => 'admin',
23	dpavlin	27	admin => 1,
24	dpavlin	9	);
25	dpavlin	10
26	dpavlin	27	my $u2 = Transports::Model::User->new(current_user => $system_user);
27			$u2->create(
28	dpavlin	23	name => 'Normal User',
29			email => 'user@example.com',
30			password => 'user',
31			);
32
33	dpavlin	27	my $s;
34	dpavlin	9
35	dpavlin	27	foreach my $i ( 0 ... 5 ) {
36			$s->{$i} = Transports::Model::Source->new(current_user => $system_user);
37			$s->{$i}->create(
38			name => 'SRC/' . ($i + 1),
39			);
40			}
41
42			my $d;
43
44			foreach my $i ( 0 ... 2 ) {
45			$d->{$i} = Transports::Model::Destination->new(current_user => $system_user);
46			$d->{$i}->create(
47			name => 'DEST/' . ($i + 1),
48			);
49			}
50
51			foreach my $i ( 1 ... 7 ) {
52			my $t = Transports::Model::Transport->new(current_user => $system_user);
53			$t->create(
54			source => $s->{ $i % 5 },
55			destination => $d->{ $i % 2 },
56			request_nr => $i,
57			client_dependent => $i % 3 == 0 ? 0 : 1,
58			created_by => $i % 2 == 0 ? $u1 : $u2,
59			);
60			}
61
62	dpavlin	9	}
63
64
65			1;