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

COnvert to UTF8 lpt

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-15 08:49:59 +01:00
parent 1d5562b073
commit a809c4ff8d
1 changed files with 26 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
utils/lpt Executable file → Normal file
View File

@ -3,6 +3,9 @@
use v5.10.1;
use strict;
use warnings;
use utf8;
use open IO => ':utf8';
use open ':std';
use Digest::SHA;
use Email::MIME;
@ -251,7 +254,7 @@ sub cmd_account_create($@)
my $login = shift;
if ($#_ < 3) {
log(USAGE, "lpt account <login> create <year> <uid> <prénom> <nom> [nopass|passgen|password]");
log(USAGE, "lpt account <login> create <year> <uid> <prénom> <nom> [nopass|passgen|password]");
return 1;
}
@ -1523,9 +1526,9 @@ sub cmd_no_strong_auth_warn(@)
my $body = "Bonjour ".$entry->get_value("cn").",
Vous n'avez pas activé l'authentification forte pour SSH.
Vous n'avez pas activé l'authentification forte pour SSH.
Pour connaître la marche à suivre pour l'activer, consultez :
Pour connaître la marche à suivre pour l'activer, consultez :
https://www.acu.epita.fr/wiki/index.php?title=Ssh_double_factor_auth
Merci de rectifier la situation au plus vite ou votre compte sera mis
@ -1533,8 +1536,8 @@ en suspens.
Cordialement,
P.-S. : Ce message est généré automatiquement, les roots sont en copie.
Pour toute demande, merci de faire un ticket à admin\@acu.epita.fr
P.-S. : Ce message est généré automatiquement, les roots sont en copie.
Pour toute demande, merci de faire un ticket à admin\@acu.epita.fr
--
Les roots ACU";
@ -1570,10 +1573,10 @@ sub cmd_no_strong_auth_close(@)
my $body = "Bonjour ".$entry->get_value("cn").",
Après plusieurs relances de notre part, vous n'avez toujours pas activé
l'authentification forte pour SSH. Votre compte a donc été suspendu.
Après plusieurs relances de notre part, vous n'avez toujours pas activé
l'authentification forte pour SSH. Votre compte a donc été suspendu.
Nous vous invitons à passer au laboratoire pour faire réactiver votre
Nous vous invitons à passer au laboratoire pour faire réactiver votre
compte.
Cordialement,
@ -1730,11 +1733,11 @@ sub cmd_ssh_keys_without_passphrase_warn(@)
my $body = "Bonjour ".$entry->get_value("cn").",
Un outil automatique a découvert une clef sans passphrase sur votre compte
du laboratoire. Il est impératif de mettre une passphrase chiffrant votre
clef pour des raisons de sécurité.
Un outil automatique a découvert une clef sans passphrase sur votre compte
du laboratoire. Il est impératif de mettre une passphrase chiffrant votre
clef pour des raisons de sécurité.
Les clefs non protégées sont les suivantes :\n";
Les clefs non protégées sont les suivantes :\n";
foreach my $key (@$keys)
{
$key =~ s#^$nfsHomePrefix#$wksHomePrefix#;
@ -1743,13 +1746,13 @@ Les clefs non prot
$body .= "\nPour mettre une passphrase :
\$ ssh-keygen -p -f CHEMIN_VERS_LA_CLE_PRIVEE
Merci de rectifier la situation au plus vite ou votre clé sera supprimée et
Merci de rectifier la situation au plus vite ou votre clé sera supprimée et
votre compte sera mis en suspens.
Cordialement,
PS: Ce message est généré automatiquement, les roots sont en copie.
Pour toute demande, merci de faire un ticket à admin\@acu.epita.fr
PS: Ce message est généré automatiquement, les roots sont en copie.
Pour toute demande, merci de faire un ticket à admin\@acu.epita.fr
--
Les roots ACU";
@ -1760,7 +1763,7 @@ Les roots ACU";
From => "Roots assistants <admin\@acu.epita.fr>",
To => $entry->get_value("mailAlias"),
Cc => 'Roots assistants <root@acu.epita.fr>',
Subject => "[PILA][SSH-KEY] Clef SSH non protégée"
Subject => "[PILA][SSH-KEY] Clef SSH non protégée"
],
attributes => {
encoding => 'quoted-printable',
@ -1791,13 +1794,13 @@ sub cmd_ssh_keys_without_passphrase_remove(@)
# create the message
my $body = "Bonjour ".$entry->get_value("cn").",
Un outil automatique a découvert une clef sans passphrase sur votre
Un outil automatique a découvert une clef sans passphrase sur votre
compte du laboratoire.
N'ayant pas corrigé votre situation après plusieurs relances, nous avons
désactivé votre compte et supprimé le(s) clef(s) incriminées.
N'ayant pas corrigé votre situation après plusieurs relances, nous avons
désactivé votre compte et supprimé le(s) clef(s) incriminées.
Pour information, voici l'empreinte de chacune des clefs supprimée :\n";
Pour information, voici l'empreinte de chacune des clefs supprimée :\n";
foreach my $key (@$keys)
{
open (FNGR, "ssh-keygen -l -f '$key' | cut -d ' ' -f 2 |");
@ -1815,8 +1818,8 @@ Contacter les roots pour faire reouvrir votre compte.
Cordialement,
PS: Ce message est généré automatiquement, les roots sont en copie.
Pour toute demande, merci de faire un ticket à admin\@acu.epita.fr
PS: Ce message est généré automatiquement, les roots sont en copie.
Pour toute demande, merci de faire un ticket à admin\@acu.epita.fr
--
Les roots ACU";
@ -1826,7 +1829,7 @@ Les roots ACU";
From => "Roots assistants <admin\@acu.epita.fr>",
To => $entry->get_value("mailAlias"),
Cc => 'Roots assistants <root@acu.epita.fr>',
Subject => "[PILA][SSH-KEY] Clef SSH non protégée supprimée"
Subject => "[PILA][SSH-KEY] Clef SSH non protégée supprimée"
],
attributes => {
encoding => 'quoted-printable',