/[transports]/trunk/lib/Transports/Bootstrap.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Transports/Bootstrap.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 50 by dpavlin, Tue May 30 18:09:51 2006 UTC revision 51 by dpavlin, Mon Jun 5 14:06:58 2006 UTC
# Line 15  sub run { Line 15  sub run {
15    
16          my $system_user = Transports::CurrentUser->superuser( _bootstrap => 1 );          my $system_user = Transports::CurrentUser->superuser( _bootstrap => 1 );
17    
18          my $u1 = Transports::Model::User->new(current_user => $system_user);          my $u_admin = Transports::Model::User->new(current_user => $system_user);
19          $u1->create(          $u_admin->create(
20                  name => 'System administrator',                  name => 'System administrator',
21                  email => 'admin@example.com',                  email => 'admin@example.com',
22                  password => 'admin',                  password => 'admin',
23                  admin => 1,                  admin => 1,
24          );          );
25    
26          my $u2 = Transports::Model::User->new(current_user => $system_user);          my $u_import = Transports::Model::User->new(current_user => $system_user);
27          $u2->create(          $u_import->create(
                 name => 'Normal User',  
                 email => 'user@example.com',  
                 password => 'user',  
         );  
   
         my $u3 = Transports::Model::User->new(current_user => $system_user);  
         $u3->create(  
28                  name => 'Import operator',                  name => 'Import operator',
29                  email => 'import@example.com',                  email => 'import@example.com',
30                  password => 'import',                  password => 'import',
31                  can_import => 1,                  can_import => 1,
32          );          );
33    
34            my $u;
35            foreach my $i ( 0 ... 2 ) {
36                    $u->{$i} = Transports::Model::User->new(current_user => $system_user);
37                    my $nr = $i + 1;
38                    $u->{$i}->create(
39                            name => "Normal User $nr",
40                            email => "user${nr}\@example.com",
41                            password => 'user',
42                    );
43            }
44    
45            my $l;
46            foreach my $i ( 0 ... 2 ) {
47                    $l->{$i} = Transports::Model::Landscape->new(current_user => $system_user);
48                    $l->{$i}->create(
49                            name => 'Landscape ' . ( $i + 1 ),
50                    );
51    
52                    Transports::Model::UserOnLandscape->new(current_user => $system_user)->create(
53                            user_on => $u->{$i},
54                            landscape => $l->{$i},
55                    );
56                            
57            }
58    
59          my $s;          my $s;
60    
61          foreach my $i ( 0 ... 5 ) {          foreach my $i ( 0 ... 5 ) {
62                  $s->{$i} = Transports::Model::Source->new(current_user => $system_user);                  $s->{$i} = Transports::Model::Source->new(current_user => $system_user);
63    
64                  $s->{$i}->create(                  $s->{$i}->create(
65                          name => 'SRC/' . ($i + 1),                          name => 'SRC/' . ($i + 1),
66                            landscape => $l->{ ( $i % 3 ) },
67                  );                  );
68    
                 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);  
69          }          }
70    
71          my $d;          my $d;
# Line 63  sub run { Line 74  sub run {
74                  $d->{$i} = Transports::Model::Destination->new(current_user => $system_user);                  $d->{$i} = Transports::Model::Destination->new(current_user => $system_user);
75                  $d->{$i}->create(                  $d->{$i}->create(
76                          name => 'DEST/' . ($i + 1),                          name => 'DEST/' . ($i + 1),
77                            landscape => $l->{ ( $i % 3 ) },
78                  );                  );
79          }          }
80    
# Line 97  sub run { Line 109  sub run {
109                          destination => $d->{ $i % 2 },                          destination => $d->{ $i % 2 },
110                          request_nr => $i,                          request_nr => $i,
111                          client_dependent => $i % 3 == 0 ? 0 : 1,                          client_dependent => $i % 3 == 0 ? 0 : 1,
112                          created_by => $i % 2 == 0 ? $u1 : $u2,                          created_by => $u->{ $i % 3 },
113                          return_code => $rc,                          return_code => $rc,
114                  );                  );
115          }          }
Legend:
Removed from v.50  
changed lines
  Added in v.51
  ViewVC Help
Powered by ViewVC 1.1.26