path: root/toru

#!/bin/bash
# Queries the ABS
# License: GPL3

## TODO
# * Add license text
# * Create symlinks from pkgbase to pkgname[@] for easy package finding

## GOALS
# * Have a searchable database of PKGBUILD metadata
# * Have an interface for source-only builds
# * Possibility to hook up ABS dirs besides ABSROOT (low priority)
# * Tell updates and non available binary packages (working on this)

source /etc/abs.conf
source /etc/libretools.conf

if [ ! -w "$TORUPATH" ]; then
 error "Toru's path isn't writable. Please check $TORUPATH"
 exit 1 
fi

# TODO move to common functions
function in_array {  #  usage : in_array( $needle, $haystack )

    [[ $2 ]] || return 1  # Not found
    local needle=$1; shift
    local item
    for item in "$@"; do
	[[ ${item#@} = $needle ]] && return 0  # Found
    done
    return 1 # Not Found
}

# Stores the lastsync date
lastsync() {
    [ -e ${lastsyncfile} -a ! -w ${lastsyncfile} ] && {
        error "The sync date can't be saved. ${lastsyncfile} isn't writable."
        return 1
    }

    date +%s > ${lastsyncfile}
    touch ${lastsyncfile}
}

# Saves contents on a named cache
# $1 cache name (repo)
# $2+ contents
store_cache() {
  cache=$1; shift

  [ -z "$cache" ] && return 1

  cat $@ > ${TORUPATH}/${cache}.cache

  return $?
}

# Return cache contents
# $1 cache name
read_cache() {
  [ ! -e "$1" ] && return 1

  cat ${TORUPATH}/${1}.cache

  return $?
}

##
#  usage : get_full_version( $epoch, $pkgver, $pkgrel )
# return : full version spec, including epoch (if necessary), pkgver, pkgrel
##
get_full_version() {
   if [[ $1 -eq 0 ]]; then
      # zero epoch case, don't include it in version
       echo $2-$3
   else
       echo $1:$2-$3
   fi
}

# Outputs an ordered package-fullpkgver array
print_package_array() {
   echo "$@" | tr " " "\n" | sort -V -u
}


# Gets repo.db contents (unordered)
# $1 repo
get_db_contents() {
  [ ! -r /var/lib/pacman/sync/$1.db ] && return 0

  bsdtar -tf /var/lib/pacman/sync/$1.db | cut -d'/' -f1
}


# Get the pkgname
extract_pkgname() {
  echo "$@" | tr " " "\n" | sed "s/^\(.\+\)-[^-]\+-[^-]\+$/\1/"
}

# Get the fullpkgver 
extract_fullpkgver() {
  echo "$@" | tr " " "\n" | sed "s/^.\+-\([^-]\+-[^-]\+\)$/\1/"
}


# Updates the database by finding all PKGBUILDS
# Workflow:
# * Find all PKGBUILDs on the ABS repo specified
# * Get all packages already on package repos
# * Compare them
# Args:
 update() {
# The PKGBUILDs found
     local pkgbuilds=()
# The list of pkgname-fullpkgver
     local packages_to_sync=()
     local packages_in_sync=()
     local needed_updates=()
     local old_versions=()

# Traverse all specified repos
     for _repo in $@; do
       if ! in_array ${_repo} ${REPOS[@]}; then
         warning "You don't have access to this repo (check REPOS at libretools.conf)"
         continue
       fi

# Find all the PKGBUILDs newer than the last update
# Update newer, otherwise everything
     if [[ $force = true || ! -e ${lastsyncfile} ]]; then
         $quiet || msg "Forcing upgrade"
         pkgbuilds=($(find ${_repo} -maxdepth 2 -type f -name 'PKGBUILD'))
     else
         pkgbuilds=($(find ${_repo} -maxdepth 2 -type f -name 'PKGBUILD' -newer ${lastsyncfile}))
         packages_to_sync=($(read_cache ${_repo}))
         msg2 "Getting ${#packages_to_sync[@]} packages from cache"
     fi

# Inform how many PKGBUILDS were found and quit immediately if none
     $quiet || msg "Found $((${#pkgbuilds[*]}-1)) packages to update"
     [ ${#pkgbuilds[*]} -eq 1 ] && {
         $quiet || msg2 "There's nothing to be done. Phew!"
         exit 0
     }

# Traverse all found PKGBUILDs
     for _pkgbuild in ${pkgbuilds[@]}; do

# The repo name is guessed
# You *must* use repo/pkgbase structure
         _pkgpath=$(dirname "${_pkgbuild}")
         _pkgbase=$(basename "${_pkgpath}")

# Load PKGBUILD's metadata
         source ${_pkgbuild}

# We won't need this
         unset build package url md5sums install pkgdesc backup options
# TODO fill a license list
         unset license
# TODO create source tarballs?
         unset mksource
# TODO solve dependency tree?
         unset depends makedepends

         for _pkg in ${pkgname[@]}; do
# Keep removing unneeded stuff
             unset package_${_pkg} >/dev/null 2>&1
# Fill the list of packages to find
             packages_to_sync+=($_pkg-$(get_full_version ${epoch:-0} $pkgver $pkgrel))
         done

         unset pkgbase pkgname pkgver pkgrel source epoch
     done

# Get repo database contents
    packages_in_sync=($(get_db_contents ${_repo}))
    print_package_array "${packages_to_sync[@]}" > ${TMPDIR}/packages_to_sync
    print_package_array "${packages_in_sync[@]}" > ${TMPDIR}/packages_in_sync

# We've orderer the files!
    needed_updates=($(comm --nocheck-order -32 ${TMPDIR}/packages_to_sync ${TMPDIR}/packages_in_sync))
    old_versions=($(comm --nocheck-order -31 ${TMPDIR}/packages_to_sync ${TMPDIR}/packages_in_sync))
#    missing_packages=($(comm --nocheck-order -12 ${TMPDIR}/packages_to_sync ${TMPDIR}/packages_in_sync))

   $quiet || msg "This packages are available to update"
   for _update in ${needed_updates[@]}; do
      pkg=$(extract_pkgname $_update)

# Only print pkgnames when in quiet mode (useful for scripts)
      $quiet && echo $pkg
      $quiet || {
          ver=$(extract_fullpkgver $_update)
          oldver=$(extract_fullpkgver $(grep -w $pkg ${TMPDIR}/packages_in_sync))

          msg2 "$pkg $oldver => $ver"
      }

     done

# Save the cache
    store_cache ${_repo} ${TMPDIR}/packages_to_sync

    unset packages_to_sync packages_in_sync needed_updates old_versions pkg \
          ver oldver 

  done

  lastsync

}

# Find all the packages that are missing from the repo dbs (aka not built)
missing() {
  true
}



## MAIN
commands=()
repos=()
quiet=false
force=false
while getopts 'hqfum' arg; do
  case $arg in
    h) usage; exit 0 ;;
    q) quiet=true ;;
    f) force=true ;;
    u) commands+=(update);;
    m) commands+=(missing);;
  esac

  shift $((OPTIND-1))
done

# This is the syncfile, stores the last date as content and mtime
lastsyncfile=${TORUPATH}/lastsync

TMPDIR=$(mktemp -d)

[[ -z ${TMPDIR} ]] && exit 1

# TODO this is all for debugging
msg2 "force: $force quiet: $quiet repos: $@ commands: ${commands[@]}"
msg2 "read lastsync: $([ -e $lastsyncfile ])"

${commands[0]} ${@}

rm -rf ${TMPDIR}

exit $?