epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Fix requires Email::Sender::Simple thanks to TIBO

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-14 15:47:25 +01:00
parent e11d9082da
commit 54b407fa11
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ACU/Log.pm
View File

@ -67,7 +67,7 @@ sub log
if ($mail_error && $level <= ERROR) if ($mail_error && $level <= ERROR)
{ {
require "Email::Sender::Simple"; require Email::Sender::Simple;
my $mail = Email::MIME->create( my $mail = Email::MIME->create(
header_str => [ header_str => [
From => "Roots assistants <root\@$HOSTNAME.acu.epita.fr>", From => "Roots assistants <root\@$HOSTNAME.acu.epita.fr>",

12
utils/lpt
View File

@ -1405,7 +1405,7 @@ sub cmd_account_quota_sync($;$)
my $quotaSgoinfreBlock = $entry->get_value("quotaSgoinfreBlock") // $def_quota{block}{sgoinfre}; my $quotaSgoinfreBlock = $entry->get_value("quotaSgoinfreBlock") // $def_quota{block}{sgoinfre};
my $quotaSgoinfreFile = $entry->get_value("quotaSgoinfreFile") // $def_quota{file}{sgoinfre}; my $quotaSgoinfreFile = $entry->get_value("quotaSgoinfreFile") // $def_quota{file}{sgoinfre};
require "Quota"; require Quota;
if (Quota::setqlim($dev_quota{home}, $entry->get_value("uidNumber"), int(0.9 * $quotaHomeBlock), $quotaHomeBlock, int(0.9 * $quotaHomeFile), $quotaHomeFile, 1, 0) == 0 and if (Quota::setqlim($dev_quota{home}, $entry->get_value("uidNumber"), int(0.9 * $quotaHomeBlock), $quotaHomeBlock, int(0.9 * $quotaHomeFile), $quotaHomeFile, 1, 0) == 0 and
Quota::setqlim($dev_quota{sgoinfre}, $entry->get_value("uidNumber"), int(0.9 * $quotaSgoinfreBlock), $quotaSgoinfreBlock, int(0.9 * $quotaSgoinfreFile), $quotaSgoinfreFile, 1, 0) == 0) { Quota::setqlim($dev_quota{sgoinfre}, $entry->get_value("uidNumber"), int(0.9 * $quotaSgoinfreBlock), $quotaSgoinfreBlock, int(0.9 * $quotaSgoinfreFile), $quotaSgoinfreFile, 1, 0) == 0) {
@ -1429,7 +1429,7 @@ sub cmd_account_quota_sync($;$)
sub cmd_sync_quota(@) sub cmd_sync_quota(@)
{ {
require "Quota"; require Quota;
# Set root quota # Set root quota
Quota::setqlim($dev_quota{home}, 0, 0, 0, 0, 0, 1, 0); Quota::setqlim($dev_quota{home}, 0, 0, 0, 0, 0, 1, 0);
@ -1512,7 +1512,7 @@ sub cmd_no_strong_auth_view(@)
sub cmd_no_strong_auth_warn(@) sub cmd_no_strong_auth_warn(@)
{ {
require "Email::Sender::Simple"; require Email::Sender::Simple;
for my $entry (get_no_strong_auth_user()) for my $entry (get_no_strong_auth_user())
{ {
@ -1553,7 +1553,7 @@ Les roots ACU";
sub cmd_no_strong_auth_close(@) sub cmd_no_strong_auth_close(@)
{ {
require "Email::Sender::Simple"; require Email::Sender::Simple;
for my $entry (get_no_strong_auth_user()) for my $entry (get_no_strong_auth_user())
{ {
@ -1706,7 +1706,7 @@ sub cmd_ssh_keys_without_passphrase_view(@)
# warn about unprotected keys # warn about unprotected keys
sub cmd_ssh_keys_without_passphrase_warn(@) sub cmd_ssh_keys_without_passphrase_warn(@)
{ {
require "Email::Sender::Simple"; require Email::Sender::Simple;
my $process = sub() { my $process = sub() {
my $entry = shift; my $entry = shift;
@ -1760,7 +1760,7 @@ Les roots ACU";
# remove unprotected keys # remove unprotected keys
sub cmd_ssh_keys_without_passphrase_remove(@) sub cmd_ssh_keys_without_passphrase_remove(@)
{ {
require "Email::Sender::Simple"; require Email::Sender::Simple;
my $process = sub() { my $process = sub() {
my $entry = shift; my $entry = shift;