Ignore:
Timestamp:
03/29/16 17:37:22 (8 years ago)
Author:
nanardon
Message:

Add task modules

Add two task module:

  • Unexportexpired: unexported expire aliases and nethost
  • Updatedyndata: refresh aliases and group with autoMember settings
File:
1 copied

Legend:

Unmodified
Added
Removed

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Updatedyndata.pm

    r1736 r1737  
    1 package LATMOS::Accounts::Task::Refreshexpired; 
     1package LATMOS::Accounts::Task::Updatedyndata; 
    22 
    33use strict; 
    … …  
    2626=cut 
    2727 
     28# Every 10 minutes 
     29sub runDelay { 20 * 60 } 
     30 
     31sub needupd { 1 } 
     32 
    2833sub init { 
    2934    my ($self) = @_; 
    … …  
    4146    my ($self) = @_; 
    4247 
    43     my $find = $self->{_base}->db->prepare( 
    44         q{ 
    45         SELECT * FROM "user" 
    46         WHERE expire < now() and "date" < expire; 
    47         } 
    48     ); 
    49     $find->execute(); 
    50     my $upd = $self->{_base}->db->prepare( 
    51         q{ 
    52         UPDATE "user" SET date = now() where "name" = ? 
    53         } 
    54     ); 
    55     while ( my $res = $find->fetchrow_hashref ) { 
    56         la_log(LA_NOTICE, "Refresh user %s to take expiry into account", 
    57             $res->{name}, 
    58         ); 
    59         $upd->execute($res->{name}); 
    60     } 
    61  
    62     $self->{_base}->commit; 
     48    $self->{_base}->PopulateDynData; 
    6349 
    6450    1; 
Note: See TracChangeset for help on using the changeset viewer.