Changeset 457
- Timestamp:
- 09/11/09 11:33:18 (15 years ago)
- Location:
- LATMOS-Accounts
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/bin/la-config
r455 r457 48 48 =cut 49 49 50 my $LA = LATMOS::Accounts->new($config );50 my $LA = LATMOS::Accounts->new($config, noacl => 1); 51 51 52 52 if ($listbases) { -
LATMOS-Accounts/bin/la-create
r339 r457 62 62 =cut 63 63 64 my $LA = LATMOS::Accounts->new($config );64 my $LA = LATMOS::Accounts->new($config, noacl => 1); 65 65 my $labase = $base ? $LA->base($base) : $LA->default_base; 66 66 $labase && $labase->load or die "Cannot load base"; -
LATMOS-Accounts/bin/la-edit
r357 r457 61 61 =cut 62 62 63 my $LA = LATMOS::Accounts->new($config );63 my $LA = LATMOS::Accounts->new($config, noacl => 1); 64 64 my $labase = $base ? $LA->base($base) : $LA->default_base; 65 65 $labase && $labase->load or die "Cannot load base"; -
LATMOS-Accounts/bin/la-graph.pl
r439 r457 42 42 =cut 43 43 44 my $LA = LATMOS::Accounts->new($config );44 my $LA = LATMOS::Accounts->new($config, noacl => 1); 45 45 my $labase = $base ? $LA->base($base) : $LA->default_base; 46 46 $labase && $labase->load or die "Cannot load base"; -
LATMOS-Accounts/bin/la-group
r403 r457 59 59 =cut 60 60 61 my $LA = LATMOS::Accounts->new($config );61 my $LA = LATMOS::Accounts->new($config, noacl => 1); 62 62 my $labase = $base ? $LA->base($base) : $LA->default_base; 63 63 $labase && $labase->load or die "Cannot load base"; -
LATMOS-Accounts/bin/la-guser
r403 r457 59 59 =cut 60 60 61 my $LA = LATMOS::Accounts->new($config );61 my $LA = LATMOS::Accounts->new($config, noacl => 1); 62 62 my $labase = $base ? $LA->base($base) : $LA->default_base; 63 63 $labase && $labase->load or die "Cannot load base"; -
LATMOS-Accounts/bin/la-passwd
r412 r457 26 26 my $otype = 'user'; 27 27 28 my $LA = LATMOS::Accounts->new($config );28 my $LA = LATMOS::Accounts->new($config, noacl => 1); 29 29 my $labase = $base ? $LA->base($base) : $LA->default_base; 30 30 $labase && $labase->load or die "Cannot load base"; -
LATMOS-Accounts/bin/la-query
r440 r457 75 75 =cut 76 76 77 my $LA = LATMOS::Accounts->new($config );77 my $LA = LATMOS::Accounts->new($config, noacl => 1); 78 78 my $labase = $base ? $LA->base($base) : $LA->default_base; 79 79 $labase && $labase->load or die "Cannot load base"; -
LATMOS-Accounts/bin/la-query-group
r440 r457 53 53 =cut 54 54 55 my $LA = LATMOS::Accounts->new($config );55 my $LA = LATMOS::Accounts->new($config, noacl => 1); 56 56 my $labase = $base ? $LA->base($base) : $LA->default_base; 57 57 $labase && $labase->load or die "Cannot load base"; -
LATMOS-Accounts/bin/la-sync
r197 r457 48 48 =cut 49 49 50 my $LA = LATMOS::Accounts->new($config );50 my $LA = LATMOS::Accounts->new($config, noacl => 1); 51 51 52 52 my $sync = $LA->create_synchro( -
LATMOS-Accounts/lib/LATMOS/Accounts.pm
r320 r457 33 33 34 34 sub new { 35 my ($class, $config ) = @_;35 my ($class, $config, %options) = @_; 36 36 37 37 $config ||= '/etc/latmos-account.ini'; … … 41 41 '-default' => '_default_', 42 42 ); 43 if ( $self->val('_default_', 'acls')) {43 if ((!$options{nocacl}) && $self->val('_default_', 'acls')) { 44 44 my $acls = LATMOS::Accounts::Acls->new( 45 45 $self->val('_default_', 'acls')
Note: See TracChangeset
for help on using the changeset viewer.