J'ai un probleme pour la creation des user sous perl.
mon scrip arrive a creer le user pour un serveur % mais pas sur le
localhost
Voici les deux scripts
my $Poste="%";
my $Local="localhost";
my $RqtInsertMySqlUser=$BaseMySql->prepare("GRANT
UPDATE,DELETE,INSERT,SELECT
ON $Base.* TO $LoginUser@$Poste IDENTIFIED BY '$PasswdUser'
");
$RqtInsertMySqlUser->execute or &DiagErreur($DBI::errstr); # Ca c'est OK
my $RqtInsertMySqlUser2=$BaseMySql->prepare("GRANT
UPDATE,DELETE,INSERT,SELECT
ON $Base.* TO $LoginUser@$Local IDENTIFIED BY '$PasswdUser'
");
$RqtInsertMySqlUser2->execute or &DiagErreur($DBI::errstr); # Ca ca ne fait
rien
