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