diff --git a/admin/Evoauth.pl b/admin/Evoauth.pl index 2f86551..60b8eb3 100644 --- a/admin/Evoauth.pl +++ b/admin/Evoauth.pl @@ -6,6 +6,7 @@ use strict; use warnings; use Getopt::Std; use Config::Tiny; +use Fcntl; use Evoauth::Admin; use Evoauth::Functions; @@ -44,3 +45,14 @@ sub Usage() { exit; } + +BEGIN { + sysopen(LOCK, "/tmp/evoauth.lock", O_WRONLY|O_EXCL|O_CREAT, 0644) + or die "Verouillage en cours, sortie : $!"; + + flock(LOCK, 2); +} + +END { + close (LOCK); +}