/[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 26 by dpavlin, Fri May 26 19:02:40 2006 UTC revision 27 by dpavlin, Fri May 26 21:21:25 2006 UTC
# Line 13  Create initial data Line 13  Create initial data
13  sub run {  sub run {
14      my $self = shift;      my $self = shift;
15    
16          my $system_user = Transports::CurrentUser->superuser;          my $system_user = Transports::CurrentUser->superuser( _bootstrap => 1 );
17    
18          my $u = Transports::Model::User->new(current_user => $system_user);          my $u1 = Transports::Model::User->new(current_user => $system_user);
19            $u1->create(
         $u->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,
24          );          );
25    
26          Transports::Model::User->new(current_user => $system_user)->create(          my $u2 = Transports::Model::User->new(current_user => $system_user);
27            $u2->create(
28                  name => 'Normal User',                  name => 'Normal User',
29                  email => 'user@example.com',                  email => 'user@example.com',
30                  password => 'user',                  password => 'user',
31          );          );
32    
33          my $s = Transports::Model::Source->new(current_user => $system_user);          my $s;
34          $s->create(  
35                  name => 'SRC/1',          foreach my $i ( 0 ... 5 ) {
36          );                  $s->{$i} = Transports::Model::Source->new(current_user => $system_user);
37          $s->create(                  $s->{$i}->create(
38                  name => 'SRC/2',                          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    
         my $d = Transports::Model::Destination->new(current_user => $system_user);  
         $d->create(  
                 name => 'DEST/1',  
         );  
         $d->create(  
                 name => 'DEST/2',  
         );  
62  }  }
63    
64    
Legend:
Removed from v.26  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.26