licence.
This commit is contained in:
parent
ca4d94dfa7
commit
920138c193
3 changed files with 15 additions and 21 deletions
|
@ -47,16 +47,13 @@ Fonctions d'administration d'Evoauth.
|
|||
|
||||
=head1 AUTHOR
|
||||
|
||||
Alexandre Anriot, E<lt>aanriot@evolix.fr<gt>
|
||||
Evolix, E<lt>info@evolix.fr<gt>
|
||||
|
||||
=head1 COPYRIGHT AND LICENSE
|
||||
|
||||
Copyright (C) 2005 by Alexandre Anriot
|
||||
|
||||
This library is free software; you can redistribute it and/or modify
|
||||
it under the same terms as Perl itself, either Perl version 5.8.6 or,
|
||||
at your option, any later version of Perl 5 you may have available.
|
||||
Copyright (C) 2005 Evolix
|
||||
|
||||
Licence GPL.
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
@ -93,15 +93,12 @@ Fonctions d'administration d'Evoauth.
|
|||
|
||||
=head1 AUTHOR
|
||||
|
||||
Alexandre Anriot, E<lt>aanriot@evolix.fr<gt>
|
||||
Evolix, E<lt>info@evolix.fr<gt>
|
||||
|
||||
=head1 COPYRIGHT AND LICENSE
|
||||
|
||||
Copyright (C) 2005 by Alexandre Anriot
|
||||
|
||||
This library is free software; you can redistribute it and/or modify
|
||||
it under the same terms as Perl itself, either Perl version 5.8.6 or,
|
||||
at your option, any later version of Perl 5 you may have available.
|
||||
Copyright (C) 2005 Evolix
|
||||
|
||||
Licence GPL.
|
||||
|
||||
=cut
|
||||
|
|
|
@ -57,7 +57,8 @@ sub Alter() {
|
|||
|
||||
$sth->execute();
|
||||
$sth->finish();
|
||||
$sth->disconnect();
|
||||
|
||||
$dbh->disconnect();
|
||||
|
||||
&Evoauth::Functions::Log("$ip [supprimee]");
|
||||
&Evoauth::Functions::Mail("Deconnexion", $ip);
|
||||
|
@ -91,7 +92,8 @@ sub check_iptables() {
|
|||
my $statut;
|
||||
$sth->bind_columns(undef, \$statut);
|
||||
$sth->fetch();
|
||||
$sth->disconnect();
|
||||
|
||||
$dbh->disconnect();
|
||||
|
||||
# si entrée iptables présente mais statut non connecté, on supprime
|
||||
if ($statut != 1) {
|
||||
|
@ -145,7 +147,8 @@ sub check_timestamp() {
|
|||
}
|
||||
|
||||
$sth->finish();
|
||||
$sth->disconnect();
|
||||
|
||||
$dbh->disconnect();
|
||||
}
|
||||
|
||||
sub Control() {
|
||||
|
@ -229,15 +232,12 @@ Fonctions d'administration d'Evoauth.
|
|||
|
||||
=head1 AUTHOR
|
||||
|
||||
Alexandre Anriot, E<lt>aanriot@evolix.fr<gt>
|
||||
Evolix, E<lt>info@evolix.fr<gt>
|
||||
|
||||
=head1 COPYRIGHT AND LICENSE
|
||||
|
||||
Copyright (C) 2005 by Alexandre Anriot
|
||||
|
||||
This library is free software; you can redistribute it and/or modify
|
||||
it under the same terms as Perl itself, either Perl version 5.8.6 or,
|
||||
at your option, any later version of Perl 5 you may have available.
|
||||
Copyright (C) 2005 Evolix
|
||||
|
||||
Licence GPL.
|
||||
|
||||
=cut
|
||||
|
|
Reference in a new issue