pi-bake 0.1.0

data/lib/actions/unmount.rb

@@ -0,0 +1,38 @@
+### Copyright (c) 2012 David Love <david@homeunix.org.uk>
+###
+### Permission to use, copy, modify, and/or distribute this software for 
+### any purpose with or without fee is hereby granted, provided that the 
+### above copyright notice and this permission notice appear in all copies.
+###
+### THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES 
+### WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 
+### MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR 
+### ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 
+### WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 
+### ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 
+### OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+###
+
+### @author David Love
+###
+### Attach an image to the device tree. Creates a device node for an
+### existing image, allowing the image to be accessed using the standard
+### file and disk manipulation commands.
+###
+
+# File handling classes
+require "fs/geom"
+
+class Bake < Thor
+  
+  desc "unmount", "Unmount the image attached to the standard image directories"
+
+  def unmount(image_name = "pi.img")
+    say("Unmounting current image", :blue)
+    
+    unless Geom.umount_image_dirs then
+      say("ERROR: Unable to unmount the image directories", :red)
+    end
+  end
+
+end

data/lib/actions/update.rb

@@ -0,0 +1,156 @@
+### Copyright (c) 2012 David Love <david@homeunix.org.uk>
+###
+### Permission to use, copy, modify, and/or distribute this software for 
+### any purpose with or without fee is hereby granted, provided that the 
+### above copyright notice and this permission notice appear in all copies.
+###
+### THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES 
+### WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 
+### MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR 
+### ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 
+### WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 
+### ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 
+### OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+###
+
+### @author David Love
+###
+### Attach an image to the device tree. Creates a device node for an
+### existing image, allowing the image to be accessed using the standard
+### file and disk manipulation commands.
+###
+
+# File handling classes
+require "fileutils"
+require "fs/geom"
+
+class Bake < Thor
+  
+  desc "update", "Update the boot directory with the latest firmware and kernel"
+
+  def update(image_name = "pi.img")
+    ##
+    ## Prepare for the update
+    ##
+    
+    say("Attaching image #{image_name}", :blue)
+    
+    device_name = Geom.attach_image(image_name)
+    
+    unless device_name.nil? then
+      say("...Image attached to #{device_name}", :blue)
+    else
+      say("ERROR: Could not attach #{image_name}", :red)
+    end
+    
+    say("Mounting image #{image_name}...", :blue)
+    
+    if Geom.mount_image(device_name) then
+      say("...Image mounted under /mnt", :blue)
+    else
+      say("ERROR: Could not mount #{image_name}", :blue)
+      
+      # try to unmount and detach the failed image
+      unless Geom.umount_image_dirs then
+        say("ERROR: Unable to unmount all the image directories", :red)
+      end
+      unless Geom.detach_image(device_name) then
+        say("ERROR: Failed to detach device #{device_name}", :red)
+      end
+      
+      exit
+    end
+    
+    ##
+    ## Fetch the latest version of the firmware
+    ##
+    
+    abort = false
+    
+    # Fetch/update the upstream firmware
+    if not File.exists?("firmware") then
+      # Create the firmware directory, and clone the distributions
+      # if this hasn't been done before
+      say("Fetching upstream firmware...", :blue)
+      
+      unless system("git clone https://github.com/raspberrypi/firmware.git firmware") then
+        say("ERROR: Failed to update firmware. Aborting.", :red)
+        abort = true
+      end
+    else
+      # Use git to get the latest version of the firmware
+      say("Updating upstream firmware...", :blue)
+            
+      unless system("cd firmware; git pull") then
+        say("ERROR: Failed to update firmware. Aborting.", :red)
+        abort = false
+      end
+    end
+    
+    # Copy the system binaries to the boot directory
+    unless abort then
+      say("Updating firmware and kernel...", :blue)
+      
+      # Call the system directly, so that we can use sudo (i.e. don't use the native
+      # ruby calls)
+      unless system("sudo cp firmware/boot/bootcode.bin /mnt/pi-boot/bootcode.bin") then
+        abort = true;
+      end
+      
+      unless system("sudo cp firmware/boot/loader.bin /mnt/pi-boot/loader.bin") then
+        abort = true;
+      end
+      
+      unless system("sudo cp firmware/boot/arm224_start.elf /mnt/pi-boot/start.elf") then
+        abort = true;
+      end
+      
+      unless system("sudo cp firmware/boot/kernel.img /mnt/pi-boot/kernel.img") then
+        abort = true;
+      end
+      
+      say("...Done", :blue)
+    end
+    
+    #cmdline.txt: Parameters passed to the kernel on boot
+
+    ##
+    ## Bootstrap the Debian (Raspbian) environment
+    ##
+    
+    say("Bootstrapping the Debian (Raspbian) environment", :blue)
+   
+    # Download the modified bootstrap scripts
+    #unless system("wget debian.tgz") then
+    #  say("ERROR: Cannot find the bootstrap scripts", :red)
+    #  abort = true
+    #end 
+
+    # Now try to do the actual bootstrap
+    unless abort then
+      unless system("sudo ./lib/deb/debootstrap --foreign --arch armhf wheezy /mnt/pi-system1 http://archive.raspbian.org/raspbian") then
+        say("ERROR: Cannot find the bootstrap the Raspbian root", :red)
+        abort = true
+      end
+    end 
+
+    ##
+    ## Cleanup
+    ##
+        
+    # try to unmount and detach the image
+    if Geom.umount_image_dirs then
+      say("Unmounted staging directories", :blue)
+    else
+      say("ERROR: Unable to unmount all the image directories", :red)
+    end
+    
+    if Geom.detach_image(device_name) then
+      say("Detached image", :blue)
+    else
+      say("ERROR: Failed to detach device #{device_name}", :red)
+    end
+    
+  end
+
+end

