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

licence.

Browse source
This commit is contained in:
Alexandre Anriot 2005-09-15 08:43:05 +00:00
parent ca4d94dfa7
commit 920138c193
3 changed files with 15 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
admin/lib/Evoauth/Admin.pm
View file

@ -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

9
admin/lib/Evoauth/Functions.pm
View file

@ -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

18
admin/lib/Evoauth/Iptables.pm
View file

@ -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