Fix grading generation from defenses
This commit is contained in:
parent
39758b9e4b
commit
59aff8677a
5 changed files with 36 additions and 28 deletions
30
utils/lpt
30
utils/lpt
|
@ -1401,7 +1401,7 @@ sub cmd_ssh_keys_without_passphrase_warn(@)
|
|||
print $entry->get_value("uid")."\n";
|
||||
|
||||
# create the message
|
||||
use Mail::Internet;
|
||||
#use Mail::Internet;
|
||||
|
||||
my $body = "Bonjour ".$entry->get_value("cn").",
|
||||
|
||||
|
@ -1429,13 +1429,13 @@ PS: Ce message est g
|
|||
--
|
||||
Les roots ACU";
|
||||
|
||||
my $email = Mail::Internet->new();
|
||||
$email->body($body);
|
||||
$email->add( "To", $entry->get_value("mailAlias") );
|
||||
$email->add( "Cc", "<root\@acu.epita.fr>" );
|
||||
$email->add( "From", "Roots assistants <admin\@acu.epita.fr>" );
|
||||
$email->add( "Subject", "[LAB][SSH-PASSPHRASE] Clef SSH non protégée" );
|
||||
$email->send();
|
||||
#my $email = Mail::Internet->new();
|
||||
#$email->body($body);
|
||||
#$email->add( "To", $entry->get_value("mailAlias") );
|
||||
#$email->add( "Cc", "<root\@acu.epita.fr>" );
|
||||
#$email->add( "From", "Roots assistants <admin\@acu.epita.fr>" );
|
||||
#$email->add( "Subject", "[LAB][SSH-PASSPHRASE] Clef SSH non protégée" );
|
||||
#$email->send();
|
||||
};
|
||||
|
||||
cmd_ssh_keys_without_passphrase_generic(\&$process);
|
||||
|
@ -1485,13 +1485,13 @@ PS: Ce message est g
|
|||
--
|
||||
Les roots ACU";
|
||||
|
||||
my $email = Mail::Internet->new();
|
||||
$email->body($body);
|
||||
$email->add( "To", $entry->get_value("mailAlias") );
|
||||
$email->add( "Cc", "<root\@acu.epita.fr>" );
|
||||
$email->add( "From", "Roots assistants <admin\@acu.epita.fr>" );
|
||||
$email->add( "Subject", "[LAB][SSH-PASSPHRASE] Clef SSH non protégée supprimée" );
|
||||
$email->send();
|
||||
#my $email = Mail::Internet->new();
|
||||
#$email->body($body);
|
||||
#$email->add( "To", $entry->get_value("mailAlias") );
|
||||
#$email->add( "Cc", "<root\@acu.epita.fr>" );
|
||||
#$email->add( "From", "Roots assistants <admin\@acu.epita.fr>" );
|
||||
#$email->add( "Subject", "[LAB][SSH-PASSPHRASE] Clef SSH non protégée supprimée" );
|
||||
#$email->send();
|
||||
};
|
||||
|
||||
cmd_ssh_keys_without_passphrase_generic(\&$process);
|
||||
|
|
Reference in a new issue