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

Add sendmail option

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-14 16:09:24 +01:00
parent 33e32d2916
commit 947aebd490
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ACU/Log.pm
View File

@ -71,7 +71,7 @@ sub log
if ($mail_error && $level <= ERROR) if ($mail_error && $level <= ERROR)
{ {
require Email::Sender::Simple; require Email::Sender::Simple qw(sendmail);
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>",

8
utils/lpt
View File

@ -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 qw(sendmail);
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 qw(sendmail);
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 qw(sendmail);
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 qw(sendmail);
my $process = sub() { my $process = sub() {
my $entry = shift; my $entry = shift;