68 lines
1.5 KiB
Perl
68 lines
1.5 KiB
Perl
#!/usr/bin/perl
|
|
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Getopt::Std;
|
|
use Config::Tiny;
|
|
|
|
use Evoauth::Admin;
|
|
use Evoauth::Functions;
|
|
use Evoauth::Iptables;
|
|
|
|
$SIG{INT} = $SIG{TERM} = $SIG{KILL} = "";
|
|
|
|
# Evoauth doit être activé
|
|
if (&Access() != 0) { exit; }
|
|
|
|
# choix des options
|
|
my %options=();
|
|
getopts("icsrAd:a:",\%options);
|
|
|
|
if (defined $options{a})
|
|
{ &Evoauth::Iptables::Alter(1, $options{a}); }
|
|
elsif (defined $options{A})
|
|
{ &Access(); }
|
|
elsif (defined $options{d})
|
|
{ &Evoauth::Iptables::Alter(3, $options{d});}
|
|
elsif (defined $options{c})
|
|
{ &Evoauth::Iptables::Alter(2); }
|
|
elsif (defined $options{i})
|
|
{ &Evoauth::Iptables::Control(1); }
|
|
elsif (defined $options{s})
|
|
{ &Evoauth::Iptables::Control(2); }
|
|
elsif (defined $options{r})
|
|
{ &Evoauth::Iptables::Control(3); }
|
|
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 "-A : verification de l'activation\n";
|
|
print "-i : initialisation du logiciel\n";
|
|
print "-s : arrêt du logiciel\n";
|
|
print "-r : redémarrage du logiciel\n";
|
|
print "-a ip : ajout d'une ip a la base\n";
|
|
print "-d ip : suppression d'une ip a la base\n";
|
|
print "-c : vérification des bases de connexion\n";
|
|
print "-h : aide\n";
|
|
|
|
exit;
|
|
}
|