expire LDAP and CRM entries after 15 min

diff --git a/lib/APKPM/CRM.pm b/lib/APKPM/CRM.pm
index 53424c5..1d18d04 100644 (file)
--- a/lib/APKPM/CRM.pm
+++ b/lib/APKPM/CRM.pm
@@ -42,7 +42,9 @@ sub search : Job : Encode(e_json_encode) {
 
        my $redis = Redis->new;
        map {
-               $redis->set( 'CRM.' . $_->{USERNAME} => $self->e_json($_) );
+               my $key = 'CRM.' . $_->{USERNAME};
+               $redis->set( $key => $self->e_json($_) );
+               $redis->expire( $key => 15 * 60 );
        } @{ $resp->value->[0] };
 
        return ref $resp ? $resp->value->[0] : { error => $resp };

diff --git a/lib/APKPM/LDAP.pm b/lib/APKPM/LDAP.pm
index f734ec2..2dbad19 100644 (file)
--- a/lib/APKPM/LDAP.pm
+++ b/lib/APKPM/LDAP.pm
@@ -58,7 +58,11 @@ sub search : Job : Encode(e_json) : MinProcesses(0) {
                        }
                }
                push @$entries, $e;
-               $redis->set( 'LDAP.' . $e->{cn} => $self->e_json($e) );
+
+               my $key = 'LDAP.' . $e->{cn};
+               $redis->set( $key => $self->e_json($e) );
+               $redis->expire( $key => 15 * 60 );
+
        }
 #      warn "## entries = ",dump $entries;
        return $entries;