/[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 9 by dpavlin, Fri May 5 19:44:15 2006 UTC revision 10 by dpavlin, Fri May 5 21:18:58 2006 UTC
# Line 4  use strict; Line 4  use strict;
4  package Transports::Bootstrap;  package Transports::Bootstrap;
5  use base qw(Jifty::Bootstrap);  use base qw(Jifty::Bootstrap);
6    
7    =head1 Bootstrap application data
8    
9    Create initial data
10    
11    =cut
12    
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;
17          # Try testing a create  
18          my $o = Transports::Model::User->new(current_user => $system_user);          my $u = Transports::Model::User->new(current_user => $system_user);
19          my ($id) = $o->create(  
20            $u->create(
21                  name => 'System administrator',                  name => 'System administrator',
22                  email => 'admin',                  email => 'admin@example.com',
23                  password => 'admin',                  password => 'admin',
24          );          );
25          # And another  
26          $o->create(          my $s = Transports::Model::Source->new(current_user => $system_user);
27                  name => 'Foo Bar',          $s->create(
28                  email => 'foo.bar@example.com',                  name => 'SRC/1',
29                  password => 'baz123',          );
30            $s->create(
31                    name => 'SRC/2',
32          );          );
33    
34            my $d = Transports::Model::Destination->new(current_user => $system_user);
35            $d->create(
36                    name => 'DEST/1',
37            );
38            $d->create(
39                    name => 'DEST/2',
40            );
41  }  }
42    
43    
Legend:
Removed from v.9  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.26