fws
/
report_acl
4
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add horodating

Browse Source
master
Heuzef 7 years ago
parent b03d1043d9
commit 8e6e3c192d
1 changed files with 3 additions and 1 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 4
      report_acl.pl

4
report_acl.pl
Unescape View File

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

Write Preview
Loading…
Cancel
Save