#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use POSIX;
use Data::Dumper qw(Dumper);

my $driver = "Pg";
my $database = "db_crm";
my $dsn = "DBI:$driver:dbname = $database;host = localhost;port = 5432";
my $userid = "finix";
my $password = "Ay0ubAdmIn";
my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 })
    or die $DBI::errstr;

my $check_script = `pgrep -f traitement_cda.py`;

if(length $check_script == 0) {
    my $deleteS = $dbh->prepare("DELETE FROM logfile WHERE fichier like '%traitement_cda.py%'");
    $deleteS->execute();
}else {
    my @tmp = ('traitement_cda.py', $check_script);
    my $insert = $dbh->prepare("INSERT INTO logfile (fichier,pid_fichier) VALUES (?,?) ON CONFLICT DO NOTHING");
    $insert->execute(@tmp);
}

#my @tmp = ('traitement_mp3.pl', 100);
#my $insert = $dbh->prepare("INSERT INTO logfile (fichier,pid_fichier) VALUES (?,?) ON CONFLICT DO NOTHING");
#$insert->execute(@tmp);