use utf8;
use strict;
use warnings;

use Cwd;    # Module "CORE"
use Encode;

use LibOutils qw(getHeureActuelle);

package LogsMarcoPolo;

BEGIN {
    require Exporter;

    # set the version for version checking
    our $VERSION = 1.00;

    # Inherit from Exporter to export functions and variables
    our @ISA = qw(Exporter);

    # Functions and variables which are exported by default
    our @EXPORT = qw(setNomProgramme ouvreFichierPourLog assigneFluxPourLog pushFlux popFlux init printAndLog);

    # Functions and variables which can be optionally exported
    our @EXPORT_OK = qw();
}

# Here are other definitions of variables and subs, which I removed for the sake of clarity

sub init {
    my ($nomDuProgramme,
        $pathLogGeneral,
        $pathLogErreurs) = @_;
    my $date = LibOutils::getDateDuJour();      # La date de l'appel à init()
    my $time = LibOutils::getHeureActuelle();   # L'heure de l'appel à init()

    $nomProgramme = $nomDuProgramme;

    # Ouverture du flux pour STDOUT:
    my $stdout = assigneFluxPourLog(*STDOUT);
    # On l'ajoute à la liste de flux 'OUT':
    pushFlux('OUT', $stdout);

    # Ouverture du flux pour STDERR:
    my $stderr = assigneFluxPourLog(*STDERR);
    # On l'ajoute à la liste de flux 'ERR', et à la liste 'DUO':
    pushFlux('ERR', $stderr);
    pushFlux('DUO', $stderr);

    if (defined $pathLogGeneral) {
        my $plg = $pathLogGeneral;
        $plg =~ s/<DATE>/$date/g;
        $plg =~ s/<TIME>/$time/g;
        my $logG = ouvreFichierPourLog($plg);
        pushFlux('OUT', $logG);
        pushFlux('DUO', $logG);
    }

    if (defined $pathLogErreurs) {
        my $ple = $pathLogErreurs;
        $ple =~ s/<DATE>/$date/g;
        $ple =~ s/<TIME>/$time/g;
        my $logE = ouvreFichierPourLog($ple);
        pushFlux('ERR', $logE);
        pushFlux('DUO', $logE);
    }
}