To resolve this problem i simply create an additionnal function for dbi oracle wrapper as following:
sub WS_SQL_Loader
{
my ($this, $controlFile, $csvFile, $logFile, $logBadFile) = @_
my $returnVal = 1;
# Récupération des données de connexion Oracle
my $dbi_data_source = $this->{DBLINK};
my $dbi_username = $this->{DBUSER};
my $dbi_password = $this->{DBPASSWORD};
#Préparation de la commande sqlldr a charger
my $command_line = "sqlldr $dbi_username/$dbi_password\@$dbi_data_source data=$csvFile control=$controlFile ".
"log=$logFile bad=$logBadFile silent=ALL";
my $output = `$command_line`;
my $retcode = $? / 256;
# S'il y a eu une erreur => On trace une erreur
if ($retcode ne 0) {
$this->{logger}->createTrace(1310, $logFile);
$returnVal = 0;
} else {
unlink("$logFile");
$this->{logger}->debug("execution de SQL*LOADER. return code => $retcode");
$this->{logger}->debug("execution de SQL*LOADER. commande => sqlldr $dbi_username/<mot de passe>\@$dbi_data_source ".
"data=$csvFile control=$controlFile log=$logFile bad=$logBadFile silent=ALL");
}
# Si le fichier de rejet .bad existe => le sqlldr n'a pas fonctionné
if( -e "$logBadFile" ) {
$this->{logger}->createTrace($ERR_SQL_LDR, $logFile);
$returnVal = 0;
}
return $returnVal;
}
But i do not tested it yet.