1 files changed, 125 insertions, 0 deletions
diff --git a/dselect/methods/media/update.sh b/dselect/methods/media/update.sh
new file mode 100755
index 0000000..5045332
--- /dev/null
+++ b/dselect/methods/media/update.sh
@@ -0,0 +1,125 @@
+#!/bin/sh
+#
+# Copyright © 1995-1998 Ian Jackson <ijackson@chiark.greenend.org.uk>
+# Copyright © 1998 Heiko Schlittermann <hs@schlittermann.de>
+#
+# This 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, see <https://www.gnu.org/licenses/>.
+
+set -e
+vardir="$1"
+method=$2
+option=$3
+iarch=$(dpkg --print-architecture)
+
+cd "$vardir/methods/$method"
+
+. ./shvar.$option
+
+#debug() { echo "DEBUG: $@"; }
+debug() {
+  true
+}
+ismulti() {
+  debug $1 $2
+  test -e "$1/.disk/info" || test -e "$1$2/.disk/info"
+}
+
+packages=0
+for f in main ctb nf lcl; do
+  eval 'this_packages=$p_'$f'_packages'
+
+  if [ -n "$this_packages" ]; then
+    packages=1
+  fi
+done
+
+if [ $packages eq 0 ]; then
+  echo '
+No Packages files available, cannot update available packages list.
+Hit RETURN to continue.  '
+  read response
+  exit 0
+fi
+
+xit=1
+trap '
+  for area in main ctb nf lcl; do
+    rm -f packages-$area
+  done
+  if [ -n "$umount" ]; then
+    umount "$umount" >/dev/null 2>&1
+  fi
+  exit $xit
+' 0
+
+if [ ! -b "$p_blockdev" ]; then
+  loop=",loop"
+fi
+
+if [ -n "$p_blockdev" ]; then
+  umount="$p_mountpoint"
+  mount -rt "$p_fstype" -o nosuid,nodev${loop} "$p_blockdev" "$p_mountpoint"
+fi
+
+updatetype=update
+
+if [ -z "$p_multi" ]; then
+  exit 1
+fi
+
+for f in main ctb nf lcl; do
+  eval 'this_packages=$p_'$f'_packages'
+  case "$this_packages" in
+  '')
+    continue
+    ;;
+  scan)
+    eval 'this_binary=$p_'$f'_binary'
+    if [ -z "$this_binary" ]; then
+      continue
+    fi
+    if [ "$updatetype" = update ]; then
+      dpkg --clear-avail
+      updatetype=merge
+    fi
+    echo Running dpkg --record-avail -R "$p_mountpoint$this_binary"
+    dpkg --record-avail -R "$p_mountpoint$this_binary"
+    ;;
+  *)
+    packagesfile="$p_mountpoint$this_packages"
+    case "$packagesfile" in
+    *.gz | *.Z | *.GZ | *.z)
+      echo -n "Uncompressing $packagesfile ... "
+      zcat <"$packagesfile" >packages-$f
+      echo done.
+      dpkg --$updatetype-avail packages-$f
+      updatetype=merge
+      ;;
+    '')
+      ;;
+    *)
+      dpkg --$updatetype-avail "$packagesfile"
+      updatetype=merge
+      ;;
+    esac
+  ;;
+  esac
+done
+
+cp -f $vardir/available $vardir/methods/$method
+
+echo -n 'Update OK.  Hit RETURN.  '
+read response
+
+xit=0