Version 6.14.0. Process::finalize takes as an additional argument a delay granted to child processes to terminate without being killed. FileLock class allows locking a file against concurrent access. Partial rewrite of the ApplicationStats class + logUsage method logging version and OS.

Charles PIGNEROL · Charles PIGNEROL · commit c8a7d835b2a2 · 2025-11-07T15:47:11.000+01:00
diff --git a/src/TkUtil/ApplicationStats.cpp b/src/TkUtil/ApplicationStats.cpp
@@ -68,219 +68,114 @@ string ApplicationStats::getFileName (const string& appName, const string& logDi
 	
 void ApplicationStats::logUsage (const string& appName, const string& logDir)
 {
-	// En vue de ne pas altérer le comportement de l'application tout est effectuée dans un processus fils => exit (0) en toutes circonstances.
-	errno	= 0;
-	const pid_t	pid	= fork ( );
-	if ((pid_t)-1 == pid)
-	{
-		TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-		ConsoleOutput::cerr ( ) << "ApplicationStats::logUsage : échec de fork : " << strerror (errno) << co_endl;
-		return;
-	}	// if ((pid_t)-1 == pid)
-	if (0 != pid)
-	{
-		Process::killAtEnd (pid);
-		return;	// Parent
-	}
-
-	// On détache complètement le fils du parent => peut importe qui fini en premier, l'autre ira jusqu'au bout :
-	const pid_t	sid	= setsid ( );
-	if ((pid_t)-1 == sid)
-	{
-		{
-			TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-			ConsoleOutput::cerr ( ) << "ApplicationStats::logUsage : échec de setsid : " << strerror (errno) << co_endl;
-		}
-		exit (0);
-	}	// if ((pid_t)-1 == sid)
-	
-	if ((true == appName.empty ( )) || (true == logDir.empty ( )))
-	{
-		{
-			TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-			ConsoleOutput::cerr ( ) << "ApplicationStats::logUsage : nom d'application ou répertoire des logs non renseigné (" << appName << "/" << logDir << ")." << co_endl;
-		}
-		exit (0);
-	}	// if ((true == appName.empty ( )) || (true == logDir.empty ( )))
-
-	// Le nom du fichier :
-	const Date		date;
-	const string	user (UserData (true).getName ( ));
-	UTF8String	fileName (getFileName (appName, logDir, (unsigned long)date.getMonth ( ), date.getYear ( )), Charset::UTF_8);
+	FILE*	file	= 0;
+	string	fileName;
 
-	// On ouvre le fichier en lecture/écriture :
-	FILE* 		file	= fopen (fileName.utf8 ( ).c_str ( ), "r+");		// Ne créé pas le fichier => on le créé ci-dessous si nécessaire :
-	const bool	created	= NULL == file ? true : false;
-	file		= NULL == file ? fopen (fileName.utf8 ( ).c_str ( ), "a+") : file;
-	if (NULL == file)
+	try
 	{
-		try
-		{	// On peut avoir des exceptions de levées : chemin non traversable, ...
-			File	dir (logDir);
-			if ((false == dir.exists ( )) || (false == dir.isDirectory ( )) || (false == dir.isExecutable ( )) || (false == dir.isWritable ( )))
-			{
-				{
-					TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-					ConsoleOutput::cerr ( ) << "Erreur, " << logDir << " n'est pas un répertoire existant avec les droits en écriture pour vous." << co_endl;
-				}
-				exit (0);
-			}	// if ((false == dir.exists ( )) || (false == dir.isDirectory ( )) || ...
-			File	logFile (fileName.utf8 ( ));
-			if (false == logFile.isWritable ( ))
-			{
-				{
-					TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-					ConsoleOutput::cerr ( ) << "Erreur lors de l'ouverture du fichier de logs " << fileName << " : absence de droits en écriture." << co_endl;
-				}
-				exit (0);
-			}	// if (false == logFile.isWritable ( ))
-		}
-		catch (const Exception& exc)
+		if ((true == appName.empty ( )) || (true == logDir.empty ( )))
 		{
 			{
-				TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-				ConsoleOutput::cerr ( ) << "Erreur lors de l'ouverture du fichier de logs " << fileName << " : " << exc.getFullMessage ( ) << co_endl;
+				
+				ConsoleOutput::cerr ( ) << "ApplicationStats::logUsage : nom d'application ou répertoire des logs non renseigné (" << appName << "/" << logDir << ")." << co_endl;
 			}
-			exit (0);
-		}
-		catch (...)
-		{
-		}
 
-		{
-			TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-			ConsoleOutput::cerr ( ) << "Erreur lors de l'ouverture du fichier de logs " << fileName << " : erreur non documentée." << co_endl;
-		}
+			return;		// Tolérance aux erreurs
+		}	// if ((true == appName.empty ( )) || (true == logDir.empty ( )))
 
-        exit (0);
-	}	// if (NULL == file)
+		// Le nom du fichier :
+		const Date		date;
+		const string	user (UserData (true).getName ( ));
+		fileName		= getFileName (appName, logDir, (unsigned long)date.getMonth ( ), date.getYear ( ));
 
-	// Obtenir le descripteur de fichier :
-	int	fd	= fileno (file);
-	if (-1 == fd)
-	{
-		{
-			TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-			ConsoleOutput::cerr ( ) << "Erreur lors de l'ouverture du fichier de logs " << fileName << co_endl;
-		}
-        exit (0);
-	}	// if (-1 == fd)
+		file	= initLogSession (fileName);
+		if (0 == file)
+			return;			// Process père
 
-	// Appliquer un verrou exclusif sur le fichier de logs :
-	errno	= 0;
-	if (0 != flock (fd, LOCK_EX))
-	{
-		{
-			TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-			ConsoleOutput::cerr ( ) << "Erreur lors du verrouillage du fichier de logs " << fileName << " : " << strerror (errno) << co_endl;
-		}
-		fclose (file);
-		exit (0);
-	}	// if (0 != flock (fd, LOCK_EX))
+		{	// FileLock scope
+			FileLock	logLock (fileName, file);
+
+			// Lecture et actualisation des logs existants :
+			map<string, size_t>		logs;
+			char					name [256];
+			size_t					count	= 0, line	= 1;
+			bool					found	= false;
+			int						flag	= 0;
+			errno	= 0;
+			while (2 == (flag = fscanf (file, "%s\t%lu", name, &count)))
+			{
+				line++;
+				if (name == user)
+				{
+					found	= true;
+					count++;
+				}	// if (name == user)
+				logs.insert (pair<string, size_t> (name, count));
+				count	= 0;
+			}	// while (2 == fscanf (file, "%s\t%lu", name, &count))
+			if (0 != errno)
+			{
+				UTF8String	error (charset);
+				error << "Erreur lors de la lecture du fichier de logs " << fileName << " en ligne " << (unsigned long)line << strerror (errno);
+				errno	= 0;
+				throw Exception (error);
+			}	// if (0 != errno)
+			else if ((flag < 2) && (EOF != flag))
+			{
+				UTF8String	error (charset);
+				error << "Erreur lors de la lecture du fichier de logs " << fileName << " en ligne " << (unsigned long)line << " : fichier probablement corrompu.";
+				throw Exception (error);
+			}	// if (flag < 2)
+			if (false == found)
+				logs.insert (pair<string, size_t> (user, 1));
+		
+			// Réécriture des logs actualisés :
+			errno	= 0;
+			if (0 != fseek (file, 0, SEEK_SET))
+			{
+				UTF8String	error (charset);
+				error << "Erreur lors de la réécriture du fichier de logs " << fileName << " : " << strerror (errno);
+				errno	= 0;
+				throw Exception (error);
+			}	// if (0 != fseek (file, 0, SEEK_SET))
 	
-	// Conférer aufichier les droits en écriture pour tous le monde si il vient d'être créé :
-	if (true == created)
-	{
-		if (0 != fchmod (fd, S_IRWXU | S_IRWXG | S_IRWXO))
-		{
+			for (map<string, size_t>::const_iterator itl = logs.begin ( ); logs.end ( ) != itl; itl++)
 			{
-				TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-				ConsoleOutput::cerr ( ) << "Erreur lors du confèrement à autrui des droits en écriture sur le fichier de logs " << fileName << " : " << strerror (errno) << co_endl;
-			}
-			fclose (file);
-			exit (0);
+				if (fprintf (file, "%s\t%lu\n", (*itl).first.c_str ( ), (*itl).second) < 0)
+				{
+					UTF8String	error (charset);
+					error << "Erreur lors de la réécriture du fichier de logs " << fileName << ".";
+					throw Exception (error);
+				}	// if (fprintf (file, "%s\t%lu\n", (*itl).first.c_str ( ), (*itl).second) < 0)
+			}	// for (map<string, size_t>::const_iterator itl = logs.begin ( ); logs.end ( ) != itl; itl++)
 
-		}	// if (0 != fchmod (fd, S_IRWXU | S_IRWXG | S_IRWXO))
-	}	// if (true == created)
+			errno	= 0;
+			if (0 != fflush (file))
+			{
+				UTF8String	error (charset);
+				error << "Erreur lors de la réécriture du fichier de logs " << fileName << " : " << strerror (errno);
+				errno	= 0;
+				throw Exception (error);
+			}	// if (0 != fflush (file))
 
-	// Lecture et actualisation des logs existants :
-	map<string, size_t>		logs;
-	char					name [256];
-	size_t					count	= 0, line	= 1;
-	bool					found	= false;
-	int						flag	= 0;
-	errno	= 0;
-	while (2 == (flag = fscanf (file, "%s\t%lu", name, &count)))
-	{
-		line++;
-		if (name == user)
-		{
-			found	= true;
-			count++;
-		}	// if (name == user)
-		logs.insert (pair<string, size_t> (name, count));
-		count	= 0;
-	}	// while (2 == fscanf (file, "%s\t%lu", name, &count))
-	if (0 != errno)
-	{
-		{
-			TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-			ConsoleOutput::cerr ( ) << "Erreur lors de la lecture du fichier de logs " << fileName << " en ligne " << (unsigned long)line << " : " << strerror (errno) << co_endl;
-		}
-		fclose (file);
-		exit (0);
-	}	// if (0 != errno)
-	else if ((flag < 2) && (EOF != flag))
-	{
-		{
-			TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-			ConsoleOutput::cerr ( ) << "Erreur lors de la lecture du fichier de logs " << fileName << " en ligne " << (unsigned long)line << " : fichier probablement corrompu." << co_endl;
-		}
-		fclose (file);
-		exit (0);
-	}	// if (flag < 2)
-	if (false == found)
-		logs.insert (pair<string, size_t> (user, 1));
-		
-	// Ecriture des logs actualisés :
-	errno	= 0;
-	if (0 != fseek (file, 0, SEEK_SET))
-	{
-		{
-			TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-			ConsoleOutput::cerr ( ) << "Erreur lors de la réécriture du fichier de logs " << fileName << " : " << strerror (errno) << co_endl;
-		}
-		fclose (file);
-		exit (0);
-	}	// if (0 != fseek (file, 0, SEEK_SET))
-	
-	for (map<string, size_t>::const_iterator itl = logs.begin ( ); logs.end ( ) != itl; itl++)
+		}	// FileLock scope
+	}
+	catch (const Exception& exc)
 	{
-		if (fprintf (file, "%s\t%lu\n", (*itl).first.c_str ( ), (*itl).second) < 0)
-		{
-			{
-				TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-				ConsoleOutput::cerr ( ) << "Erreur lors de la réécriture du fichier de logs " << fileName << "."<< co_endl;
-			}
-			fclose (file);
-			exit (0);
-		}	// if (fprintf (file, "%s\t%lu\n", (*itl).first.c_str ( ), (*itl).second) < 0)
-	}	// for (map<string, size_t>::const_iterator itl = logs.begin ( ); logs.end ( ) != itl; itl++)
-	errno	= 0;
-	if (0 != fflush (file))
+		TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
+		ConsoleOutput::cerr ( ) << exc.getFullMessage ( ) << co_endl;
+	}
+	catch (...)
 	{
-		{
-			TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-			ConsoleOutput::cerr ( ) << "Erreur lors de la réécriture du fichier de logs " << fileName << " : " << strerror (errno) << co_endl;
-		}
-		fclose (file);
-		exit (0);
-	}	// if (0 != fflush (file))
+		TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
+		ConsoleOutput::cerr ( ) << "ApplicationStats::logUsage : erreur non renseignée lors de l'écriture d'informations dans le fichier \"" << fileName << "\"." << co_endl;
+	}
 	
