From ab6c9900ccdaf545bdfe773ab12fdd63e0b0ffa5 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Mon, 4 Jun 2018 00:39:28 -0400 Subject: sbosrcarch purge_mode fix, wip --- sbosrcarch | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'sbosrcarch') diff --git a/sbosrcarch b/sbosrcarch index 2c4c8ae..44e60ef 100755 --- a/sbosrcarch +++ b/sbosrcarch @@ -1267,7 +1267,7 @@ sub purge_pass_1_wanted { for(keys %$dls) { my $path = "by-name/$cat/$name/" . url_to_filename($_); $keep_filenames{$path}++; - # TODO: populate %keep_md5sums + $keep_md5sums{$dls{$_}}++; } } @@ -1295,9 +1295,12 @@ sub purge_pass_2_wanted { # helper for purge_mode, removes all files in by-md5 # dirs that aren't listed in %keep_md5sums sub purge_pass_3_wanted { - s,^\./,,; # remove leading ./ return unless -d $_; # not necessarily necessary... + + s,^\./,,; # remove leading ./ my (undef, undef, undef, $md5sum) = split /\//, $_; + return unless defined $md5dum; + if($keep_md5sums{$md5sum}) { print "keep md5sum: $md5sum\n"; } else { -- cgit v1.2.3