add horodating

report_acl.pl

@@ -2,9 +2,11 @@
 use strict;
 use esmith::AccountsDB;
 use esmith::ConfigDB;
+use POSIX qw(strftime);
 
 my $a = esmith::AccountsDB->open_ro() || die "Couldn't open the accounts database";
 my $c = esmith::ConfigDB->open_ro() || die "Couldn't open the configuration database";
+my $date = strftime "%d/%m/%Y %H:%M", localtime;
 
 sub uniq {
     my %seen;
@@ -14,7 +16,7 @@ sub uniq {
 
 print "====== Audit des permissions ======\n\n";
 
-print "===== État des permissions au JJ/MM/AAAA HH:MM =====\n\n";
+print "===== État des permissions au $date =====\n\n";
 
 print "<note>Les comptes verrouillés ont été mis en évidence **<color #c3c3c3>en gris</color>**.</note>\n\n";