Changeset 2509

Timestamp:

02/01/22 22:17:46 (2 years ago)

Author:

nanardon

Message:

Use cache for user list in Partage

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Partage/User.pm (modified) (3 diffs)

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

@@ -201 +201 @@
     );
 
+    $base->{cache} = {};
+
     if ( $aliases ) {
         my $user = $base->get_object( 'user', $id ) or return;
@@ -218 +220 @@
     };
 
-    $base->sendrequest(
+    my $res = $base->sendrequest(
         'DeleteAccount',
         name => $id . '@' . $base->{domain},
     );
+
+    if ( $res ) {
+        $base->{cache} = {};
+    }
+
+    $res
 }
  
@@ -288 +296 @@
     my ($class, $base) = @_;
 
+    $base->{cache}{listEpoch} ||= 0;
+
+    if ( DateTime->now->epoch - $base->{cache}{listEpoch} < 60 ) {
+        return %{ $base->{cache}{list} || {} }
+    }
     my %users = $class->_lists_account($base);
+    $base->{cache}{list} = \%users;
+    $base->{cache}{listEpoch} = DateTime->now->epoch;
+
     return sort keys(%users);
 }