Add new scripts localcowbuilder-fork and localqemubuilder-create.

1 files changed, 157 insertions, 0 deletions

diff --git a/localcowbuilder-fork b/localcowbuilder-fork
new file mode 100755
index 0000000..d513548
--- /dev/null
+++ b/localcowbuilder-fork
@@ -0,0 +1,157 @@
+#!/bin/sh
+set -x
+#
+# Copyright © 2006-2008 Jonas Smedegaard <dr@jones.dk>
+# Description: Update Copy-On-Write environment
+#
+# 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, 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.
+#
+# Depends: cowdancer, sudo
+
+set -e
+
+PRG=$(basename "$0")
+LOCALMIRROR="deb http://127.0.0.1:9999/jones @@DIST@@ @@TOPIC@@"
+
+showhelp() {
+	cat <<EOF
+Usage:   $PRG OLDPOOL POOL DISTRIBUTION [ OTHERMIRROR | LOCALTOPIC ]
+
+Examples:
+    $PRG sid sid-copy sid
+    $PRG sid sid+mm sid 'deb http://debian-multimedia.org/ sid main'
+    $PRG sid-ia32 sid-ia32+tweaks sid tweaks
+
+OTHERMIRROR is a full APT line, LOCALTOPIC is expanded using the
+following skeleton:
+
+    $LOCALMIRROR
+
+All APT sources are replaced: all original sources must be redeclared.
+EOF
+}
+
+exit1() {
+	echo "ERROR: $1"
+	exit 1
+}
+
+ask() {
+	echo -n "$1 (y/N)? "
+	read response
+	case "$response" in
+	    y|Y)
+		:
+		;;
+	    *)
+		return 1
+		;;
+	esac
+	return
+}
+
+if [ $# -lt 3 ]; then
+	showhelp
+	exit1 "not enough parameters"
+fi
+
+oldpool=
+pool=
+distro=
+while [ $# -gt 0 ]; do
+	case $1 in
+		-h|--help)
+			showhelp
+			exit 0
+			;;
+		--)
+			shift
+			break
+			;;
+		--*|-*)
+#			opts="$opts $1"
+#			shift
+			exit1 "options are curently unsupported"
+			;;
+		*)
+			if [ -z "$oldpool" ]; then
+				oldpool="$1"
+			elif [ -z "$pool" ]; then
+				pool="$1"
+			elif [ -z "$distro" ]; then
+				distro="$1"
+			else
+				if echo "$1" | egrep -vq '[^[:blank:]][[:blank:]]+[^[:blank:]]'; then
+					mirror="$(echo "$LOCALMIRROR" | sed "s/@@DIST@@/$distro/g;s/@@TOPIC@@/$1/g")"
+				else
+					mirror="$1"
+				fi
+				othermirrors="${othermirrors:+$othermirrors|}""$mirror"
+			fi
+			shift
+			;;
+	esac
+done
+
+if [ -z "$oldpool" ]; then
+	exit1 "no oldpool provided"
+fi
+
+if [ -z "$pool" ]; then
+	exit1 "no pool provided"
+fi
+
+if [ -z "$distro" ]; then
+	exit1 "no distribution provided"
+fi
+
+oldbasepath="/var/cache/pbuilder/cow-$oldpool"
+basepath="/var/cache/pbuilder/cow-$pool"
+aptcache=""
+buildresult="$HOME/src/pbuild-$pool/"
+
+[ -d "$oldbasepath" ] || \
+	exit1 "oldpool \"$oldbasepath\" does not exist"
+
+makepaths=''
+for path in "$buildresult"; do
+	if [ ! -d "$path" ]; then
+		echo "W: Needed path \"$path\" does not exist"
+		makepaths='yes'
+	fi
+done
+if [ "$makepaths" = 'yes' ]; then
+	[ "$force" = 'yes' ] \
+		|| ask 'Create the missing path(s)' \
+		|| exit1 "Cannot continue without those missing paths"
+fi
+
+if [ -d "$basepath" ]; then
+	echo "W: Needed path \"$path\" already exists"
+	[ "$force" = 'yes' ] \
+		|| ask 'Remove the path' \
+		|| exit1 "Cannot continue with that path already there"
+fi
+
+mkdir -p "$buildresult"
+sudo rm -rf "$basepath"
+sudo cp -al "$oldbasepath" "$basepath"
+
+export DEBIAN_FRONTEND="noninteractive"
+export LANG=C
+
+echo "$othermirrors" | perl -e "while (<>) {chomp; /\w/ and unshift @m, '--othermirror', \$_};"\
+"exec 'sudo', 'cowbuilder', '--update', '--distribution', '$distro', '--basepath', '$basepath', '--aptcache', '$aptcache', '--override-config', @m"