Last change
on this file since 984 was
861,
checked in by nanardon, 13 years ago
|
- reimport missing files from previous svn
|
File size:
480 bytes
|
Line | |
---|
1 | package LATMOS::Accounts::Task::Buildnet; |
---|
2 | |
---|
3 | use strict; |
---|
4 | use warnings; |
---|
5 | use base qw(LATMOS::Accounts::Task); |
---|
6 | use LATMOS::Accounts::BuildNet; |
---|
7 | |
---|
8 | # Always try because depend also on files: |
---|
9 | sub needupd { |
---|
10 | return 1; |
---|
11 | } |
---|
12 | |
---|
13 | sub run { |
---|
14 | my ($self) = @_; |
---|
15 | my $LA = LATMOS::Accounts::BuildNet->new($self->{config}, noacl => 1); |
---|
16 | |
---|
17 | my $labase = $self->{base} ? $LA->base($self->{base}) : $LA->default_base; |
---|
18 | $labase && $labase->load or die "Cannot load base"; |
---|
19 | |
---|
20 | $LA->gen_all; |
---|
21 | } |
---|
22 | |
---|
23 | 1; |
---|
Note: See
TracBrowser
for help on using the repository browser.