mbirth/tcl_update_db
1
0
Fork 0
mirror of https://github.com/mbirth/tcl_update_db.git synced 2024-11-09 23:06:45 +00:00
Code Issues Releases Wiki Activity

Even more statistics for cleanup.

Browse Source
This commit is contained in:
Markus Birth 2018-01-06 17:42:11 +01:00
parent 6557e04fe4
commit 2d83080751
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
bin/clean_dupes.php
View File

@ -8,7 +8,11 @@ $ansi_updel = $ansi_csi . 'F' . $ansi_csi . 'K';
echo 'Reading file list ...'; echo 'Reading file list ...';
$file_list = glob($bkup_dir . '*.xml'); $file_list = glob($bkup_dir . '*.xml');
echo ' OK' . PHP_EOL;
$num_total = count($file_list);
$num_deleted = 0;
echo 'found ' . $num_total . ' files.' . PHP_EOL;
echo 'Searching for duplicates ...' . PHP_EOL . PHP_EOL; echo 'Searching for duplicates ...' . PHP_EOL . PHP_EOL;
@ -23,6 +27,7 @@ foreach ($file_list as $i => $file) {
if (md5_file($file) == md5_file($bkup_dir . $old_file)) { if (md5_file($file) == md5_file($bkup_dir . $old_file)) {
echo $ansi_updel . 'Duplicate file: ' . $filename . ' (first: ' . $old_file . ')' . PHP_EOL . PHP_EOL; echo $ansi_updel . 'Duplicate file: ' . $filename . ' (first: ' . $old_file . ')' . PHP_EOL . PHP_EOL;
unlink($file); unlink($file);
$num_deleted++;
continue; continue;
} }
echo $ansi_updel . 'Possible SHA1 collision?' . PHP_EOL . PHP_EOL; echo $ansi_updel . 'Possible SHA1 collision?' . PHP_EOL . PHP_EOL;
@ -32,5 +37,5 @@ foreach ($file_list as $i => $file) {
flush(); flush();
} }
echo count($file_list) . ' files done.' . PHP_EOL; echo count($file_list) . ' files processed. ' . $num_deleted . ' deleted. ' . ($num_total - $num_deleted) . ' left.' . PHP_EOL;