Changeset 2278 for trunk/LATMOS-Accounts

Timestamp:

08/29/19 20:06:06 (5 years ago)

Author:

nanardon

Message:

Add la-dump: allow to dump in vrious format (xml only at time

Location:

trunk/LATMOS-Accounts

Files:

• Makefile.PL (modified) (1 diff)
• bin/la-dump (added)
• lib/LATMOS/Accounts/Acls.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Bases.pm (modified) (2 diffs)
• lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Cli/Base.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/Makefile.PL

@@ -87 +87 @@
         bin/la-renewEmp
         bin/la-load-csv
+        bin/la-dump
         bin/la-sql-attrvalues
         ) ],

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Acls.pm

@@ -36 +36 @@
     $acls->add( '*.log', [ '$uid: read', '*: deny' ] );
     $acls->add(
-        'user.{userPasswd,userPassword,encryptedPassword}',
+        'user.{userPasswd,userPassword,encryptedPassword,oldPassword}',
         [ '$uid: write', '*: deny' ],
     );

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

@@ -1173 +1173 @@
 }
 
+=head2 SetConnectedUser($username)
+
+Set the username of the connected user
+
+=cut
+
+sub SetConnectedUser {
+    my ($self, $username) = @_;
+
+    $self->{_user} = $username;
+    la_log(LA_DEBUG, "Connected as $username");
+}
+
 =head2 connect($username, $password)
 
@@ -1183 +1196 @@
     my $auth = $self->authenticate_user($username, $password);
     if ($auth) {
-        $self->{_user} = $username;
-        la_log(LA_DEBUG, "Connected as $username");
+        $self->SetConnectedUser($username);
     }
     return $auth;

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -889 +889 @@
     }
 
+    my $SubOtype = undef;
+
+    if (@{ $config->{SubOtype} || []}) {
+        $SubOtype = { map { $_ => 1 } @{ $config->{SubOtype} } };
+    }
+
     if (ref $self && $config->{recur}) {
           my %subobj = $self->ListChildObjects;
           foreach my $otype (sort keys %subobj) {
+              if ($SubOtype) {
+                  $SubOtype->{$otype} or next;
+              }
               foreach my $oname (sort @{ $subobj{$otype} }) {
                   my $obj = $self->base->get_object($otype, $oname) or next;

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm

@@ -246 +246 @@
                         'filefmt=s'  => \my $filefmt,
                         'recur'      => \my $recur,
+                        'subotype=s' => \my @SubOtype,
                     }, @_
                 );
@@ -279 +280 @@
                             empty_attr => $empty_attr,
                             only_rw => !$with_ro,
+                            SubOtype => \@SubOtype,
                         } );
                     }