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 $u3 = Transports::Model::User->new(current_user => $system_user);
        $u3->create(
                name => 'Import operator',
                email => 'import@example.com',
                password => 'import',
                can_import => 1,
        );

        my $s;

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

                Transports::Model::UserOnSource->new(current_user => $system_user)->create(
                        user_on => $u1,
                        source => $s->{$i},
                );

                Transports::Model::UserOnSource->new(current_user => $system_user)->create(
                        user_on => $u2,
                        source => $s->{$i},
                ) if ($i % 2 == 0);
        }

        my $d;

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

        my $tc1 = Transports::Model::TransportClass->new(current_user => $system_user);
        $tc1->create(
                name => 'Default',
        );

        my $tc2 = Transports::Model::TransportClass->new(current_user => $system_user);
        $tc2->create(
                name => 'Upgrade',
        );

        my @rc;
        foreach my $s (
                '0: Transport (export and import test) was successful',
                '4: Warning messages were generated',
                '8: Error messages were generated',
                '12: Fatal error has occured',
        ) {
                my $rc = Transports::Model::ReturnCode->new(current_user => $system_user);
                $rc->create( name => $s );
                push @rc, $rc;
        }

        foreach my $i ( 1 ... 7 ) {
                my $t = Transports::Model::Transport->new(current_user => $system_user);
                my $rc = shift @rc;
                $t->create(
                        class => $i % 4 == 0 ? $tc2 : $tc1,
                        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,
                        return_code => $rc,
                );
        }

}


1;
1	use warnings;
2	use strict;
3
4	package Transports::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	my $system_user = Transports::CurrentUser->superuser( _bootstrap => 1 );
17
18	my $u1 = Transports::Model::User->new(current_user => $system_user);
19	$u1->create(
20	name => 'System administrator',
21	email => 'admin@example.com',
22	password => 'admin',
23	admin => 1,
24	);
25
26	my $u2 = Transports::Model::User->new(current_user => $system_user);
27	$u2->create(
28	name => 'Normal User',
29	email => 'user@example.com',
30	password => 'user',
31	);
32
33	my $u3 = Transports::Model::User->new(current_user => $system_user);
34	$u3->create(
35	name => 'Import operator',
36	email => 'import@example.com',
37	password => 'import',
38	can_import => 1,
39	);
40
41	my $s;
42
43	foreach my $i ( 0 ... 5 ) {
44	$s->{$i} = Transports::Model::Source->new(current_user => $system_user);
45	$s->{$i}->create(
46	name => 'SRC/' . ($i + 1),
47	);
48
49	Transports::Model::UserOnSource->new(current_user => $system_user)->create(
50	user_on => $u1,
51	source => $s->{$i},
52	);
53
54	Transports::Model::UserOnSource->new(current_user => $system_user)->create(
55	user_on => $u2,
56	source => $s->{$i},
57	) if ($i % 2 == 0);
58	}
59
60	my $d;
61
62	foreach my $i ( 0 ... 2 ) {
63	$d->{$i} = Transports::Model::Destination->new(current_user => $system_user);
64	$d->{$i}->create(
65	name => 'DEST/' . ($i + 1),
66	);
67	}
68
69	my $tc1 = Transports::Model::TransportClass->new(current_user => $system_user);
70	$tc1->create(
71	name => 'Default',
72	);
73
74	my $tc2 = Transports::Model::TransportClass->new(current_user => $system_user);
75	$tc2->create(
76	name => 'Upgrade',
77	);
78
79	my @rc;
80	foreach my $s (
81	'0: Transport (export and import test) was successful',
82	'4: Warning messages were generated',
83	'8: Error messages were generated',
84	'12: Fatal error has occured',
85	) {
86	my $rc = Transports::Model::ReturnCode->new(current_user => $system_user);
87	$rc->create( name => $s );
88	push @rc, $rc;
89	}
90
91	foreach my $i ( 1 ... 7 ) {
92	my $t = Transports::Model::Transport->new(current_user => $system_user);
93	my $rc = shift @rc;
94	$t->create(
95	class => $i % 4 == 0 ? $tc2 : $tc1,
96	source => $s->{ $i % 5 },
97	destination => $d->{ $i % 2 },
98	request_nr => $i,
99	client_dependent => $i % 3 == 0 ? 0 : 1,
100	created_by => $i % 2 == 0 ? $u1 : $u2,
101	return_code => $rc,
102	);
103	}
104
105	}
106
107
108	1;