data/lib/deb/debootstrap

@@ -0,0 +1,682 @@
+#!/bin/sh -e
+
+VERSION='@VERSION@'
+
+unset TMP TEMP TMPDIR || true
+
+# might not be exported if we're running from init=/bin/sh or similar
+export PATH
+
+###########################################################################
+
+DEBOOTSTRAP_DIR=./lib/deb
+DEVICES_TARGZ=$DEBOOTSTRAP_DIR/devices.tar.gz
+
+. $DEBOOTSTRAP_DIR/functions
+exec 4>&1
+
+LANG=C
+USE_COMPONENTS=main
+KEYRING=""
+DISABLE_KEYRING=""
+VARIANT=""
+ARCH=""
+HOST_ARCH=""
+HOST_OS=""
+KEEP_DEBOOTSTRAP_DIR=""
+USE_DEBIANINSTALLER_INTERACTION=""
+SECOND_STAGE_ONLY=""
+PRINT_DEBS=""
+CHROOTDIR=""
+MAKE_TARBALL=""
+KEEP_DEBOOTSTRAP_DIR=""
+EXTRACTOR_OVERRIDE=""
+UNPACK_TARBALL=""
+ADDITIONAL=""
+EXCLUDE=""
+VERBOSE=""
+CERTIFICATE=""
+CHECKCERTIF=""
+PRIVATEKEY=""
+
+DEF_MIRROR="http://ftp.us.debian.org/debian"
+
+export LANG USE_COMPONENTS
+umask 022
+
+###########################################################################
+
+## phases:
+##   finddebs dldebs printdebs first_stage second_stage
+
+RESOLVE_DEPS=true
+
+WHAT_TO_DO="finddebs dldebs first_stage second_stage"
+am_doing_phase () {
+	# usage:   if am_doing_phase finddebs; then ...; fi
+	local x;
+	for x in "$@"; do
+		if echo " $WHAT_TO_DO " | grep -q " $x "; then return 0; fi
+	done
+	return 1
+}
+
+###########################################################################
+
+usage_err()
+{
+	info USAGE1 "usage: [OPTION]... <suite> <target> [<mirror> [<script>]]"
+	info USAGE2 "Try \`${0##*/} --help' for more information."
+	error "$@"
+}
+
+usage()
+{
+	echo "Usage: ${0##*/} [OPTION]... <suite> <target> [<mirror> [<script>]]"
+	echo "Bootstrap a Debian base system into a target directory."
+	echo
+	cat <<EOF
+      --help                 display this help and exit
+      --version              display version information and exit
+      --verbose              don't turn off the output of wget
+
+      --download-only        download packages, but don't perform installation
+      --print-debs           print the packages to be installed, and exit
+
+      --arch=A               set the architecture to install (use if no dpkg)
+                               [ --arch=powerpc ]
+
+      --include=A,B,C        adds specified names to the list of base packages
+      --exclude=A,B,C        removes specified packages from the list
+      --components=A,B,C     use packages from the listed components of the
+                             archive
+      --variant=X            use variant X of the bootstrap scripts
+                             (currently supported variants: buildd, fakechroot,
+                              scratchbox, minbase)
+      --keyring=K            check Release files against keyring K
+      --no-check-gpg         avoid checking Release file signatures
+      --no-resolve-deps      don't try to resolve dependencies automatically
+
+      --unpack-tarball=T     acquire .debs from a tarball instead of http
+      --make-tarball=T       download .debs and create a tarball (tgz format)
+      --second-stage-target=DIR
+                             Run second stage in a subdirectory instead of root
+                               (can be used to create a foreign chroot)
+                               (requires --second-stage)
+      --extractor=TYPE       override automatic .deb extractor selection
+                               (supported: $EXTRACTORS_SUPPORTED)
+      --debian-installer     used for internal purposes by debian-installer
+      --private-key=file     read the private key from file
+      --certificate=file     use the client certificate stored in file (PEM)
+      --no-check-certificate do not check certificate against certificate authorities
+EOF
+}
+
+###########################################################################
+
+if [ -z "$PKGDETAILS" ]; then
+	error 1 NO_PKGDETAILS "No pkgdetails available; either install perl, or build pkgdetails.c from source"
+fi
+
+###########################################################################
+
+if [ $# != 0 ] ; then
+    while true ; do
+	case "$1" in
+	    --help)
+		usage
+		exit 0
+		;;
+	    --version)
+		echo "debootstrap $VERSION"
+		exit 0
+		;;
+	    --debian-installer)
+		if ! (echo -n "" >&3) 2>/dev/null; then
+			error 1 ARG_DIBYHAND "If running debootstrap by hand, don't use --debian-installer"
+		fi
+		USE_DEBIANINSTALLER_INTERACTION=yes
+		shift
+		;;
+	    --foreign)
+		if [ "$PRINT_DEBS" != "true" ]; then
+			WHAT_TO_DO="finddebs dldebs first_stage"
+		fi
+		shift
+		;;
+	    --second-stage)
+		WHAT_TO_DO="second_stage"
+		SECOND_STAGE_ONLY=true
+		shift
+		;;
+	    --second-stage-target|--second-stage-target=?*)
+		if [ "$SECOND_STAGE_ONLY" != "true" ] ; then
+			error 1 STAGE2ONLY "option %s only applies in the second stage" "$1"
+		fi
+		if [ "$1" = "--second-stage-target" -a -n "$2" ] ; then
+			CHROOTDIR="$2"
+			shift 2
+		elif [ "$1" != "${1#--second-stage-target=}" ]; then
+			CHROOTDIR="${1#--second-stage-target=}"
+			shift
+		else
+			error 1 NEEDARG "option requires an argument: %s" "$1"
+		fi
+		;;
+	    --print-debs)
+		WHAT_TO_DO="finddebs printdebs kill_target"
+		PRINT_DEBS=true
+		shift
+		;;
+	    --download-only)
+		WHAT_TO_DO="finddebs dldebs"
+		shift
+		;;
+	    --make-tarball|--make-tarball=?*)
+		WHAT_TO_DO="finddebs dldebs maketarball kill_target"
+		if [ "$1" = "--make-tarball" -a -n "$2" ] ; then
+			MAKE_TARBALL="$2"
+			shift 2
+		elif [ "$1" != "${1#--make-tarball=}" ]; then
+			MAKE_TARBALL="${1#--make-tarball=}"
+			shift
+		else
+			error 1 NEEDARG "option requires an argument %s" "$1"
+		fi
+		;;
+	    --resolve-deps)
+		# redundant, but avoids breaking compatibility
+		RESOLVE_DEPS=true
+		shift
+		;;
+	    --no-resolve-deps)
+		RESOLVE_DEPS=false
+		shift
+		;;
+	    --keep-debootstrap-dir)
+		KEEP_DEBOOTSTRAP_DIR=true
+		shift
+		;;
+	    --arch|--arch=?*)
+		if [ "$1" = "--arch" -a -n "$2" ] ; then
+			ARCH="$2"
+			shift 2
+                elif [ "$1" != "${1#--arch=}" ]; then
+			ARCH="${1#--arch=}"
+			shift
+		else
+			error 1 NEEDARG "option requires an argument %s" "$1"
+		fi
+		;;
+	    --extractor|--extractor=?*)
+		if [ "$1" = "--extractor" -a -n "$2" ] ; then
+			EXTRACTOR_OVERRIDE="$2"
+			shift 2
+		elif [ "$1" != "${1#--extractor=}" ]; then
+			EXTRACTOR_OVERRIDE="${1#--extractor=}"
+			shift
+		else
+			error 1 NEEDARG "option requires an argument %s" "$1"
+		fi
+		if valid_extractor "$EXTRACTOR_OVERRIDE"; then
+			if ! type "$EXTRACTOR_OVERRIDE" >/dev/null 2>&1; then
+				error 1 MISSINGEXTRACTOR "The selected extractor cannot be found: %s" "$EXTRACTOR_OVERRIDE"
+			fi
+		else
+			error 1 BADEXTRACTOR "%s: unknown extractor" "$EXTRACTOR_OVERRIDE"
+		fi
+		;;
+	    --unpack-tarball|--unpack-tarball=?*)
+		if [ "$1" = "--unpack-tarball" -a -n "$2" ] ; then
+			UNPACK_TARBALL="$2"
+			shift 2
+		elif [ "$1" != "${1#--unpack-tarball=}" ]; then
+			UNPACK_TARBALL="${1#--unpack-tarball=}"
+			shift
+		else
+			error 1 NEEDARG "option requires an argument %s" "$1"
+		fi
+		if [ ! -f "$UNPACK_TARBALL" ] ; then
+			error 1 NOTARBALL "%s: No such file or directory" "$UNPACK_TARBALL"
+		fi
+		;;
+	    --include|--include=?*)
+		if [ "$1" = "--include" -a -n "$2" ]; then
+			ADDITIONAL="$2"
+			shift 2
+                elif [ "$1" != "${1#--include=}" ]; then
+			ADDITIONAL="${1#--include=}"
+			shift 1
+		else
+			error 1 NEEDARG "option requires an argument %s" "$1"
+		fi
+		ADDITIONAL="$(echo "$ADDITIONAL" | tr , " ")"
+		;;
+	    --exclude|--exclude=?*)
+		if [ "$1" = "--exclude" -a -n "$2" ]; then
+			EXCLUDE="$2"
+			shift 2
+                elif [ "$1" != "${1#--exclude=}" ]; then
+			EXCLUDE="${1#--exclude=}"
+			shift 1
+		else
+			error 1 NEEDARG "option requires an argument %s" "$1"
+		fi
+		EXCLUDE="$(echo "$EXCLUDE" | tr , " ")"
+		;;
+	    --verbose)
+		VERBOSE=true
+		export VERBOSE
+		shift 1
+		;;
+	    --components|--components=?*)
+		if [ "$1" = "--components" -a -n "$2" ]; then
+			USE_COMPONENTS="$2"
+			shift 2
+                elif [ "$1" != "${1#--components=}" ]; then
+			USE_COMPONENTS="${1#--components=}"
+			shift 1
+		else
+			error 1 NEEDARG "option requires an argument %s" "$1"
+		fi
+		USE_COMPONENTS="$(echo "$USE_COMPONENTS" | tr , "|")"
+		;;
+	    --variant|--variant=?*)
+		if [ "$1" = "--variant" -a -n "$2" ]; then
+			VARIANT="$2"
+			shift 2
+                elif [ "$1" != "${1#--variant=}" ]; then
+			VARIANT="${1#--variant=}"
+			shift 1
+		else
+			error 1 NEEDARG "option requires an argument %s" "$1"
+		fi
+		;;
+	    --keyring|--keyring=?*)
+		if ! gpgv --version >/dev/null 2>&1; then
+			error 1 NEEDGPGV "gpgv not installed, but required for Release verification"
+		fi
+		if [ "$1" = "--keyring" -a -n "$2" ]; then
+			KEYRING="$2"
+			shift 2
+                elif [ "$1" != "${1#--keyring=}" ]; then
+			KEYRING="${1#--keyring=}"
+			shift 1
+		else
+			error 1 NEEDARG "option requires an argument %s" "$1"
+		fi
+		;;
+	    --no-check-gpg)
+			shift 1
+			DISABLE_KEYRING=1
+		;;
+	    --certificate|--certificate=?*)
+		if [ "$1" = "--certificate" -a -n "$2" ]; then
+			CERTIFICATE="--certificate=$2"
+			shift 2
+		elif [ "$1" != "${1#--certificate=}" ]; then
+			CERTIFICATE="--certificate=${1#--certificate=}" 
+			shift 1
+		else
+		       error 1 NEEDARG "option requires an argument %s" "$1" 
+		fi
+		;;
+	    --private-key|--private-key=?*)
+		if [ "$1" = "--private-key" -a -n "$2" ]; then
+			PRIVATEKEY="--private-key=$2"
+			shift 2
+		elif [ "$1" != "${1#--private-key=}" ]; then
+			PRIVATEKEY="--private-key=${1#--private-key=}" 
+			shift 1
+		else
+		       error 1 NEEDARG "option requires an argument %s" "$1" 
+		fi
+		;;
+	    --no-check-certificate)
+		CHECKCERTIF="--no-check-certificate"
+		shift
+		;;
+	    --*)
+		error 1 BADARG "unrecognized or invalid option %s" "$1"
+		;;
+	    *)
+		break
+		;;
+	esac
+    done
+fi
+
+###########################################################################
+
+if [ "$SECOND_STAGE_ONLY" = "true" ]; then
+	SUITE=$(cat $DEBOOTSTRAP_DIR/suite)
+	ARCH=$(cat $DEBOOTSTRAP_DIR/arch)
+	if [ -e $DEBOOTSTRAP_DIR/variant ]; then
+		VARIANT=$(cat $DEBOOTSTRAP_DIR/variant)
+		SUPPORTED_VARIANTS="$VARIANT"
+	fi
+	if [ -z "$CHROOTDIR" ]; then
+		TARGET=/
+	else
+		TARGET=$CHROOTDIR
+	fi
+	SCRIPT=$DEBOOTSTRAP_DIR/suite-script
+else
+	if [ -z "$1" ] || [ -z "$2" ]; then
+		usage_err 1 NEEDSUITETARGET "You must specify a suite and a target."
+	fi
+	SUITE="$1"
+	TARGET="$2"
+	TARGET="${TARGET%/}"
+	if [ "${TARGET#/}" = "${TARGET}" ]; then
+		if [ "${TARGET%/*}" = "$TARGET" ] ; then
+			TARGET="$(echo "`pwd`/$TARGET")"
+		else
+			TARGET="$(cd "${TARGET%/*}"; echo "`pwd`/${TARGET##*/}")"
+		fi
+	fi
+
+	SCRIPT="$DEBOOTSTRAP_DIR/scripts/$1"
+	if [ -n "$VARIANT" ] && [ -e "${SCRIPT}.${VARIANT}" ]; then
+		SCRIPT="${SCRIPT}.${VARIANT}"
+		SUPPORTED_VARIANTS="$VARIANT"
+	fi
+	if [ "$4" != "" ]; then
+		SCRIPT="$4"
+	fi
+fi
+
+###########################################################################
+
+if in_path dpkg && \
+     dpkg --print-architecture >/dev/null 2>&1; then
+	HOST_ARCH=`/usr/bin/dpkg --print-architecture`
+elif in_path udpkg && \
+     udpkg --print-architecture >/dev/null 2>&1; then
+	HOST_ARCH=`/usr/bin/udpkg --print-architecture`
+elif [ -e $DEBOOTSTRAP_DIR/arch ]; then
+	HOST_ARCH=`cat $DEBOOTSTRAP_DIR/arch`
+fi
+HOST_OS="$HOST_ARCH"
+# basic host OS guessing for non-Debian systems
+if [ -z "$HOST_OS" ]; then
+	case `uname` in
+		Linux)
+			HOST_OS=linux
+		;;
+		GNU/kFreeBSD)
+			HOST_OS=kfreebsd
+		;;
+		GNU)
+			HOST_OS=hurd
+		;;
+		FreeBSD*)
+			HOST_OS=freebsd
+		;;
+	esac
+fi
+
+if [ -z "$ARCH" ]; then
+	ARCH=$HOST_ARCH
+fi
+
+if [ -z "$ARCH" ] || [ -z "$HOST_OS" ]; then
+        error 1 WHATARCH "Couldn't work out current architecture"
+
+fi
+
+if [ "$HOST_OS" = "kfreebsd" ] || [ "$HOST_OS" = "freebsd" ]; then
+	for module in "linprocfs fdescfs tmpfs linsysfs"; do
+		kldstat -m "$module" > /dev/null 2>&1 || warning SANITYCHECK "Probably required module %s is not loaded" "$module"
+	done
+fi
+
+if [ "$TARGET" = "/" ]; then
+	CHROOT_CMD=""
+elif doing_variant scratchbox; then
+	for config in ~/.scratchbox2/*/sb2.config;
+	do
+		export `grep ^SBOX_TARGET_ROOT= $config`
+		if [ "x$SBOX_TARGET_ROOT" = "x$TARGET" ]; then
+			SB2_TARGET=$(basename $(dirname $config))
+		fi
+	done
+	[ "x$SB2_TARGET" != "x" ] || error 1 SBOXTARGETREQ "No scratchbox target configured for $TARGET"
+	CHROOT_CMD="sb2 -eR -t $SB2_TARGET"
+else
+	CHROOT_CMD="chroot $TARGET"
+fi
+
+if [ -z "$SHA_SIZE" ]; then
+	SHA_SIZE=256
+fi
+if ! in_path "sha${SHA_SIZE}sum" && ! in_path "sha${SHA_SIZE}"; then
+	SHA_SIZE=1
+fi
+DEBOOTSTRAP_CHECKSUM_FIELD="SHA$SHA_SIZE"
+
+export ARCH SUITE TARGET CHROOT_CMD SHA_SIZE DEBOOTSTRAP_CHECKSUM_FIELD
+
+if am_doing_phase first_stage second_stage; then
+	if in_path id && [ `id -u` -ne 0 ]; then
+		error 1 NEEDROOT "debootstrap can only run as root"
+	fi
+	# Ensure that we can create working devices and executables on the target.
+	if ! check_sane_mount "$TARGET"; then
+		error 1 NOEXEC "Cannot install into target '$TARGET' mounted with noexec or nodev"
+	fi
+fi
+
+if [ ! -e "$SCRIPT" ]; then
+	error 1 NOSCRIPT "No such script: %s" "$SCRIPT"
+fi
+
+###########################################################################
+
+if [ "$TARGET" != "" ]; then
+	mkdir -p "$TARGET/debootstrap"
+fi
+
+###########################################################################
+
+# Use of fd's by functions/scripts:
+#
+#    stdin/stdout/stderr: used normally
+#    fd 4: I:/W:/etc information
+#    fd 5,6: spare for functions
+#    fd 7,8: spare for scripts
+
+if [ "$USE_DEBIANINSTALLER_INTERACTION" = yes ]; then
+	#    stdout=stderr: full log of debootstrap run
+	#    fd 3: I:/W:/etc information
+	exec 4>&3
+elif am_doing_phase printdebs; then
+	#    stderr: I:/W:/etc information
+	#    stdout: debs needed
+	exec 4>&2
+else
+	#    stderr: used in exceptional circumstances only
+	#    stdout: I:/W:/etc information
+	#    $TARGET/debootstrap/debootstrap.log: full log of debootstrap run
+	exec 4>&1
+	exec >>"$TARGET/debootstrap/debootstrap.log"
+	exec 2>&1
+fi
+
+###########################################################################
+
+if [ "$UNPACK_TARBALL" ]; then
+	if [ "${UNPACK_TARBALL#/}" = "$UNPACK_TARBALL" ]; then
+		error 1 TARPATH "Tarball must be given a complete path"
+	fi
+	if [ "${UNPACK_TARBALL%.tar}" != "$UNPACK_TARBALL" ]; then
+		(cd "$TARGET" && tar -xf "$UNPACK_TARBALL")
+	elif [ "${UNPACK_TARBALL%.tgz}" != "$UNPACK_TARBALL" ]; then
+		(cd "$TARGET" && zcat "$UNPACK_TARBALL" | tar -xf -)
+	else
+		error 1 NOTTAR "Unknown tarball: must be either .tar or .tgz"
+	fi
+fi
+
+###########################################################################
+
+. "$SCRIPT"
+
+if [ "$SECOND_STAGE_ONLY" = "true" ]; then
+	MIRRORS=null:
+else
+	MIRRORS="$DEF_MIRROR"
+	if [ "$3" != "" ]; then
+		MIRRORS="$3"
+		MIRRORS="${MIRRORS%/}"
+	fi
+fi
+
+export MIRRORS
+
+ok=false
+for v in $SUPPORTED_VARIANTS; do
+	if doing_variant $v; then ok=true; fi
+done
+if ! $ok; then
+	error 1 UNSUPPVARIANT "unsupported variant"
+fi
+
+###########################################################################
+
+if am_doing_phase finddebs; then
+	if [ "$FINDDEBS_NEEDS_INDICES" = "true" ] || \
+	   [ "$RESOLVE_DEPS" = "true" ]; then
+		download_indices
+		GOT_INDICES=true
+	fi
+
+	work_out_debs
+
+	base=$(without "$base $ADDITIONAL" "$EXCLUDE")
+
+	if [ "$RESOLVE_DEPS" = true ]; then
+		requiredX=$(echo $(echo $required | tr ' ' '\n' | sort | uniq))
+		baseX=$(echo $(echo $base | tr ' ' '\n' | sort | uniq))
+
+		baseN=$(without "$baseX" "$requiredX")
+		baseU=$(without "$baseX" "$baseN")
+
+		if [ "$baseU" != "" ]; then
+			info REDUNDANTBASE "Found packages in base already in required: %s" "$baseU"
+		fi
+
+		info RESOLVEREQ "Resolving dependencies of required packages..."
+		required=$(resolve_deps $requiredX)
+		info RESOLVEBASE "Resolving dependencies of base packages..."
+		base=$(resolve_deps $baseX)
+		base=$(without "$base" "$required")
+
+		requiredX=$(without "$required" "$requiredX")
+		baseX=$(without "$base" "$baseX")
+		if [ "$requiredX" != "" ]; then
+			info NEWREQUIRED "Found additional required dependencies: %s" "$requiredX"
+		fi
+		if [ "$baseX" != "" ]; then
+			info NEWBASE "Found additional base dependencies: %s" "$baseX"
+		fi
+	fi
+
+	all_debs="$required $base"
+fi
+
+if am_doing_phase printdebs; then
+	echo "$all_debs"
+fi
+
+if am_doing_phase dldebs; then
+	if [ "$GOT_INDICES" != "true" ]; then
+		download_indices
+	fi
+	download $all_debs
+fi
+
+if am_doing_phase maketarball; then
+	(cd $TARGET;
+	 tar czf - var/lib/apt var/cache/apt) >$MAKE_TARBALL
+fi
+
+if am_doing_phase first_stage; then
+	choose_extractor
+
+	# first stage sets up the chroot -- no calls should be made to
+	# "chroot $TARGET" here; but they should be possible by the time it's
+	# finished
+	first_stage_install
+
+	if ! am_doing_phase second_stage; then
+		cp "$0"				 "$TARGET/debootstrap/debootstrap"
+		cp $DEBOOTSTRAP_DIR/functions	 "$TARGET/debootstrap/functions"
+		cp $DEBOOTSTRAP_DIR/devices.tar.gz	 "$TARGET/debootstrap/devices.tar.gz"
+		cp $SCRIPT			 "$TARGET/debootstrap/suite-script"
+		echo "$ARCH"			>"$TARGET/debootstrap/arch"
+		echo "$SUITE"			>"$TARGET/debootstrap/suite"
+		[ "" = "$VARIANT" ] ||
+		echo "$VARIANT"			>"$TARGET/debootstrap/variant"
+		echo "$required"		>"$TARGET/debootstrap/required"
+		echo "$base"			>"$TARGET/debootstrap/base"
+
+		chmod 755 "$TARGET/debootstrap/debootstrap"
+	fi
+fi
+
+if am_doing_phase second_stage; then
+	if [ "$SECOND_STAGE_ONLY" = true ]; then
+		required="$(cat $DEBOOTSTRAP_DIR/required)"
+		base="$(cat $DEBOOTSTRAP_DIR/base)"
+		all_debs="$required $base"
+	fi
+
+	# second stage uses the chroot to clean itself up -- has to be able to
+	# work from entirely within the chroot (in case we've booted into it,
+	# possibly over NFS eg)
+
+	second_stage_install
+
+	# create sources.list
+	# first, kill debootstrap.invalid sources.list
+	if [ -e "$TARGET/etc/apt/sources.list" ]; then
+		rm -f "$TARGET/etc/apt/sources.list"
+	fi
+	if [ "${MIRRORS#http*://}" != "$MIRRORS" ]; then
+		setup_apt_sources "${MIRRORS%% *}"
+		mv_invalid_to "${MIRRORS%% *}"
+	else
+		setup_apt_sources "$DEF_MIRROR"
+		mv_invalid_to "$DEF_MIRROR"
+	fi
+
+	if [ -e "$TARGET/debootstrap/debootstrap.log" ]; then
+		if [ "$KEEP_DEBOOTSTRAP_DIR" = true ]; then
+			cp "$TARGET/debootstrap/debootstrap.log" "$TARGET/var/log/bootstrap.log"
+		else
+			# debootstrap.log is still open as stdout/stderr and needs
+			# to remain so, but after unlinking it some NFS servers
+			# implement this by a temporary file in the same directory,
+			# which makes it impossible to rmdir that directory.
+			# Moving it instead works around the problem.
+			mv "$TARGET/debootstrap/debootstrap.log" "$TARGET/var/log/bootstrap.log"
+		fi
+	fi
+	sync
+
+	if [ "$KEEP_DEBOOTSTRAP_DIR" = true ]; then
+		if [ -x "$TARGET/debootstrap/debootstrap" ]; then
+			chmod 644 "$TARGET/debootstrap/debootstrap"
+		fi
+	else
+		rm -rf "$TARGET/debootstrap"
+	fi
+fi
+
+if am_doing_phase kill_target; then
+	if [ "$KEEP_DEBOOTSTRAP_DIR" != true ]; then
+		info KILLTARGET "Deleting target directory"
+		rm -rf "$TARGET"
+	fi
+fi