+global\Utils::compressSyslogs()

Complexity

Conditions	17
Paths	278

Size

Total Lines	101
Code Lines	55

Duplication

Lines	0
Ratio	0 %

Importance

Changes

0

<?php
	function compressSyslogs() {
		global $conf;

		if(empty($conf->loghandlers['mod_syslog_file'])) { // File Syslog disabled
			return 0;
		}

		if(! function_exists('gzopen')) {
			return -1;
		}

		dol_include_once('/core/lib/files.lib.php');

		$nbSaves = ! empty($conf->global->SYSLOG_FILE_SAVES) ? intval($conf->global->SYSLOG_FILE_SAVES) : 14;

		if(empty($conf->global->SYSLOG_FILE)) {
			$mainlogdir = DOL_DATA_ROOT;
			$mainlog = 'dolibarr.log';
		} else {
			$mainlogfull = str_replace('DOL_DATA_ROOT', DOL_DATA_ROOT, $conf->global->SYSLOG_FILE);
			$mainlogdir = dirname($mainlogfull);
			$mainlog = basename($mainlogfull);
		}

		$tabfiles = dol_dir_list(DOL_DATA_ROOT, 'files', 0, '^(dolibarr_.+|odt2pdf)\.log$'); // Also handle other log files like dolibarr_install.log
		$tabfiles[] = array('name' => $mainlog, 'path' => $mainlogdir);

		foreach($tabfiles as $file) {

			$logname = $file['name'];
			$logpath = $file['path'];

			// Handle already compressed files

			$filter = '^'.preg_quote($logname, '/').'\.([0-9]+)\.gz$';

			$gzfilestmp = dol_dir_list($logpath, 'files', 0, $filter);
			$gzfiles = array();

			foreach($gzfilestmp as $gzfile) {
				$tabmatches = array();
				preg_match('/'.$filter.'/i', $gzfile['name'], $tabmatches);

				$numsave = intval($tabmatches[1]);

				$gzfiles[$numsave] = $gzfile;
			}

			krsort($gzfiles, SORT_NUMERIC);

			foreach($gzfiles as $numsave => $dummy) {
				if(dol_is_file($logpath.'/'.$logname.'.'.($numsave+1).'.gz')) {
					return -2;
				}

				if($numsave >= $nbSaves) {
					dol_delete_file($logpath.'/'.$logname.'.'.$numsave.'.gz');
				} else {
					dol_move($logpath.'/'.$logname.'.'.$numsave.'.gz', $logpath.'/'.$logname.'.'.($numsave+1).'.gz', 0, 1, 0, 0);
				}
			}

			// Compress last save

			if(dol_is_file($logpath.'/'.$logname.'.1')) {
				if($nbSaves > 1) {
					$gzfilehandle = gzopen($logpath.'/'.$logname.'.2.gz', 'wb9');

					if(empty($gzfilehandle)) {
						return -3;
					}

					$sourcehandle = fopen($logpath.'/'.$logname.'.1', 'r');

					if(empty($sourcehandle)) {
						return -4;
					}

					while(! feof($sourcehandle)) {
						gzwrite($gzfilehandle, fread($sourcehandle, 512 * 1024)); // Read 512 kB at a time
					}

					fclose($sourcehandle);
					gzclose($gzfilehandle);
				} else {
					dol_delete_file($logpath.'/'.$logname.'.1');
				}
			}

			// Compress current file et recreate it

			if(dol_is_file($logpath.'/'.$logname)) {
				if(dol_move($logpath.'/'.$logname, $logpath.'/'.$logname.'.1', 0, 1, 0, 0)) {
					$newlog = fopen($logpath.'/'.$logname, 'a+');
					fclose($newlog);
				}
			}
		}

		return 0;
	}
}