Compare commits
4 Commits
proper-del
...
release-4.
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
c4e3a1eed0 | ||
|
|
156c18e79c | ||
|
|
b39620c6da | ||
|
|
898abeb964 |
13
KNOWN_BUGS
Normal file
13
KNOWN_BUGS
Normal file
@@ -0,0 +1,13 @@
|
||||
KNOWN BUGS in xen-tools
|
||||
|
||||
Bugs to fix before a 4.2 release
|
||||
--------------------------------
|
||||
|
||||
* xen-delete-image doesn't remove all logical volumes if --partitions is used.
|
||||
|
||||
See the link below for details how to reproduce. Reproducable at
|
||||
least with --lvm. Thanks to Antoine Benkemoun for reporting.
|
||||
|
||||
http://xen-tools.org/pipermail/xen-tools-discuss/2010-May/000757.html
|
||||
|
||||
* xen-delete-image ignores extension setting
|
||||
4
Makefile
4
Makefile
@@ -14,7 +14,7 @@
|
||||
#
|
||||
TMP ?= /tmp
|
||||
DIST_PREFIX = ${TMP}
|
||||
VERSION = 4.2rc1
|
||||
VERSION = 4.2beta1
|
||||
DEBVERSION = $(shell echo $(VERSION)|sed 's/\(rc\|pre\|beta\|alpha\)/~\1/')
|
||||
BASE = xen-tools
|
||||
VCS = $(shell if git st > /dev/null; then echo git; \
|
||||
@@ -313,4 +313,4 @@ update-modules:
|
||||
# at the top of this file. Steve-Specific?
|
||||
#
|
||||
update-version:
|
||||
perl -pi.bak -e "s/RELEASE = '[0-9]\.[0-9][^']*';/RELEASE = '${VERSION}';/g" bin/*-*[^~]
|
||||
perl -pi.bak -e "s/RELEASE = '[0-9]\.[0-9][^']*';/RELEASE = '${VERSION}';/g" bin/*-*[!~]
|
||||
|
||||
16
TODO
16
TODO
@@ -1,8 +1,10 @@
|
||||
TODO
|
||||
====
|
||||
|
||||
Bugs to fix and Features to add before a 4.2 release
|
||||
----------------------------------------------------
|
||||
See KNOWN_BUGS for real bugs.
|
||||
|
||||
Minor bugs to fix and features to add before a 4.2 release
|
||||
----------------------------------------------------------
|
||||
|
||||
* xen-create-image man page overhaul:
|
||||
|
||||
@@ -22,22 +24,12 @@ Bugs to fix and Features to add before a 4.2 release
|
||||
in the domU, it's key fingerprint should be echo'd in a way that
|
||||
can easily be grep'ed into other scripts.
|
||||
|
||||
|
||||
* Test and support more file system types.
|
||||
|
||||
Actually this should be pretty simple now that the parameters are
|
||||
stored in the configuration hash. The only issue is that trailing
|
||||
whitespace is missing from the "make_fs_foo" option.
|
||||
|
||||
* xen-delete-image doesn't remove all logical volumes if --partitions is used.
|
||||
|
||||
See the link below for details how to reproduce. Reproducable at
|
||||
least with --lvm. Thanks to Antoine Benkemoun for reporting.
|
||||
|
||||
http://xen-tools.org/pipermail/xen-tools-discuss/2010-May/000757.html
|
||||
|
||||
* xen-delete-image ignores extension setting
|
||||
|
||||
* xen-create-image should check all integer options on non-digits.
|
||||
|
||||
* Test suite should pass
|
||||
|
||||
@@ -754,7 +754,7 @@ my $FAIL = 0;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.2rc1';
|
||||
my $RELEASE = '4.2beta1';
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -130,7 +130,7 @@ $CONFIG{ 'template' } = '/etc/xen-tools/xm-nfs.tmpl';
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.2rc1';
|
||||
my $RELEASE = '4.2beta1';
|
||||
|
||||
|
||||
# store version number away.
|
||||
|
||||
@@ -169,7 +169,8 @@ my %CONFIG;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.2rc1';
|
||||
my $RELEASE = '4.2beta1';
|
||||
|
||||
|
||||
|
||||
#
|
||||
@@ -219,21 +220,7 @@ while ( my $name = shift )
|
||||
{
|
||||
if ( !xenRunning($name) )
|
||||
{
|
||||
#
|
||||
# Partition layout information values read from the
|
||||
# partitions file, or constructed automatically if no
|
||||
# partitions file is specified.
|
||||
#
|
||||
|
||||
my @PARTITIONS = undef;
|
||||
|
||||
#
|
||||
# Check for partitions to delete by reading the DomU's
|
||||
# configuration file
|
||||
#
|
||||
my @PARTITIONS = findPartitions($host
|
||||
|
||||
deleteXenImage($name, @PARTITIONS);
|
||||
deleteXenImage($name);
|
||||
}
|
||||
else
|
||||
{
|
||||
@@ -462,70 +449,6 @@ sub xenRunning
|
||||
}
|
||||
|
||||
|
||||
|
||||
=begin doc
|
||||
|
||||
Read the (usually to be deleted) DomU configuration file specified
|
||||
and returns the list of used partitions found in the file.
|
||||
|
||||
=end doc
|
||||
|
||||
=cut
|
||||
|
||||
sub findPartitions
|
||||
{
|
||||
my ($hostname) = (@_);
|
||||
my $file = "/etc/xen/$hostname.cfg";
|
||||
|
||||
if ( -e $file )
|
||||
{
|
||||
open( FILE, "<", $file ) or die "Cannot read file '$file' - $!";
|
||||
|
||||
my $line = "";
|
||||
my $contents = "";
|
||||
|
||||
while ( defined( $line = <FILE> ) )
|
||||
{
|
||||
chomp $line;
|
||||
if ( $line =~ s/\\$// )
|
||||
{
|
||||
$line .= <FILE>;
|
||||
redo unless eof(FILE);
|
||||
}
|
||||
|
||||
# Skip lines beginning with comments
|
||||
next if ( $line =~ /^([ \t]*)\#/ );
|
||||
|
||||
# Skip blank lines
|
||||
next if ( length($line) < 1 );
|
||||
|
||||
# Strip trailing comments.
|
||||
if ( $line =~ /(.*)\#(.*)/ )
|
||||
{
|
||||
$line = $1;
|
||||
}
|
||||
|
||||
$contents .= $line;
|
||||
}
|
||||
|
||||
close(FILE);
|
||||
|
||||
if ($contents =~ /\ndisk\s*=\s*\[\s*(.*?)\s*\]\s*\n/) {
|
||||
my $disks = $1;
|
||||
my @disks = split(/\n/, $disks);
|
||||
foreach (@disks) {
|
||||
s/^\s*'phy:(.*),\w*,\w*',\s*$/$1/;
|
||||
}
|
||||
return @disks;
|
||||
}
|
||||
} else {
|
||||
warn "Couldn't find $file. May start guessing based on further parameters.\n";
|
||||
return qw(GUESSING);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
=begin doc
|
||||
|
||||
Delete the named image, and the corresponding configuration file
|
||||
@@ -537,11 +460,7 @@ sub findPartitions
|
||||
|
||||
sub deleteXenImage
|
||||
{
|
||||
my $hostname = shift;
|
||||
my @partitions = @_;
|
||||
my $guessing = ($#partitions == 0 and $partitions[0] eq 'GUESSING');
|
||||
|
||||
|
||||
my ($hostname) = (@_);
|
||||
|
||||
#
|
||||
# Collect the names of files to delete.
|
||||
|
||||
@@ -102,7 +102,7 @@ $CONFIG{ 'prefix' } = "/etc/xen";
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.2rc1';
|
||||
my $RELEASE = '4.2beta1';
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -116,7 +116,7 @@ my %CONFIG;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.2rc1';
|
||||
my $RELEASE = '4.2beta1';
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -120,7 +120,7 @@ my %CONFIG;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.2rc1';
|
||||
my $RELEASE = '4.2beta1';
|
||||
|
||||
|
||||
#
|
||||
|
||||
@@ -156,7 +156,7 @@ $CONFIG{ 'template' } = '/etc/xen-tools/xm.tmpl';
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.2rc1';
|
||||
my $RELEASE = '4.2beta1';
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -97,7 +97,7 @@ my %CONFIG;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.2rc1';
|
||||
my $RELEASE = '4.2beta1';
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -73,7 +73,7 @@ use strict;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.2rc1';
|
||||
my $RELEASE = '4.2beta1';
|
||||
|
||||
# Init
|
||||
my $mirror = '';
|
||||
|
||||
@@ -116,7 +116,7 @@ my %CONFIG;
|
||||
#
|
||||
# Release number.
|
||||
#
|
||||
my $RELEASE = '4.2rc1';
|
||||
my $RELEASE = '4.2beta1';
|
||||
|
||||
|
||||
#
|
||||
|
||||
3
debian/changelog
vendored
3
debian/changelog
vendored
@@ -1,4 +1,4 @@
|
||||
xen-tools (4.2~rc1-1) UNRELEASED; urgency=low
|
||||
xen-tools (4.2~beta1-1) UNRELEASED; urgency=low
|
||||
|
||||
* New maintainer and upstream authors
|
||||
* Reintroduction into Debian Unstable (Closes: #566714)
|
||||
@@ -41,6 +41,7 @@ xen-tools (4.2~rc1-1) UNRELEASED; urgency=low
|
||||
- Checks for debootstrap and cdebootstrap, uses debootstrap if both
|
||||
are installed (Changed "Depends: debootstrap" to "Depends:
|
||||
debootstrap | cdebootstrap" in debian/control)
|
||||
- Added new files TODO and KNOWN_BUGS to debian/docs.
|
||||
* Removal of /etc/bash_completion.d/xm from the package since
|
||||
bash-completion ships a more elaborate version of that file. (Closes:
|
||||
#566683, #550590, LP: #538917, #484098)
|
||||
|
||||
3
debian/docs
vendored
3
debian/docs
vendored
@@ -2,4 +2,5 @@ AUTHORS
|
||||
README
|
||||
SUPPORT
|
||||
BUGS
|
||||
TODO
|
||||
TODO
|
||||
KNOWN_BUGS
|
||||
|
||||
80
t/modules.t
80
t/modules.t
@@ -1,80 +0,0 @@
|
||||
#!/usr/bin/perl -w -I..
|
||||
#
|
||||
# Test that all the Perl modules we require are available.
|
||||
#
|
||||
# This list is automatically generated by modules.sh
|
||||
#
|
||||
# Steve
|
||||
# --
|
||||
#
|
||||
|
||||
use Test::More qw( no_plan );
|
||||
|
||||
BEGIN{ use_ok( 'Carp' ); }
|
||||
require_ok( 'Carp' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'Config' ); }
|
||||
require_ok( 'Config' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'Digest::MD5' ); }
|
||||
require_ok( 'Digest::MD5' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'English' ); }
|
||||
require_ok( 'English' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'Env' ); }
|
||||
require_ok( 'Env' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'File::Copy' ); }
|
||||
require_ok( 'File::Copy' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'File::Find' ); }
|
||||
require_ok( 'File::Find' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'File::Path' ); }
|
||||
require_ok( 'File::Path' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'File::Slurp' ); }
|
||||
require_ok( 'File::Slurp' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'File::Spec' ); }
|
||||
require_ok( 'File::Spec' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'File::Temp' ); }
|
||||
require_ok( 'File::Temp' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'Getopt::Long' ); }
|
||||
require_ok( 'Getopt::Long' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'Pod::Usage' ); }
|
||||
require_ok( 'Pod::Usage' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'strict' ); }
|
||||
require_ok( 'strict' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'Test::More' ); }
|
||||
require_ok( 'Test::More' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'Text::Template' ); }
|
||||
require_ok( 'Text::Template' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'warnings' ); }
|
||||
require_ok( 'warnings' );
|
||||
|
||||
|
||||
Reference in New Issue
Block a user