From de94b0b5563ce0a09c40a653cd74a6ed1129b63c Mon Sep 17 00:00:00 2001
From: Alexandre Anriot <aanriot@evolix.fr>
Date: Tue, 13 Sep 2005 14:19:34 +0000
Subject: [PATCH] sub Access.

---
 admin/Evoauth.pl | 27 ++++++++++++++++-----------
 1 file changed, 16 insertions(+), 11 deletions(-)

diff --git a/admin/Evoauth.pl b/admin/Evoauth.pl
index cf45e24..9a76b05 100644
--- a/admin/Evoauth.pl
+++ b/admin/Evoauth.pl
@@ -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";