Changeset 850 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

03/30/10 22:43:40 (14 years ago)

Author:

nanardon

Message:

• add functions to find already expired account

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

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

@@ -157 +157 @@
 }
 
+sub find_next_expire_users {
+    my ($self, $expire) = @_;
+
+    my $sth= $self->db->prepare(q{
+        select name from "user" where
+            expire < now() + ?::interval
+            and expire > now()
+            and expire is not null
+            } . ($self->{wexported} ? '' : 'and exported = true') . q{
+            order by expire
+        }
+    );
+    $sth->execute($expire || '1 month');
+    my @users;
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@users, $res->{name});
+    }
+    @users
+}
+
+sub find_expired_users {
+    my ($self, $expire) = @_;
+
+    my $sth= $self->db->prepare(q{
+        select name from "user" where
+            expire < now() - ?::interval
+            and expire is not null
+        } . ($self->{wexported} ? '' : 'and exported = true') . q{
+            order by expire
+        }
+    );
+    $sth->execute($expire || '1 second');
+    my @users;
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@users, $res->{name});
+    }
+    @users
+}
+
 1;