Ticket #55552: port-mirror

#! /bin/bash
# Like "port mirror ...", but working where HTTPS URLs or redirects are involved

gpg=gpg

verify() {
  $verified && return 0
  [ -f "$file" ] || return 1
  if [ ${#md[@]} = 0 ]; then
    echo >&2 "$file: No checksums specified"
  fi
  for mdi in "${md[@]}"; do
    mdalgo=${mdi%% *}
    mdvalue=${mdi#* }
    case $mdalgo in
      (size)
        mdactual=$(ls -l "$file" | awk '{print $5}');;
      (*)
        gpgmd=$mdalgo
        case $gpgmd in (rmd160) gpgmd=ripemd160;; esac
        mdactual=$($gpg --print-md "$gpgmd" <"$file" | tr -d \  | tr A-Z a-z) \
        || return $?;;
    esac
    if [ "$mdactual" != "$mdvalue" ]; then
      echo >&2 "$mdalgo($file) mismatch"
      return 1
    else
      echo >&2 "$mdalgo($file) OK"
    fi
  done
  verified=true
  $verified
}

skip=false
verified=false
port distfiles "$@" | while read line; do
  case $line in
  ("")
    ;;
  ("--->  Distfiles for "*)
    skip=false
    pkg=${line#"--->  Distfiles for "}
    file=
    dest=
    base=
    dir=
    md=()
    verified=false
    echo >&2 "Mirroring distfiles for package $pkg"
    ;;
  (\[*\]\ *)
    skip=false
    verified=false
    file=${line%%\] *}
    file=${file#\[}
    dest=${line#*\] }
    dir=${dest%/*}
    base=${dest##*/}
    md=()
    if [ "$base" != "$file" ]; then
      echo >&2 "distname $file != basename $base, skipping"
      skip=true
      continue
    fi
    if test ! -d "$dir"; then
      (set -x; sudo install -d -o macports -g admin -m 755 "$dir") || { skip=true; continue; }
    fi
    echo >&2 + cd "$dir"
    cd "$dir" || { skip=true; continue; }
    ;;
  (*:\ *)
    $skip && continue
    md[${#md[@]}]=${line/:/}
    ;;
  (http://*|https://*|ftp://*|ftps://*)
    $skip && continue
    verify && continue
    url=$line
    (set -x; sudo -u macports curl -L -O "$url")
    verify
    ;;
  (*)
    echo >&2 "Unknown output from port distfiles: $line"
    ;;
  esac
done