evolix/evoauth
Archived
21
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

sub Access.

Browse source
This commit is contained in:
Alexandre Anriot 2005-09-13 14:19:34 +00:00
parent 6a8c716da3
commit be194d7f75
1 changed files with 16 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
admin/Evoauth.pl
View file

@ -13,17 +13,7 @@ use Evoauth::Iptables;
$SIG{INT} = $SIG{TERM} = $SIG{KILL} = "";
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;
}
&Access();
# choix des options
my %options=();
@ -44,6 +34,21 @@ elsif (defined $options{r})
else
{ &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() {
print "\nusage :\n";
print "-i : initialisation du logiciel\n";