#!/bin/sh

# report about status of build master

. "${0%/*}/../conf/default.conf"

usage() {
  >&2 echo ''
  >&2 echo 'build-master-status: report about status of build master'
  >&2 echo ''
  >&2 echo 'possible options:'
  >&2 echo '  -b|--broken $output:   Write broken packages to $output.'
  >&2 echo '  -h|--help:             Show this help and exit.'
  >&2 echo '  -n|--nice:             Write html output.'
  >&2 echo '  -o|--output $output:   Write to $output instead of stdout.'
  [ -z "$1" ] && exit 1 || exit $1
}

eval set -- "$(
  getopt -o b:hno: \
    --long broken: \
    --long help \
    --long nice \
    --long output: \
    -n "$(basename "$0")" -- "$@" || \
  echo usage
)"

output() {
  cat
}

make_nice() {
  cat
}

nice=false
broken_output=''
output_file=''

while true
do
  case "$1" in
    -b|--broken)
      shift
      broken_output="$1"
    ;;
    -h|--help)
      usage 0
    ;;
    -n|--nice)
      nice=true
      make_nice() {
        sed 's|$|<br>|'
      }
    ;;
    -o|--output)
      shift
      output_file="$1"
      output() {
        cat >> "${output_file}"
      }
    ;;
    --)
      shift
      break
    ;;
    *)
      >&2 echo 'Whoops, forgot to implement option "'"$1"'" internally.'
      exit 42
    ;;
  esac
  shift
done

if [ $# -ne 0 ]; then
  >&2 echo 'Too many arguments.'
  usage
fi

stable="$(
  ${master_mirror_command} "${master_mirror_directory}/i686/" | \
    awk '{print $5}' | \
    grep -v 'testing$\|staging$\|^\.$' | \
    while read -r dir; do
      ${master_mirror_command} "${master_mirror_directory}/i686/${dir}/"
    done | \
    grep -c '\.pkg\.tar\.xz$'
  )"
tasks="$(
  grep -c '^\S\+ \S\+ \S\+ \S\+$' \
    "${work_dir}/build-list"
  )" || true
pending_packages="$(
  tr ' ' '.' < \
    "${work_dir}"/build-list | \
    while read -r package; do
      generate_package_metadata "${package}" &> /dev/null
      cat "${work_dir}/package-infos/${package%.*}.packages"
    done |
    wc -l
)"
staging="$(
  ${master_mirror_command} "${master_mirror_directory}/i686/" | \
    awk '{print $5}' | \
    grep 'staging$' | \
    while read -r dir; do
      ${master_mirror_command} "${master_mirror_directory}/i686/${dir}/"
    done | \
    grep -c '\.pkg\.tar\.xz$'
  )"
testing="$(
  ${master_mirror_command} "${master_mirror_directory}/i686/" | \
    awk '{print $5}' | \
    grep 'testing$' | \
    while read -r dir; do
      ${master_mirror_command} "${master_mirror_directory}/i686/${dir}/"
    done | \
    grep -c '\.pkg\.tar\.xz$'
  )"
broken="$(
  ls "${work_dir}/package-states/" | \
    grep -c '\.broken$'
  )" || true
loops="$(
  ls "${work_dir}/build-list.loops" | \
    grep -c '^loop_[0-9]\+$'
  )" || true
looped_packages="$(
  ls "${work_dir}/build-list.loops" | \
    grep '^loop_[0-9]\+$' | \
    sed "s|^|${work_dir}/build-list.loops/|" | \
    xargs -r cat | \
    sort -u | \
    wc -l
  )"

if [ -n "${output_file}" ]; then
  : > "${output_file}"
fi

printf 'The mirror master contains %d stable packages (vs. ca. %d planned).\n' \
  "${stable}" \
  "$((${staging}+${testing}+${pending_packages}))" | \
  make_nice | \
  output
printf 'The build list contains %d tasks (incl. broken: %d, leading to %d packages).\n' \
  "$((${tasks}-${broken}))" \
  "${tasks}" \
  "${pending_packages}" | \
  make_nice | \
  output
printf 'There are %d testing and %d staging packages.\n' \
  "${testing}" \
  "${staging}" | \
  output
printf 'There are %d broken package builds.\n' \
  "${broken}" | \
  make_nice | \
  output
if [ "${loops}" -ne 0 ]; then
  printf 'There are %d loops containing %d package builds.\n' \
    "${loops}" \
    "${looped_packages}" | \
    make_nice | \
    output
fi
if [ $((${broken}+${testing}+${staging})) -ne 0 ]; then
  printf '%.1f%% of all packages are broken.\n' \
    "$(
      echo "scale=10; 100*${broken}/(${broken}+${testing}+${staging})" | \
        bc
    )" | \
    make_nice | \
    output
fi
if [ $((${testing}+${staging}+${pending_packages}-${broken})) -ne 0 ]; then
  printf '%.1f%% of the planned work has been done.\n' \
    "$(
      echo "scale=10; 100*(${testing}+${staging})/(${testing}+${staging}+${pending_packages}-${broken})" | \
        bc
    )" | \
    make_nice | \
    output
fi

if [ -n "${broken_output}" ]; then
  if ${nice}; then
    printf '<html>\n<body>\n<table>\n<tr><th>package</th><th>git revision</th><th>modification git revision</th><th>package repository</th><th>compilations</th></tr>\n' > \
      "${broken_output}"
  else
    : > "${broken_output}"
  fi
  ls "${work_dir}/package-states" | \
    grep '\.broken$' | \
    sed 's|\.broken$||' | \
    if ${nice}; then
      sed 's|^\(\(.\+\)\.\([^.]\+\)\.\([^.]\+\)\.\([^.]\+\)\)$|\1 \2 \3 \4 \5|' | \
        while read -r sf pkg rev mod_rev repo; do
          printf '<tr>'
          printf '<td>%s</td>' "${pkg}" "${rev}" "${mod_rev}" "${repo}" "$(wc -l < "${work_dir}/package-states/${sf}.broken")"
          printf '</tr>\n'
        done
    else
      cat
    fi >> \
    "${broken_output}"
  if ${nice}; then
    printf '</table>\n</body>\n</html>\n' >> \
      "${broken_output}"
  fi
fi