|
|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T u
Length: 2170 (0x87a)
Types: TextFile
Names: »usr/admin/menu/softwaremgmt/removepkg «
└─⟦3d8f416b2⟧ Bits:30004042/core2.imd SW95705I 386/ix Multi-user Release 1.2
└─⟦this⟧ »usr/admin/menu/softwaremgmt/removepkg «
#ident "@(#)sadmin:admin/menu/softwaremgmt/removepkg 2.7"
#menu# remove previously installed package from built-in disk
#help#
#help# This subcommand show you a list of currently installed optional
#help# software packages.
#help# It then will perform whatever actions are necessary to remove
#help# software packages you specify.
#help# The removable medium used to "installpkg" the software is needed to
#help# remove it.
flags="-qq -k$$"
trap 'exit 0' 1 2 15
lp=`dirname $0`/listpkg
if [ -r ${lp} ]
then
/bin/sh ${lp}
fi
dir=${0}.d
if [ -d ${dir} ]
then
patterns=`ls ${dir} 2>/dev/null`
else
patterns=
fi
ddrive=`selectdevice -b $$ /dev/SA ${patterns}`
ndrive=`drivename ${ddrive}`
if [ -n "${patterns}" ]
then
. ${dir}/`selpattern ${ddrive}`
fi
question="
Insert the removable medium for the package you wish to remove
into the ${ndrive}.
Press <RETURN> when ready. Type q to quit."
while true
do
fulllabel=`disklabel -q "${question}" $$ ${ddrive}`
fsname=
eval `labelfsname "${fulllabel}"`
case "${fsname}" in
instal | install )
trap ' trap "" 1 2
cd /; diskumount -n "${ndrive}" ${ddrive}' 0
/etc/umount ${ddrive} 2>/dev/null
chmod 700 /install
/etc/mount ${ddrive} /install -r || exit 1
;;
'' )
echo >&2 '
This removable medium is NOT labeled and will not work.
Try another.'
continue
;;
* )
echo >&2 "
This removable medium is labeled '${label}' and is not a package.
The file system name is '${fsname}'. It should be 'install'.
The full label is:
${fulllabel}
Try another."
continue
esac
if [ ! -r /install/install/UNINSTALL ]
then
echo >&2 ' This package does will not remove itself.
Consult the instructions that came with the medium.'
diskumount -n "${ndrive}" ${ddrive}
continue
fi
trap " trap '' 1 2
rm -f /tmp/$$UNINSTALL
cd /
diskumount -n '${ndrive}' ${ddrive}" 0
cd /tmp
cp /install/install/UNINSTALL $$UNINSTALL
chmod +x $$UNINSTALL
trap : 1 2
/tmp/$$UNINSTALL ${ddrive} /install "${ndrive}" ||
echo 'WARNING: Package removal may not have completed properly.'
trap '' 1 2
rm -f /tmp/$$UNINSTALL
diskumount -n "${ndrive}" ${ddrive}
trap : 0
trap exit 1 2
done