sub Access.
This commit is contained in:
parent
aeec357063
commit
de94b0b556
|
@ -13,17 +13,7 @@ use Evoauth::Iptables;
|
||||||
|
|
||||||
$SIG{INT} = $SIG{TERM} = $SIG{KILL} = "";
|
$SIG{INT} = $SIG{TERM} = $SIG{KILL} = "";
|
||||||
|
|
||||||
my $Config = Config::Tiny->read( '/etc/evoauth/evoauth.conf' );
|
&Access();
|
||||||
if ($Config->{control}->{enable} != 1) {
|
|
||||||
print <<AVERT;
|
|
||||||
|
|
||||||
Avertissement Evoauth
|
|
||||||
---------------------
|
|
||||||
enable doit etre egal a 1 dans /etc/evoauth/evoauth.conf avant
|
|
||||||
de continuer".
|
|
||||||
AVERT
|
|
||||||
exit;
|
|
||||||
}
|
|
||||||
|
|
||||||
# choix des options
|
# choix des options
|
||||||
my %options=();
|
my %options=();
|
||||||
|
@ -44,6 +34,21 @@ elsif (defined $options{r})
|
||||||
else
|
else
|
||||||
{ &Usage; }
|
{ &Usage; }
|
||||||
|
|
||||||
|
sub Access() {
|
||||||
|
my $Config = Config::Tiny->read( '/etc/evoauth/evoauth.conf' );
|
||||||
|
|
||||||
|
if ($Config->{control}->{enable} != 1) {
|
||||||
|
print <<AVERT;
|
||||||
|
|
||||||
|
Avertissement Evoauth
|
||||||
|
---------------------
|
||||||
|
enable doit etre egal a 1 dans /etc/evoauth/evoauth.conf avant
|
||||||
|
de continuer".
|
||||||
|
AVERT
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
sub Usage() {
|
sub Usage() {
|
||||||
print "\nusage :\n";
|
print "\nusage :\n";
|
||||||
print "-i : initialisation du logiciel\n";
|
print "-i : initialisation du logiciel\n";
|
||||||
|
|
Reference in a new issue