Changeset 1079

Timestamp:

07/25/12 14:46:25 (12 years ago)

Author:

nanardon

Message:

Automatically set expire date to aliases

This expiration time is set when a user is set unexported. The delay is still
hardcoded (1 year).

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (2 diffs)

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

@@ -7 +7 @@
 use LATMOS::Accounts::Utils;
 use LATMOS::Accounts::Log;
+use POSIX qw(strftime);
 use base qw(LATMOS::Accounts::Bases::Sql::objects);
 
@@ -474 +475 @@
                 }
             }
+            my $must_expire = $attr eq 'exported'
+                ? ($data{$attr} ? 0 : 1 )
+                : ($data{$attr} ? 1 : 0 );
+
+            foreach my $al ($self->get_attributes('aliases')) {
+                my $obj = $self->base->get_object('aliases', $al) or next;
+                $obj->_set_c_fields(
+                    expire => $must_expire
+                        ? strftime(
+                            "%Y-%m-%d %H:%M:%S",
+                            localtime(time + 3600 * 24 * 365)
+                          )
+                        : undef,
+                );
+            }
         };
         $attr eq 'gidnumber' && $data{$attr} !~ /^\d+$/ and do {