Add a new user-update-expire-settings event

tags/smeserver-expire-accounts-0.1.7-1
Daniel Berteaud 9 years ago
parent a3704ba658
commit bda920ba81
  1. 15
      createlinks
  2. 18
      root/etc/e-smith/events/actions/user-expire-account
  3. 44
      root/etc/e-smith/events/actions/user-update-auto-response

@ -2,11 +2,14 @@
use esmith::Build::CreateLinks qw(:all); use esmith::Build::CreateLinks qw(:all);
event_link("user-reset-expired", "password-modify", "80"); event_link("user-reset-expired", "password-modify", "80");
event_link("user-expire-account", "user-expire-account", "20"); event_link("user-expire-account", "user-expire-account", "20");
event_link("user-lock-passwd", "user-expire-account", "30"); event_link("user-update-auto-response", "user-expire-account", "25");
event_link("count-active-user-accounts", "user-expire-account", "40"); event_link("user-lock-passwd", "user-expire-account", "30");
event_link("ldap-update-simple", "user-expire-account", "50"); event_link("count-active-user-accounts", "user-expire-account", "40");
event_link("qmail-update-user", "user-expire-account", "60"); event_link("ldap-update-simple", "user-expire-account", "50");
event_link("qmail-update-user", "user-expire-account", "60");
event_link("user-update-auto-response", "user-update-expire-settings", "20");
panel_link("expireaccounts", 'manager'); panel_link("expireaccounts", 'manager');

@ -46,24 +46,6 @@ foreach my $user (@users){
$user->delete_prop('ExpireLastNotifiedOn'); $user->delete_prop('ExpireLastNotifiedOn');
# Set the expiration date # Set the expiration date
$user->set_prop('ExpireLockedOn', $now->ymd); $user->set_prop('ExpireLockedOn', $now->ymd);
my $home = getpwnam($userName)->dir;
if (!-d $home . '/.lock-auto-reply'){
mkdir $home . '/.lock-auto-reply';
chown getpwnam($userName)->uid, getpwnam($userName)->gid, $home . '/.lock-auto-reply';
chmod 750, $home . '/.lock-auto-reply';
}
esmith::templates::processTemplate ({
MORE_DATA => { USERNAME => $userName },
TEMPLATE_PATH => "/.lock-auto-reply/message.txt",
TEMPLATE_EXPAND_QUEUE =>
[
"/etc/e-smith/templates-user-custom",
"/etc/e-smith/templates-user",
],
OUTPUT_PREFIX => "$home",
PERMS => 0644,
});
} }
exit (0); exit (0);

@ -0,0 +1,44 @@
#!/usr/bin/perl -w
use strict;
use esmith::AccountsDB;
use esmith::templates;
use User::pwent;
my $a = esmith::AccountsDB->open or
die "Could not open AccountsDB\n";
my $event = shift;
my $userName = shift;
my @users;
if (defined $userName){
my $user = $a->get($userName);
die "Account $userName is not a user account; can't update the auto-reply message.\n"
unless $user && $user->prop('type') eq "user";
@users = ($user);
}
else{
@users = ( $a->users );
}
foreach my $user (@users){
my $userName = $user->key;
my $home = getpwnam($userName)->dir;
mkdir $home . '/.lock-auto-reply' unless -d $home . '/.lock-auto-reply';
esmith::templates::processTemplate ({
MORE_DATA => { USERNAME => $userName },
TEMPLATE_PATH => "/.lock-auto-reply/message.txt",
TEMPLATE_EXPAND_QUEUE =>
[
"/etc/e-smith/templates-user-custom",
"/etc/e-smith/templates-user",
],
OUTPUT_PREFIX => "$home",
PERMS => 0644,
});
}
exit(0);
Loading…
Cancel
Save