Compare commits
153 Commits
code-dedup
...
debian-4.4
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
e1caf2566a | ||
|
|
2c020323f6 | ||
|
|
c82cb31adc | ||
|
|
b676da079c | ||
|
|
4d73574a40 | ||
|
|
55b303f5a9 | ||
|
|
96679edad9 | ||
|
|
ca734e511f | ||
|
|
1e76cd2da9 | ||
|
|
d9ed3e65db | ||
|
|
73ced0b3f3 | ||
|
|
42345c75d4 | ||
|
|
ff4aa11dd3 | ||
|
|
cfa30f06b6 | ||
|
|
b51936e6ee | ||
|
|
1374208d3b | ||
|
|
0e8178ab0f | ||
|
|
d20f832f82 | ||
|
|
fae561aaca | ||
|
|
205bf96f0a | ||
|
|
571f540992 | ||
|
|
86dd78c681 | ||
|
|
6644afa9fd | ||
|
|
7bb7089c9f | ||
|
|
a9dfc112b9 | ||
|
|
c62b053a7b | ||
|
|
cc4e170357 | ||
|
|
70bf0607db | ||
|
|
d8e4a4f264 | ||
|
|
5825331cea | ||
|
|
f1c7c6e11c | ||
|
|
3b806d9f25 | ||
|
|
97b0ed29c0 | ||
|
|
12960c8f2b | ||
|
|
029faab59c | ||
|
|
cb5ce9ea5c | ||
|
|
fbc903877a | ||
|
|
fb8b494b41 | ||
|
|
516a7a1625 | ||
|
|
d0c4439a10 | ||
|
|
87fc2a76a0 | ||
|
|
34838811f9 | ||
|
|
ad68cdb46b | ||
|
|
e5abe64ae0 | ||
|
|
9c47e5da4f | ||
|
|
b271bf6a63 | ||
|
|
a72fbb5f79 | ||
|
|
149ad47c5f | ||
|
|
4442c1a17f | ||
|
|
be55a4a6f2 | ||
|
|
5883b7a15c | ||
|
|
9e05298832 | ||
|
|
be05397249 | ||
|
|
3b72f2ee4b | ||
|
|
699025f33e | ||
|
|
74f35d6550 | ||
|
|
72a2a637be | ||
|
|
5ac0f15c32 | ||
|
|
dcb9284636 | ||
|
|
07622d8ed0 | ||
|
|
081c0370d4 | ||
|
|
ea209f085b | ||
|
|
a70b79f63f | ||
|
|
c482220b99 | ||
|
|
dcd0bf09f1 | ||
|
|
92a825b87b | ||
|
|
6871954f6e | ||
|
|
e9d8bd0896 | ||
|
|
9369fd2a03 | ||
|
|
04dd81ec07 | ||
|
|
d39255dc5e | ||
|
|
5a48067d9e | ||
|
|
6fc51d20be | ||
|
|
16dbe870f2 | ||
|
|
cb3227d61b | ||
|
|
a89aa86511 | ||
|
|
555ce383d3 | ||
|
|
b29117be02 | ||
|
|
ff7ded28e8 | ||
|
|
f0691c9a38 | ||
|
|
76d9d59510 | ||
|
|
5342b04ac7 | ||
|
|
01e525106b | ||
|
|
5146706536 | ||
|
|
dfa32a97ca | ||
|
|
c409759745 | ||
|
|
149b92af77 | ||
|
|
a4b3c9c568 | ||
|
|
dbb9124666 | ||
|
|
f2d30eaa63 | ||
|
|
0709308c1f | ||
|
|
d3baf1f8ba | ||
|
|
d7f219f160 | ||
|
|
bc054b1b02 | ||
|
|
f18285943c | ||
|
|
780839988d | ||
|
|
025e20a1f1 | ||
|
|
9330b79d51 | ||
|
|
979b6fb166 | ||
|
|
57c7d13c48 | ||
|
|
1de424a69d | ||
|
|
505950dae0 | ||
|
|
0c8b5d25c4 | ||
|
|
bce580658e | ||
|
|
b451260f0d | ||
|
|
af6e1435aa | ||
|
|
290ca33840 | ||
|
|
a1838d9030 | ||
|
|
30ae761c27 | ||
|
|
9182aaccb7 | ||
|
|
a2aa1b8a02 | ||
|
|
03506de7e4 | ||
|
|
f71460358b | ||
|
|
8c2a2878df | ||
|
|
2e69bee531 | ||
|
|
e985d4151b | ||
|
|
a4a4b7a8e7 | ||
|
|
a297aa4f5b | ||
|
|
6423a67982 | ||
|
|
4dbb6fe189 | ||
|
|
d38718b24b | ||
|
|
53c013f1cc | ||
|
|
6a59d0fd9b | ||
|
|
4e7f58785f | ||
|
|
e240c63c8b | ||
|
|
c39628cbe4 | ||
|
|
73dabead05 | ||
|
|
ce1624b83e | ||
|
|
97553c50fb | ||
|
|
3456849ec8 | ||
|
|
dc5b36f8ef | ||
|
|
00623e2327 | ||
|
|
c6caa0a0ad | ||
|
|
13dbf65793 | ||
|
|
d6144d45ea | ||
|
|
b682ad1817 | ||
|
|
61df2a6c51 | ||
|
|
c1e7cb717a | ||
|
|
a223eedf0b | ||
|
|
987cf32458 | ||
|
|
dd15b27b85 | ||
|
|
0defc0f0e3 | ||
|
|
1f70c8f5d7 | ||
|
|
39c6bb5974 | ||
|
|
02240309b3 | ||
|
|
ed2c2d5a14 | ||
|
|
931f88f99a | ||
|
|
5d0bd617e0 | ||
|
|
70e0115f94 | ||
|
|
1d16c86eba | ||
|
|
e15d6cfd5e | ||
|
|
ae33f60680 | ||
|
|
70a30bb146 |
3
.gitignore
vendored
3
.gitignore
vendored
@@ -28,3 +28,6 @@
|
||||
|
||||
# backups created by "make update-version"
|
||||
*.bak
|
||||
|
||||
# Devel::Cover cache
|
||||
cover_db/
|
||||
|
||||
@@ -1,6 +1,11 @@
|
||||
KNOWN BUGS in xen-tools
|
||||
=======================
|
||||
|
||||
Bugs to fix before next release
|
||||
-------------------------------
|
||||
|
||||
[None so far]
|
||||
|
||||
Bugs to fix rather soon
|
||||
-----------------------
|
||||
|
||||
@@ -11,8 +16,6 @@ Bugs to fix rather soon
|
||||
|
||||
[Bug Report](http://xen-tools.org/pipermail/xen-tools-discuss/2010-May/000757.html)
|
||||
|
||||
* `xen-delete-image` ignores extension setting
|
||||
|
||||
* partitions were mounted in config file order, not in mountpoint order.
|
||||
That implies that if you specified :
|
||||
|
||||
@@ -29,22 +32,3 @@ Bugs to fix rather soon
|
||||
Current (unreleased) fix is to sort by mountpoint length.
|
||||
|
||||
Fix would be to reproduce what mount does with mount `-a`.
|
||||
|
||||
* `xen-create-image` doesn't unmount the `tempdir` properly if `/proc`
|
||||
wasn't mounted inside
|
||||
|
||||
* `xen-create-image` says on startup summary that the Debian mirror is
|
||||
used even if Ubuntu is going to be installed (and works)
|
||||
|
||||
* `xen-list-images` does not honour `--extension`
|
||||
|
||||
* `--extension=''` (i.e. empty string) no more works
|
||||
|
||||
|
||||
Bugs to fix later
|
||||
-----------------
|
||||
|
||||
`t/xen-tools.t` can't really test Xen::Tools as the latter requires a
|
||||
local Xen installation. For proper testing, a dummy set of Xen
|
||||
configuration files and configurable paths to them in `Xen::Tools`
|
||||
would be necessary.
|
||||
|
||||
2
LICENSE
2
LICENSE
@@ -3,7 +3,7 @@ xen-tools
|
||||
---------
|
||||
|
||||
Copyright (c) 2005-2009: Steve Kemp. All rights reserved.
|
||||
Copyright (c) 2010-2012: The Xen-Tools Development Team, currently consisting of:
|
||||
Copyright (c) 2010-2013: The Xen-Tools Development Team, currently consisting of:
|
||||
Axel Beckert <abe@deuxchevaux.org>,
|
||||
Dmitry Nedospasov <dmitry@nedos.net>, and
|
||||
Stéphane Jourdois <sjourdois@gmail.com>
|
||||
|
||||
130
Makefile
130
Makefile
@@ -14,7 +14,7 @@
|
||||
#
|
||||
TMP ?= /tmp
|
||||
DIST_PREFIX = ${TMP}
|
||||
VERSION = 4.4~dev
|
||||
VERSION = 4.4rc1
|
||||
DEBVERSION = $(shell echo $(VERSION)|sed 's/\(rc\|pre\|beta\|alpha\)/~\1/')
|
||||
BASE = xen-tools
|
||||
VCS = git
|
||||
@@ -22,7 +22,8 @@ VCS = git
|
||||
#
|
||||
# Installation prefix, useful for the Debian package.
|
||||
#
|
||||
prefix=
|
||||
DESTDIR=
|
||||
prefix=${DESTDIR}
|
||||
|
||||
|
||||
nop:
|
||||
@@ -94,7 +95,7 @@ fixup-perms:
|
||||
chmod 644 etc/xen-tools.conf
|
||||
chmod 644 etc/xm.tmpl
|
||||
chmod 644 etc/xm-nfs.tmpl
|
||||
chmod 644 misc/xen-tools misc/README
|
||||
chmod 644 misc/*
|
||||
|
||||
#
|
||||
# Install files to /etc/
|
||||
@@ -109,8 +110,10 @@ install-etc:
|
||||
cp etc/xm.tmpl ${prefix}/etc/xen-tools/
|
||||
cp etc/xm-nfs.tmpl ${prefix}/etc/xen-tools/
|
||||
cp partitions/*-* ${prefix}/etc/xen-tools/partitions.d/
|
||||
-mkdir -p ${prefix}/etc/bash_completion.d
|
||||
cp misc/xen-tools ${prefix}/etc/bash_completion.d/
|
||||
-mkdir -p ${prefix}/etc/bash_completion.d/
|
||||
cp misc/xen-tools.bash-completion ${prefix}/etc/bash_completion.d/xen-tools
|
||||
-mkdir -p ${prefix}/etc/initramfs-tools/conf.d/
|
||||
cp misc/xen-tools.initramfs-tools ${prefix}/etc/initramfs-tools/conf.d/xen-tools
|
||||
|
||||
|
||||
#
|
||||
@@ -144,62 +147,64 @@ install-bin:
|
||||
#
|
||||
install-hooks:
|
||||
for i in roles/* ; do if [ -f $$i ]; then cp $$i ${prefix}/etc/xen-tools/role.d; fi ; done
|
||||
for i in ${prefix}/usr/lib/xen-tools/*.d; do if [ -L "$$i" ]; then rm -vf "$$i"; fi; done
|
||||
mkdir -p ${prefix}/usr/lib/xen-tools/centos-4.d/
|
||||
mkdir -p ${prefix}/usr/lib/xen-tools/centos-5.d/
|
||||
mkdir -p ${prefix}/usr/lib/xen-tools/centos-6.d/
|
||||
mkdir -p ${prefix}/usr/lib/xen-tools/fedora-core-6.d/
|
||||
cp -R hooks/centos-4/*-* ${prefix}/usr/lib/xen-tools/centos-4.d
|
||||
cp -R hooks/centos-5/*-* ${prefix}/usr/lib/xen-tools/centos-5.d
|
||||
cp -R hooks/centos-6/*-* ${prefix}/usr/lib/xen-tools/centos-6.d
|
||||
cp -R hooks/fedora-core-6/*-* ${prefix}/usr/lib/xen-tools/fedora-core-6.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-4.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-5.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-7.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-8.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-9.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-10.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-11.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-12.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-13.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-14.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-15.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-16.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s fedora-core-6.d fedora-core-17.d
|
||||
mkdir -p ${prefix}/usr/lib/xen-tools/debian.d/
|
||||
cp -R hooks/debian/*-* ${prefix}/usr/lib/xen-tools/debian.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s debian.d sarge.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s debian.d etch.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s debian.d lenny.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s debian.d squeeze.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s debian.d wheezy.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s debian.d jessie.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s debian.d sid.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s debian.d testing.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s debian.d stable.d
|
||||
mkdir -p ${prefix}/usr/lib/xen-tools/gentoo.d/
|
||||
cp -R hooks/gentoo/*-* ${prefix}/usr/lib/xen-tools/gentoo.d
|
||||
mkdir -p ${prefix}/usr/lib/xen-tools/dapper.d/
|
||||
cp -R hooks/dapper/*-* ${prefix}/usr/lib/xen-tools/dapper.d/
|
||||
mkdir -p ${prefix}/usr/lib/xen-tools/edgy.d/
|
||||
cp -R hooks/edgy/*-* ${prefix}/usr/lib/xen-tools/edgy.d/
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s edgy.d feisty.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s edgy.d gutsy.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s edgy.d hardy.d
|
||||
mkdir -p ${prefix}/usr/lib/xen-tools/intrepid.d/
|
||||
cp -R hooks/intrepid/*-* ${prefix}/usr/lib/xen-tools/intrepid.d/
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s intrepid.d jaunty.d
|
||||
mkdir -p ${prefix}/usr/lib/xen-tools/karmic.d/
|
||||
cp -R hooks/karmic/*-* ${prefix}/usr/lib/xen-tools/karmic.d/
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s karmic.d lucid.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s karmic.d maverick.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s karmic.d natty.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s karmic.d oneiric.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s karmic.d precise.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s karmic.d quantal.d
|
||||
-cd ${prefix}/usr/lib/xen-tools/ && ln -s karmic.d raring.d
|
||||
cp hooks/common.sh ${prefix}/usr/lib/xen-tools
|
||||
cp -r hooks/common ${prefix}/usr/lib/xen-tools
|
||||
for i in ${prefix}/usr/share/xen-tools/*.d; do if [ -L "$$i" ]; then rm -vf "$$i"; fi; done
|
||||
mkdir -p ${prefix}/usr/share/xen-tools/centos-4.d/
|
||||
mkdir -p ${prefix}/usr/share/xen-tools/centos-5.d/
|
||||
mkdir -p ${prefix}/usr/share/xen-tools/centos-6.d/
|
||||
mkdir -p ${prefix}/usr/share/xen-tools/fedora-core-6.d/
|
||||
cp -R hooks/centos-4/*-* ${prefix}/usr/share/xen-tools/centos-4.d
|
||||
cp -R hooks/centos-5/*-* ${prefix}/usr/share/xen-tools/centos-5.d
|
||||
cp -R hooks/centos-6/*-* ${prefix}/usr/share/xen-tools/centos-6.d
|
||||
cp -R hooks/fedora-core-6/*-* ${prefix}/usr/share/xen-tools/fedora-core-6.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-4.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-5.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-7.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-8.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-9.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-10.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-11.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-12.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-13.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-14.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-15.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-16.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s fedora-core-6.d fedora-core-17.d
|
||||
mkdir -p ${prefix}/usr/share/xen-tools/debian.d/
|
||||
cp -R hooks/debian/*-* ${prefix}/usr/share/xen-tools/debian.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s debian.d sarge.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s debian.d etch.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s debian.d lenny.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s debian.d squeeze.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s debian.d wheezy.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s debian.d jessie.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s debian.d sid.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s debian.d testing.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s debian.d stable.d
|
||||
mkdir -p ${prefix}/usr/share/xen-tools/gentoo.d/
|
||||
cp -R hooks/gentoo/*-* ${prefix}/usr/share/xen-tools/gentoo.d
|
||||
mkdir -p ${prefix}/usr/share/xen-tools/dapper.d/
|
||||
cp -R hooks/dapper/*-* ${prefix}/usr/share/xen-tools/dapper.d/
|
||||
mkdir -p ${prefix}/usr/share/xen-tools/edgy.d/
|
||||
cp -R hooks/edgy/*-* ${prefix}/usr/share/xen-tools/edgy.d/
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s edgy.d feisty.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s edgy.d gutsy.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s edgy.d hardy.d
|
||||
mkdir -p ${prefix}/usr/share/xen-tools/intrepid.d/
|
||||
cp -R hooks/intrepid/*-* ${prefix}/usr/share/xen-tools/intrepid.d/
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s intrepid.d jaunty.d
|
||||
mkdir -p ${prefix}/usr/share/xen-tools/karmic.d/
|
||||
cp -R hooks/karmic/*-* ${prefix}/usr/share/xen-tools/karmic.d/
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s karmic.d lucid.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s karmic.d maverick.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s karmic.d natty.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s karmic.d oneiric.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s karmic.d precise.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s karmic.d quantal.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s karmic.d raring.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s karmic.d saucy.d
|
||||
-cd ${prefix}/usr/share/xen-tools/ && ln -s karmic.d trusty.d
|
||||
cp hooks/common.sh ${prefix}/usr/share/xen-tools
|
||||
cp -r hooks/common ${prefix}/usr/share/xen-tools
|
||||
|
||||
|
||||
#
|
||||
@@ -207,7 +212,6 @@ install-hooks:
|
||||
#
|
||||
install-libraries:
|
||||
-mkdir -p ${prefix}/usr/share/perl5/Xen/Tools
|
||||
cp ./lib/Xen/*.pm ${prefix}/usr/share/perl5/Xen
|
||||
cp ./lib/Xen/Tools/*.pm ${prefix}/usr/share/perl5/Xen/Tools
|
||||
|
||||
#
|
||||
@@ -300,7 +304,9 @@ uninstall:
|
||||
-rm -rf ${prefix}/etc/xen-tools/skel
|
||||
-rmdir ${prefix}/etc/xen-tools/
|
||||
-rm -f ${prefix}/etc/bash_completion.d/xen-tools
|
||||
# Maybe needed to remove older releases of xen-tools
|
||||
rm -rf ${prefix}/usr/lib/xen-tools
|
||||
rm -rf ${prefix}/usr/share/xen-tools
|
||||
rm -f ${prefix}/usr/share/man/man8/xen-create-image.8.gz
|
||||
rm -f ${prefix}/usr/share/man/man8/xen-delete-image.8.gz
|
||||
rm -f ${prefix}/usr/share/man/man8/xen-list-images.8.gz
|
||||
|
||||
@@ -1,5 +1,11 @@
|
||||
xen-tools 4.3rc2 (released TODO)
|
||||
=======================================
|
||||
xen-tools 4.3.1 (released 30-Jun-2012)
|
||||
======================================
|
||||
|
||||
Bugfix Release only
|
||||
|
||||
|
||||
xen-tools 4.3 (released 26-Jun-2012)
|
||||
====================================
|
||||
|
||||
Bug Fixes
|
||||
---------
|
||||
@@ -32,19 +32,19 @@ known to work reliably, i.e.:
|
||||
* Etch 4.0 (Dom0 no more tested)
|
||||
* Lenny 5.0
|
||||
* Squeeze 6.0
|
||||
* Wheezy 7.0
|
||||
* Jessie 8.0 (preliminary support as it's not yet available)
|
||||
* Sid (works at least at the moment of writing :-)
|
||||
* Wheezy 7
|
||||
* Jessie 8 (under developement)
|
||||
* Sid (always under developement; works at least at the moment of writing :-)
|
||||
|
||||
### Ubuntu
|
||||
|
||||
(only DomUs tested)
|
||||
|
||||
* Dapper Drake 6.06
|
||||
* Edgy Eft 6.10
|
||||
* Dapper Drake 6.06 (needs editing of `/usr/share/debootstrap/scripts/dapper` since at least debootstrap version 1.0.37, see [#659360][1])
|
||||
* Edgy Eft 6.10 (needs editing of `/usr/share/debootstrap/scripts/edgy` since at least debootstrap version 1.0.37, see [#659360][1])
|
||||
* Feisty Fawn 7.04
|
||||
* Gutsy Gibbon 7.10
|
||||
* Hardy Heron 8.04 (see [1][])
|
||||
* Hardy Heron 8.04 (see [Installing Ubuntu 8.04 as DomU][2])
|
||||
* Interpid Ibex 8.10
|
||||
* Jaunty Jackaplope 9.04
|
||||
* Karmic Koala 9.10
|
||||
@@ -54,12 +54,14 @@ known to work reliably, i.e.:
|
||||
* Oneiric Ocelot 11.10
|
||||
* Precise Pangolin 12.04
|
||||
* Quantal Quetzal 12.10
|
||||
* Raring Ringtail 13.04 (preliminary support as it's not yet available)
|
||||
* Raring Ringtail 13.04
|
||||
* Saucy Salamander 13.10 (under developement)
|
||||
|
||||
[1]: http://www.linux-vserver.org/Installing_Ubuntu_8.04_Hardy_as_guest
|
||||
"There is an issue with debootstrap on hardy not installing ksyslogd
|
||||
This can be fixed by chrooting into the newly installed system and
|
||||
removing the startup scripts."
|
||||
[1]: http://bugs.debian.org/659360
|
||||
"debootstrap in Wheezy can no more build Ubuntu Edgy or earlier"
|
||||
|
||||
[2]: http://www.linux-vserver.org/Installing_Ubuntu_8.04_Hardy_as_guest
|
||||
"There is an issue with debootstrap on hardy not installing ksyslogd."
|
||||
|
||||
### CentOS
|
||||
|
||||
@@ -82,11 +84,22 @@ Requirements
|
||||
To use these tools you'll need the following software:
|
||||
|
||||
* [debootstrap](http://packages.debian.org/debootstrap)
|
||||
* Perl
|
||||
* The Perl module [Text::Template](http://search.cpan.org/dist/Text-Template/)
|
||||
([Debian Package libtext-template-perl](http://packages.debian.org/libtext-template-perl))
|
||||
* The Perl module [Config::IniFiles](http://search.cpan.org/dist/Config-IniFiles/)
|
||||
* Perl and the following Perl modules
|
||||
* [Config::IniFiles](http://metacpan.org/release/Config-IniFiles)
|
||||
([Debian Package libconfig-inifiles-perl](http://packages.debian.org/libconfig-inifiles-perl))
|
||||
* [Text::Template](http://metacpan.org/release/Text-Template)
|
||||
([Debian Package libtext-template-perl](http://packages.debian.org/libtext-template-perl))
|
||||
* [Data::Validate::Domain](http://metacpan.org/release/Data-Validate-Domain)
|
||||
([Debian Package libdata-validate-domain-perl](http://packages.debian.org/libdata-validate-domain-perl))
|
||||
* [Data::Validate::IP](http://metacpan.org/release/Data-Validate-IP)
|
||||
([Debian Package libdata-validate-ip-perl](http://packages.debian.org/libdata-validate-ip-perl))
|
||||
* [Data::Validate::URI](http://metacpan.org/release/Data-Validate-URI)
|
||||
([Debian Package libdata-validate-uri-perl](http://packages.debian.org/libdata-validate-uri-perl))
|
||||
* [File::Slurp](http://metacpan.org/release/File-Slurp)
|
||||
([Debian Package libfile-slurp-perl](http://packages.debian.org/libfile-slurp-perl))
|
||||
* [File::Which](http://metacpan.org/release/File-Which)
|
||||
([Debian Package libfile-which-perl](http://packages.debian.org/libfile-which-perl))
|
||||
* and some more modules which are part of the Perl core and hence do not need to be installed separately.
|
||||
* Make, if you are not installing through a package manager
|
||||
|
||||
You can try to install RPM-based distributions such as CentOS, or
|
||||
|
||||
@@ -3,12 +3,6 @@ TODO
|
||||
|
||||
See KNOWN_BUGS.markdown for real bugs.
|
||||
|
||||
Bugs to fix and features to add for 4.3
|
||||
---------------------------------------
|
||||
|
||||
Refactor TLS disabling. Seems to be happen twice, once in 20-setup-apt
|
||||
and once in 10-disable-tls.
|
||||
|
||||
Bugs to fix and features to add for 5.0
|
||||
---------------------------------------
|
||||
|
||||
@@ -79,12 +73,6 @@ Bugs to fix and features to add for 5.0
|
||||
|
||||
* LVM snapshot support as an install source.
|
||||
|
||||
* Clean up mounts on `Ctrl-C`, causes error while installing otherwise:
|
||||
|
||||
Removing /dev/vg0/acromantula-domu1-disk - since we're forcing the
|
||||
install Can't remove open logical volume "acromantula-domu1-disk"
|
||||
this should be a matter of unmounting the mounted volume from /tmp.
|
||||
|
||||
* Generic grub support
|
||||
|
||||
This will generate a much nicer `menu.lst` as a side effect, as its
|
||||
@@ -134,6 +122,9 @@ Bugs to fix and features to add for 5.0
|
||||
`authorized_keys` (e.g. a users public key) or to just add the Dom0's
|
||||
`/root/.ssh/authorized_keys` as the DomU's one.
|
||||
|
||||
* Generate ECDSA host keys where possible. (Likely depends on the
|
||||
to-be-installed SSH version.)
|
||||
|
||||
* More generic roles
|
||||
|
||||
Deploy a web server or setup ssmtp directly via flag when setting up
|
||||
@@ -171,16 +162,32 @@ Bugs to fix and features to add for 5.0
|
||||
|
||||
* Make used Xen toolstack configurable, i.e. via --xen-toolstack=xl
|
||||
|
||||
* Code Deduplication / Refactor the code for less code duplication
|
||||
|
||||
`bin/x*` currently contain the same or similar code like e.g. in the
|
||||
function readConfigurationFile. This needs to be cleaned up.
|
||||
|
||||
* Unify --debug and --dumpconfig. Likely make --debug exit
|
||||
gracefully. Document --debug if --dumpconfig is removed.
|
||||
|
||||
* Use `Perl::Critic`
|
||||
|
||||
* Refactor the different Ubuntu hooks directories so that only one
|
||||
ubuntu hooks directory is left.
|
||||
|
||||
Then also refactor TLS disabling so that it works on all
|
||||
distributions the same. Currently Debian is a special case and
|
||||
Ubuntu half a special case.
|
||||
|
||||
* Remove from the (unused) Xen::Tools what's already in the used
|
||||
Xen::Tools::Common.
|
||||
|
||||
* Add test for `--size` constraints (upper- and lowercase letters,
|
||||
with and without `B`, etc.)
|
||||
|
||||
* Needs a `--dry-run` or `--check-constraints` option in
|
||||
`xen-create-image` first. Which probably both would be a good
|
||||
idea.
|
||||
|
||||
* Replace several occurences of backticks with runCommand. (Mostly
|
||||
mount commands in `xen-update-image`. The calls to uname or
|
||||
lsb_release should be fine.)
|
||||
|
||||
Stuff from Steve's TODO list / Generic TODOs
|
||||
--------------------------------------------
|
||||
|
||||
@@ -188,6 +195,9 @@ Stuff from Steve's TODO list / Generic TODOs
|
||||
|
||||
* `xen-delete-image` should unallocate any used IP addresses.
|
||||
|
||||
* `installGentooPackage` in `hooks/common.sh` is a stub and does
|
||||
nothing yet.
|
||||
|
||||
Axel's Break-Backwards-Compatibility Wishlist
|
||||
---------------------------------------------
|
||||
|
||||
@@ -222,4 +232,14 @@ Axel's Break-Backwards-Compatibility Wishlist
|
||||
|
||||
Maybe add some `--autostart` or such.
|
||||
|
||||
* Maybe replace findBinary with File::Which
|
||||
* MAC addresses should no more depend on the distribution.
|
||||
|
||||
* Let the admin switch between MAC addresses based on XenSource's OUI,
|
||||
its organisation's own OUI or locally administrated MAC addresses.
|
||||
See also http://wiki.xen.org/wiki/Xen_Networking#MAC_addresses
|
||||
|
||||
* More radical Code Deduplication
|
||||
|
||||
`bin/x*` currently still contain similar code like e.g. in the
|
||||
function parseCommandLineArguments. This should be cleaned up, too,
|
||||
but may need a bigger redesign.
|
||||
|
||||
@@ -1,42 +1,58 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
=encoding utf8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
xen-create-image - Easily create new Xen instances with networking and OpenSSH.
|
||||
|
||||
=cut
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
xen-create-image --hostname=<hostname> <further options>
|
||||
|
||||
|
||||
=head1 EXAMPLES
|
||||
|
||||
xen-create-image --hostname=some-domu --dist=wheezy --lvm=vg0
|
||||
|
||||
xen-create-image --hostname=some-domu --dist=precise --dir=/srv/xen
|
||||
|
||||
See below for more specific examples: LOOPBACK EXAMPLES, LVM EXAMPLE
|
||||
and EVMS EXAMPLE.
|
||||
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
Help Options:
|
||||
|
||||
--help Show the help information for this script.
|
||||
--help Show the help information for this script.
|
||||
|
||||
--manual Read the manual, and examples, for this script.
|
||||
--manual Read the manual, and examples, for this script.
|
||||
|
||||
--verbose Show useful debugging information.
|
||||
--(no)verbose (Don't) show more of what xen-create-image is
|
||||
currently doing.
|
||||
|
||||
--dumpconfig Show current configuration.
|
||||
--dumpconfig Show current configuration.
|
||||
|
||||
--version Show the version number and exit.
|
||||
--version Show the version number and exit.
|
||||
|
||||
|
||||
|
||||
Size / General options:
|
||||
|
||||
--accounts Copy all non-system accounts to the guest image
|
||||
--(no)accounts
|
||||
(Don't) copy all non-system accounts to the guest
|
||||
image
|
||||
|
||||
--admins Specify that some administrators should be created for
|
||||
this image, using xen-shell.
|
||||
|
||||
--boot Boot the new instance after creating it.
|
||||
--(no)boot (Don't) boot the new instance after creating it.
|
||||
|
||||
--cache=bool Cache .deb files on the host when installing the new
|
||||
guest with the debootstrap tool. Accepted values:
|
||||
"yes" (default) and "no".
|
||||
|
||||
|
||||
--cachedir=/path/to/cache/directory
|
||||
Override the default .deb cache directory. Defaults to
|
||||
/var/cache/apt/archives/ if it exists (i.e. on Debian
|
||||
@@ -47,7 +63,9 @@ xen-create-image - Easily create new Xen instances with networking and OpenSSH.
|
||||
Read the specified file in addition to the global
|
||||
configuration file.
|
||||
|
||||
--copyhosts Copy entries from the dom0's /etc/hosts file to the guest
|
||||
--(no)copyhosts
|
||||
(Don't) copy entries from the dom0's /etc/hosts file
|
||||
to the guest
|
||||
|
||||
--copy-cmd NOP: Ignored.
|
||||
|
||||
@@ -57,60 +75,71 @@ xen-create-image - Easily create new Xen instances with networking and OpenSSH.
|
||||
installed. Specifying the path is optional.
|
||||
|
||||
--disk_device=diskname
|
||||
Use specified device name for virtual devices instead of
|
||||
the default value "xvda".
|
||||
Use specified device name for virtual devices instead
|
||||
of the default value "xvda".
|
||||
|
||||
--extension=ext
|
||||
Specify the suffix to give the Xen configuration
|
||||
file. (Default value: ".cfg")
|
||||
|
||||
--force Force overwriting existing images. This will remove
|
||||
existing images or LVM volumes which match those which
|
||||
are liable to be used by the new invocation.
|
||||
--(no)force (Don't) force overwriting existing images. This will
|
||||
remove existing images or LVM volumes which match
|
||||
those which are liable to be used by the new
|
||||
invocation.
|
||||
|
||||
--fs=fs Specify the filesystem type to use for the new guest.
|
||||
Valid choices are 'ext2', 'ext3', 'ext4', 'reiserfs',
|
||||
'xfs' or 'btrfs'. (Note: pygrub *DOES NOT* support xfs)
|
||||
'xfs' or 'btrfs'. (Note: pygrub *DOES NOT* support
|
||||
xfs)
|
||||
|
||||
--genpass=1 Generate a random root password (default, set to 0 to turn off)
|
||||
--genpass=1 Generate a random root password (default, set to 0 to
|
||||
turn off)
|
||||
|
||||
--genpass_len=N
|
||||
Override the default password length of 8 and generate a
|
||||
random password of length N. Note: this only works in
|
||||
conjunction with --genpass
|
||||
Override the default password length of 8 and generate
|
||||
a random password of length N. Note: this only works
|
||||
in conjunction with --genpass
|
||||
|
||||
--hash_method=algorithm
|
||||
Override the default hashing method of sha256 and use the
|
||||
provided algorithm. Can be : md5, sha256 or sha512
|
||||
Override the default hashing method of sha256 and use
|
||||
the provided algorithm. Can be : md5, sha256 or sha512
|
||||
|
||||
--hooks=1 Specify whether to run hooks after the image is created.
|
||||
|
||||
--ide Use IDE names for virtual devices (i.e. hda not xvda)
|
||||
|
||||
--image=str Specify whether to create "sparse" or "full" disk images.
|
||||
Full images are mandatory when using LVM, so this setting
|
||||
is ignored in that case.
|
||||
--image=str Specify whether to create "sparse" or "full" disk
|
||||
images. Full images are mandatory when using LVM, so
|
||||
this setting is ignored in that case.
|
||||
|
||||
--image-dev=/path/to/device
|
||||
Specify a physical/logical volume for the disk image.
|
||||
|
||||
--initrd=/path/to/initrd
|
||||
Specify the initial ramdisk. If an image is specified it
|
||||
must exist.
|
||||
Specify the initial ramdisk. If an image is specified
|
||||
it must exist.
|
||||
|
||||
--install=1 Specify whether to install the guest system or not.
|
||||
|
||||
--keep Don't delete our images if installation fails.
|
||||
--(no)keep (Don't) keep our images if installation fails. It
|
||||
maybe unmounted, though.
|
||||
|
||||
--kernel=/path/to/kernel
|
||||
Set the path to the kernel to use for domU. If a
|
||||
kernel is specified it must exist.
|
||||
|
||||
--memory=size
|
||||
Setup the amount of memory allocated to the new instance.
|
||||
As suffix recognized size units are "M", "MB", "G" and
|
||||
"GB" (case does not matter). If there's no unit given,
|
||||
megabytes are assumed.
|
||||
Setup the amount of memory allocated to the new
|
||||
instance. As suffix recognized size units are "M",
|
||||
"MB", "G" and "GB" (case does not matter). If there's
|
||||
no unit given, megabytes are assumed.
|
||||
|
||||
--maxmem=size
|
||||
Setup the maximum amount of memory that can be allocated
|
||||
to the new instance. As suffix recognized size units are "M",
|
||||
"MB", "G" and "GB" (case does not matter). If there's
|
||||
no unit given, megabytes are assumed.
|
||||
Required for dynamic memory ballooning.
|
||||
|
||||
--modules=/path/to/modules
|
||||
Set the path to the kernel modules to use for domU.
|
||||
@@ -125,9 +154,8 @@ xen-create-image - Easily create new Xen instances with networking and OpenSSH.
|
||||
--no-xen-ok Don't complain if xen seems not installed or xend is
|
||||
not running. (Needed for the testsuite.)
|
||||
|
||||
--output=dir Specify the output directory to create the xen configuration
|
||||
file within.
|
||||
|
||||
--output=dir Specify the output directory to create the xen
|
||||
configuration file within.
|
||||
|
||||
--partitions=file
|
||||
Use a specific partition layout configuration file.
|
||||
@@ -140,23 +168,23 @@ xen-create-image - Easily create new Xen instances with networking and OpenSSH.
|
||||
--password=passphrase
|
||||
Set the root password for the new guest.
|
||||
|
||||
--passwd Ask for a root password interactively during setup.
|
||||
NOTE: This overrides --genpass --password
|
||||
--(no)passwd (Don't) ask for a root password interactively during
|
||||
setup. NOTE: This overrides --genpass --password.
|
||||
|
||||
--pygrub DomU should be booted using pygrub.
|
||||
--(no)pygrub DomU should (not) be booted using pygrub.
|
||||
|
||||
--role=role Run the specified role script(s) post-install.
|
||||
Role scripts are discussed later in this manpage.
|
||||
Can be an absolute path. Otherwise it's relative to the
|
||||
value of --roledir.
|
||||
--role=role Run the specified role script(s) post-install. Role
|
||||
scripts are discussed later in this manpage. Can be
|
||||
an absolute path. Otherwise it's relative to the value
|
||||
of --roledir.
|
||||
|
||||
--role-args="--arg1 --arg2"
|
||||
Pass the named string literally to any role script.
|
||||
This is useful for site-specific roles.
|
||||
|
||||
--finalrole=role
|
||||
Similar to role scripts. Run the specified role script(s)
|
||||
after cfg file creation.
|
||||
Similar to role scripts. Run the specified role
|
||||
script(s) after cfg file creation.
|
||||
|
||||
--roledir=/path/to/directory
|
||||
Specify the directory which contains the role scripts.
|
||||
@@ -183,20 +211,22 @@ xen-create-image - Easily create new Xen instances with networking and OpenSSH.
|
||||
beforehand.
|
||||
|
||||
--vcpus=num
|
||||
Set the number of vcpus that the new instance will have
|
||||
instead of the default value of "1".
|
||||
Set the number of vcpus that the new instance will
|
||||
have instead of the default value of "1".
|
||||
|
||||
|
||||
|
||||
Installation options:
|
||||
|
||||
--arch=arch Pass the given architecture to debootstrap, rinse,
|
||||
or rpmstrap when installing the system. This argument
|
||||
is ignored for other install methods.
|
||||
--arch=arch Pass the given architecture to debootstrap, rinse, or
|
||||
rpmstrap when installing the system. This argument is
|
||||
ignored for other install methods.
|
||||
|
||||
--dist=dist Specify the distribution you wish to install.
|
||||
|
||||
--install-method=method
|
||||
Specify the installation method to use. Valid methods are:
|
||||
Specify the installation method to use. Valid methods
|
||||
are:
|
||||
|
||||
* debootstrap
|
||||
* cdebootstrap
|
||||
@@ -214,16 +244,18 @@ xen-create-image - Easily create new Xen instances with networking and OpenSSH.
|
||||
--mirror=url Setup the mirror to use when installing via
|
||||
debootstrap. (Default value: mirror used in
|
||||
/etc/apt/sources.list or for Debian
|
||||
"http://cdn.debian.net/debian/" and for Ubuntu
|
||||
"http://http.debian.net/debian/" and for Ubuntu
|
||||
"http://archive.ubuntu.com/ubuntu/")
|
||||
|
||||
The above mentioned Debian mirror hostname uses GeoIP
|
||||
to choose a more or less close Debian mirror. See
|
||||
http://wiki.debian.org/DebianGeoMirror for details.
|
||||
The above mentioned Debian mirror hostname
|
||||
automatically tries to choose a more or less close
|
||||
Debian mirror. See http://http.debian.net/ for
|
||||
details.
|
||||
|
||||
--apt_proxy=url
|
||||
--apt_proxy=protocol://hostname:port/
|
||||
Specify a proxy to be used by debootstrap, and within
|
||||
the guest.
|
||||
the guest. Needs the same syntax as APT's
|
||||
Acquire::http::Proxy. See apt.conf(5).
|
||||
|
||||
--template=tmpl
|
||||
Specify which template file to use when creating the
|
||||
@@ -234,15 +266,15 @@ xen-create-image - Easily create new Xen instances with networking and OpenSSH.
|
||||
Networking options:
|
||||
|
||||
--bridge=brname
|
||||
Optionally, set a specific bridge for the new instance.
|
||||
This can be especially useful when running multiple
|
||||
bridges on a dom0.
|
||||
Optionally, set a specific bridge for the new
|
||||
instance. This can be especially useful when running
|
||||
multiple bridges on a dom0.
|
||||
|
||||
--broadcast=123.456.789.ABC
|
||||
Setup the broadcast address for the new instance.
|
||||
|
||||
--dhcp The guest will be configured to fetch its networking
|
||||
details via DHCP.
|
||||
--(no)dhcp The guest will (not) be configured to fetch its
|
||||
networking details via DHCP.
|
||||
|
||||
--gateway=gw Setup the network gateway for the new instance.
|
||||
|
||||
@@ -252,8 +284,9 @@ xen-create-image - Easily create new Xen instances with networking and OpenSSH.
|
||||
one is setup as the "system" IP, and the additional
|
||||
ones are added as aliases.
|
||||
|
||||
Note that Xen 3.x supports a maximum of three vif statements
|
||||
per guest. This option conflicts with --dhcp.
|
||||
Note that Xen 3.x supports a maximum of three vif
|
||||
statements per guest. This option conflicts with
|
||||
--dhcp.
|
||||
|
||||
--mac=AA:BB:CC:DD:EE:FF
|
||||
Specify the MAC address to use for a given interface.
|
||||
@@ -267,26 +300,31 @@ xen-create-image - Easily create new Xen instances with networking and OpenSSH.
|
||||
|
||||
--nameserver="123.456.789.ABC 123.456.789.DEF"
|
||||
Setup the nameserver of the machine, multiple space
|
||||
separated nameservers are allowed.
|
||||
If not provided, Dom0's /etc/resolv.conf will be copied
|
||||
to guest.
|
||||
separated nameservers are allowed. If not provided,
|
||||
Dom0's /etc/resolv.conf will be copied to guest.
|
||||
|
||||
--vifname=vifname
|
||||
Optionally, set a specific vif name for the new instance.
|
||||
Optionally, set a specific vif name for the new
|
||||
instance.
|
||||
|
||||
|
||||
|
||||
Mandatory options:
|
||||
|
||||
--dir=/path/to/directory
|
||||
|
||||
Specify where the output images should go.
|
||||
Subdirectories will be created for each guest
|
||||
If you do not wish to use loopback images specify --lvm
|
||||
or --evms. (These three options are mutually exclusive.)
|
||||
Subdirectories will be created for each guest.
|
||||
|
||||
If you do not wish to use loopback images specify
|
||||
--lvm or --evms. (These three options are mutually
|
||||
exclusive.)
|
||||
|
||||
--evms=lvm2/container
|
||||
Specify the container to save images within, i.e. '--evms
|
||||
lvm2/mycontainer'. If you do not wish to use EVMS specify
|
||||
--dir or --lvm. (These three options are mutually exclusive.)
|
||||
Specify the container to save images within,
|
||||
i.e. '--evms lvm2/mycontainer'. If you do not wish to
|
||||
use EVMS specify --dir or --lvm. (These three options
|
||||
are mutually exclusive.)
|
||||
|
||||
--hostname=host.example.org
|
||||
Set the hostname of the new guest system. Ideally
|
||||
@@ -298,8 +336,6 @@ xen-create-image - Easily create new Xen instances with networking and OpenSSH.
|
||||
If you do not wish to use LVM specify --dir or --evms.
|
||||
(These three options are mutually exclusive.)
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 NOTES
|
||||
|
||||
@@ -322,8 +358,6 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
The result of invoking these three scripts, and some minor glue between
|
||||
them, is a simple means of creating new Xen guest domains.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
@@ -346,7 +380,6 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
If you wish to install additional packages or do any additional
|
||||
configuration of your new guests, please read the section on "ROLES".
|
||||
|
||||
=cut
|
||||
|
||||
=head1 CONFIGURATION
|
||||
|
||||
@@ -392,6 +425,7 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
size = 2Gb # Disk image size.
|
||||
image = full # Allocate the full disk size immediately.
|
||||
memory = 128Mb # Memory size
|
||||
maxmem = 512Mb # Memory size
|
||||
swap = 128Mb # Swap size
|
||||
fs = ext3 # use EXT3 filesystems
|
||||
dist = stable # Default distribution to install.
|
||||
@@ -426,9 +460,6 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
This makes use of loopback images stored beneath /home/xen and
|
||||
will be installed via the debootstrap command.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
|
||||
=head1 NETWORKING AUTO-SETUP
|
||||
|
||||
@@ -464,8 +495,6 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
and would no longer be available. If all the IP addresses are taken
|
||||
then the system will fail.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 PARTITIONING
|
||||
|
||||
@@ -480,8 +509,6 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
Now when you create a new image specify the name of this file with as
|
||||
an argument to the --partition option.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 XEN CONFIGURATION FILE
|
||||
|
||||
@@ -499,8 +526,6 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
Alternatively you can create multiple configuration files and
|
||||
specify the one to use with the --template option.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 LOOPBACK EXAMPLES
|
||||
|
||||
@@ -536,8 +561,6 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
|
||||
The '/domains/' subdirectory will be created if necessary.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 LVM EXAMPLE
|
||||
|
||||
@@ -559,7 +582,6 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
mkdir -p /mnt/foo
|
||||
mount /dev/myvolumegroup/vm01.my.flat-disk /mnt/foo
|
||||
|
||||
=cut
|
||||
|
||||
=head1 EVMS EXAMPLE
|
||||
|
||||
@@ -581,8 +603,6 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
mkdir -p /mnt/foo
|
||||
mount /dev/evms/vm01.my.flat-disk /mnt/foo
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 INSTALLATION METHODS
|
||||
|
||||
@@ -598,7 +618,6 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
arguments, or settings in the configuration file. Only one installation
|
||||
method may be specified at a time; they are mutually-exclusive.
|
||||
|
||||
=cut
|
||||
|
||||
=head1 INSTALLATION SPEEDUPS
|
||||
|
||||
@@ -628,8 +647,6 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
--lvm=myvolumegroup --hostname=vm01.my.flat \
|
||||
--install-method=copy --install-source=/path/to/copy/from
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 DEBOOTSTRAP CACHING
|
||||
|
||||
@@ -657,8 +674,6 @@ Create a Xen configuration file in so that xm/xl can start the new domain.
|
||||
If you set your cache directory to anything else, simply rm the
|
||||
contents of the directory.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 ROLES
|
||||
|
||||
@@ -735,9 +750,6 @@ Install an X11 server, using VNC and XDM
|
||||
NOTE: Multiple role scripts may be invoked if you separate their
|
||||
names with commas.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
|
||||
=head1 THE SKELETON DIRECTORY
|
||||
|
||||
@@ -765,11 +777,10 @@ Install an X11 server, using VNC and XDM
|
||||
Dmitry Nedospasov, http://nedos.net/
|
||||
Stéphane Jourdois
|
||||
|
||||
=cut
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
Copyright (c) 2005-2009 by Steve Kemp, (c) 2010-2012 by The Xen-Tools
|
||||
Copyright (c) 2005-2009 by Steve Kemp, (c) 2010-2013 by The Xen-Tools
|
||||
Development Team. All rights reserved.
|
||||
|
||||
This module is free software;
|
||||
@@ -779,6 +790,7 @@ The LICENSE file contains the full text of the license.
|
||||
|
||||
=cut
|
||||
|
||||
$SIG{INT} = \&clean_up;
|
||||
|
||||
use strict;
|
||||
use English;
|
||||
@@ -787,9 +799,15 @@ use Env;
|
||||
use File::Path qw/ mkpath /;
|
||||
use File::Temp qw/ tempdir /;
|
||||
use File::Copy qw/ mv cp /;
|
||||
use File::Which;
|
||||
use Getopt::Long;
|
||||
use Pod::Usage;
|
||||
use Data::Dumper;
|
||||
use Data::Validate::URI qw/ is_uri /;
|
||||
use Data::Validate::IP qw/ is_ipv4 /;
|
||||
use Data::Validate::Domain qw/ is_hostname /;
|
||||
use Term::UI;
|
||||
use Term::ReadLine;
|
||||
use Xen::Tools::Common;
|
||||
|
||||
|
||||
@@ -823,7 +841,7 @@ my $MOUNT_POINT = undef;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.4~dev';
|
||||
my $RELEASE = '4.4rc1';
|
||||
|
||||
|
||||
#
|
||||
@@ -1048,7 +1066,7 @@ if ( $CONFIG{ 'install' } )
|
||||
#
|
||||
if ( !-x $MOUNT_POINT . "/bin/ls" )
|
||||
{
|
||||
logprint("System installation failed. Aborting\n");
|
||||
logprint("System installation failed: /bin/ls missing. Aborting.\n");
|
||||
$CONFIG{'FAIL'} = 1;
|
||||
exit 127;
|
||||
}
|
||||
@@ -1141,11 +1159,11 @@ E_O_ERROR
|
||||
# Check that all the binaries have been installed properly
|
||||
#
|
||||
my @required =
|
||||
qw ( / xt-customize-image xt-install-image xt-create-xen-config / );
|
||||
qw(xt-customize-image xt-install-image xt-create-xen-config);
|
||||
|
||||
foreach my $bin (@required)
|
||||
{
|
||||
if ( !defined( findBinary($bin) ) )
|
||||
if ( !defined( which($bin) ) )
|
||||
{
|
||||
logprint( "The script '$bin' was not found.\nAborting\n\n" );
|
||||
$CONFIG{'FAIL'} = 1;
|
||||
@@ -1320,20 +1338,22 @@ sub setupDefaultOptions
|
||||
|
||||
# Initialize per distribution mirror defaults: Debian
|
||||
foreach my $debdist (qw(squeeze wheezy jessie sid testing oldstable stable unstable)) {
|
||||
$CONFIG{ 'mirror_'.$debdist } = $CONFIG{ 'mirror' }
|
||||
$CONFIG{ 'mirror_'.$debdist } = 'http://http.debian.net/debian';
|
||||
}
|
||||
foreach my $debdist (qw(sarge etch lenny)) {
|
||||
$CONFIG{ 'mirror_'.$debdist } = 'http://archive.debian.org/debian';
|
||||
$CONFIG{ 'mirror_'.$debdist } = 'http://http.debian.net/debian-archive/debian';
|
||||
}
|
||||
# Initialize per distribution mirror defaults: Ubuntu
|
||||
foreach my $ubuntudist (qw(hardy lucid oneiric precise quantal raring)) {
|
||||
foreach my $ubuntudist (qw(lucid precise quantal raring saucy trusty)) {
|
||||
$CONFIG{ 'mirror_'.$ubuntudist } = 'http://archive.ubuntu.com/ubuntu';
|
||||
}
|
||||
foreach my $ubuntudist (qw(dapper edgy feisty gutsy intrepid jaunty karmic maverick natty)) {
|
||||
foreach my $ubuntudist (qw(dapper edgy feisty gutsy hardy intrepid jaunty karmic maverick natty oneiric)) {
|
||||
$CONFIG{ 'mirror_'.$ubuntudist } = 'http://old-releases.ubuntu.com/ubuntu';
|
||||
}
|
||||
$CONFIG{ 'apt_proxy' } = '';
|
||||
$CONFIG{ 'arch' } = '';
|
||||
$CONFIG{ 'arch' } =
|
||||
which('dpkg') ? `dpkg --print-architecture` : '';
|
||||
chomp($CONFIG{ 'arch' });
|
||||
$CONFIG{ 'fs' } = 'ext3';
|
||||
$CONFIG{ 'force' } = 0;
|
||||
$CONFIG{ 'no_xen_ok' } = 0;
|
||||
@@ -1417,13 +1437,13 @@ sub checkOption
|
||||
# Define argument types
|
||||
my %types = (
|
||||
integerWithSuffix => {
|
||||
check => qr/^[0-9.]+[GgMmKk]b?$/,
|
||||
message => "takes a suffixed integer.\n",
|
||||
check => qr/^[0-9.]+[GM]B?$/i,
|
||||
message => "takes a suffixed (mb, MB, G, etc.) integer.\n",
|
||||
},
|
||||
distribution => {
|
||||
check => sub { -d "/usr/lib/xen-tools/$_[0].d" },
|
||||
check => sub { -d "/usr/share/xen-tools/$_[0].d" },
|
||||
message => "takes a distribution name " .
|
||||
"(see /usr/lib/xen-tools for valid values).\n",
|
||||
"(see /usr/share/xen-tools for valid values).\n",
|
||||
},
|
||||
imageType => {
|
||||
check => qr/^sparse|full$/,
|
||||
@@ -1446,15 +1466,15 @@ sub checkOption
|
||||
message => "must be a disk device (xvd[a-z]+, sd[a-z]+).\n",
|
||||
},
|
||||
ipv4 => {
|
||||
check => qr/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/,
|
||||
check => sub { is_ipv4($_[0]) },
|
||||
message => "must be valid IPv4.\n",
|
||||
},
|
||||
ipv4_or_auto => {
|
||||
check => qr/^(?:auto|(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?))$/,
|
||||
check => sub { is_ipv4($_[0]) or $_[0] eq 'auto' },
|
||||
message => "must be valid IPv4 or the keyword 'auto'.\n",
|
||||
},
|
||||
hostname => {
|
||||
check => qr/^[a-z0-9][a-z0-9.-]{0,254}$/i,
|
||||
check => sub { is_hostname($_[0]) },
|
||||
message => "must be a valid hostname.\n",
|
||||
},
|
||||
supportedFs => {
|
||||
@@ -1485,6 +1505,10 @@ sub checkOption
|
||||
check => qr/^md5|sha256|sha512$/i,
|
||||
message => "must be md5, sha256 or sha512.\n",
|
||||
},
|
||||
uri => {
|
||||
check => sub { is_uri($_[0]) },
|
||||
message => "must be an URI including the protocol\n",
|
||||
},
|
||||
);
|
||||
|
||||
# Define what argument each option accepts.
|
||||
@@ -1495,6 +1519,7 @@ sub checkOption
|
||||
swap => 'integerWithSuffix',
|
||||
image => 'imageType',
|
||||
memory => 'integerWithSuffix',
|
||||
maxmem => 'integerWithSuffix',
|
||||
kernel => 'existingFile',
|
||||
initrd => 'existingFile',
|
||||
modules => 'existingDir',
|
||||
@@ -1519,6 +1544,7 @@ sub checkOption
|
||||
mac => 'mac',
|
||||
ip => 'ipv4_or_auto',
|
||||
hash_method => 'hashMethod',
|
||||
apt_proxy => 'uri',
|
||||
);
|
||||
|
||||
# If given option does not exists in optionsTypes,
|
||||
@@ -1592,6 +1618,7 @@ sub parseCommandLineArguments
|
||||
"noswap", \&checkOption,
|
||||
"image=s", \&checkOption,
|
||||
"memory=s", \&checkOption,
|
||||
"maxmem=s", \&checkOption,
|
||||
"vcpus=i", \&checkOption,
|
||||
|
||||
# Locations
|
||||
@@ -1609,14 +1636,14 @@ sub parseCommandLineArguments
|
||||
"disk_device=s", \&checkOption,
|
||||
|
||||
# Hosts options
|
||||
"nohosts", \$CONFIG{ 'nohosts' },
|
||||
"copyhosts", \$CONFIG{ 'copyhosts' },
|
||||
"nohosts", \$CONFIG{ 'nohosts' },
|
||||
"copyhosts!", \$CONFIG{ 'copyhosts' },
|
||||
# Deprecated legacy options for backwards compatibility
|
||||
"no-hosts", \$CONFIG{ 'nohosts' },
|
||||
"copy-hosts", \$CONFIG{ 'copyhosts' },
|
||||
"no-hosts", \$CONFIG{ 'nohosts' },
|
||||
"copy-hosts!", \$CONFIG{ 'copyhosts' },
|
||||
|
||||
# Networking options
|
||||
"dhcp", \$CONFIG{ 'dhcp' },
|
||||
"dhcp!", \$CONFIG{ 'dhcp' },
|
||||
"bridge=s", \&checkOption,
|
||||
"gateway=s", \&checkOption,
|
||||
"hostname=s", \&checkOption,
|
||||
@@ -1637,11 +1664,11 @@ sub parseCommandLineArguments
|
||||
"debootstrap-cmd=s", \$CONFIG{ 'debootstrap-cmd' },
|
||||
|
||||
# Misc. options
|
||||
"accounts", \$CONFIG{ 'accounts' },
|
||||
"accounts!", \$CONFIG{ 'accounts' },
|
||||
"admins=s", \&checkOption,
|
||||
"arch=s", \&checkOption,
|
||||
"fs=s", \&checkOption,
|
||||
"boot", \$CONFIG{ 'boot' },
|
||||
"boot!", \$CONFIG{ 'boot' },
|
||||
"cache=s", \&checkOption,
|
||||
"cachedir=s", \&checkOption,
|
||||
"config=s", \&checkOption,
|
||||
@@ -1649,8 +1676,8 @@ sub parseCommandLineArguments
|
||||
"scsi", \$CONFIG{ 'scsi' },
|
||||
"install=i", \&checkOption,
|
||||
"hooks=i", \&checkOption,
|
||||
"pygrub", \$CONFIG{ 'pygrub' },
|
||||
"passwd", \$CONFIG{ 'passwd' },
|
||||
"pygrub!", \$CONFIG{ 'pygrub' },
|
||||
"passwd!", \$CONFIG{ 'passwd' },
|
||||
"genpass=i", \&checkOption,
|
||||
"genpass-len=i", \&checkOption,
|
||||
"genpass_len=i", \&checkOption,
|
||||
@@ -1661,20 +1688,20 @@ sub parseCommandLineArguments
|
||||
"role-args=s", \&checkOption,
|
||||
"finalrole=s", \&checkOption,
|
||||
"roledir=s", \&checkOption,
|
||||
"force", \$CONFIG{ 'force' },
|
||||
"force!", \$CONFIG{ 'force' },
|
||||
"no-xen-ok", \$CONFIG{ 'no_xen_ok' },
|
||||
"keep", \$CONFIG{ 'keep' },
|
||||
"keep!", \$CONFIG{ 'keep' },
|
||||
"template=s", \&checkOption,
|
||||
"output=s", \&checkOption,
|
||||
"extension=s", \&checkOption,
|
||||
"extension:s", \&checkOption,
|
||||
"dontformat", \&checkOption,
|
||||
|
||||
# Help options
|
||||
"debug", \$CONFIG{ 'debug' },
|
||||
"debug!", \$CONFIG{ 'debug' },
|
||||
"help", \$HELP,
|
||||
"manual", \$MANUAL,
|
||||
"dumpconfig", \$DUMPCONFIG,
|
||||
"verbose", \$CONFIG{ 'verbose' },
|
||||
"verbose!", \$CONFIG{ 'verbose' },
|
||||
"version", \$VERSION
|
||||
) )
|
||||
{
|
||||
@@ -1813,7 +1840,7 @@ sub checkArguments
|
||||
#
|
||||
# Lucid and probably all later Ubuntus, too, don't work without pygrub
|
||||
#
|
||||
if ( $CONFIG{ 'dist' } =~ /lucid|maverick|natty|oneiric|precise|quantal|raring/ )
|
||||
if ( $CONFIG{ 'dist' } =~ /lucid|maverick|natty|oneiric|precise|quantal|raring|saucy/ )
|
||||
{
|
||||
$CONFIG{ 'pygrub' } = 1;
|
||||
}
|
||||
@@ -1823,9 +1850,10 @@ sub checkArguments
|
||||
#
|
||||
if ( $CONFIG{ 'dist' } =~ /sarge/ and
|
||||
$CONFIG{ 'arch' } =~ /amd64/ and
|
||||
$CONFIG{ 'mirror_sarge' } eq 'http://archive.debian.org/debian' )
|
||||
$CONFIG{ 'mirror_sarge' } =~ m(/debian-archive/debian/?$))
|
||||
{
|
||||
$CONFIG{ 'mirror_sarge' } = 'http://archive.debian.org/debian-amd64';
|
||||
$CONFIG{ 'mirror_sarge' } =~
|
||||
s(/debian-archive/debian/?)(/debian-archive/debian-amd64);
|
||||
}
|
||||
|
||||
#
|
||||
@@ -2260,7 +2288,7 @@ sub checkBinariesPresent
|
||||
|
||||
foreach my $file (@required)
|
||||
{
|
||||
if ( !defined( findBinary($file) ) )
|
||||
if ( !defined( which($file) ) )
|
||||
{
|
||||
logprint("The following binary is required to run this tool\n");
|
||||
logprint("\t$file\n");
|
||||
@@ -2276,7 +2304,7 @@ sub checkBinariesPresent
|
||||
{
|
||||
|
||||
# loopback image
|
||||
if ( !defined( findBinary("dd") ) )
|
||||
if ( !defined( which("dd") ) )
|
||||
{
|
||||
logprint("The following binary is required to run this tool\n");
|
||||
logprint("\tdd\n");
|
||||
@@ -2297,7 +2325,7 @@ sub checkBinariesPresent
|
||||
|
||||
foreach my $file (@evms)
|
||||
{
|
||||
if ( !defined( findBinary($file) ) )
|
||||
if ( !defined( which($file) ) )
|
||||
{
|
||||
logprint("The following binary is required to run this tool\n");
|
||||
logprint("\t$file\n");
|
||||
@@ -2317,7 +2345,7 @@ sub checkBinariesPresent
|
||||
|
||||
foreach my $file (@lvm)
|
||||
{
|
||||
if ( !defined( findBinary($file) ) )
|
||||
if ( !defined( which($file) ) )
|
||||
{
|
||||
logprint("The following binary is required to run this tool\n");
|
||||
logprint("\t$file\n");
|
||||
@@ -2623,6 +2651,11 @@ sub showSummary
|
||||
logprint("Image type : $CONFIG{'image'}\n");
|
||||
logprint("Memory size : $CONFIG{'memory'}\n");
|
||||
|
||||
if ( defined( $CONFIG{ 'maxmem' } ) )
|
||||
{
|
||||
logprint("Max mem size : $CONFIG{'maxmem'}\n");
|
||||
}
|
||||
|
||||
if ( defined( $CONFIG{ 'kernel' } ) && length( $CONFIG{ 'kernel' } ) )
|
||||
{
|
||||
logprint("Kernel path : $CONFIG{'kernel'}\n");
|
||||
@@ -3291,7 +3324,7 @@ sub createFilesystem
|
||||
#
|
||||
my ($binary, $args) = split(/ /, $command, 2);
|
||||
|
||||
if ( !defined( findBinary($binary) ) )
|
||||
if ( !defined( which($binary) ) )
|
||||
{
|
||||
logprint(
|
||||
"The binary '$binary' required to create the filesystem $fs is missing\n"
|
||||
@@ -3516,15 +3549,6 @@ sub installSystem
|
||||
sub exportEnvironment
|
||||
{
|
||||
|
||||
#
|
||||
# Per-distribution mirror?
|
||||
#
|
||||
my $distMirror = "mirror_" . $CONFIG{ 'dist' };
|
||||
if ( $CONFIG{ $distMirror } && length( $CONFIG{ $distMirror } ) )
|
||||
{
|
||||
$CONFIG{ 'mirror' } = $CONFIG{ $distMirror };
|
||||
}
|
||||
|
||||
#
|
||||
# Export partitions array to configuration
|
||||
#
|
||||
@@ -3534,7 +3558,9 @@ sub exportEnvironment
|
||||
{
|
||||
if ( defined( $CONFIG{ $key } ) )
|
||||
{
|
||||
$ENV{ $key } = $CONFIG{ $key };
|
||||
my $envkey = $key;
|
||||
$envkey =~ s/-/_/g;
|
||||
$ENV{ $envkey } = $CONFIG{ $key };
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -3918,7 +3944,19 @@ sub setupRootPassword
|
||||
{
|
||||
if ( -x $MOUNT_POINT . "/usr/bin/passwd" )
|
||||
{
|
||||
runCommand("chroot $MOUNT_POINT /usr/bin/passwd", \%CONFIG);
|
||||
my $tryagain = 1;
|
||||
my $term = Term::ReadLine->new('Password change failed');
|
||||
while ($tryagain) {
|
||||
my $rc = system("chroot $MOUNT_POINT /usr/bin/passwd");
|
||||
if ($rc >> 8) {
|
||||
$tryagain = $term->ask_yn(
|
||||
prompt => 'Do you want to try to change the password again??',
|
||||
default => 'y',
|
||||
);
|
||||
} else {
|
||||
$tryagain=0;
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
@@ -4029,13 +4067,13 @@ sub generatePassword {
|
||||
|
||||
sub unMountImage
|
||||
{
|
||||
my ($point) = (@_);
|
||||
my ($point, $fail_ok) = (@_);
|
||||
|
||||
#
|
||||
# First we unmount /proc and /dev/pts in the guest install.
|
||||
#
|
||||
runCommand("umount $point/proc", \%CONFIG);
|
||||
#runCommand("umount $point/dev/pts", \%CONFIG);
|
||||
runCommand("umount $point/proc", \%CONFIG, $fail_ok);
|
||||
#runCommand("umount $point/dev/pts", \%CONFIG, $fail_ok);
|
||||
|
||||
#
|
||||
# Open /proc/mount and get a list of currently mounted paths
|
||||
@@ -4072,7 +4110,7 @@ sub unMountImage
|
||||
foreach my $path (@points)
|
||||
{
|
||||
$CONFIG{ 'verbose' } && print "Unmounting : $path\n";
|
||||
runCommand("umount $path", \%CONFIG);
|
||||
runCommand("umount $path", \%CONFIG, $fail_ok);
|
||||
}
|
||||
|
||||
$MOUNT_POINT = undef;
|
||||
@@ -4088,9 +4126,19 @@ sub unMountImage
|
||||
|
||||
=cut
|
||||
|
||||
sub END
|
||||
sub clean_up () {
|
||||
if ( defined($MOUNT_POINT) )
|
||||
{
|
||||
unMountImage($MOUNT_POINT, 1);
|
||||
}
|
||||
}
|
||||
|
||||
END
|
||||
{
|
||||
exit 0 if $VERSION || $HELP || $MANUAL || $DUMPCONFIG;
|
||||
# Capture exit code
|
||||
my $exitcode = $?;
|
||||
|
||||
exit $exitcode if $VERSION || $HELP || $MANUAL || $DUMPCONFIG;
|
||||
|
||||
my $host_rsa_key = '';
|
||||
#
|
||||
@@ -4108,7 +4156,7 @@ sub END
|
||||
} else {
|
||||
$host_rsa_key = "N/A";
|
||||
}
|
||||
unMountImage($MOUNT_POINT);
|
||||
unMountImage($MOUNT_POINT, $CONFIG{'FAIL'});
|
||||
}
|
||||
|
||||
#
|
||||
@@ -4117,14 +4165,6 @@ sub END
|
||||
#
|
||||
if ( $CONFIG{ 'boot' } and !$CONFIG{'FAIL'} )
|
||||
{
|
||||
|
||||
#
|
||||
# Unmount the image and any subsequent mounts.
|
||||
#
|
||||
if ( defined($MOUNT_POINT) ) {
|
||||
unMountImage($MOUNT_POINT);
|
||||
}
|
||||
|
||||
#
|
||||
# If there is an /etc/xen/auto directory then link in the
|
||||
# domain so that it will automatically restart, if it isn't
|
||||
@@ -4188,7 +4228,7 @@ sub END
|
||||
# $CONFIG{'FAIL'} = 0 - Success
|
||||
# $CONFIG{'FAIL'} = 1 - Failed to install, delete the image
|
||||
# $CONFIG{'FAIL'} = 2 - Files exist, either .cfg or lvm... etc
|
||||
if ( ($CONFIG{'FAIL'} == 1 or $CONFIG{'FAIL'} == 1) && ( !$CONFIG{ 'keep' } ) )
|
||||
if ( $CONFIG{'FAIL'} == 1 && ( !$CONFIG{ 'keep' } ) )
|
||||
{
|
||||
|
||||
#
|
||||
@@ -4222,7 +4262,8 @@ sub END
|
||||
logprint("---------------------\n");
|
||||
logprint("Hostname : $CONFIG{'hostname'}\n");
|
||||
logprint("Distribution : $CONFIG{'dist'}\n");
|
||||
logprint("IP-Address(es) : ");
|
||||
logprint("MAC Address : $CONFIG{'mac'}\n");
|
||||
logprint("IP Address(es) : ");
|
||||
if ( $CONFIG{ 'dhcp' } ) {
|
||||
logprint("dynamic");
|
||||
} elsif( $CONFIG{ 'ip' } ) {
|
||||
@@ -4238,4 +4279,6 @@ sub END
|
||||
}
|
||||
logprint("\n");
|
||||
}
|
||||
|
||||
exit $exitcode;
|
||||
}
|
||||
|
||||
@@ -1,5 +1,7 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
=encoding utf8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
xen-create-nfs - Create a Xen configuration file for an NFS-root guest.
|
||||
@@ -36,8 +38,6 @@ xen-create-nfs - Create a Xen configuration file for an NFS-root guest.
|
||||
--nfs_server Specify the NFS server to mount the root partition from.
|
||||
--nfs_root Specify the path, upon the NFS server, to mount.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
@@ -55,11 +55,8 @@ Read the manual for this script.
|
||||
=item B<--version>
|
||||
Show the version number and exit.
|
||||
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
@@ -71,8 +68,6 @@ Show the version number and exit.
|
||||
support more than the minimal number of options to completement the
|
||||
existing xen-create-image script, however it is hopefully useful.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 REFERENCE
|
||||
|
||||
@@ -81,16 +76,12 @@ Show the version number and exit.
|
||||
|
||||
http://www.debian-administration.org/articles/505
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
Steve Kemp, http://www.steve.org.uk/
|
||||
Stéphane Jourdois
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
@@ -102,7 +93,6 @@ you can redistribute it and/or modify it under
|
||||
the same terms as Perl itself.
|
||||
The LICENSE file contains the full text of the license.
|
||||
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
@@ -131,7 +121,7 @@ $CONFIG{ 'template' } = '/etc/xen-tools/xm-nfs.tmpl';
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.4~dev';
|
||||
my $RELEASE = '4.4rc1';
|
||||
|
||||
|
||||
# store version number away.
|
||||
|
||||
@@ -1,5 +1,7 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
=encoding utf8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
xen-delete-image - Delete previously created Xen instances.
|
||||
@@ -8,6 +10,10 @@ xen-delete-image - Delete previously created Xen instances.
|
||||
|
||||
xen-delete-image [options] [--hostname=]imageName1 [--hostname=]imageName2
|
||||
|
||||
Filename Options:
|
||||
--extension Specify the file extension to use. An empty extension is equal
|
||||
to any extension.
|
||||
|
||||
Help Options:
|
||||
--help Show help information.
|
||||
--manual Read the manual for this script.
|
||||
@@ -26,8 +32,6 @@ xen-delete-image - Delete previously created Xen instances.
|
||||
--test Don't complain if we're not invoked by root.
|
||||
--no-xen-ok Don't complain if xen seems not installed or xend is not running
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
@@ -52,16 +56,14 @@ Specify the LVM volume group where images were previously saved.
|
||||
Read the manual for this script.
|
||||
|
||||
=item B<--test>
|
||||
Do not complain, or exit, if the script is not executed by the root user.
|
||||
Do not complain, or exit, if the script is not executed by the root
|
||||
user. (Only works in conjunction with --dir.)
|
||||
|
||||
=item B<--version>
|
||||
Show the version number and exit.
|
||||
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
@@ -75,8 +77,6 @@ Show the version number and exit.
|
||||
but will fail to remove anything which the user does not have permission
|
||||
to delete.)
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 LOOPBACK EXAMPLE
|
||||
|
||||
@@ -92,8 +92,6 @@ Show the version number and exit.
|
||||
(The matching Xen configuration files beneath /etc/xen will also be
|
||||
removed.)
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 LVM EXAMPLE
|
||||
|
||||
@@ -110,8 +108,6 @@ Show the version number and exit.
|
||||
|
||||
The Xen configuration files will also be removed from beneath /etc/xen.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 EVMS EXAMPLE
|
||||
|
||||
@@ -128,8 +124,6 @@ Show the version number and exit.
|
||||
|
||||
The Xen configuration files will also be removed.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
@@ -137,12 +131,10 @@ Show the version number and exit.
|
||||
Axel Beckert, http://noone.org/abe/
|
||||
Stéphane Jourdois
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
Copyright (c) 2005-2009 by Steve Kemp, (c) 2010 by The Xen-Tools
|
||||
Copyright (c) 2005-2009 by Steve Kemp, (c) 2010-2013 by The Xen-Tools
|
||||
Development Team. All rights reserved.
|
||||
|
||||
This module is free software;
|
||||
@@ -150,7 +142,6 @@ you can redistribute it and/or modify it under
|
||||
the same terms as Perl itself.
|
||||
The LICENSE file contains the full text of the license.
|
||||
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
@@ -173,7 +164,7 @@ my %CONFIG;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.4~dev';
|
||||
my $RELEASE = '4.4rc1';
|
||||
|
||||
|
||||
#
|
||||
@@ -181,6 +172,11 @@ my $RELEASE = '4.4~dev';
|
||||
#
|
||||
$CONFIG{ 'xm' } = findXenToolstack();
|
||||
|
||||
#
|
||||
# Default values
|
||||
#
|
||||
$CONFIG{ 'extension' } = '.cfg';
|
||||
|
||||
|
||||
#
|
||||
# Read the global configuration file if it exists.
|
||||
@@ -223,27 +219,21 @@ E_O_ROOT
|
||||
|
||||
#
|
||||
# Loop over the supplied arguments, and attempt to delete each
|
||||
# image.
|
||||
# image. Check both, bare parameters as well as --hostname options.
|
||||
#
|
||||
while ( my $name = shift )
|
||||
{
|
||||
if ( $CONFIG{ 'no_xen_ok' } or !xenRunning($name, \%CONFIG) )
|
||||
{
|
||||
deleteXenImage($name);
|
||||
}
|
||||
else
|
||||
{
|
||||
print "Skipping xen guest '$name' - it appears to be running.\n";
|
||||
}
|
||||
|
||||
my @hosts = ();
|
||||
if (exists($CONFIG{ 'hostname' }) and defined($CONFIG{ 'hostname' })) {
|
||||
my $hostname_option = $CONFIG{ 'hostname' };
|
||||
@hosts = 'ARRAY' eq ref($hostname_option) ?
|
||||
@$hostname_option : $hostname_option;
|
||||
}
|
||||
|
||||
#
|
||||
# Also delete any which were specified using the --hostname flag
|
||||
#
|
||||
my $hosts = $CONFIG{ 'hostname' };
|
||||
foreach my $name (@$hosts)
|
||||
foreach my $name (@ARGV, @hosts)
|
||||
{
|
||||
if ( $CONFIG{ 'no_xen_ok' } or !xenRunning($name, \%CONFIG) )
|
||||
my %PER_HOST_CONFIG = %CONFIG;
|
||||
$PER_HOST_CONFIG{ 'hostname' } = $name;
|
||||
if ( $CONFIG{ 'no_xen_ok' } or !xenRunning($name, \%PER_HOST_CONFIG) )
|
||||
{
|
||||
deleteXenImage($name);
|
||||
}
|
||||
@@ -282,6 +272,7 @@ sub parseCommandLineArguments
|
||||
"dry-run", \$CONFIG{ 'dry-run' },
|
||||
"lvm=s", \$CONFIG{ 'lvm' },
|
||||
"evms=s", \$CONFIG{ 'evms' },
|
||||
"extension:s", \$CONFIG{ 'extension' },
|
||||
"hostname=s@", \$CONFIG{ 'hostname' },
|
||||
"test", \$CONFIG{ 'test' },
|
||||
"verbose", \$CONFIG{ 'verbose' },
|
||||
@@ -319,10 +310,10 @@ sub checkArguments
|
||||
#
|
||||
# When testing we only care about loopback images, not disk images.
|
||||
#
|
||||
if ( $CONFIG{ 'test' } )
|
||||
if ( $CONFIG{ 'test' } and ( $CONFIG{ 'lvm' } or $CONFIG{ 'evms' } ))
|
||||
{
|
||||
$CONFIG{ 'lvm' } = undef;
|
||||
$CONFIG{ 'evms' } = undef;
|
||||
print "Error: --test only works with --dir.\n";
|
||||
exit 1;
|
||||
}
|
||||
|
||||
#
|
||||
@@ -344,7 +335,7 @@ sub checkArguments
|
||||
print " --dir\n";
|
||||
print " --evms\n";
|
||||
print " --lvm\n";
|
||||
exit;
|
||||
exit 2;
|
||||
}
|
||||
}
|
||||
|
||||
@@ -371,17 +362,17 @@ sub deleteXenImage
|
||||
#
|
||||
# Delete the Xen auto-start file if it exists.
|
||||
#
|
||||
if ( -e "/etc/xen/auto/$hostname.cfg" )
|
||||
if ( -e "/etc/xen/auto/$hostname".$CONFIG{ 'extension' } )
|
||||
{
|
||||
push( @delete, "/etc/xen/auto/$hostname.cfg" );
|
||||
push( @delete, "/etc/xen/auto/$hostname".$CONFIG{ 'extension' } );
|
||||
}
|
||||
|
||||
#
|
||||
# Delete the Xen configuration file if it exists.
|
||||
#
|
||||
if ( -e "/etc/xen/$hostname.cfg" )
|
||||
if ( -e "/etc/xen/$hostname".$CONFIG{ 'extension' } )
|
||||
{
|
||||
push( @delete, "/etc/xen/$hostname.cfg" );
|
||||
push( @delete, "/etc/xen/$hostname".$CONFIG{ 'extension' } );
|
||||
}
|
||||
|
||||
#
|
||||
@@ -404,7 +395,8 @@ sub deleteXenImage
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
my %PER_HOST_CONFIG = %CONFIG;
|
||||
$PER_HOST_CONFIG{ 'hostname' } = $hostname;
|
||||
if ( defined( $CONFIG{ 'dir' } ) )
|
||||
{
|
||||
my $prefix = $CONFIG{ 'dir' } . "/domains/";
|
||||
@@ -438,7 +430,7 @@ sub deleteXenImage
|
||||
print "Would remove LVM swap volume /dev/$CONFIG{'lvm'}/$hostname-swap\n";
|
||||
} else {
|
||||
print "Removing swap volume\n";
|
||||
runCommand("lvremove /dev/$CONFIG{'lvm'}/$hostname-swap --force", \%CONFIG);
|
||||
runCommand("lvremove /dev/$CONFIG{'lvm'}/$hostname-swap --force", \%PER_HOST_CONFIG);
|
||||
}
|
||||
}
|
||||
|
||||
@@ -448,7 +440,7 @@ sub deleteXenImage
|
||||
print "Would remove LVM disk volume /dev/$CONFIG{'lvm'}/$hostname-disk\n";
|
||||
} else {
|
||||
print "Removing LVM disk volume\n";
|
||||
runCommand("lvremove /dev/$CONFIG{'lvm'}/$hostname-disk --force", \%CONFIG);
|
||||
runCommand("lvremove /dev/$CONFIG{'lvm'}/$hostname-disk --force", \%PER_HOST_CONFIG);
|
||||
}
|
||||
}
|
||||
|
||||
@@ -470,8 +462,8 @@ sub deleteXenImage
|
||||
print "Would remove EVMS swap volume: $CONFIG{'evms'}/$hostname-swap\n";
|
||||
} else {
|
||||
print "Removing EVMS swap volume\n";
|
||||
runCommand("echo Delete : /dev/evms/$hostname-swap | evms", \%CONFIG);
|
||||
runCommand("echo Delete : $CONFIG{'evms'}/$hostname-swap | evms", \%CONFIG);
|
||||
runCommand("echo Delete : /dev/evms/$hostname-swap | evms", \%PER_HOST_CONFIG);
|
||||
runCommand("echo Delete : $CONFIG{'evms'}/$hostname-swap | evms", \%PER_HOST_CONFIG);
|
||||
}
|
||||
}
|
||||
|
||||
@@ -482,8 +474,8 @@ sub deleteXenImage
|
||||
print "Would remove EVMS disk volume: $CONFIG{'evms'}/$hostname-swap\n";
|
||||
} else {
|
||||
print "Removing EVMS disk volume\n";
|
||||
runCommand("echo Delete : /dev/evms/$hostname-disk | evms", \%CONFIG);
|
||||
runCommand("echo Delete : $CONFIG{'evms'}/$hostname-disk | evms", \%CONFIG);
|
||||
runCommand("echo Delete : /dev/evms/$hostname-disk | evms", \%PER_HOST_CONFIG);
|
||||
runCommand("echo Delete : $CONFIG{'evms'}/$hostname-disk | evms", \%PER_HOST_CONFIG);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@@ -1,5 +1,7 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
=encoding utf8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
xen-list-images - List all the created and configured Xen images.
|
||||
@@ -8,6 +10,10 @@ xen-list-images - List all the created and configured Xen images.
|
||||
|
||||
xen-list-image [options]
|
||||
|
||||
Filename Options:
|
||||
--extension Specify the file extension to use. An empty extension is equal
|
||||
to any extension.
|
||||
|
||||
Help Options:
|
||||
--help Show this scripts help information.
|
||||
--manual Read this scripts manual.
|
||||
@@ -16,6 +22,7 @@ xen-list-images - List all the created and configured Xen images.
|
||||
Testing options:
|
||||
--test Specify an alternate Xen configuration directory.
|
||||
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
=over 8
|
||||
@@ -48,26 +55,22 @@ Show the version number and exit.
|
||||
and then either the IP address configured, or "DHCP" to denote
|
||||
a dynamic host.
|
||||
|
||||
=cut
|
||||
|
||||
=head1 TODO
|
||||
|
||||
It should be possible to determine the disk(s) used by the images,
|
||||
and then display their sizes.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
Steve Kemp, http://www.steve.org.uk/
|
||||
Stéphane Jourdois
|
||||
|
||||
=cut
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
Copyright (c) 2005-2009 by Steve Kemp, (c) 2010 by The Xen-Tools
|
||||
Copyright (c) 2005-2009 by Steve Kemp, (c) 2010-2013 by The Xen-Tools
|
||||
Development Team. All rights reserved.
|
||||
|
||||
This module is free software;
|
||||
@@ -95,14 +98,15 @@ use Xen::Tools::Common;
|
||||
my %CONFIG;
|
||||
|
||||
#
|
||||
# Default prefix
|
||||
# Default values
|
||||
#
|
||||
$CONFIG{ 'prefix' } = "/etc/xen";
|
||||
$CONFIG{ 'extension' } = '.cfg';
|
||||
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.4~dev';
|
||||
my $RELEASE = '4.4rc1';
|
||||
|
||||
|
||||
|
||||
@@ -162,6 +166,7 @@ sub parseCommandLineArguments
|
||||
# Parse options.
|
||||
#
|
||||
GetOptions( "test=s", \$CONFIG{ 'prefix' },
|
||||
"extension:s", \$CONFIG{ 'extension' },
|
||||
"help", \$HELP,
|
||||
"manual", \$MANUAL,
|
||||
"version", \$VERSION );
|
||||
@@ -192,9 +197,12 @@ sub findXenInstances
|
||||
{
|
||||
my @found;
|
||||
|
||||
foreach my $file ( sort( glob( $CONFIG{ 'prefix' } . "/*.cfg" ) ) )
|
||||
foreach my $file ( sort( glob( $CONFIG{ 'prefix' } . "/*" . $CONFIG{ 'extension' } ) ) )
|
||||
{
|
||||
push @found, $file if ( -e $file );
|
||||
push @found, $file if (
|
||||
-f $file and
|
||||
$file !~ m(~$|\.dpkg-[a-z]+$|\.sxp$|/xl\.conf$)
|
||||
);
|
||||
}
|
||||
|
||||
return (@found);
|
||||
@@ -241,7 +249,7 @@ sub displayInstance
|
||||
{
|
||||
$name = $1;
|
||||
}
|
||||
if ( $line =~ /.*memory[^0-9]*([0-9]+)/i )
|
||||
if ( $line =~ /^\s*memory[^0-9]*([0-9]+)/i )
|
||||
{
|
||||
$mem = $1;
|
||||
}
|
||||
@@ -256,9 +264,10 @@ sub displayInstance
|
||||
}
|
||||
|
||||
print "Name: $name\n";
|
||||
print "Memory: $mem\n";
|
||||
print "Memory: $mem MB\n";
|
||||
print "IP: " . $ip . $mac . "\n" if length($ip);
|
||||
print "DHCP" . $mac . "\n" if $dhcp;
|
||||
print "Config: $file\n";
|
||||
}
|
||||
|
||||
|
||||
|
||||
@@ -1,5 +1,7 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
=encoding utf8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
xen-resize-guest - Resize a loopback or LVM based xen guest.
|
||||
@@ -20,8 +22,6 @@ xen-resize-guest - Resize a loopback or LVM based xen guest.
|
||||
--force Force the resize to happen without a last-chance delay.
|
||||
--hostname Specify the hostname of the guest to resize.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
@@ -53,8 +53,6 @@ Show the version number and exit.
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
@@ -74,15 +72,12 @@ Show the version number and exit.
|
||||
More than once I've heard of users making mistakes and breaking their
|
||||
filesystems; hence this tool.
|
||||
|
||||
=cut
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
Steve Kemp, http://www.steve.org.uk/
|
||||
Axel Beckert, http://noone.org/abe/
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
@@ -94,7 +89,6 @@ you can redistribute it and/or modify it under
|
||||
the same terms as Perl itself.
|
||||
The LICENSE file contains the full text of the license.
|
||||
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
@@ -117,7 +111,7 @@ my %CONFIG;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.4~dev';
|
||||
my $RELEASE = '4.4rc1';
|
||||
|
||||
|
||||
#
|
||||
|
||||
@@ -1,5 +1,7 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
=encoding utf8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
xen-update-image - Update the software installed upon offline Xen images.
|
||||
@@ -18,9 +20,6 @@ xen-update-image - Update the software installed upon offline Xen images.
|
||||
--lvm Specify the LVM volume group which contains the image(s).
|
||||
--evms Specify the EVMS container which contains the image(s).
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
@@ -46,8 +45,6 @@ Show the version number and exit.
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
@@ -65,8 +62,6 @@ Show the version number and exit.
|
||||
corruption otherwise it will allow you to update your image without
|
||||
booting it.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 EXAMPLES
|
||||
|
||||
@@ -77,8 +72,6 @@ Show the version number and exit.
|
||||
|
||||
xen-update-images --dir=/home/xen test.my.flat x11.my.flat
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
@@ -86,7 +79,6 @@ Show the version number and exit.
|
||||
Axel Beckert, http://noone.org/abe/
|
||||
Stéphane Jourdois
|
||||
|
||||
=cut
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
@@ -121,7 +113,7 @@ my %CONFIG;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.4~dev';
|
||||
my $RELEASE = '4.4rc1';
|
||||
|
||||
|
||||
#
|
||||
|
||||
@@ -1,11 +1,11 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
=encoding utf8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
xt-create-config - Create a Xen configuration file for a new guest
|
||||
|
||||
=cut
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
xt-create-config [options]
|
||||
@@ -39,7 +39,6 @@ xt-create-config - Create a Xen configuration file for a new guest
|
||||
All other options from xen-create-image, such as the new IP address(es)
|
||||
to give to the new instance, will be passed as environmental variables.
|
||||
|
||||
=cut
|
||||
|
||||
=head1 ABOUT
|
||||
|
||||
@@ -53,8 +52,6 @@ xt-create-config - Create a Xen configuration file for a new guest
|
||||
|
||||
By default the script will use /etc/xen-tools/xm.tmpl as its input.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 INVOCATION
|
||||
|
||||
@@ -75,9 +72,6 @@ xt-create-config - Create a Xen configuration file for a new guest
|
||||
=for example end
|
||||
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 ARGUMENT PASSING
|
||||
|
||||
This script will be invoked with a full copy of the arguments from
|
||||
@@ -102,7 +96,6 @@ xt-create-config - Create a Xen configuration file for a new guest
|
||||
for the "Text::Template" perl module. (If you have the perldoc
|
||||
package installed you can read this with "perldoc Text::Template".)
|
||||
|
||||
=cut
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
@@ -110,7 +103,6 @@ xt-create-config - Create a Xen configuration file for a new guest
|
||||
Axel Beckert, http://noone.org/abe/
|
||||
Stéphane Jourdois
|
||||
|
||||
=cut
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
@@ -156,7 +148,7 @@ $CONFIG{ 'extension' } = '.cfg';
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.4~dev';
|
||||
my $RELEASE = '4.4rc1';
|
||||
|
||||
|
||||
|
||||
@@ -215,7 +207,7 @@ sub parseCommandLineArguments
|
||||
#
|
||||
GetOptions( "admins=s", \$ENV{ 'admins' },
|
||||
"output=s", \$CONFIG{ 'output' },
|
||||
"extension=s", \$CONFIG{ 'extension' },
|
||||
"extension:s", \$CONFIG{ 'extension' },
|
||||
"template=s", \$CONFIG{ 'template' },
|
||||
"verbose", \$CONFIG{ 'verbose' },
|
||||
"help", \$HELP,
|
||||
@@ -377,11 +369,23 @@ sub createXenConfig
|
||||
#
|
||||
# Remove any trailing Mb.
|
||||
#
|
||||
if ( $ENV{ 'memory' } =~ /^(\d+)Mb?.*$/i )
|
||||
{
|
||||
$ENV{ 'memory' } = $1;
|
||||
}
|
||||
$ENV{ 'memory' } =~ s/^(\d+)Mb?.*$/$1/i;
|
||||
|
||||
#
|
||||
# The maxmem size: Convert Gb -> Mb.
|
||||
#
|
||||
if ( exists($ENV{ 'maxmem' }) and defined($ENV{ 'maxmem' })) {
|
||||
|
||||
if ($ENV{ 'maxmem' } =~ /^(\d+)Gb?.*$/i )
|
||||
{
|
||||
$ENV{ 'maxmem' } = $1 * 1024;
|
||||
}
|
||||
|
||||
#
|
||||
# Remove any trailing Mb.
|
||||
#
|
||||
$ENV{ 'maxmem' } =~ s/^(\d+)Mb?.*$/$1/i;
|
||||
}
|
||||
|
||||
#
|
||||
# Images as presented to Xen - either loopback images, or LVM partitions.
|
||||
@@ -398,13 +402,13 @@ sub createXenConfig
|
||||
$ENV{ 'image_suffix' } = '';
|
||||
importPartitionsFromEnvironment();
|
||||
}
|
||||
elsif ( $ENV{ 'image-dev' } )
|
||||
elsif ( $ENV{ 'image_dev' } )
|
||||
{
|
||||
$ENV{ 'image_vbd' } = "phy:$ENV{'image-dev'}";
|
||||
$ENV{ 'image_vbd' } = "phy:$ENV{'image_dev'}";
|
||||
|
||||
if ( $ENV{ 'swap-dev' } )
|
||||
if ( $ENV{ 'swap_dev' } )
|
||||
{
|
||||
$ENV{ 'swap_vbd' } = "phy:$ENV{'swap-dev'}";
|
||||
$ENV{ 'swap_vbd' } = "phy:$ENV{'swap_dev'}";
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@@ -1,11 +1,11 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
=encoding utf8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
xt-customize-image - Customize a freshly installed copy of GNU/Linux
|
||||
|
||||
=cut
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
xt-customize-image [options]
|
||||
@@ -25,7 +25,6 @@ xt-customize-image - Customize a freshly installed copy of GNU/Linux
|
||||
All other options from xen-create-image, such as the new IP address(es)
|
||||
to give to the new instance, will be passed as environmental variables.
|
||||
|
||||
=cut
|
||||
|
||||
=head1 NOTES
|
||||
|
||||
@@ -41,8 +40,6 @@ xt-customize-image - Customize a freshly installed copy of GNU/Linux
|
||||
--location - The temporary installation root of the new install
|
||||
--dist - The distribution which has been installed.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 HOOK SCRIPTS
|
||||
|
||||
@@ -54,11 +51,9 @@ xt-customize-image - Customize a freshly installed copy of GNU/Linux
|
||||
the --location option.
|
||||
|
||||
For the distribution named 'foo' the scripts will be loaded and
|
||||
executed from '/usr/lib/xen-tools/foo.d'. Each executable will
|
||||
executed from '/usr/share/xen-tools/foo.d'. Each executable will
|
||||
be loaded and executed in sorted order.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
@@ -66,8 +61,6 @@ xt-customize-image - Customize a freshly installed copy of GNU/Linux
|
||||
Axel Beckert, http://noone.org/abe/
|
||||
Stéphane Jourdois
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
@@ -98,7 +91,7 @@ my %CONFIG;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.4~dev';
|
||||
my $RELEASE = '4.4rc1';
|
||||
|
||||
|
||||
|
||||
@@ -215,7 +208,7 @@ sub checkArguments
|
||||
# If there are no scripts then we clearly cannot
|
||||
# customise it!
|
||||
#
|
||||
my $dir = "/usr/lib/xen-tools/" . $CONFIG{ 'dist' } . ".d";
|
||||
my $dir = "/usr/share/xen-tools/" . $CONFIG{ 'dist' } . ".d";
|
||||
|
||||
if ( !-d $dir )
|
||||
{
|
||||
@@ -257,7 +250,7 @@ sub runDistributionHooks
|
||||
#
|
||||
# Hook directory.
|
||||
#
|
||||
my $hooks = "/usr/lib/xen-tools/" . $CONFIG{ 'dist' } . ".d/";
|
||||
my $hooks = "/usr/share/xen-tools/" . $CONFIG{ 'dist' } . ".d/";
|
||||
|
||||
#
|
||||
# Installation prefix
|
||||
|
||||
@@ -1,12 +1,12 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
=encoding utf8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
xt-guess-suite-and-mirror - Tries to guess the most suitable suite and
|
||||
mirror for DomUs on Debian and Ubuntu Dom0s.
|
||||
|
||||
=cut
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
--suite Show suite
|
||||
@@ -20,7 +20,6 @@ mirror for DomUs on Debian and Ubuntu Dom0s.
|
||||
--manual Show the manual for this script.
|
||||
--version Show the version number and exit.
|
||||
|
||||
=cut
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
@@ -28,14 +27,12 @@ xt-guess-suite-and-mirror tries to find the mirror and suite the Xen
|
||||
Dom0 is currently using and returns them in a way suitable for
|
||||
xen-create-image(1) or the backticks feature in xen-tools.conf.
|
||||
|
||||
=cut
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
Axel Beckert, http://noone.org/abe/
|
||||
Stéphane Jourdois
|
||||
|
||||
=cut
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
@@ -55,9 +52,9 @@ full text of the license.
|
||||
# Fallback to Debian or Ubuntu in case we can't find anything
|
||||
my $fallback = 'Debian';
|
||||
|
||||
# Which mirrors to use if everything else fails (cdn.debian.net uses
|
||||
# GeoIP, see http://wiki.debian.org/DebianGeoMirror)
|
||||
my %fallback_mirror = ( Debian => 'http://cdn.debian.net/debian/',
|
||||
# Which mirrors to use if everything else fails (http.debian.net
|
||||
# redirects to a working mirror nearby)
|
||||
my %fallback_mirror = ( Debian => 'http://http.debian.net/debian/',
|
||||
Ubuntu => 'http://archive.ubuntu.com/ubuntu/' );
|
||||
|
||||
# Which suite to use if everything else fails. For Debian "stable"
|
||||
@@ -74,6 +71,7 @@ my @sources_list_files = ( '/etc/apt/sources.list',
|
||||
use File::Slurp;
|
||||
use Getopt::Long;
|
||||
use Pod::Usage;
|
||||
use File::Which;
|
||||
|
||||
use strict;
|
||||
|
||||
@@ -81,7 +79,7 @@ use strict;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.4~dev';
|
||||
my $RELEASE = '4.4rc1';
|
||||
|
||||
# Init
|
||||
my $mirror = '';
|
||||
@@ -153,10 +151,8 @@ all_sources_list_files: foreach my $sources_list_file (@sources_list_files) {
|
||||
die "Couldn't find a useful entry in the sources.list files of the Dom0. Tried:\n ".
|
||||
join("\n ", @sources_list_files)."\n" unless $found;
|
||||
|
||||
my $lsb_release = `which lsb_release`;
|
||||
chomp($lsb_release);
|
||||
|
||||
if (!$found and $lsb_release and -x $lsb_release) {
|
||||
my $lsb_release = which('lsb_release');
|
||||
if (!$found and defined($lsb_release) and -x $lsb_release) {
|
||||
my $vendor = `$lsb_release -s -i`;
|
||||
|
||||
if ($vendor eq 'Debian' or $vendor eq 'Ubuntu') {
|
||||
|
||||
@@ -1,11 +1,11 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
=encoding utf8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
xt-install-image - Install a fresh copy of GNU/Linux into a directory
|
||||
|
||||
=cut
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
xt-install-image [options]
|
||||
@@ -39,8 +39,6 @@ xt-install-image - Install a fresh copy of GNU/Linux into a directory
|
||||
All other options from xen-create-image will be passed as environmental
|
||||
variables.
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 NOTES
|
||||
|
||||
@@ -50,8 +48,6 @@ xt-install-image - Install a fresh copy of GNU/Linux into a directory
|
||||
configuration, etc.
|
||||
|
||||
|
||||
=cut
|
||||
|
||||
=head1 INSTALLATION METHODS
|
||||
|
||||
There are several available methods of installation, depending upon the
|
||||
@@ -78,8 +74,6 @@ Untar a .tar file into the new installation location. This tarfile is assumed t
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
@@ -88,7 +82,6 @@ Untar a .tar file into the new installation location. This tarfile is assumed t
|
||||
Dmitry Nedospasov, http://nedos.net/
|
||||
Stéphane Jourdois
|
||||
|
||||
=cut
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
@@ -119,7 +112,7 @@ my %CONFIG;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.4~dev';
|
||||
my $RELEASE = '4.4rc1';
|
||||
|
||||
|
||||
#
|
||||
@@ -133,13 +126,19 @@ my $RELEASE = '4.4~dev';
|
||||
# needDirectory Defined if we need an install-source directory specified.
|
||||
#
|
||||
#
|
||||
my $debootstrap_cmd;
|
||||
my %dispatch = (
|
||||
"copy" => { sub => \&do_copy,
|
||||
needBinary => "/bin/cp",
|
||||
needDirectory => 1,
|
||||
},
|
||||
"debootstrap" => { sub => \&do_debootstrap,
|
||||
needBinary => "/usr/sbin/debootstrap",
|
||||
needBinary => ["/usr/sbin/debootstrap", "/usr/bin/cdebootstrap", "/usr/bin/cdebootstrap-static"],
|
||||
var => \$debootstrap_cmd,
|
||||
},
|
||||
"cdebootstrap" => { sub => \&do_debootstrap,
|
||||
needBinary => ["/usr/sbin/cdebootstrap", "/usr/bin/cdebootstrap-static"],
|
||||
var => \$debootstrap_cmd,
|
||||
},
|
||||
"rinse" => { sub => \&do_rinse,
|
||||
needBinary => "/usr/sbin/rinse",
|
||||
@@ -210,13 +209,35 @@ if ( defined( $CONFIG{ 'install-method' } ) &&
|
||||
#
|
||||
|
||||
# Do we need to test for a binary.
|
||||
if ( ( $installer->{ 'needBinary' } ) &&
|
||||
( !-x $installer->{ 'needBinary' } ) )
|
||||
{
|
||||
print
|
||||
"The following required binary for the installation was not found\n";
|
||||
print "\t" . $installer->{ 'needBinary' } . "\n";
|
||||
exit 1;
|
||||
if ( $installer->{ 'needBinary' } ) {
|
||||
if ( 'ARRAY' eq ref $installer->{ 'needBinary' } ) {
|
||||
unless (ref $installer->{ 'var' }) {
|
||||
die "Assertion: If dispatch->->needBinary is an array ref, dispatch->->var must exist";
|
||||
}
|
||||
|
||||
foreach my $binary (@{$installer->{ 'needBinary' }}) {
|
||||
if (-x $binary) {
|
||||
${$installer->{ 'var' }} = $binary;
|
||||
last;
|
||||
}
|
||||
}
|
||||
|
||||
unless ( ${$installer->{ 'var' }} ) {
|
||||
print
|
||||
"One of the following binaries are required for the installation, but none was found\n";
|
||||
print "\t" . join(', ', @{$installer->{ 'needBinary' }}) . "\n";
|
||||
exit 1;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
if ( !-x $installer->{ 'needBinary' } ) {
|
||||
print
|
||||
"The following required binary for the installation was not found\n";
|
||||
print "\t" . $installer->{ 'needBinary' } . "\n";
|
||||
exit 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# Do we need a directory specified as the installation source?
|
||||
@@ -387,7 +408,7 @@ sub checkArguments
|
||||
# If there are no scripts then we clearly cannot
|
||||
# customise it!
|
||||
#
|
||||
my $dir = "/usr/lib/xen-tools/" . $CONFIG{ 'dist' } . ".d";
|
||||
my $dir = "/usr/share/xen-tools/" . $CONFIG{ 'dist' } . ".d";
|
||||
|
||||
if ( !-d $dir )
|
||||
{
|
||||
@@ -572,21 +593,9 @@ sub do_debootstrap
|
||||
# The command is a little configurable - mostly to allow you
|
||||
# to use cdebootstrap.
|
||||
#
|
||||
my $cmd = $CONFIG{ 'debootstrap-cmd' };
|
||||
my $cmd = $CONFIG{ 'debootstrap-cmd' } || $debootstrap_cmd;
|
||||
print "Using $cmd as debootstrap command\n";
|
||||
my $cachedir = $CONFIG{ 'cachedir' };
|
||||
if ( !$cmd )
|
||||
{
|
||||
if (-x '/usr/sbin/debootstrap') {
|
||||
$cmd = '/usr/sbin/debootstrap';
|
||||
} elsif (-x '/usr/sbin/cdebootstrap') {
|
||||
$cmd = '/usr/sbin/cdebootstrap';
|
||||
} else {
|
||||
print STDERR "Found neither debootstrap nor cdebootstrap and no --debootstrap-cmd given\n";
|
||||
exit 1;
|
||||
}
|
||||
print "Using $cmd as debootstrap command\n";
|
||||
}
|
||||
|
||||
|
||||
#
|
||||
# Cache from host -> new installation if we've got caching
|
||||
|
||||
15
debian/NEWS
vendored
15
debian/NEWS
vendored
@@ -1,3 +1,18 @@
|
||||
xen-tools (4.4~beta1-1) unstable; urgency=low
|
||||
|
||||
* Exported environment variables no more contain dashes ("-"). Dashes in
|
||||
environment variable names are from now on converted to underscores
|
||||
("_") before being exported. May affect some hook or role scripts.
|
||||
|
||||
* /usr/lib/xen-tools/ has been moved to /usr/share/xen-tools/ to
|
||||
properly adhere to FHS. In case you had local scripts added to
|
||||
/usr/lib/xen-tools/, please move them to /usr/share/xen-tools/, too
|
||||
and then remove /usr/lib/xen-tools/ and its left-over subdirectories
|
||||
which all should be empty at that point, i.e. "rmdir -p
|
||||
/usr/lib/xen-tools/*" should do the trick.
|
||||
|
||||
-- Axel Beckert <abe@debian.org> Fri, 23 Aug 2013 19:01:16 +0200
|
||||
|
||||
xen-tools (4.2~rc1-1) unstable; urgency=low
|
||||
|
||||
By default, xen-create-image now generates a random root password and
|
||||
|
||||
113
debian/changelog
vendored
113
debian/changelog
vendored
@@ -1,25 +1,126 @@
|
||||
xen-tools (4.4~dev-1) UNRELEASED; urgency=low
|
||||
xen-tools (4.4~rc1-1) unstable; urgency=low
|
||||
|
||||
* New upstream release
|
||||
* New upstream release candidate
|
||||
- Also switch from cdn.debian.net to http.debian.net in xen-tools.conf
|
||||
- Do not run "passwd" via runCommand as that one captures STDOUT for
|
||||
logging. Makes --passwd usable again. Thanks to Christian Herzog for
|
||||
the bug report.
|
||||
- Loop around calling "passwd" to get a second chance to change the
|
||||
password. (Closes: #703159) Thanks to Joan <aseques@gmail.com> for a
|
||||
bug fix in this new code.
|
||||
+ Add dependency on "libterm-ui-perl | perl (<< 5.17.0)"
|
||||
- Declares one more POD encoding and recode Xen::Tools::Common to
|
||||
UTF-8. Fixes FTBFS with Perl 5.18. (Finally closes: #720519)
|
||||
- Apply patch by Philipp Erbelding to fix overzealous line matching in
|
||||
xen-list-images. (Gitorious merge request #5)
|
||||
- xen-list-images now displays a unit after the memory size
|
||||
- Drop support for memory size in kilobytes in xen-create-image,
|
||||
neither xt-create-xen-config nor xm support it.
|
||||
- Refactoring: Replace all occurrences of "! -z" by "-n" in hooks and
|
||||
bash completion.
|
||||
- Handle potentially empty gateway setting properly in
|
||||
hooks/common/40-setup-networking-deb. Thanks Simone Caruso!
|
||||
- Reformat hooks/common/40-setup-networking-deb so that the result
|
||||
neither has trailing whitespace nor broken indentation.
|
||||
- Also display MAC address after the DomU has been created.
|
||||
- Preliminary support for Ubuntu 14.04 Trusty Tahr.
|
||||
- Added --maxmem flag to set a maximum value for dynamic memory
|
||||
ballooning. Thanks to Joan <aseques@gmail.com> for the patch!
|
||||
- Added fix by Patryk Ściborek againsat disableStartStopDaemon()
|
||||
aborting under some circumstances. (Closes: #725192)
|
||||
- Abort early and with proper error message if "xen-delete-image
|
||||
--test" is not used with "--dir". (Closes: #704878)
|
||||
- xen-delete-image: Exit with return code != 0 in all error cases.
|
||||
- Refactoring: xt-create-xen-config: Use s/// to strip trailing MB
|
||||
size suffixes.
|
||||
* Bump Standards-Version to 3.9.5 (no changes).
|
||||
|
||||
-- Axel Beckert <abe@debian.org> Mon, 28 Oct 2013 22:31:03 +0100
|
||||
|
||||
xen-tools (4.4~beta1-1) unstable; urgency=low
|
||||
|
||||
* New upstream beta release
|
||||
- Code deduplication to unify the xen-*-image scripts
|
||||
- Moves /usr/lib/xen-tools/ to /usr/share/xen-tools/
|
||||
- Use http.debian.net as default Debian mirror if no mirror is given
|
||||
and xt-guess-suite-and-mirror is not used.
|
||||
- Fix symbolic link hooks/centos-6/15-setup-arch (Closes: #690299)
|
||||
- Execute END block not on --version/--help/--manual (Closes: #684346)
|
||||
- Move code for --boot feature to END block. Fixes missing SSH
|
||||
fingerprint display if --boot was used. (Closes: #679183)
|
||||
- Correctly handle aborts in END block. (Closes: #704882)
|
||||
- Use local parameter instead of global variable in unMountImage.
|
||||
- Also recognize "M" and "G" instead of "MB" and "GB" as size unit for
|
||||
--memory. (Closes: #691320) Document the recognized units.
|
||||
- Default DomUs to use the noop scheduler (Closes: #693131)
|
||||
- Overwork TLS disabling on Debian and Ubuntu
|
||||
- xen-list-images now also outputs the file name of the config file.
|
||||
- xen-list-images and xen-delete-image now understand --extension.
|
||||
- Fixes "--extension=" with empty parameter.
|
||||
- Sarge amd64 case handle properly
|
||||
- Remove CVS revisions from --version output
|
||||
- Preliminary support for Debian Jessie and Ubuntu Raring
|
||||
- Support for Debian Jessie, Ubuntu Raring and preliminary support for
|
||||
Ubuntu Saucy (debootstrap doesn't have support for Saucy at the time
|
||||
of writing)
|
||||
- Preliminary support for xl toolstack
|
||||
- xen-create-image: Consistently use runCommand() instead of system()
|
||||
- xt-install-image: Don't bail out if only cdebootstrap is installed
|
||||
but not debootstrap (Thanks Elmar Heeb!)
|
||||
- Makefile accepts DESTDIR=…
|
||||
- Move examples from debian/examples to examples.
|
||||
- Uses File::Which exclusively (no more findBinary, no more `which`),
|
||||
added (build-) dependency on libfile-which-perl
|
||||
- Knows about module-init-tools → kmod transition in wheezy/raring.
|
||||
- Adds default mount options for ext4, identical to ext2/ext3.
|
||||
- Ships /etc/initramfs-tools/conf.d/xen-tools for generating Dom0
|
||||
initrds also suitable for DomU usage. Trigger update-initramfs.
|
||||
- By default install linux-image-virtual instead of linux-image-server
|
||||
on Ubuntu Intrepid and newer (Hopefully closes: #640099, LP #839492)
|
||||
- Installs a legacy grub in all pygrub based Debian/Ubuntu DomUs to be
|
||||
able to update the menu.list automatically.
|
||||
- hooks/common.sh: installDebianPackage no more installs recommends.
|
||||
- hooks/common.sh: Rename installCentOS4Package to installRPMPackage.
|
||||
Add installCentOS4Package wrapper for backward compatibility.
|
||||
- Fix filesystem tools installation in 91-install-fs-tools (which was
|
||||
broken since 4.3~rc1-1) by merging 91-install-fs-tools back into
|
||||
90-make-fstab. (Closes: #715340) Also supports RPM-based
|
||||
distributions now.
|
||||
- Fixes export of environment variables. Previously they could contain
|
||||
dashes and then were only accessible from within Perl, but not from
|
||||
within Bash.
|
||||
- Fixes creation of "ARRAY(0x…).log" named log files.
|
||||
- Makes some options (like --pygrub) negatable.
|
||||
- Uses Test::NoTabs; add according build-dependency.
|
||||
- Removes unused Perl modules Xen::Tools and Xen::Tools::Log from
|
||||
source code. Also removes the according tests from the test suite.
|
||||
→ Remove no more needed build-dependency on Moose.
|
||||
- Better documents and checks requirements for the --apt_proxy
|
||||
value. (See #623443 for the corresponding apt issue.) Add (build-)
|
||||
dependency on libdata-validate-uri-perl.
|
||||
- Use Data::Validate::{Domain,IP} for IP addresses and hostname checks.
|
||||
Add corresponding (build-) dependencies on
|
||||
libdata-validate-{domain,ip}-perl.
|
||||
- Fixes broken quoting in list of required binaries
|
||||
- Declares POD encoding. Fixes FTBFS with Perl 5.18. (Closes: #720519)
|
||||
* Add debian/gbp.conf to be able to to build xen-tools with
|
||||
git-buildpackage.
|
||||
* Install (manually generated) upstream ChangeLog only if it
|
||||
exists. Allows automatic builds from the git repository.
|
||||
* Clean up debian/rules:
|
||||
- Don't mention (generated) upstream changelog explicitly,
|
||||
dh_installchangelogs finds it by itself if it exist. That way
|
||||
building out of a freshly clone git repository does not fail due to
|
||||
a missing upstream changelog.
|
||||
- Use dh_auto_{install,clean}; use "$(MAKE)" instead of "make" where
|
||||
dh_auto_* can't help. No more explicitly call "make manpages", it's
|
||||
a depedency of "make install" in the next line anyway.
|
||||
- Finally switch to a minimal dh style debian/rules.
|
||||
* Bump debhelper compatibility to 9
|
||||
- Update versioned debhelper build-dependency
|
||||
* Bump Standards-Version to 3.9.4 (no changes)
|
||||
* Add dependency on ${perl:Depends} to fix dpkg-gencontrol warning.
|
||||
* Bump copyright years in debian/copyright.
|
||||
* Apply wrap-and-sort.
|
||||
|
||||
-- Axel Beckert <abe@debian.org> Tue, 13 Nov 2012 23:37:54 +0100
|
||||
-- Axel Beckert <abe@debian.org> Fri, 23 Aug 2013 19:00:03 +0200
|
||||
|
||||
xen-tools (4.3.1-1) unstable; urgency=low
|
||||
|
||||
|
||||
2
debian/compat
vendored
2
debian/compat
vendored
@@ -1 +1 @@
|
||||
7
|
||||
9
|
||||
|
||||
45
debian/control
vendored
45
debian/control
vendored
@@ -2,17 +2,46 @@ Source: xen-tools
|
||||
Section: utils
|
||||
Priority: extra
|
||||
Maintainer: Axel Beckert <abe@debian.org>
|
||||
Build-Depends: debhelper (>= 7.0.0), libtest-pod-perl, libtext-template-perl, libfile-slurp-perl, devscripts, libmoose-perl, libtest-pod-coverage-perl, git
|
||||
Standards-Version: 3.9.3
|
||||
Build-Depends: debhelper (>= 9~),
|
||||
devscripts,
|
||||
git,
|
||||
libdata-validate-domain-perl,
|
||||
libdata-validate-ip-perl,
|
||||
libdata-validate-uri-perl,
|
||||
libfile-slurp-perl,
|
||||
libfile-which-perl,
|
||||
libtest-notabs-perl,
|
||||
libtest-pod-coverage-perl,
|
||||
libtest-pod-perl,
|
||||
libtext-template-perl
|
||||
Standards-Version: 3.9.5
|
||||
Homepage: http://xen-tools.org/software/xen-tools
|
||||
Vcs-Browser: http://gitorious.org/xen-tools/xen-tools
|
||||
Vcs-Git: git://gitorious.org/xen-tools/xen-tools.git
|
||||
|
||||
Package: xen-tools
|
||||
Architecture: all
|
||||
Depends: debootstrap | cdebootstrap, perl-modules, libtext-template-perl, libconfig-inifiles-perl, libfile-slurp-perl, ${misc:Depends}, openssh-client
|
||||
Recommends: xen-hypervisor-amd64 | xen-hypervisor-i386 | xen-hypervisor-i386-pae, rinse (>= 1.9.1-1), libexpect-perl, xen-utils
|
||||
Suggests: reiserfsprogs, xfsprogs, cfengine2, btrfs-tools
|
||||
Depends: debootstrap | cdebootstrap,
|
||||
libconfig-inifiles-perl,
|
||||
libdata-validate-domain-perl,
|
||||
libdata-validate-ip-perl,
|
||||
libdata-validate-uri-perl,
|
||||
libfile-slurp-perl,
|
||||
libfile-which-perl,
|
||||
libterm-ui-perl | perl (<< 5.17.0),
|
||||
libtext-template-perl,
|
||||
openssh-client,
|
||||
perl-modules,
|
||||
${misc:Depends},
|
||||
${perl:Depends}
|
||||
Recommends: libexpect-perl,
|
||||
rinse (>= 1.9.1-1),
|
||||
xen-hypervisor-amd64 | xen-hypervisor-i386 | xen-hypervisor-i386-pae,
|
||||
xen-utils
|
||||
Suggests: btrfs-tools,
|
||||
cfengine2,
|
||||
reiserfsprogs,
|
||||
xfsprogs
|
||||
Description: Tools to manage Xen virtual servers
|
||||
This package contains tools to manage Debian based Xen virtual servers.
|
||||
.
|
||||
@@ -25,7 +54,8 @@ Description: Tools to manage Xen virtual servers
|
||||
* Debian 4.0 Etch
|
||||
* Debian 5.0 Lenny
|
||||
* Debian 6.0 Squeeze
|
||||
* Debian 7.0 Wheezy
|
||||
* Debian 7 Wheezy
|
||||
* Debian 8 Jessie (under development)
|
||||
* Debian Sid (Unstable)
|
||||
* Ubuntu 6.06 Dapper Drake (LTS)
|
||||
* Ubuntu 6.10 Edgy Eft
|
||||
@@ -40,5 +70,8 @@ Description: Tools to manage Xen virtual servers
|
||||
* Ubuntu 11.04 Natty Narwhal
|
||||
* Ubuntu 11.10 Oneiric Ocelot
|
||||
* Ubuntu 12.04 Precise Pangolin (LTS)
|
||||
* Ubuntu 12.10 Quantal Quetzal
|
||||
* Ubuntu 13.04 Raring Ringtail
|
||||
* Ubuntu 13.10 Saucy Salamander (under development)
|
||||
* CentOS 5
|
||||
* CentOS 6
|
||||
|
||||
2
debian/copyright
vendored
2
debian/copyright
vendored
@@ -4,7 +4,7 @@ Tue, 20 Dec 2005 02:21:05 +0200.
|
||||
It was downloaded from http://xen-tools.org/software/xen-tools/
|
||||
|
||||
Copyright 2005-2009: Steve Kemp <steve@steve.org.uk>
|
||||
Copyright 2010-2012: The Xen-Tools Development Team, currently consisting of:
|
||||
Copyright 2010-2013: The Xen-Tools Development Team, currently consisting of:
|
||||
Axel Beckert <abe@deuxchevaux.org>,
|
||||
Dmitry Nedospasov <dmitry@nedos.net>, and
|
||||
Stéphane Jourdois <sjourdois@gmail.com>
|
||||
|
||||
2
debian/dirs
vendored
2
debian/dirs
vendored
@@ -1,4 +1,4 @@
|
||||
/etc/xen-tools
|
||||
/etc/xen-tools/role.d
|
||||
/etc/xen-tools/skel
|
||||
/usr/lib/xen-tools
|
||||
/usr/share/xen-tools
|
||||
2
debian/docs
vendored
2
debian/docs
vendored
@@ -4,4 +4,4 @@ SUPPORT.markdown
|
||||
BUGS.markdown
|
||||
TODO.markdown
|
||||
KNOWN_BUGS.markdown
|
||||
NEWS
|
||||
NEWS.markdown
|
||||
|
||||
1
debian/examples
vendored
Normal file
1
debian/examples
vendored
Normal file
@@ -0,0 +1 @@
|
||||
examples/*
|
||||
54
debian/rules
vendored
54
debian/rules
vendored
@@ -2,55 +2,7 @@
|
||||
# Uncomment this to turn on verbose mode.
|
||||
#export DH_VERBOSE=1
|
||||
|
||||
%:
|
||||
dh $@
|
||||
|
||||
configure: configure-stamp
|
||||
configure-stamp:
|
||||
dh_testdir
|
||||
touch configure-stamp
|
||||
|
||||
|
||||
build: build-arch build-indep
|
||||
build-arch: build-stamp
|
||||
build-indep: build-stamp
|
||||
build-stamp: configure-stamp
|
||||
dh_testdir
|
||||
touch build-stamp
|
||||
|
||||
clean:
|
||||
dh_testdir
|
||||
dh_testroot
|
||||
make clean
|
||||
dh_clean
|
||||
|
||||
install: build
|
||||
dh_testdir
|
||||
dh_testroot
|
||||
dh_prep
|
||||
|
||||
dh_auto_test
|
||||
make manpages
|
||||
make install prefix=`pwd`/debian/xen-tools
|
||||
|
||||
dh_installdirs
|
||||
|
||||
# Build architecture-independent files here.
|
||||
binary-indep: build install
|
||||
# We have nothing to do by default.
|
||||
|
||||
# Build architecture-dependent files here.
|
||||
binary-indep: build install
|
||||
dh_testdir
|
||||
dh_testroot
|
||||
dh_install
|
||||
dh_installexamples debian/examples/setup-kernel-initrd debian/examples/update-modules
|
||||
[ ! -e ChangeLog ] || dh_installchangelogs ChangeLog
|
||||
dh_installdocs
|
||||
dh_compress
|
||||
dh_fixperms
|
||||
dh_installdeb
|
||||
dh_gencontrol
|
||||
dh_md5sums
|
||||
dh_builddeb
|
||||
|
||||
binary: binary-indep binary-arch
|
||||
.PHONY: build clean binary-indep binary-arch binary install configure
|
||||
override_dh_auto_build:
|
||||
|
||||
1
debian/triggers
vendored
Normal file
1
debian/triggers
vendored
Normal file
@@ -0,0 +1 @@
|
||||
activate update-initramfs
|
||||
@@ -125,13 +125,15 @@ install-method = debootstrap
|
||||
# Disk and Sizing options.
|
||||
##
|
||||
#
|
||||
size = 4Gb # Disk image size.
|
||||
memory = 128Mb # Memory size
|
||||
swap = 128Mb # Swap size
|
||||
# noswap = 1 # Don't use swap at all for the new system.
|
||||
fs = ext3 # use the EXT3 filesystem for the disk image.
|
||||
dist = `xt-guess-suite-and-mirror --suite` # Default distribution to install.
|
||||
image = sparse # Specify sparse vs. full disk images.
|
||||
size = 4G # Root disk, suffix (G, M, k) required
|
||||
memory = 128M # Suffix (G, M, k) required
|
||||
#maxmem = 256M # Suffix (G, M, k) optional
|
||||
swap = 128M # Suffix (G, M, k) required
|
||||
# noswap = 1 # Don't use swap at all for new systems.
|
||||
fs = ext3 # Default file system for any disk
|
||||
dist = `xt-guess-suite-and-mirror --suite`
|
||||
# Default distribution is determined by Dom0's distribution
|
||||
image = sparse # Specify sparse vs. full disk images (file based images only)
|
||||
|
||||
#
|
||||
# See the README for currently supported and tested distributions. You can
|
||||
@@ -235,6 +237,13 @@ image = sparse # Specify sparse vs. full disk images.
|
||||
kernel = /boot/vmlinuz-`uname -r`
|
||||
initrd = /boot/initrd.img-`uname -r`
|
||||
|
||||
#
|
||||
# Uncomment the following line if you wish to use pygrub by default
|
||||
# for all distributions.
|
||||
#
|
||||
# pygrub = 1
|
||||
#
|
||||
|
||||
#
|
||||
# The architecture to use when using debootstrap, rinse, or rpmstrap.
|
||||
#
|
||||
@@ -264,15 +273,15 @@ mirror = `xt-guess-suite-and-mirror --mirror`
|
||||
# mirror_sarge = http://archive.debian.org/debian
|
||||
# mirror_etch = http://archive.debian.org/debian
|
||||
# mirror_lenny = http://archive.debian.org/debian
|
||||
# mirror_squeeze = http://cdn.debian.net/debian
|
||||
# mirror_wheezy = http://cdn.debian.net/debian
|
||||
# mirror_jessie = http://cdn.debian.net/debian
|
||||
# mirror_sid = http://cdn.debian.net/debian
|
||||
# mirror_squeeze = http://http.debian.net/debian
|
||||
# mirror_wheezy = http://http.debian.net/debian
|
||||
# mirror_jessie = http://http.debian.net/debian
|
||||
# mirror_sid = http://http.debian.net/debian
|
||||
# mirror_dapper = http://old-releases.ubuntu.com/ubuntu
|
||||
# mirror_edgy = http://old-releases.ubuntu.com/ubuntu
|
||||
# mirror_feisty = http://old-releases.ubuntu.com/ubuntu
|
||||
# mirror_gutsy = http://old-releases.ubuntu.com/ubuntu
|
||||
# mirror_hardy = http://archive.ubuntu.com/ubuntu
|
||||
# mirror_hardy = http://old-releases.ubuntu.com/ubuntu
|
||||
# mirror_intrepid = http://old-releases.ubuntu.com/ubuntu
|
||||
# mirror_jaunty = http://old-releases.ubuntu.com/ubuntu
|
||||
# mirror_karmic = http://old-releases.ubuntu.com/ubuntu
|
||||
@@ -283,6 +292,8 @@ mirror = `xt-guess-suite-and-mirror --mirror`
|
||||
# mirror_precise = http://archive.ubuntu.com/ubuntu
|
||||
# mirror_quantal = http://archive.ubuntu.com/ubuntu
|
||||
# mirror_raring = http://archive.ubuntu.com/ubuntu
|
||||
# mirror_saucy = http://archive.ubuntu.com/ubuntu
|
||||
# mirror_trusty = http://archive.ubuntu.com/ubuntu
|
||||
|
||||
# If this is defined it will be used by debootstrap, and configured as the
|
||||
# proxy for the guest
|
||||
@@ -292,6 +303,7 @@ mirror = `xt-guess-suite-and-mirror --mirror`
|
||||
#
|
||||
# Filesystem options for the different filesystems we support.
|
||||
#
|
||||
ext4_options = noatime,nodiratime,errors=remount-ro
|
||||
ext3_options = noatime,nodiratime,errors=remount-ro
|
||||
ext2_options = noatime,nodiratime,errors=remount-ro
|
||||
xfs_options = defaults
|
||||
|
||||
@@ -17,6 +17,11 @@
|
||||
}
|
||||
}
|
||||
memory = '{$memory}'
|
||||
{ if ( $maxmem )
|
||||
{
|
||||
$OUT .= "maxmem = '$maxmem'\n";
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
# Name
|
||||
|
||||
@@ -37,6 +37,11 @@
|
||||
}
|
||||
vcpus = '{$vcpus}'
|
||||
memory = '{$memory}'
|
||||
{ if ( $maxmem )
|
||||
{
|
||||
$OUT .= "maxmem = '$maxmem'\n";
|
||||
}
|
||||
}
|
||||
|
||||
#
|
||||
# Disk device(s).
|
||||
|
||||
@@ -19,7 +19,7 @@ hooks/
|
||||
* The installation will have a running installation of OpenSSH
|
||||
|
||||
The subdirectories in this hooks/ directory will be installed
|
||||
to the directory /usr/lib/xen-tools/
|
||||
to the directory /usr/share/xen-tools/
|
||||
|
||||
Steve
|
||||
--
|
||||
|
||||
@@ -8,8 +8,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -41,7 +41,7 @@ EOF
|
||||
for i in `seq 1 $NUMPARTITIONS`; do
|
||||
echo -n "/dev/xvde$i " >> ${prefix}/etc/fstab
|
||||
eval part=\$PARTITION$i
|
||||
if [ ! -z "`echo $part | grep swap`" ]; then
|
||||
if [ -n "`echo $part | grep swap`" ]; then
|
||||
echo "none swap ws 0 0" >> ${prefix}/etc/fstab
|
||||
else
|
||||
echo $part | awk -F: '{print $4,$3,$5,0,1}' >> ${prefix}/etc/fstab
|
||||
|
||||
@@ -8,8 +8,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -41,7 +41,7 @@ EOF
|
||||
for i in `seq 1 $NUMPARTITIONS`; do
|
||||
echo -n "/dev/sda$i " >> ${prefix}/etc/fstab
|
||||
eval part=\$PARTITION$i
|
||||
if [ ! -z "`echo $part | grep swap`" ]; then
|
||||
if [ -n "`echo $part | grep swap`" ]; then
|
||||
echo "none swap ws 0 0" >> ${prefix}/etc/fstab
|
||||
else
|
||||
echo $part | awk -F: '{print $4,$3,$5,0,1}' >> ${prefix}/etc/fstab
|
||||
|
||||
177
hooks/common.sh
177
hooks/common.sh
@@ -24,7 +24,7 @@ logMessage ()
|
||||
{
|
||||
message="$*"
|
||||
|
||||
if [ ! -z "${verbose}" ]; then
|
||||
if [ -n "${verbose}" ]; then
|
||||
echo $message
|
||||
fi
|
||||
}
|
||||
@@ -60,7 +60,7 @@ assert ()
|
||||
# We take special care so that daemons shouldn't start after installation
|
||||
# which they might otherwise do.
|
||||
#
|
||||
# NOTE: Function not renamed with trailing "s" for compatability reasons.
|
||||
# NOTE: Function not renamed with trailing "s" for compatibility reasons.
|
||||
#
|
||||
installDebianPackage ()
|
||||
{
|
||||
@@ -98,7 +98,7 @@ installDebianPackage ()
|
||||
#
|
||||
# Install the packages
|
||||
#
|
||||
DEBIAN_FRONTEND=noninteractive chroot ${prefix} /usr/bin/apt-get --yes --force-yes install "$@"
|
||||
DEBIAN_FRONTEND=noninteractive chroot ${prefix} /usr/bin/apt-get --yes --force-yes --no-install-recommends install "$@"
|
||||
|
||||
#
|
||||
# Remove the policy-rc.d script.
|
||||
@@ -113,6 +113,143 @@ installDebianPackage ()
|
||||
}
|
||||
|
||||
|
||||
#
|
||||
# Generate a Debian-/Ubuntu-compliant menu.lst for legacy GRUB
|
||||
#
|
||||
generateDebianGrubMenuLst ()
|
||||
{
|
||||
prefix="$1"
|
||||
DOMU_ISSUE="$2"
|
||||
DOMU_KERNEL="$3"
|
||||
DOMU_RAMDISK="$4"
|
||||
|
||||
#
|
||||
# Log our options
|
||||
#
|
||||
logMessage "Generating a legacy GRUB menu.lst into prefix ${prefix}"
|
||||
|
||||
#
|
||||
# We require at least 3 parameters
|
||||
#
|
||||
assert "$LINENO" "${prefix}"
|
||||
assert "$LINENO" "${DOMU_ISSUE}"
|
||||
assert "$LINENO" "${DOMU_KERNEL}"
|
||||
|
||||
#
|
||||
# Prefix must be a directory, kernel a file
|
||||
#
|
||||
assert "$LINENO" -d ${prefix}
|
||||
assert "$LINENO" -f "${prefix}/boot/${DOMU_KERNEL}"
|
||||
|
||||
#
|
||||
# Generate a menu.lst for pygrub
|
||||
#
|
||||
|
||||
mkdir -p ${prefix}/boot/grub
|
||||
cat << E_O_MENU > ${prefix}/boot/grub/menu.lst
|
||||
default 0
|
||||
timeout 2
|
||||
|
||||
### BEGIN AUTOMAGIC KERNELS LIST
|
||||
## lines between the AUTOMAGIC KERNELS LIST markers will be modified
|
||||
## by the debian update-grub script except for the default options below
|
||||
|
||||
## DO NOT UNCOMMENT THEM, Just edit them to your needs
|
||||
|
||||
## ## Start Default Options ##
|
||||
## default kernel options
|
||||
## default kernel options for automagic boot options
|
||||
## If you want special options for specific kernels use kopt_x_y_z
|
||||
## where x.y.z is kernel version. Minor versions can be omitted.
|
||||
## e.g. kopt=root=/dev/hda1 ro
|
||||
## kopt_2_6_8=root=/dev/hdc1 ro
|
||||
## kopt_2_6_8_2_686=root=/dev/hdc2 ro
|
||||
# kopt=root=/dev/xvda2 ro elevator=noop
|
||||
|
||||
## default grub root device
|
||||
## e.g. groot=(hd0,0)
|
||||
# groot=(hd0,0)
|
||||
|
||||
## should update-grub create alternative automagic boot options
|
||||
## e.g. alternative=true
|
||||
## alternative=false
|
||||
# alternative=true
|
||||
|
||||
## should update-grub lock alternative automagic boot options
|
||||
## e.g. lockalternative=true
|
||||
## lockalternative=false
|
||||
# lockalternative=false
|
||||
|
||||
## additional options to use with the default boot option, but not with the
|
||||
## alternatives
|
||||
## e.g. defoptions=vga=791 resume=/dev/hda5
|
||||
# defoptions=
|
||||
|
||||
## should update-grub lock old automagic boot options
|
||||
## e.g. lockold=false
|
||||
## lockold=true
|
||||
# lockold=false
|
||||
|
||||
## altoption boot targets option
|
||||
## multiple altoptions lines are allowed
|
||||
## e.g. altoptions=(extra menu suffix) extra boot options
|
||||
## altoptions=(single-user) single
|
||||
# altoptions=(single-user mode) single
|
||||
|
||||
## controls how many kernels should be put into the menu.lst
|
||||
## only counts the first occurence of a kernel, not the
|
||||
## alternative kernel options
|
||||
## e.g. howmany=all
|
||||
## howmany=7
|
||||
# howmany=all
|
||||
|
||||
## should update-grub create memtest86 boot option
|
||||
## e.g. memtest86=true
|
||||
## memtest86=false
|
||||
# memtest86=false
|
||||
|
||||
## should update-grub adjust the value of the default booted system
|
||||
## can be true or false
|
||||
# updatedefaultentry=false
|
||||
|
||||
## should update-grub add savedefault to the default options
|
||||
## can be true or false
|
||||
# savedefault=false
|
||||
|
||||
## ## End Default Options ##
|
||||
|
||||
### END DEBIAN AUTOMAGIC KERNELS LIST
|
||||
|
||||
# Entries statically generated bu xen-tools upon installation. Maybe
|
||||
# removed manually if the entries above (generated by update-grub)
|
||||
# seem to work fine.
|
||||
|
||||
title $DOMU_ISSUE
|
||||
root (hd0,0)
|
||||
kernel /boot/$DOMU_KERNEL root=/dev/xvda2 ro elevator=noop
|
||||
initrd /boot/$DOMU_RAMDISK
|
||||
|
||||
title $DOMU_ISSUE (Single-User)
|
||||
root (hd0,0)
|
||||
kernel /boot/$DOMU_KERNEL root=/dev/xvda2 ro single elevator=noop
|
||||
initrd /boot/$DOMU_RAMDISK
|
||||
|
||||
title $DOMU_ISSUE (Default Kernel)
|
||||
root (hd0,0)
|
||||
kernel /vmlinuz root=/dev/xvda2 ro elevator=noop
|
||||
initrd /initrd.img
|
||||
|
||||
title $DOMU_ISSUE (Default Kernel, Single-User)
|
||||
root (hd0,0)
|
||||
kernel /vmlinuz root=/dev/xvda2 ro single elevator=noop
|
||||
initrd /initrd.img
|
||||
|
||||
E_O_MENU
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
#
|
||||
# Disable the start-stop-daemon
|
||||
@@ -124,12 +261,14 @@ disableStartStopDaemon ()
|
||||
for starter in start-stop-daemon initctl; do
|
||||
local daemonfile="${prefix}/sbin/${starter}"
|
||||
|
||||
mv "${daemonfile}" "${daemonfile}.REAL"
|
||||
echo '#!/bin/sh' > "${daemonfile}"
|
||||
echo "echo \"Warning: Fake ${starter} called, doing nothing\"" >> "${daemonfile}"
|
||||
if [ -e "${daemonfile}" ]; then
|
||||
mv "${daemonfile}" "${daemonfile}.REAL"
|
||||
echo '#!/bin/sh' > "${daemonfile}"
|
||||
echo "echo \"Warning: Fake ${starter} called, doing nothing\"" >> "${daemonfile}"
|
||||
|
||||
chmod 755 "${daemonfile}"
|
||||
logMessage "${starter} disabled / made a stub."
|
||||
chmod 755 "${daemonfile}"
|
||||
logMessage "${starter} disabled / made a stub."
|
||||
fi
|
||||
done
|
||||
}
|
||||
|
||||
@@ -191,9 +330,9 @@ removeDebianPackage ()
|
||||
|
||||
|
||||
#
|
||||
# Install a CentOS4 package via yum
|
||||
# Install a RPM package via yum
|
||||
#
|
||||
installCentOS4Package ()
|
||||
installRPMPackage ()
|
||||
{
|
||||
prefix=$1
|
||||
package=$2
|
||||
@@ -201,7 +340,7 @@ installCentOS4Package ()
|
||||
#
|
||||
# Log our options
|
||||
#
|
||||
logMessage "Installing CentOS4 ${package} to prefix ${prefix}"
|
||||
logMessage "Installing RPM ${package} to prefix ${prefix}"
|
||||
|
||||
#
|
||||
# We require a package + prefix
|
||||
@@ -220,6 +359,15 @@ installCentOS4Package ()
|
||||
chroot ${prefix} /usr/bin/yum -y install ${package}
|
||||
}
|
||||
|
||||
# Backwards Compatibility Function
|
||||
installCentOS4Package () ( installRPMPackage "$@" )
|
||||
|
||||
|
||||
#
|
||||
# Functions to test if we're on a redhatesk or debianesk system
|
||||
#
|
||||
isDeb() ( [ -x $1/usr/bin/apt-get -a -x $1/usr/bin/dpkg ] )
|
||||
isYum() ( [ -x $1/usr/bin/yum ] )
|
||||
|
||||
|
||||
#
|
||||
@@ -230,11 +378,11 @@ installPackage ()
|
||||
prefix=$1
|
||||
package=$2
|
||||
|
||||
if [ -x ${prefix}/usr/bin/apt-get ] ; then
|
||||
if isDeb ; then
|
||||
installDebianPackage "$@"
|
||||
|
||||
elif [ -x ${prefix}/usr/bin/yum ] ; then
|
||||
installCentOS4Package "$@"
|
||||
elif isYum ; then
|
||||
installRPMPackage "$@"
|
||||
|
||||
else
|
||||
logMessage "Unable to install package ${package}; no package manager found"
|
||||
@@ -261,4 +409,3 @@ installGentooPackage ()
|
||||
logMessage "NOTE: Not doing anything - this is a stub - FIXME"
|
||||
|
||||
}
|
||||
|
||||
|
||||
@@ -14,8 +14,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -13,8 +13,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -14,8 +14,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -13,8 +13,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -6,8 +6,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -14,8 +14,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -70,18 +70,14 @@ chroot ${prefix} /usr/bin/apt-get update
|
||||
|
||||
|
||||
#
|
||||
# Now fixup TLS on non-64bit systems after dapper.
|
||||
# Now fixup TLS on non-64bit systems after dapper. For dapper this is
|
||||
# already fixed in 10-disable-tls.
|
||||
#
|
||||
if [ "$dist" != 'dapper' ]; then
|
||||
if [ "`uname -m`" = "x86_64" ]; then
|
||||
if [ "$arch" = 'i386' -a "$dist" != 'dapper' ]; then
|
||||
|
||||
logMessage "Ignoring TLS since we're a 64 bit host."
|
||||
logMessage "Installing libc6-xen"
|
||||
installDebianPackage ${prefix} libc6-xen
|
||||
|
||||
else
|
||||
|
||||
logMessage "Installing libc6-xen"
|
||||
installDebianPackage ${prefix} libc6-xen
|
||||
fi
|
||||
fi
|
||||
|
||||
|
||||
|
||||
@@ -13,8 +13,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -13,8 +13,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -12,8 +12,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -49,7 +49,7 @@ rm -f ${prefix}/etc/event.d/tty[!1]
|
||||
#
|
||||
# Are we using an alternative serial device?
|
||||
#
|
||||
if [ ! -z "${serial_device}" ]; then
|
||||
if [ -n "${serial_device}" ]; then
|
||||
|
||||
serial_device=`basename ${serial_device}`
|
||||
|
||||
|
||||
@@ -13,8 +13,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -71,8 +71,8 @@ setupStaticNetworking ()
|
||||
# if $p2p is set then add a "pointopoint" setting.
|
||||
#
|
||||
point='';
|
||||
if [ ! -z "${p2p}" ]; then
|
||||
point="pointopoint ${p2p}"
|
||||
if [ -n "${p2p}" ]; then
|
||||
point=" pointopoint ${p2p}"
|
||||
else
|
||||
point=''
|
||||
fi
|
||||
@@ -81,10 +81,18 @@ setupStaticNetworking ()
|
||||
# broadcast address?
|
||||
#
|
||||
bcast='';
|
||||
if [ ! -z "${broadcast}" ]; then
|
||||
if [ -n "${broadcast}" ]; then
|
||||
bcast=" broadcast ${broadcast}"
|
||||
fi
|
||||
|
||||
#
|
||||
# gateway address?
|
||||
#
|
||||
gateway='';
|
||||
if [ -n "${gateway}" ]; then
|
||||
gateway=" gateway ${gateway}"
|
||||
fi
|
||||
|
||||
#
|
||||
# We have a static IP address
|
||||
#
|
||||
@@ -100,10 +108,10 @@ iface lo inet loopback
|
||||
auto eth0
|
||||
iface eth0 inet static
|
||||
address ${ip1}
|
||||
gateway ${gateway}
|
||||
${gateway}
|
||||
netmask ${netmask}
|
||||
${bcast}
|
||||
${point}
|
||||
${bcast}
|
||||
${point}
|
||||
# post-up ethtool -K eth0 tx off
|
||||
|
||||
#
|
||||
|
||||
@@ -13,8 +13,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -15,8 +15,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -15,8 +15,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -14,8 +14,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -11,8 +11,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -11,8 +11,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -15,8 +15,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -38,9 +38,9 @@ mkdir -p ${prefix}/etc/ssh
|
||||
#
|
||||
if [ ! -f ${prefix}/etc/ssh/ssh_host_rsa_key ]; then
|
||||
if ssh-keygen -t rsa -N "" -f ${prefix}/etc/ssh/ssh_host_rsa_key -C "root@${hostname}"; then
|
||||
logMessage "successfully generetaged Host RSA"
|
||||
logMessage "successfully generated RSA host key"
|
||||
else
|
||||
logMessage "failed to generate Host RSA Key"
|
||||
logMessage "failed to generate RSA host key"
|
||||
fi
|
||||
fi
|
||||
|
||||
@@ -49,9 +49,9 @@ fi
|
||||
#
|
||||
if [ ! -f ${prefix}/etc/ssh/ssh_host_dsa_key ]; then
|
||||
if ssh-keygen -t dsa -N "" -f ${prefix}/etc/ssh/ssh_host_dsa_key -C "root@${hostname}"; then
|
||||
logMessage "successfully generetaged Host DSA"
|
||||
logMessage "successfully generated DSA host key"
|
||||
else
|
||||
logMessage "failed to generate Host DSA Key"
|
||||
logMessage "failed to generate DSA host key"
|
||||
fi
|
||||
fi
|
||||
|
||||
|
||||
@@ -13,8 +13,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -14,8 +14,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -19,8 +19,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -73,11 +73,6 @@ else
|
||||
cp -au /lib/modules/$(uname -r) ${prefix}/lib/modules
|
||||
fi
|
||||
|
||||
#
|
||||
# Install the module-init-tools package.
|
||||
#
|
||||
installDebianPackage ${prefix} module-init-tools
|
||||
|
||||
fi # if pygrub
|
||||
|
||||
#
|
||||
|
||||
@@ -19,8 +19,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
44
hooks/common/81-install-modules-init-tools
Executable file
44
hooks/common/81-install-modules-init-tools
Executable file
@@ -0,0 +1,44 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
# Ensure that either modules-init-tools or kmod is setup.
|
||||
#
|
||||
# This is required in most setups. But even if it isn't required it
|
||||
# can't really do anything bad; just waste a bit of space.
|
||||
#
|
||||
|
||||
prefix=$1
|
||||
|
||||
|
||||
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
|
||||
#
|
||||
# Log our start
|
||||
#
|
||||
logMessage Script $0 starting
|
||||
|
||||
#
|
||||
# Install either kmod or module-init-tools package.
|
||||
#
|
||||
if chroot ${prefix} /usr/bin/apt-cache show module-init-tools >/dev/null 2>/dev/null; then
|
||||
if chroot ${prefix} /usr/bin/apt-cache show module-init-tools | fgrep -qi transitional; then
|
||||
installDebianPackage ${prefix} kmod
|
||||
else
|
||||
installDebianPackage ${prefix} module-init-tools
|
||||
fi
|
||||
else
|
||||
installDebianPackage ${prefix} kmod
|
||||
fi
|
||||
|
||||
#
|
||||
# Log our finish
|
||||
#
|
||||
logMessage Script $0 finished
|
||||
52
hooks/common/82-install-grub-legacy
Executable file
52
hooks/common/82-install-grub-legacy
Executable file
@@ -0,0 +1,52 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
# Ensure that either modules-init-tools or kmod is setup.
|
||||
#
|
||||
# This is most likely required if you're using a custom kernel
|
||||
# for your Xen system. But even if it isn't required it can't
|
||||
# really do anything bad; just waste a bit of space.
|
||||
|
||||
|
||||
prefix=$1
|
||||
|
||||
|
||||
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
|
||||
#
|
||||
# Log our start
|
||||
#
|
||||
logMessage Script $0 starting
|
||||
|
||||
if [ ${pygrub} ]; then
|
||||
|
||||
#
|
||||
# Install the grub 0.9x package ("grub-legacy" on Debian, "grub" on Ubuntu)
|
||||
#
|
||||
if chroot ${prefix} /usr/bin/apt-cache show grub-legacy 2>/dev/null | egrep -qi 'GRand Unified Bootloader.*Legacy'; then
|
||||
installDebianPackage ${prefix} grub-legacy
|
||||
else
|
||||
installDebianPackage ${prefix} grub
|
||||
fi
|
||||
|
||||
if [ ! -e ${prefix}/boot/grub/default ]; then
|
||||
echo default > ${prefix}/boot/grub/default
|
||||
fi
|
||||
chroot ${prefix} /usr/sbin/update-grub
|
||||
|
||||
else
|
||||
logMessage "pygrub not set, skipping grub-legacy installation"
|
||||
fi # if pygrub
|
||||
|
||||
#
|
||||
# Log our finish
|
||||
#
|
||||
logMessage Script $0 finished
|
||||
@@ -17,8 +17,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -48,7 +48,7 @@ if [ "${ide}" ]; then
|
||||
elif [ "${scsi}" ]; then
|
||||
device=sda
|
||||
else
|
||||
if [ ! -z "${disk_device}" ]; then
|
||||
if [ -n "${disk_device}" ]; then
|
||||
device=`basename $disk_device`
|
||||
fi
|
||||
fi
|
||||
@@ -100,6 +100,34 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
|
||||
done
|
||||
|
||||
|
||||
logMessage Checking for filesystem tools to install
|
||||
|
||||
#
|
||||
# Install any required packages for the given root filesystem
|
||||
#
|
||||
if [ "$has_xfs" -eq 1 ]; then
|
||||
installPackage ${prefix} xfsprogs
|
||||
fi
|
||||
if [ "$has_reiserfs" -eq 1 ]; then
|
||||
if isAPT; then
|
||||
installDebianPackage reiserfsprogs
|
||||
elif isYum; then
|
||||
installRPMPackage reiserfs-utils
|
||||
else
|
||||
logMessage "Unable to install reiserfs tools; no package manager recognized"
|
||||
fi
|
||||
fi
|
||||
if [ "$has_btrfs" -eq 1 ]; then
|
||||
if isAPT; then
|
||||
installDebianPackage btrfs-tools
|
||||
elif isYum; then
|
||||
installRPMPackage btrfs-progs
|
||||
else
|
||||
logMessage "Unable to install btrfs tools; no package manager recognized"
|
||||
fi
|
||||
fi
|
||||
|
||||
|
||||
#
|
||||
# Log our finish
|
||||
#
|
||||
|
||||
@@ -1,45 +0,0 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
# Some root filesystems will require the installation of new packages
|
||||
#
|
||||
# Steve
|
||||
# --
|
||||
# http://www.steve.org.uk/
|
||||
|
||||
|
||||
prefix=$1
|
||||
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
|
||||
#
|
||||
# Log our start
|
||||
#
|
||||
logMessage Script $0 starting
|
||||
|
||||
|
||||
#
|
||||
# Install any required packages for the given root filesystem
|
||||
#
|
||||
if [ $has_xfs -eq 1 ]; then
|
||||
installDebianPackage ${prefix} xfsprogs
|
||||
fi
|
||||
if [ $has_reiserfs -eq 1 ]; then
|
||||
installDebianPackage ${prefix} reiserfsprogs
|
||||
fi
|
||||
if [ $has_btrfs -eq 1 ]; then
|
||||
installDebianPackage ${prefix} btrfs-tools
|
||||
fi
|
||||
|
||||
|
||||
#
|
||||
# Log our finish
|
||||
#
|
||||
logMessage Script $0 finished
|
||||
@@ -13,8 +13,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -12,8 +12,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -14,8 +14,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
1
hooks/dapper/81-install-modules-init-tools
Symbolic link
1
hooks/dapper/81-install-modules-init-tools
Symbolic link
@@ -0,0 +1 @@
|
||||
../common/81-install-modules-init-tools
|
||||
@@ -1 +0,0 @@
|
||||
../common/91-install-fs-tools
|
||||
@@ -14,8 +14,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -90,30 +90,20 @@ fi
|
||||
#
|
||||
chroot ${prefix} /usr/bin/apt-get update
|
||||
|
||||
|
||||
#
|
||||
# For sid or etch systems we install libc6-xen
|
||||
# For all systems after Sarge we install libc6-xen on i386
|
||||
#
|
||||
# For sarge we don't have that option, so we disable TLS.
|
||||
# For Sarge we don't have that option, so we disable TLS the hard way.
|
||||
#
|
||||
if [ "`uname -m`" = "x86_64" ]; then
|
||||
|
||||
logMessage "Ignoring TLS since we're a 64 bit host."
|
||||
|
||||
else
|
||||
|
||||
case "${dist}" in
|
||||
*)
|
||||
logMessage "Installing xen-aware libc6"
|
||||
|
||||
installDebianPackage ${prefix} libc6-xen
|
||||
;;
|
||||
sarge)
|
||||
logMessage "Disabling TLS"
|
||||
mv ${prefix}/lib/tls ${prefix}/lib/tls.disabled
|
||||
mkdir ${prefix}/lib/tls
|
||||
;;
|
||||
esac
|
||||
if [ "${arch}" = "i386" ]; then
|
||||
if [ "${dist}" = 'sarge' ]; then
|
||||
logMessage "Disabling TLS"
|
||||
mv ${prefix}/lib/tls ${prefix}/lib/tls.disabled
|
||||
mkdir ${prefix}/lib/tls
|
||||
else
|
||||
logMessage "Installing xen-aware libc6"
|
||||
installDebianPackage ${prefix} libc6-xen
|
||||
fi
|
||||
fi
|
||||
|
||||
|
||||
|
||||
@@ -15,8 +15,8 @@ prefix=$1
|
||||
# Source our common functions
|
||||
#
|
||||
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -103,28 +103,8 @@ fi
|
||||
# Generate a menu.lst for pygrub
|
||||
#
|
||||
|
||||
mkdir -p ${prefix}/boot/grub
|
||||
cat << E_O_MENU > ${prefix}/boot/grub/menu.lst
|
||||
default 0
|
||||
timeout 2
|
||||
generateDebianGrubMenuLst "${prefix}" "$DOMU_ISSUE" "$DOMU_KERNEL" "$DOMU_RAMDISK"
|
||||
|
||||
title $DOMU_ISSUE
|
||||
root (hd0,0)
|
||||
kernel /boot/$DOMU_KERNEL root=/dev/xvda2 ro elevator=noop
|
||||
initrd /boot/$DOMU_RAMDISK
|
||||
|
||||
title $DOMU_ISSUE (Single-User)
|
||||
root (hd0,0)
|
||||
kernel /boot/$DOMU_KERNEL root=/dev/xvda2 ro single elevator=noop
|
||||
initrd /boot/$DOMU_RAMDISK
|
||||
|
||||
E_O_MENU
|
||||
|
||||
#
|
||||
# Install the module-init-tools package.
|
||||
#
|
||||
|
||||
installDebianPackage ${prefix} module-init-tools
|
||||
|
||||
else
|
||||
logMessage pygrub not set, skipping kernel install
|
||||
|
||||
1
hooks/debian/81-install-modules-init-tools
Symbolic link
1
hooks/debian/81-install-modules-init-tools
Symbolic link
@@ -0,0 +1 @@
|
||||
../common/81-install-modules-init-tools
|
||||
1
hooks/debian/82-install-grub-legacy
Symbolic link
1
hooks/debian/82-install-grub-legacy
Symbolic link
@@ -0,0 +1 @@
|
||||
../common/82-install-grub-legacy
|
||||
@@ -1 +0,0 @@
|
||||
../common/91-install-fs-tools
|
||||
@@ -12,8 +12,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -15,8 +15,8 @@ prefix=$1
|
||||
# Source our common functions
|
||||
#
|
||||
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -27,7 +27,7 @@ fi
|
||||
|
||||
logMessage Script $0 starting
|
||||
|
||||
if [ ${pygrub} ]; then
|
||||
if [ "${pygrub}" ]; then
|
||||
|
||||
#
|
||||
# Attempt to install a xen kernel, if that fails, then install a normal one
|
||||
@@ -78,32 +78,12 @@ fi
|
||||
# Generate a menu.lst for pygrub
|
||||
#
|
||||
|
||||
mkdir -p ${prefix}/boot/grub
|
||||
cat << E_O_MENU > ${prefix}/boot/grub/menu.lst
|
||||
default 0
|
||||
timeout 2
|
||||
generateDebianGrubMenuLst "${prefix}" "$DOMU_ISSUE" "$DOMU_KERNEL" "$DOMU_RAMDISK"
|
||||
|
||||
title $DOMU_ISSUE
|
||||
root (hd0,0)
|
||||
kernel /boot/$DOMU_KERNEL root=/dev/xvda2 ro elevator=noop
|
||||
initrd /boot/$DOMU_RAMDISK
|
||||
|
||||
title $DOMU_ISSUE (Single-User)
|
||||
root (hd0,0)
|
||||
kernel /boot/$DOMU_KERNEL root=/dev/xvda2 ro single elevator=noop
|
||||
initrd /boot/$DOMU_RAMDISK
|
||||
|
||||
E_O_MENU
|
||||
|
||||
#
|
||||
# Install the module-init-tools package.
|
||||
#
|
||||
|
||||
installDebianPackage ${prefix} module-init-tools
|
||||
|
||||
else
|
||||
logMessage pygrub not set, skipping kernel install
|
||||
fi
|
||||
fi # if pygrub
|
||||
|
||||
#
|
||||
# Log our finish
|
||||
|
||||
1
hooks/edgy/81-install-modules-init-tools
Symbolic link
1
hooks/edgy/81-install-modules-init-tools
Symbolic link
@@ -0,0 +1 @@
|
||||
../common/81-install-modules-init-tools
|
||||
1
hooks/edgy/82-install-grub-legacy
Symbolic link
1
hooks/edgy/82-install-grub-legacy
Symbolic link
@@ -0,0 +1 @@
|
||||
../common/82-install-grub-legacy
|
||||
@@ -1 +0,0 @@
|
||||
../common/91-install-fs-tools
|
||||
@@ -12,8 +12,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -12,8 +12,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -61,7 +61,7 @@ setupStaticNetworking ()
|
||||
# if $p2p is set then add a "pointopoint" setting.
|
||||
#
|
||||
point='';
|
||||
if [ ! -z "${p2p}" ]; then
|
||||
if [ -n "${p2p}" ]; then
|
||||
point="pointopoint ${p2p}"
|
||||
else
|
||||
point=''
|
||||
|
||||
@@ -15,8 +15,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -16,8 +16,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
@@ -15,8 +15,8 @@ prefix=$1
|
||||
# Source our common functions
|
||||
#
|
||||
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
@@ -27,13 +27,13 @@ fi
|
||||
|
||||
logMessage Script $0 starting
|
||||
|
||||
if [ ${pygrub} ]; then
|
||||
if [ "${pygrub}" ]; then
|
||||
|
||||
#
|
||||
# Attempt to install a xen kernel, if that fails, then install a normal one
|
||||
#
|
||||
|
||||
KERNEL_PKG="linux-image-server"
|
||||
KERNEL_PKG="linux-image-virtual"
|
||||
|
||||
logMessage Attempting to install the $KERNEL_PKG kernel image
|
||||
logMessage WARNING: This kernel may not have pvops
|
||||
@@ -68,32 +68,11 @@ fi
|
||||
# Generate a menu.lst for pygrub
|
||||
#
|
||||
|
||||
mkdir -p ${prefix}/boot/grub
|
||||
cat << E_O_MENU > ${prefix}/boot/grub/menu.lst
|
||||
default 0
|
||||
timeout 2
|
||||
|
||||
title $DOMU_ISSUE
|
||||
root (hd0,0)
|
||||
kernel /boot/$DOMU_KERNEL root=/dev/xvda2 ro elevator=noop
|
||||
initrd /boot/$DOMU_RAMDISK
|
||||
|
||||
title $DOMU_ISSUE (Single-User)
|
||||
root (hd0,0)
|
||||
kernel /boot/$DOMU_KERNEL root=/dev/xvda2 ro single elevator=noop
|
||||
initrd /boot/$DOMU_RAMDISK
|
||||
|
||||
E_O_MENU
|
||||
|
||||
#
|
||||
# Install the module-init-tools package.
|
||||
#
|
||||
|
||||
installDebianPackage ${prefix} module-init-tools
|
||||
generateDebianGrubMenuLst "${prefix}" "$DOMU_ISSUE" "$DOMU_KERNEL" "$DOMU_RAMDISK"
|
||||
|
||||
else
|
||||
logMessage pygrub not set, skipping kernel install
|
||||
fi
|
||||
fi # if pygrub
|
||||
|
||||
#
|
||||
# Log our finish
|
||||
|
||||
1
hooks/intrepid/81-install-modules-init-tools
Symbolic link
1
hooks/intrepid/81-install-modules-init-tools
Symbolic link
@@ -0,0 +1 @@
|
||||
../common/81-install-modules-init-tools
|
||||
1
hooks/intrepid/82-install-grub-legacy
Symbolic link
1
hooks/intrepid/82-install-grub-legacy
Symbolic link
@@ -0,0 +1 @@
|
||||
../common/82-install-grub-legacy
|
||||
@@ -1 +0,0 @@
|
||||
../common/91-install-fs-tools
|
||||
@@ -15,25 +15,25 @@ prefix=$1
|
||||
# Source our common functions
|
||||
#
|
||||
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
. ./hooks/common.sh
|
||||
fi
|
||||
|
||||
if [ "${pygrub}" ]; then
|
||||
#
|
||||
# Log our start
|
||||
#
|
||||
|
||||
logMessage Script $0 starting
|
||||
|
||||
if [ "${pygrub}" ]; then
|
||||
|
||||
#
|
||||
# The type of kernel that we will be installing
|
||||
#
|
||||
# linux_kernel_type="desktop"
|
||||
#
|
||||
linux_kernel_type="server"
|
||||
linux_kernel_type="virtual"
|
||||
|
||||
linux_kernel_package="linux-image-${linux_kernel_type}"
|
||||
|
||||
@@ -54,33 +54,17 @@ DOMU_KERNEL=$(basename $(ls -1 ${prefix}/boot/vmlinuz* | tail -n 1))
|
||||
DOMU_RAMDISK=$(basename $(ls -1 ${prefix}/boot/initrd*|tail -n 1))
|
||||
DOMU_ISSUE=$(head -n 1 ${prefix}/etc/issue | awk -F '\' '{ print $1 }' | sed 's/[ \t]*$//')
|
||||
|
||||
mkdir -p ${prefix}/boot/grub
|
||||
cat << E_O_MENU > ${prefix}/boot/grub/menu.lst
|
||||
default 0
|
||||
timeout 2
|
||||
#
|
||||
# Generate a menu.lst for pygrub
|
||||
#
|
||||
|
||||
title $DOMU_ISSUE
|
||||
root (hd0,0)
|
||||
kernel /boot/$DOMU_KERNEL root=/dev/xvda2 ro elevator=noop
|
||||
initrd /boot/$DOMU_RAMDISK
|
||||
generateDebianGrubMenuLst "${prefix}" "$DOMU_ISSUE" "$DOMU_KERNEL" "$DOMU_RAMDISK"
|
||||
|
||||
title $DOMU_ISSUE (Single-User)
|
||||
root (hd0,0)
|
||||
kernel /boot/$DOMU_KERNEL root=/dev/xvda2 ro single elevator=noop
|
||||
initrd /boot/$DOMU_RAMDISK
|
||||
|
||||
E_O_MENU
|
||||
|
||||
else
|
||||
logMessage "Package '${linux_kernel_package}' is not available"
|
||||
fi
|
||||
|
||||
#
|
||||
# Install the module-init-tools package.
|
||||
#
|
||||
|
||||
installDebianPackage ${prefix} module-init-tools
|
||||
|
||||
else
|
||||
logMessage pygrub not set, skipping kernel install
|
||||
fi # if pygrub
|
||||
|
||||
1
hooks/karmic/81-install-modules-init-tools
Symbolic link
1
hooks/karmic/81-install-modules-init-tools
Symbolic link
@@ -0,0 +1 @@
|
||||
../common/81-install-modules-init-tools
|
||||
1
hooks/karmic/82-install-grub-legacy
Symbolic link
1
hooks/karmic/82-install-grub-legacy
Symbolic link
@@ -0,0 +1 @@
|
||||
../common/82-install-grub-legacy
|
||||
@@ -1 +0,0 @@
|
||||
../common/91-install-fs-tools
|
||||
332
lib/Xen/Tools.pm
332
lib/Xen/Tools.pm
@@ -1,332 +0,0 @@
|
||||
package Xen::Tools;
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
use Moose;
|
||||
|
||||
use Xen::Tools::Log;
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Xen::Tools - Build Xen domains with Perl
|
||||
|
||||
=head1 VERSION
|
||||
|
||||
Version 0.01
|
||||
|
||||
=cut
|
||||
|
||||
our $VERSION = '0.01';
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
my $xt = Xen::Tools->new();
|
||||
|
||||
=head1 FUNCTIONS
|
||||
|
||||
=head2 new
|
||||
|
||||
Instantiate the object.
|
||||
|
||||
=cut
|
||||
|
||||
override 'new' => sub {
|
||||
my $class = shift;
|
||||
|
||||
# Initialize the base class
|
||||
my $self = $class->super(@_);
|
||||
|
||||
$self->{_xtl} = Xen::Tools::Log->new( hostname => $self->hostname,
|
||||
logpath => $self->logpath,
|
||||
);
|
||||
|
||||
$self->_checkSystem();
|
||||
|
||||
return $self;
|
||||
};
|
||||
|
||||
=head2 meta
|
||||
|
||||
This is a method which provides access to the current class's meta-
|
||||
class. Inherited from Moose.
|
||||
|
||||
=cut
|
||||
|
||||
=head2 log
|
||||
|
||||
This method sends a log message to the current object's logging
|
||||
mechanism
|
||||
|
||||
=cut
|
||||
|
||||
sub log {
|
||||
my $self = shift;
|
||||
|
||||
$self->{_xtl}->print(@_);
|
||||
}
|
||||
|
||||
=head2 hostname
|
||||
|
||||
Attribute which indicates the domain's hostname
|
||||
|
||||
=cut
|
||||
|
||||
has 'hostname' => ( is => 'ro', isa => 'Str', required => 1 );
|
||||
|
||||
=head2 logpath
|
||||
|
||||
Attribute which indicates the log directory. Defaults to /var/log/xen-tools
|
||||
|
||||
=cut
|
||||
|
||||
has 'logpath' => ( is => 'ro',
|
||||
isa => 'Str',
|
||||
default => '/var/log/xen-tools'
|
||||
);
|
||||
|
||||
=begin doc
|
||||
|
||||
_findBinary
|
||||
|
||||
Find the location of the specified binary on the curent user's PATH.
|
||||
|
||||
Return undef if the named binary isn't found.
|
||||
|
||||
=end doc
|
||||
|
||||
=cut
|
||||
|
||||
sub _findBinary {
|
||||
my $self = shift;
|
||||
my( $bin ) = (@_);
|
||||
|
||||
# strip any path which might be present.
|
||||
$bin = $2 if ( $bin =~ /(.*)[\/\\](.*)/ );
|
||||
|
||||
foreach my $entry ( split( /:/, $ENV{'PATH'} ) )
|
||||
{
|
||||
# guess of location.
|
||||
my $guess = $entry . "/" . $bin;
|
||||
|
||||
# return it if it exists and is executable
|
||||
return $guess if ( -e $guess && -x $guess );
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
=begin doc
|
||||
|
||||
_checkSystem
|
||||
|
||||
Test that this system is fully setup for the new xen-create-image
|
||||
script.
|
||||
|
||||
This means that the the companion scripts xt-* are present on the
|
||||
host and executable.
|
||||
|
||||
=end doc
|
||||
|
||||
=cut
|
||||
|
||||
sub _checkSystem {
|
||||
my $self = shift;
|
||||
my @required = qw ( / xt-customize-image
|
||||
xt-install-image
|
||||
xt-create-xen-config / );
|
||||
|
||||
foreach my $bin ( @required )
|
||||
{
|
||||
if ( ! defined( $self->_findBinary( $bin ) ) )
|
||||
{
|
||||
$self->log("The script '$bin' was not found.\n",
|
||||
"Aborting\n\n"
|
||||
);
|
||||
exit;
|
||||
}
|
||||
}
|
||||
|
||||
#
|
||||
# Make sure that we have Text::Template installed - this
|
||||
# will be used by `xt-create-xen-config` and if that fails then
|
||||
# running is pointless.
|
||||
#
|
||||
my $test = "use Text::Template";
|
||||
eval( $test );
|
||||
if ( ( $@ ) && ( ! $self->{_force} ) )
|
||||
{
|
||||
print <<E_O_ERROR;
|
||||
|
||||
Aborting: The Text::Template perl module isn't installed or available.
|
||||
|
||||
Specify '--force' to skip this check and continue regardless.
|
||||
|
||||
E_O_ERROR
|
||||
exit;
|
||||
}
|
||||
|
||||
|
||||
#
|
||||
# Make sure that xen-shell is installed if we've got an --admin
|
||||
# flag specified
|
||||
#
|
||||
if ( $self->{_admins} )
|
||||
{
|
||||
my $shell = undef;
|
||||
$shell = "/usr/bin/xen-login-shell" if ( -x "/usr/bin/xen-login-shell" );
|
||||
$shell = "/usr/local/bin/xen-login-shell" if ( -x "/usr/bin/local/xen-login-shell" );
|
||||
|
||||
if ( !defined( $shell ) )
|
||||
{
|
||||
print <<EOF;
|
||||
|
||||
You've specified administrator accounts for use with the xen-shell,
|
||||
however the xen-shell doesn't appear to be installed.
|
||||
|
||||
Aborting.
|
||||
EOF
|
||||
exit;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
#
|
||||
# Test the system has a valid (network-script) + (vif-script) setup.
|
||||
#
|
||||
return $self->_testXenConfig();
|
||||
}
|
||||
|
||||
=begin doc
|
||||
|
||||
Test that the current Xen host has a valid network configuration,
|
||||
this is designed to help newcomers to Xen.
|
||||
|
||||
=end doc
|
||||
|
||||
=cut
|
||||
|
||||
sub _testXenConfig {
|
||||
my $self = shift;
|
||||
# wierdness.
|
||||
return if ( ! -d "/etc/xen" );
|
||||
|
||||
#
|
||||
# Temporary hash.
|
||||
#
|
||||
my %cfg;
|
||||
|
||||
#
|
||||
# Read the configuration file.
|
||||
#
|
||||
open( my $config_fh, q{<}, '/etc/xen/xend-config.sxp' )
|
||||
or die "Failed to read /etc/xen/xend-config.sxp: $!";
|
||||
while( <$config_fh> )
|
||||
{
|
||||
next if ( ! $_ || !length( $_ ) );
|
||||
|
||||
# vif
|
||||
if ( $_ =~ /^\(vif-script ([^)]+)/ )
|
||||
{
|
||||
$cfg{'vif-script'} = $1;
|
||||
}
|
||||
|
||||
# network
|
||||
if ( $_ =~ /^\(network-script ([^)]+)/ )
|
||||
{
|
||||
$cfg{'network-script'} = $1;
|
||||
}
|
||||
}
|
||||
close( $config_fh );
|
||||
|
||||
if ( !defined( $cfg{'network-script'} ) ||
|
||||
!defined( $cfg{'vif-script'} ) )
|
||||
{
|
||||
print <<EOF;
|
||||
|
||||
WARNING
|
||||
-------
|
||||
|
||||
You appear to have a missing vif-script, or network-script, in the
|
||||
Xen configuration file /etc/xen/xend-config.sxp.
|
||||
|
||||
Please fix this and restart Xend, or your guests will not be able
|
||||
to use any networking!
|
||||
|
||||
EOF
|
||||
}
|
||||
else
|
||||
{
|
||||
if ( ( $cfg{'network-script'} =~ /dummy/i ) ||
|
||||
( $cfg{'vif-script'} =~ /dummy/i ) )
|
||||
{
|
||||
|
||||
print <<EOF;
|
||||
WARNING
|
||||
-------
|
||||
|
||||
You appear to have a "dummy" vif-script, or network-script, setting
|
||||
in the Xen configuration file /etc/xen/xend-config.sxp.
|
||||
|
||||
Please fix this and restart Xend, or your guests will not be able to
|
||||
use any networking!
|
||||
|
||||
EOF
|
||||
}
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
C.J. Adams-Collier, C<< <cjac at colliertech.org> >>
|
||||
|
||||
=head1 BUGS
|
||||
|
||||
Please report any bugs or feature requests to C<bug-xen-tools at rt.cpan.org>, or through
|
||||
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Xen-Tools>. I will be notified, and then you'll
|
||||
automatically be notified of progress on your bug as I make changes.
|
||||
|
||||
|
||||
|
||||
|
||||
=head1 SUPPORT
|
||||
|
||||
You can find documentation for this module with the perldoc command.
|
||||
|
||||
perldoc Xen::Tools
|
||||
|
||||
|
||||
You can also look for information at:
|
||||
|
||||
=over 4
|
||||
|
||||
=item * RT: CPAN's request tracker
|
||||
|
||||
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Xen-Tools>
|
||||
|
||||
=item * AnnoCPAN: Annotated CPAN documentation
|
||||
|
||||
L<http://annocpan.org/dist/Xen-Tools>
|
||||
|
||||
=item * CPAN Ratings
|
||||
|
||||
L<http://cpanratings.perl.org/d/Xen-Tools>
|
||||
|
||||
=item * Search CPAN
|
||||
|
||||
L<http://search.cpan.org/dist/Xen-Tools>
|
||||
|
||||
=back
|
||||
|
||||
=head1 COPYRIGHT & LICENSE
|
||||
|
||||
Copyright 2007 C.J. Adams-Collier, all rights reserved.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify it
|
||||
under the same terms as Perl itself.
|
||||
|
||||
|
||||
=cut
|
||||
|
||||
1; # End of Xen::Tools
|
||||
@@ -2,10 +2,13 @@
|
||||
|
||||
package Xen::Tools::Common;
|
||||
|
||||
=encoding utf8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Xen::Tools::Common - Common funtions used in xen-tools' Perl scripts
|
||||
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
use Xen::Tools::Common;
|
||||
@@ -19,9 +22,10 @@ use Exporter 'import';
|
||||
use vars qw(@EXPORT_OK @EXPORT);
|
||||
|
||||
use English;
|
||||
use File::Which;
|
||||
|
||||
@EXPORT = qw(readConfigurationFile xenRunning runCommand setupAdminUsers
|
||||
findXenToolstack findBinary
|
||||
findXenToolstack
|
||||
logprint_with_config logonly_with_config fail_with_config);
|
||||
|
||||
=head1 FUNCTIONS
|
||||
@@ -138,38 +142,6 @@ sub xenRunning ($$)
|
||||
return ($running);
|
||||
}
|
||||
|
||||
=head2 findBinary
|
||||
|
||||
=begin doc
|
||||
|
||||
Find the location of the specified binary on the curent user's PATH.
|
||||
|
||||
Return undef if the named binary isn't found.
|
||||
|
||||
=end doc
|
||||
|
||||
=cut
|
||||
|
||||
sub findBinary
|
||||
{
|
||||
my ($bin) = (@_);
|
||||
|
||||
# strip any path which might be present.
|
||||
$bin = $2 if ( $bin =~ /(.*)[\/\\](.*)/ );
|
||||
|
||||
foreach my $entry ( split( /:/, $ENV{ 'PATH' } ) )
|
||||
{
|
||||
|
||||
# guess of location.
|
||||
my $guess = $entry . "/" . $bin;
|
||||
|
||||
# return it if it exists and is executable
|
||||
return $guess if ( -e $guess && -x $guess );
|
||||
}
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
=head2 findXenToolstack
|
||||
|
||||
=begin doc
|
||||
@@ -191,12 +163,12 @@ sub findXenToolstack
|
||||
return $toolstack if $toolstack;
|
||||
}
|
||||
|
||||
my $xm = findBinary('xm');
|
||||
my $xm = which('xm');
|
||||
if ($xm and system("$xm list >/dev/null 2>/dev/null") == 0) {
|
||||
return $xm;
|
||||
}
|
||||
|
||||
my $xl = findBinary('xl');
|
||||
my $xl = which('xl');
|
||||
if ($xl and system("$xl list >/dev/null 2>/dev/null") == 0) {
|
||||
return $xl;
|
||||
}
|
||||
@@ -218,9 +190,9 @@ sub findXenToolstack
|
||||
|
||||
=cut
|
||||
|
||||
sub runCommand ($$)
|
||||
sub runCommand ($$;$)
|
||||
{
|
||||
my ($cmd, $CONFIG) = (@_);
|
||||
my ($cmd, $CONFIG, $fail_ok) = (@_);
|
||||
|
||||
#
|
||||
# Set a local if we don't have one.
|
||||
@@ -245,10 +217,12 @@ sub runCommand ($$)
|
||||
my $rcopen = open(CMD, '-|', $cmd);
|
||||
if (!defined($rcopen)) {
|
||||
logprint_with_config("Starting command '$cmd' failed: $!\n", $CONFIG);
|
||||
logprint_with_config("Aborting\n", $CONFIG);
|
||||
print "See /var/log/xen-tools/".$CONFIG->{'hostname'}.".log for details\n";
|
||||
$CONFIG->{'FAIL'} = 1;
|
||||
exit 127;
|
||||
unless ($fail_ok) {
|
||||
logprint_with_config("Aborting\n", $CONFIG);
|
||||
print "See /var/log/xen-tools/".$CONFIG->{'hostname'}.".log for details\n";
|
||||
$CONFIG->{'FAIL'} = 1;
|
||||
exit 127;
|
||||
}
|
||||
}
|
||||
|
||||
while (my $line = <CMD>) {
|
||||
@@ -270,8 +244,10 @@ sub runCommand ($$)
|
||||
logprint_with_config("Running command '$cmd' failed with exit code $?.\n", $CONFIG);
|
||||
logprint_with_config("Aborting\n", $CONFIG);
|
||||
print "See /var/log/xen-tools/".$CONFIG->{'hostname'}.".log for details\n";
|
||||
$CONFIG->{'FAIL'} = 1;
|
||||
exit 127;
|
||||
unless ($fail_ok) {
|
||||
$CONFIG->{'FAIL'} = 1;
|
||||
exit 127;
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
@@ -428,7 +404,7 @@ sub logprint_with_config ($$)
|
||||
Steve Kemp, http://www.steve.org.uk/
|
||||
Axel Beckert, http://noone.org/abe/
|
||||
Dmitry Nedospasov, http://nedos.net/
|
||||
Stéphane Jourdois
|
||||
Stéphane Jourdois
|
||||
|
||||
Merged from several scripts by Axel Beckert.
|
||||
|
||||
|
||||
@@ -1,212 +0,0 @@
|
||||
package Xen::Tools::Log;
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
use Moose;
|
||||
use File::Spec;
|
||||
use POSIX; # strftime
|
||||
use Carp;
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Xen::Tools::Log - Log Xen::Tools events
|
||||
|
||||
=head1 VERSION
|
||||
|
||||
Version 0.01
|
||||
|
||||
=cut
|
||||
|
||||
our $VERSION = '0.01';
|
||||
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
Mostly internal to Xen::Tools. Use this to create a logging mechanism.
|
||||
|
||||
my $xtl = Xen::Tools::Log->new( hostname => 'firewall' );
|
||||
|
||||
$xtl->print("Yay for logging.");
|
||||
|
||||
=head1 FUNCTIONS
|
||||
|
||||
=head2 new
|
||||
|
||||
Create the log object
|
||||
|
||||
=cut
|
||||
|
||||
=head2 print
|
||||
|
||||
Print the given string both to our screen, and to the logfile.
|
||||
|
||||
=cut
|
||||
|
||||
sub print {
|
||||
my $self = shift;
|
||||
|
||||
$self->print_screen( @_ );
|
||||
$self->print_log( @_ );
|
||||
}
|
||||
|
||||
=head2 print_screen
|
||||
|
||||
Print the given string to our screen
|
||||
|
||||
=cut
|
||||
|
||||
sub print_screen {
|
||||
my $self = shift;
|
||||
|
||||
print map { "$_\n" } @_;
|
||||
}
|
||||
|
||||
=head2 print_log
|
||||
|
||||
Print the given string to the logfile.
|
||||
|
||||
=cut
|
||||
|
||||
sub print_log {
|
||||
my $self = shift;
|
||||
|
||||
# Create an RFC 822 conformant date string
|
||||
my $date = strftime( "%a, %d %b %Y %H:%M:%S %z", localtime );
|
||||
my $fh = $self->log_fh();
|
||||
print $fh ( map { "$date - $_" } @_ );
|
||||
}
|
||||
|
||||
=head2 hostname
|
||||
|
||||
Attribute storing the hostname this log describes
|
||||
|
||||
=cut
|
||||
|
||||
has 'hostname' => ( is => 'rw', isa => 'Str', required => 1 );
|
||||
|
||||
=head2 logpath
|
||||
|
||||
Attribute storing the directory in which the log file resides
|
||||
|
||||
=cut
|
||||
|
||||
has 'logpath' => ( is => 'rw',
|
||||
isa => 'Str',
|
||||
default => '/var/log/xen-tools'
|
||||
);
|
||||
|
||||
=head2 log_fh
|
||||
|
||||
FileHandle attribute storing the filehandle of the log
|
||||
|
||||
=cut
|
||||
|
||||
has 'log_fh' => ( is => 'ro',
|
||||
isa => 'FileHandle',
|
||||
lazy => 1,
|
||||
default => \&_init_fh,
|
||||
);
|
||||
|
||||
=head2 clean_up
|
||||
|
||||
Boolean attribute indicating whether the log will be cleaned up when the
|
||||
logger is closed
|
||||
|
||||
=cut
|
||||
|
||||
has 'clean_up' => ( is => 'ro',
|
||||
isa => 'Bool',
|
||||
default => 0,
|
||||
);
|
||||
|
||||
before 'DESTROY' => sub {
|
||||
my $self = shift;
|
||||
|
||||
# Deconstructor
|
||||
};
|
||||
|
||||
=head2 meta
|
||||
|
||||
This is a method which provides access to the current class's meta-
|
||||
class. Inherited from Moose.
|
||||
|
||||
=cut
|
||||
|
||||
=begin doc
|
||||
|
||||
_init_fh
|
||||
|
||||
This private method initializes the logging filehandle, creating the
|
||||
containing directory if it does not exist.
|
||||
|
||||
=end doc
|
||||
|
||||
=cut
|
||||
|
||||
sub _init_fh {
|
||||
my $self = shift;
|
||||
|
||||
my $logFile =
|
||||
File::Spec->catfile( $self->logpath(), $self->hostname() . '.log' );
|
||||
|
||||
system( qw(mkdir -p), $self->logpath() ) unless -d $self->logpath();
|
||||
|
||||
carp "Couldn't create log directory: $!" unless $? == 0;
|
||||
|
||||
open( $self->{log_fh}, q{>>}, $logFile ) or
|
||||
carp "Couldn't open log file for append: $!";
|
||||
};
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
C.J. Adams-Collier, C<< <cjac at colliertech.org> >>
|
||||
|
||||
=head1 BUGS
|
||||
|
||||
Please report any bugs or feature requests to C<bug-xen-tools-log at rt.cpan.org>, or through
|
||||
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Xen-Tools>. I will be notified, and then you'll
|
||||
automatically be notified of progress on your bug as I make changes.
|
||||
|
||||
|
||||
|
||||
|
||||
=head1 SUPPORT
|
||||
|
||||
You can find documentation for this module with the perldoc command.
|
||||
|
||||
perldoc Xen::Tools
|
||||
|
||||
|
||||
You can also look for information at:
|
||||
|
||||
=over 4
|
||||
|
||||
=item * RT: CPAN's request tracker
|
||||
|
||||
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Xen-Tools>
|
||||
|
||||
=item * AnnoCPAN: Annotated CPAN documentation
|
||||
|
||||
L<http://annocpan.org/dist/Xen-Tools>
|
||||
|
||||
=item * CPAN Ratings
|
||||
|
||||
L<http://cpanratings.perl.org/d/Xen-Tools>
|
||||
|
||||
=item * Search CPAN
|
||||
|
||||
L<http://search.cpan.org/dist/Xen-Tools>
|
||||
|
||||
=back
|
||||
|
||||
=head1 COPYRIGHT & LICENSE
|
||||
|
||||
Copyright 2007 C.J. Adams-Collier, all rights reserved.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify it
|
||||
under the same terms as Perl itself.
|
||||
|
||||
|
||||
=cut
|
||||
|
||||
1; # End of Xen::Tools::Log
|
||||
@@ -31,7 +31,7 @@ function _find_xen_images
|
||||
|
||||
for i in /etc/xen/*.cfg ; do
|
||||
name=`grep ^name $i 2>/dev/null | awk -F\' '{print $2}'`
|
||||
if [ ! -z "${name}" ] ; then
|
||||
if [ -n "${name}" ] ; then
|
||||
names="${names} ${name}"
|
||||
fi
|
||||
done
|
||||
@@ -65,8 +65,8 @@ _xen_create_image()
|
||||
# Available distributions, by which we mean distributions which
|
||||
# we have hook scripts available.
|
||||
#
|
||||
for i in `/bin/ls -1 /usr/lib/xen-tools/ ` ; do
|
||||
if [ -d /usr/lib/xen-tools/${i} ]; then
|
||||
for i in `/bin/ls -1 /usr/share/xen-tools/ ` ; do
|
||||
if [ -d /usr/share/xen-tools/${i} ]; then
|
||||
dists="${dists} ${i/.d/}"
|
||||
fi
|
||||
done
|
||||
7
misc/xen-tools.initramfs-tools
Normal file
7
misc/xen-tools.initramfs-tools
Normal file
@@ -0,0 +1,7 @@
|
||||
# This initramfs-tools configuration file is installed by xen-tools.
|
||||
#
|
||||
# To make the Dom0's initramfs working inside DomUs, too, most modules
|
||||
# need to be included, not just those necvessary for the host system
|
||||
# and its hardware.
|
||||
|
||||
MODULES=most
|
||||
@@ -40,7 +40,7 @@ rm -rf $RPM_BUILD_ROOT
|
||||
/etc/bash_completion.d/*
|
||||
/usr/bin/*
|
||||
/usr/share/man/man8/*
|
||||
/usr/lib/xen-tools
|
||||
/usr/share/xen-tools
|
||||
|
||||
|
||||
%changelog
|
||||
|
||||
@@ -15,8 +15,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions - this will let us install a Debian package.
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
echo "Installation problem"
|
||||
fi
|
||||
|
||||
@@ -11,8 +11,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions - this will let us install a Debian package.
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
echo "Installation problem"
|
||||
fi
|
||||
|
||||
@@ -30,8 +30,8 @@ source=/etc/xen-tools/sed.d/
|
||||
#
|
||||
# Source our common functions - this will let us install a Debian package.
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
echo "Installation problem"
|
||||
fi
|
||||
|
||||
@@ -15,8 +15,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions - this will let us install a Debian package.
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
echo "Installation problem"
|
||||
fi
|
||||
|
||||
@@ -16,8 +16,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions - this will let us install a Debian package.
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
echo "Installation problem"
|
||||
fi
|
||||
|
||||
@@ -11,8 +11,8 @@ prefix=$1
|
||||
#
|
||||
# Source our common functions - this will let us install a Debian package.
|
||||
#
|
||||
if [ -e /usr/lib/xen-tools/common.sh ]; then
|
||||
. /usr/lib/xen-tools/common.sh
|
||||
if [ -e /usr/share/xen-tools/common.sh ]; then
|
||||
. /usr/share/xen-tools/common.sh
|
||||
else
|
||||
echo "Installation problem"
|
||||
fi
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user