-	// Libération du verrou :
-	errno	= 0;
-	if (0 != flock (fd, LOCK_UN))
+	if (0 != file)
 	{
-		{
-			TermAutoStyle	as (cerr, AnsiEscapeCodes::blueFg);
-			ConsoleOutput::cerr ( ) << "Erreur lors du déverrouillage du fichier de logs " << fileName << " : " << strerror (errno) << co_endl;
-		}
 		fclose (file);
-	}	// if (0 != flock (fd, LOCK_UN))
-	
-	fclose (file);
-	file	= NULL;
-	fd		= -1;
+		file	= 0;
+	}	// if (0 != file)
 	
 	exit (0);
 }	// ApplicationStats::logUsage
diff --git a/src/tests/CMakeLists.txt b/src/tests/CMakeLists.txt
@@ -8,7 +8,7 @@ set (ALL_EXECUTABLES
    logs memory modify_script process remoteProcess removefile script_tags
    scripting_logs thread_manager thread_pool timer tmpfile
    unicode urlfifo user_representation userinfos utf8 utf8chars
-   app_usage
+#   app_usage
    )
 set(CMAKE_CTEST_ARGUMENTS "--verbose")
 enable_testing()
diff --git a/versions.txt b/versions.txt
@@ -5,7 +5,7 @@ Process::finalize prend en argument supplémentaire un délai accordé aux proce
 
 Classe FileLock permettant de verrouiller un fichier contre des accès concurents.
 
-Réécriture partielle de la classe ApplicationStatis + méthode logUsage enregistrant version + OS.
+Réécriture partielle de la classe ApplicationStats + méthode logUsage enregistrant version + OS.
 
 
 Version 6.13.1 : 20/06/25

Original file line number	Diff line number	Diff line change
`@@ -8,7 +8,7 @@ set (ALL_EXECUTABLES`
`8`	`8`	`logs memory modify_script process remoteProcess removefile script_tags`
`9`	`9`	`scripting_logs thread_manager thread_pool timer tmpfile`
`10`	`10`	`unicode urlfifo user_representation userinfos utf8 utf8chars`
`11`		`- app_usage`
	`11`	`+# app_usage`
`12`	`12`	`)`
`13`	`13`	`set(CMAKE_CTEST_ARGUMENTS "--verbose")`
`14`	`14`	`enable_testing()`