diff options
| -rwxr-xr-x | bin/common-functions | 54 | ||||
| -rwxr-xr-x | bin/db-update | 19 |
2 files changed, 66 insertions, 7 deletions
diff --git a/bin/common-functions b/bin/common-functions index ffc2c6f..81d4e8f 100755 --- a/bin/common-functions +++ b/bin/common-functions @@ -1120,3 +1120,57 @@ smoothen_namcap_log() { sort | \ sponge "${file}" } + +# print_list_of_archaic_packages $source1 $source2 ... +# print a list of packages which have not been touched for a while, +# but which are still in the pipeline, e.g. in $source1, $source2 or ... + +print_list_of_archaic_packages() { + for source in "$@"; do + case "${source}" in + 'testing') + # packages remaining longer than 7 days in testing + find "${work_dir}/package-states" -mindepth 1 -maxdepth 1 -name '*.testing' -mtime +7 \ + -exec head -n1 {} \; | \ + modify-package-state -n --tested /dev/stdin + ;; + 'build-list') + while read -r pkg rev mod_rev repo; do + git_repo=$( + find_repository_with_commit "${rev}" + ) + eval repo_path='"${repo_paths__'"${git_repo}"'}"' + commit_date=$( + git -C "${repo_path}" show -s --format=%ct "${rev}" + ) + mod_commit_date=$( + git -C "${repo_paths__archlinux32}" show -s --format=%ct "${mod_rev}" + ) + if [ "${mod_commit_date}" -gt "${commit_date}" ]; then + commit_date="${mod_commit_date}" + fi + # packages remaining longer than 7 days on the build list + if [ "$((commit_date + 24*60*60*7))" -lt "$(date '+%s')" ]; then + printf '%s %s %s %s\n' \ + "${pkg}" \ + "${rev}" \ + "${mod_rev}" \ + "${repo}" + fi + done < \ + "${work_dir}/build-list" + ;; + 'staging') + # packages remaining longer than 2 days in staging + find "${work_dir}/package-states" -mindepth 1 -maxdepth 1 -name '*.done' -mtime +2 -printf '%f\n' | \ + sed ' + s|\.done$|| + ' + ;; + *) + >&2 printf 'unknown archaic-source "%s" - skipped.\n' "${source}" + ;; + esac + done | \ + sort -u +} diff --git a/bin/db-update b/bin/db-update index 241acf0..279e44f 100755 --- a/bin/db-update +++ b/bin/db-update @@ -484,8 +484,11 @@ find "${work_dir}/package-infos" -name '*.groups' \ sort -u > \ "${tmp_dir}/base-packages" -# shellcheck disable=SC2086 -printf '%s\n' ${packages_to_force_unstage} > \ +{ + # shellcheck disable=SC2086 + printf '%s\n' ${packages_to_force_unstage} + print_list_of_archaic_packages 'build-list' +} > \ "${tmp_dir}/force-unstage-packages" # calculate what packages should be unstaged: @@ -501,17 +504,19 @@ if [ -z "$( )" ]; then >&2 echo 'db-update unstage: we pretend, the group "base" does not exist, so we only fetch "direct" dependencies on base-packages' for s in "${tmp_dir}/all-builds" "${tmp_dir}/all-depends"; do - grep -v ' base$' "${s}" > \ - "${s}.no-base" || \ - true + sed '/ base$/d' "${s}" > \ + "${s}.no-base" done find_biggest_subset_of_packages "${tmp_dir}/done-packages" "${tmp_dir}/build-list-packages" "${tmp_dir}/all-builds.no-base" "${tmp_dir}/all-depends.no-base" "${tmp_dir}/force-unstage-packages" > \ "${tmp_dir}/unstage-packages" fi -# shellcheck disable=SC2086 -printf '%s\n' ${packages_to_force_stabilize} > \ +{ + # shellcheck disable=SC2086 + printf '%s\n' ${packages_to_force_stabilize} + print_list_of_archaic_packages 'build-list' 'staging' 'testing' +} > \ "${tmp_dir}/force-stabilize-packages" # calculate what packages should be stabilized |