diff --git a/admin/lib/Evoauth/Admin.pm b/admin/lib/Evoauth/Admin.pm
index 6c42309..9457ad9 100644
--- a/admin/lib/Evoauth/Admin.pm
+++ b/admin/lib/Evoauth/Admin.pm
@@ -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
 
diff --git a/admin/lib/Evoauth/Functions.pm b/admin/lib/Evoauth/Functions.pm
index 1f69adc..94d530e 100644
--- a/admin/lib/Evoauth/Functions.pm
+++ b/admin/lib/Evoauth/Functions.pm
@@ -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
diff --git a/admin/lib/Evoauth/Iptables.pm b/admin/lib/Evoauth/Iptables.pm
index 84c71d4..c0bb660 100644
--- a/admin/lib/Evoauth/Iptables.pm
+++ b/admin/lib/Evoauth/Iptables.pm
@@ -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