Archived
1
0
Fork 0

Fix grading generation from defenses

This commit is contained in:
Mercier Pierre-Olivier 2013-09-22 15:10:32 +02:00
parent 39758b9e4b
commit 59aff8677a
5 changed files with 36 additions and 28 deletions

View file

@ -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);