archive-obsolete-pkg

#!/bin/bash
#
# $Id$
#
# Copyright (C) 2004 Guillem Jover <guillem@debian.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software Foundation,
# Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
#

# Import configuration

. archive-lib

echo "-> Obsoleting packages:"

shopt -s nullglob

# pkg has the form: name[_version[_arch]]

for pkg do
  echo " -> package: $pkg"

  srcdir=`poolize_name $pkg`
  dstdir=$obsolete_dir/$pkg

  cd $srcdir

  for changes_file in $pkg*.changes; do
    srcfiles=`changes_strip < $changes_file | fetch_files`

    echo "  -> $changes_file"
    echo "$srcfiles"
    echo

    echo "  -> confirm obsolescence? [yes|no]"
    read REPLY

    if [ "$REPLY" = yes ]; then
      echo "  -> proceeding ..."
      mkdir -p $dstdir
      mv $changes_file $srcfiles $dstdir
    fi
  done
done

echo " -> Done."