Gestion des sets : cle api dans fichier dedie cle.key

gestion_des_sets/cle.exemple

+api_user_conf	RecupConfSandBox
+api_cle_conf	l8xx403e####################bcf612

gestion_des_sets/config.exemple

-api_user_conf	RecupConfSandBox
-api_cle_conf	l8xx403e####################bcf612
-set_id	123456891011213141516
+set_id	8674129520005601
 fic_sortie	resultats.csv
 horodatage	no
 

gestion_des_sets/recup-sets-alma.pl

@@ -5,6 +5,7 @@
 # API Configuration and Administration
 # Récupérer les résultats de recherche d'un jeu
 # 	23-02-2023 correctif si jeu de resultat existe mais ne retourne aucun resultat
+#	04/06/2025 : fichier cle.key dedié aux clés api. les clés api ne sont plus mise dans les fichier de conf. plus pratique pour la gestion GIT.
 #################
 use strict;
 use warnings;
@@ -17,8 +18,11 @@ my @tab_resultats=();
 my @tab_ppn=();
 my $indice=0;
 my $j=0;
+my $nom_fic_cle="cle.key"; # les clés API impérativement dans ce fichier
 my $nom_fic_conf="";
 my $nom_fic_csv="";
+my %hash_conf=();
+my @tab_inter=();
 my %hash_entete=(); # pour retrouver plus facilement une valeur
 my @tab_entete=(); # pour parcourir dans l'ordre les colonnes
 my $ligne_entete_csv="";
@@ -28,16 +32,33 @@ my $taille_lot=100; # taille d'un lot de resultat i.e "la limite"
 #my $max_ppn_url = 100; # nombre max de bloc ppn dans l'url : attention une url est limitée en nombre d'octect : pas plus de 100 PPN car c'est encapsulé dans des balises XML verbeuses...
 #my $compteur_ppn=0;
 
+if (!(exists $ARGV[0])) {print "Manque des fichiers en parametre : perl recup-sets-alma.pl	fichier-conf.conf.\n";exit(0)};
 $nom_fic_conf=$ARGV[0];
 
+##### LIRE LE FICHIER DE CLE
+
+open (CONF, $nom_fic_cle) or die "Ouverture fichier de cle api $nom_fic_cle impossible , cause : $! \n";
+print "lecture des cle api:\n";
+print "-" x 20, "\n";
+@tab_inter = <CONF>; 
+close(CONF);
+my $i=0;
+for ($i=0;$i<=$#tab_inter;$i++) {
+	#print $tab_inter[$i];
+	my @ligne=split('\t',$tab_inter[$i]); # decoupage ligne
+	$hash_conf{$ligne[0]}=epure($ligne[1]); # alimentation de la table de hash avec les cles
+	
+
+}
+
 ##### LIRE LE FICHIER DE CONF
-my %hash_conf=();
+
 open (CONF, $nom_fic_conf) or die "Ouverture fichier de configuration $nom_fic_conf impossible , cause : $! \n";
 print "lecture de la configuration:\n";
 print "-" x 20, "\n";
-my @tab_inter = <CONF>; 
+@tab_inter = <CONF>; 
 close(CONF);
-my $i=0;
+$i=0;
 for ($i=0;$i<=$#tab_inter;$i++) {
 	print $tab_inter[$i];
 	my @ligne=split('\t',$tab_inter[$i]); # decoupage ligne